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
Lesezeichen