German Bit setzten / lesen aus einer Byte Variablen

[wlarch]

Hallo,

wie kann ich in einer Byte Variablen in B4A ein Bit setzen / auslesen?

Vielen Dank für eure Hilfe im voraus.

 

[klaus]

Setzten :

Dim a, b, c As Byte
    
a = 5
b = 8
c = Bit.Or(a, b)

Lesen :

Dim a, b, c As Byte
  
a = 5
b = 4
c = Bit.And(a, b)

c = 0 wenn das Bit nicht gesetzt ist
c > 0 wenn das Bit gesetzt ist (c hat den Wert des gestzten Bits, im Beispiel c = 4).

Beste Grüsse.

 

[wlarch]

Vielen Dank