Poglej prejšnjo temo :: Poglej naslednjo temo |
Avtor |
Sporočilo |
Makaron Član


Pridružen-a: Sob 21 Jan 2006 20:12 Prispevkov: 25 Aktiv.: 0.11
|
Objavljeno: Sre Dec 15, 2010 10:23 am Naslov sporočila: Bascom pretvorba iz Word v zaporedje bitov |
|
|
Kako v Bascomu najenostavneje pretvoriti spremenljivko word, v kateri je neko decimalno število (npr.500) v zaporedje bitov, torej v več posameznih bitnih spremenljivk ali pa polje bitov. |
|
Nazaj na vrh |
|
 |
rudiP Član

Pridružen-a: Tor 07 Avg 2007 15:30 Prispevkov: 1235 Aktiv.: 5.67 Kraj: KOPER
|
Objavljeno: Sre Dec 15, 2010 10:38 am Naslov sporočila: |
|
|
deklariraš tako in imaš vse na razpolago !
dim a as word
dim b(2) as byte at a overlay _________________ Lep pozdrav iz Kopra Rudi |
|
Nazaj na vrh |
|
 |
Makaron Član


Pridružen-a: Sob 21 Jan 2006 20:12 Prispevkov: 25 Aktiv.: 0.11
|
Objavljeno: Sre Dec 15, 2010 10:45 am Naslov sporočila: |
|
|
Hvala za odgovor. Bi lahko mogoče malo pojasnil pomen tega drugega stavka? |
|
Nazaj na vrh |
|
 |
Makaron Član


Pridružen-a: Sob 21 Jan 2006 20:12 Prispevkov: 25 Aktiv.: 0.11
|
Objavljeno: Sre Dec 15, 2010 11:29 am Naslov sporočila: |
|
|
Zakaj imajo bitne spremenljivke v naslednji kodi vrednost 0?
Dim Adrpm As Word
Adrpm = 600
Dim Bit1 As Bit At Adrpm Overlay 'MSB of Byte1
Dim Bit2 As Bit At Adrpm Overlay
Dim Bit3 As Bit At Adrpm Overlay
Dim Bit4 As Bit At Adrpm Overlay
Dim Bit5 As Bit At Adrpm Overlay
Dim Bit6 As Bit At Adrpm Overlay
Dim Bit7 As Bit At Adrpm Overlay
Dim Bit8 As Bit At Adrpm Overlay
Dim Bit9 As Bit At Adrpm Overlay
Dim Bit10 As Bit At Adrpm Overlay
Dim Bit11 As Bit At Adrpm Overlay
Dim Bit12 As Bit At Adrpm Overlay
Dim Bit13 As Bit At Adrpm Overlay
Dim Bit14 As Bit At Adrpm Overlay
Dim Bit15 As Bit At Adrpm Overlay
Dim Bit16 As Bit At Adrpm Overlay 'LSB of Byte1 |
|
Nazaj na vrh |
|
 |
rudiP Član

Pridružen-a: Tor 07 Avg 2007 15:30 Prispevkov: 1235 Aktiv.: 5.67 Kraj: KOPER
|
Objavljeno: Sre Dec 15, 2010 7:31 pm Naslov sporočila: |
|
|
Napiši malo več kaj želiš početi z biti tega word-a. _________________ Lep pozdrav iz Kopra Rudi |
|
Nazaj na vrh |
|
 |
Vlado Član

Pridružen-a: Sre 03 Mar 2004 21:35 Prispevkov: 563 Aktiv.: 2.37 Kraj: Ljubljana
|
Objavljeno: Čet Dec 16, 2010 10:35 am Naslov sporočila: |
|
|
Citiram: |
Zakaj imajo bitne spremenljivke v naslednji kodi vrednost 0?
Dim Adrpm As Word
Adrpm = 600
Dim Bit1 As Bit At Adrpm Overlay 'MSB of Byte1
Dim Bit2 As Bit At Adrpm Overlay
Dim Bit3 As Bit At Adrpm Overlay |
Pravilno bi bilo:
Dim Bit1 As Bit At Adrpm.1 Overlay
. . . .
. . . .
Pa prvi bit začneš z ničlo in ne z enko, ali pa :
Dim Bit1 As Bit At Adrpm.0 overlay
Vlado |
|
Nazaj na vrh |
|
 |
vilko Član



Pridružen-a: Pet 13 Feb 2004 10:26 Prispevkov: 3362 Aktiv.: 14.18 Kraj: Dragomer
|
Objavljeno: Čet Dec 16, 2010 2:58 pm Naslov sporočila: |
|
|
Makaron je napisal/a: |
Zakaj imajo bitne spremenljivke v naslednji kodi vrednost 0?
Dim Adrpm As Word
Adrpm = 600
Dim Bit1 As Bit At Adrpm Overlay 'MSB of Byte1
Dim Bit2 As Bit At Adrpm Overlay
Dim Bit3 As Bit At Adrpm Overlay
Dim Bit4 As Bit At Adrpm Overlay
Dim Bit5 As Bit At Adrpm Overlay
Dim Bit6 As Bit At Adrpm Overlay
Dim Bit7 As Bit At Adrpm Overlay
Dim Bit8 As Bit At Adrpm Overlay
Dim Bit9 As Bit At Adrpm Overlay
Dim Bit10 As Bit At Adrpm Overlay
Dim Bit11 As Bit At Adrpm Overlay
Dim Bit12 As Bit At Adrpm Overlay
Dim Bit13 As Bit At Adrpm Overlay
Dim Bit14 As Bit At Adrpm Overlay
Dim Bit15 As Bit At Adrpm Overlay
Dim Bit16 As Bit At Adrpm Overlay 'LSB of Byte1 |
Tvoji biti imajo sicer različna imena, a so vsi na eni in isti lokaciji.
Zakaj pa hočeš posamezne bite? Če jih hičeš izpisati spremenljivko binarno, potem uporabi print bin(spremenljivka)
Koda: |
A = &B1010_0111
Print Bin(a)
|
|
|
Nazaj na vrh |
|
 |
Makaron Član


Pridružen-a: Sob 21 Jan 2006 20:12 Prispevkov: 25 Aktiv.: 0.11
|
Objavljeno: Čet Dec 16, 2010 9:47 pm Naslov sporočila: |
|
|
Hvala za odgovore. Sem zadevo rešil z ukazom shiftout. Vseeno hvala, zna še kdaj tudi tole priti prav. |
|
Nazaj na vrh |
|
 |
rudiP Član

Pridružen-a: Tor 07 Avg 2007 15:30 Prispevkov: 1235 Aktiv.: 5.67 Kraj: KOPER
|
Objavljeno: Čet Dec 16, 2010 11:11 pm Naslov sporočila: |
|
|
Če bi takoj povedal kakšen problem te muči, bi imel odgovor prej. Ampak kar se sam naučiš ti ostane znanje in izkušnje za dolgo. _________________ Lep pozdrav iz Kopra Rudi |
|
Nazaj na vrh |
|
 |
|
|
Ne, ne moreš dodajati novih tem v tem forumu Ne, ne moreš odgovarjati na teme v tem forumu Ne, ne moreš urejati svojih prispevkov v tem forumu Ne, ne moreš brisati svojih prispevkov v tem forumu Ne ne moreš glasovati v anketi v tem forumu Ne, ne moreš pripeti datotek v tem forumu Ne, ne moreš povleči datotek v tem forumu
|