Das Laster mit den Drehencoder.

Es gibt im Internet viele Beispiele für Drehencoder, auch in der Bascomhilfe steht was beschrieben, aber richtig funktioniert hat das Teil eigentlich nie. Hier mal meine Version. In der Do Loop Schleife passiert eigentlich nichts, außer das am angeschlossen Display die ausgegebenen Werte angezeigt werden. Verwendung findet hier der Encoder von Pollin http://www.pollin.de/shop/downloads/D240383D.PDF.

Z = der Wert, der hoch- bzw. runtergezählt wird

X = der Wert der Encoders 0,1,2,3

 

$regfile = "m48def.dat"
$crystal = 8000000

Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.0 , Db7 = Portc.1 , E = Portc.3 , Rs = Portc.2
Config Lcd = 16 * 4

'drehen
Config Portb.6 = Input
Portb.6 = 1
'drehen
Config Portb.7 = Input
Portb.7 = 1
'drücken
Config Portd.5 = Input
Portd.5 = 1
Config Portd.0 = Output

'für Encoder
Dim X As Byte
Dim Y As Byte
Dim Z As Byte

Cursor Off
Cls
Z = 0

Do

Locate 1 , 1
Lcd Z
Locate 2 , 1
Lcd X

Gosub Drehencoder

Loop

Drehencoder:

X = Encoder(pinb.7 , Pinb.6 , Li , Re , 0)
Return

Li:
If X = 2 Then
Incr Z
End If
Return

Re:
If X = 1 Then
Decr Z
End If
Return