Anstehende Bits an einem Port mit Speicherinhalt vergleichen

[Rainerd]

Hallo Chris,

Pseudocode

... blabla
.. blabla
Dim VergleichsVariable As Eram Byte ' Eeprom-Variable .. muss natürlich erst geschrieben werden
Dim Temp As Byte
Config Portc = Input   ' Eingangsport
Config Portd = Output  'da hängen Deine LED's dran

Do
     Temp=Pinc
     If Temp = VergleichsVariable Then
          Portd.0 = 1           ' Gleich, dann LED an
     Else
          Portd.0 = 0           ' Ungleich, LED aus
     End If
Loop

Gruß.
Rainer