Tach,

das habe ich mal vor einiger Zeit mit einem anderen Drehrichtungsgeber gemacht. Drei LED's werden hier kurz angesteuert. Links, Rechts und Enter. Funzt wunderbar.


------schnipp-----

$regfile = "m8def.dat"
$crystal = 16000000
Config Portc = Output
Config Portd = Input

Dim B As Byte
Portd = 255

Do
Portc = &B11111111
B = Encoder(pind.1 , Pind.0 , Links , Rechts , 0)
If Pind.2 = 0 Then
Gosub Enter
End If
Waitms 5
Loop

End

Links:
Portc = &B11110110
Waitms 5
Return

Rechts:
Portc = &B11101101
Waitms 5
Return

Enter:
Portc = &B11011011
Waitms 5
Return

------schnapp-----