Wir verwenden Cookies auf dieser Website.

Cookies sind kleine Textdateien, die von Websites auf Ihrem Computer gespeichert werden. Cookies sind weit verbreitet und helfen Seiten optimiert darzustellen und zu verbessern. Durch die Nutzung unserer Seiten erklären Sie sich damit einverstanden. mehr ...
OK

Concloo LotusScript Essentials Beispiele

Beispiele: CNCL_ByteReverse

Dreht die Reihenfolge der Bits eines Bytes oder eines Arrays von Bytes um.

 
Dim a(0 To 3) As Byte
Dim x As Byte
Dim b As Variant

a(0) = &b00110011
a(1) = &b01010101
a(2) = &b00111001
a(3) = &b10010000

x= &b001110
b = CNCL_ByteReverse(a)

ForAll werta In a
	Print Right(UString(8, "0") + Bin(werta), 8)
End ForAll

Print

ForAll wertb In b
	Print Right(UString(8, "0") + Bin(wertb), 8)
End ForAll

Print

Print Right(UString(8, "0") + Bin(x), 8) + " => " + Right(UString(8, "0") + Bin(CNCL_ByteReverse(x)), 8)

Ausgabe:

00110011
01010101
00111001
10010000

00001001
10011100
10101010
11001100

00001110 => 01110000