..also ich habe Heute auch ein paar von den Encodern bekommen. Mit der neuen Encoder-Funktion im Bascom habe ich allerdings so meine liebe Mühe.

Ich bekomme es nicht hin, dass er von einer zur nächsten Raststellung nach folgendem Code nur um 1 hoch-/herunterzählt, er zählt immer 2 Takte, Richtung wird korrekt erkannt :



Dim A As Byte
Dim B As Byte

Portd = &B11111111
A = 100

Do
Locate 1 , 1
Lcd "Encoder test"
B = Encoder(pind.6 , Pind.5 , Rechts , Links , 1)
Locate 2 , 10
Lcd B
Waitms 300
Loop
End

Links:
Cls
A = A + 1
Locate 2 , 1
Lcd A
Locate 3 , 1
Lcd "rechts herum"
Return

Rechts:
Cls
A = A - 1
Locate 2 , 1
Lcd A
Locate 3 , 1
Lcd "links herum"
Return