' Einfache Uhr  ohne DCF77
' J.R November 2011
' Aufbau auf Evaluationsboard von Pollin und eigenes Zusatzboard (Bus Extention, LCD, Rotary Switch, etc)
' Encoder von ALPS STEC12E mit Schalter
' Port A und Port B liegen auf D2 und D3
' Schalter des Encoders liegt auf Port B3

$regfile = "m16def.dat"
$crystal = 16000000

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

Config Portd.2 = Input : Set Portd.2 : Enc_a Alias Pind.2   ' Encoder A
Config Portd.3 = Input : Set Portd.3 : Enc_b Alias Pind.3   ' Encoder B
Config Portb.3 = Input : Set Portb.3                        ' Switch am Encoder auf LCD Board

Config Int1 = Rising
On Int1 Encoderb
Enable Int1
Enable Interrupts

Const Debouncetime = 6                                      ' Debounce Encoder A und b Schalter
Dim Wert As Byte
Wert = 0

Do
Locate 1 , 1
Lcd Wert                                                    ' Anzeige des Werts
Loop
End

Encoderb:
If Enc_a = 1 Then                                           ' Wie ist der Zustand von A bei  steigender Flanke von B?
Waitms Debouncetime
 Incr Wert
 Else
 Decr Wert
 End If
Return