Buttons:
Config Portb = Input 'Portb als Input setzen
Portb = 63 'PullUp Widerstände an
Debounce Setclock , 0 , Setc1 , Sub 'jetzt wirds interessant
Debounce H , 0 , Hours1 , Sub 'jeweils entprellen
' -------------------------------------------eigentliches kommando
' ------------------------------------PortPin (wurde oben definiert)
' --------------------------------Wenn auf Low gezogen wurde...
' --------------------------...führe diese...
' -----------------...subroutine aus
Debounce M , 0 , Minutes1 , Sub
Debounce S , 0 , Seconds1 , Sub
'-----------------------------------------------
Debounce Setclock , 1 , Setc2 , Sub
Debounce H , 1 , Hours2 , Sub 'hier iss das gleiche....
' ------------------------bloß mit tasterstellung=nicht gedrückt
Debounce M , 1 , Minutes2 , Sub
Debounce S , 1 , Seconds2 , Sub
Config Portb = Output
Return