Hallo, ich habe ein kleines Programm mit Bascom geschrieben, mit dem ein Drehencoder (Panasonic von Pollin) abgefragt wird. Es läuft auch soweit, nur muß ich immer 2-Klicks drehen, damit eine Variable um 1 verändert wird. Könnte ich das auch anders machen, um bei 1-Klick die Variable zu ändern ?

Danke
Code:
$regfile = "m8def.dat"
$crystal = 8000000

Config Portd = Input

Config Int0 = Rising
On Int0 _encoder
Enable Int0
Enable Interrupts

Dim Enc As Byte
Enc_b Alias Pind.3

Cls

Do

   Upperline
   Lcd Enc

Loop



_encoder:
   If Enc_b = 0 Then
      Incr Enc
      Else
      Decr Enc
   End If

   If Enc = 21 Then Enc = 20
   If Enc > 21 Then Enc = 0
Return