Concloo LotusScript Essentials Beispiele
Beispiele: CNCL_ByteShiftRight
Verschiebt die Bits des übergebenen Bytes oder Array von Bytes nach um ein Bit nach rechts.
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_ByteShiftRight(a)
Next
Ausgabe:
1001100100000011001110000100101010001100010010010111010000100001
0100110010000001100111000010010101000110001001001011101000010000
0010011001000000110011100001001010100011000100100101110100001000
0001001100100000011001110000100101010001100010010010111010000100
0000100110010000001100111000010010101000110001001001011101000010
0000010011001000000110011100001001010100011000100100101110100001
0000001001100100000011001110000100101010001100010010010111010000
0000000100110010000001100111000010010101000110001001001011101000
0000000010011001000000110011100001001010100011000100100101110100
0000000001001100100000011001110000100101010001100010010010111010
0000000000100110010000001100111000010010101000110001001001011101