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