Concloo LotusScript Essentials Beispiele
Beispiele: CNCL_ByteShiftLeft
Verschiebt die Bits des übergebenen Bytes oder Array von Bytes nach um ein Bit nach links.
Dim bytes(0 To 7) As Byte
Dim a As Variant
Dim i As Integer
For i = 0 To 7
bytes(i) = CByte(Rnd()*256)
Next
a = bytes
For i = 0 To 10
Print CNCL_BytetoText(a, "b")
a = CNCL_ByteShiftLeft(a)
Next
Ausgabe:
0101001110000000100011000001111001001110110011001100100110010000
1010011100000001000110000011110010011101100110011001001100100000
0100111000000010001100000111100100111011001100110010011001000000
1001110000000100011000001111001001110110011001100100110010000000
0011100000001000110000011110010011101100110011001001100100000000
0111000000010001100000111100100111011001100110010011001000000000
1110000000100011000001111001001110110011001100100110010000000000
1100000001000110000011110010011101100110011001001100100000000000
1000000010001100000111100100111011001100110010011001000000000000
0000000100011000001111001001110110011001100100110010000000000000
0000001000110000011110010011101100110011001001100100000000000000