Seite 1 von 1
1 Byte in 8 bIt zerlegen ?
Verfasst: 19.06.2015 22:24
von funkheld
Hallo, guten Tag.
Wie kann man bitte ein Byte in 8 Bit zerlegen nu rmit +, - und mod ?
Danke.
Gruss
Re: 1 Byte in 8 bIt zerlegen ?
Verfasst: 19.06.2015 22:27
von NicknameFJ
Ich verstehe überhaupt nicht was du meinst.
Kannst Du das bitte mal genauer beschreiben was du machen willst?
Re: 1 Byte in 8 bIt zerlegen ?
Verfasst: 19.06.2015 22:50
von BSP
Debug RSet(Bin(6),8,"0")
Re: 1 Byte in 8 bIt zerlegen ?
Verfasst: 19.06.2015 23:38
von NicTheQuick
Hier eine Variante mit mod und div:
Code: Alles auswählen
byte.a = 170
For i = 0 To 7
bit = byte % 2
Debug "Bit " + i + ": " + bit
byte / 2
Next
Wenn du aber nur mod, + und - verwenden willst, musst du erst mal Div nachbauen. Das geht zwar, aber dazu hab ich kein Bock.
Re: 1 Byte in 8 bIt zerlegen ?
Verfasst: 20.06.2015 10:46
von matbal
Ist das eine Denksportaufgabe?
Hier eine andere Version in zwei Varianten. Sie benötigen die einzelnen Bit-Werte, und die Zerlegung beginnt beim höchstwertigen Bit.
Code: Alles auswählen
byte.a = %10011100
Debug Bool(byte >= 128)
byte % 128
Debug Bool(byte >= 64)
byte % 64
Debug Bool(byte >= 32)
byte % 32
Debug Bool(byte >= 16)
byte % 16
Debug Bool(byte >= 8)
byte % 8
Debug Bool(byte >= 4)
byte % 4
Debug Bool(byte >= 2)
byte % 2
Debug Bool(byte >= 1 )
Hier mit vorher generierter Bit-Wert-Tabelle (auch nur mit +)
Code: Alles auswählen
Dim Bit(7)
Bit(0) = 1
For i = 0 To 6
Bit(i+1) = Bit(i) + Bit(i)
Next i
byte.a = %10011100
For i = 7 To 0 Step -1
Debug Bool(byte >= Bit(i))
byte % Bit(i)
Next i
Re: 1 Byte in 8 bIt zerlegen ?
Verfasst: 21.06.2015 16:37
von funkheld
Ja danke für die verschiedenen Möglichkeiten.
Gruss