Concloo LotusScript Essentials Beispiele
Beispiele: CNCL_ByteRotateLeft
Rotiert die Bits des übergebenen Bytes oder Array von Bytes nach links.
Dim a As Byte
Dim i As Integer
Dim b(0 To 2) As Byte
Dim c As Variant
a = &b00011001
For i = 1 To 10
Print Right(UString(8,"0")+Bin(a), 8)
a = CNCL_ByteRotateLeft(a, 1, True)
Next
Print "Array mit 3 Bytes"
b(0) = &b00110010
b(1) = &b01010101
b(2) = &b00001111
c = b
For i = 1 To 10
Print CNCL_Bytetotext(c, "binär")
c = CNCL_ByteRotateLeft(c, 2, False)
Next
Ausgabe:
00011001
00110010
01100100
11001000
10010001
00100011
01000110
10001100
00011001
00110010
Array mit 3 Bytes
000011110101010100110010
001111010101010011001000
111101010101001100100000
110101010100110010000011
010101010011001000001111
010101001100100000111101
010100110010000011110101
010011001000001111010101
001100100000111101010101
110010000011110101010100