Hallo,
ich möchte die einzelnen Bits eines Bytes auslesen und in einer
Boolvariablen ablegen. Folgende Funktion habe ich gemacht:
1 | Public Function GetBit(ByVal Expression As Byte, ByVal BitNum As Byte) As Boolean
|
2 | GetBit = CBool(Expression And 2 ^ BitNum)
|
3 | End Function
|
4 |
|
5 | For i = 0 To 7
|
6 | NextBit = GetBit(224, i)
|
7 | Label1.Text = Label1.Text & NextBit
|
8 | Next
|
In dem Label1 kommen die Werte immer doppelt an: für 224 habe ich als
Ausgabe
00000111 00000111. Eigentlich müsste doch nur einmal 00000111
rauskommen, oder?
Vielen Dank für eure Hilfe!
Gruß, Christian