dim i,a,b,n as byte
 
'Mit der Objektfunktion von Variablen
a.0 = 1  ' Bit 0 setzen
b = a.0  ' Bit 0 auslesen und Status in b speichern (0 oder 1)
n=3
a.n = 1  ' Bit mit Nummer in n setzen (3)
 
'Durch Maskierung/Schieben
a = (1 << 3) ' schiebt den Wert "1" um 3 Bits nach links und weist das Ergebnis a zu
b = a and 0b00010000 'Bit 4 ausmaskieren, der Status des Bits steht dann in b
 
'Alle Bits nacheinander abfragen
for i=0 to 7   'alle Bits durchgehen (byte)
  if a.i then  'Bitstatus Abfragen
    'mache was
  else
    'mache was anderes
  end if
next
 
'Aus mehreren empfangenen Bits ein Byte zusammenbauen
'Mit der Objektfunktion von Variablen
for i=0 to 7   'alle Bits durchgehen
  'Status lesen, z.Bsp. aus einer Funktion.
  'Vom Funktionsergebnis aber nur das unterste Bit benutzen.
  a.i = (LeseStatus(i) and 0b00000001)
next
 
 
'durch Maskierung und Schieben
for i=0 to 7   'alle Bits durchgehen
  'Status lesen, z.Bsp. aus einer Funktion.
  'Vom Funktionsergebnis aber nur das unterste Bit benutzen.
  a = a or ((LeseStatus(i) and 0b00000001) << i)
next