Bitfolge in einer Variablen speichern

[radbruch]

Hallo

So vielleicht:

Dim Status_tasteralt As Word , Status_taster As Word

Status_tasteralt = 0

Do

Status_taster = 0

'Taster schalten Portpin gegen GND, 0 bedeutet "Taster betätigt"
If Pinc.0 = 0 Then Set Status_taster.0
If Pinc.1 = 0 Then Set Status_taster.1
If Pinc.2 = 0 Then Set Status_taster.6
If Pinc.3 = 0 Then Set Status_taster.7

If Pind.0 = 0 Then Set Status_taster.8
If Pind.1 = 0 Then Set Status_taster.9
If Pind.2 = 0 Then Set Status_taster.14
If Pind.3 = 0 Then Set Status_taster.15

If Status_tasteralt <> Status_taster Then
   Status_tasteralt = Status_taster
   Print Status_taster
End If

Loop
End

Gruß

mic

P.S.: Alternative Ausgabe:

Print bin(Status_taster)