Concloo LotusScript Essentials Beispiele
Beispiele: CNCL_ByteInverse
Invertiert die Bits im übergebenen Byte oder Array von Bytes.
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
x = CNCL_ByteInverse(x)
b = CNCL_ByteInverse(a)
ForAll wert In b
Print Bin(wert)
End ForAll
Print Bin(x)
Ausgabe:
11001100
10101010
11000110
1101111
11110001