'* Beispielprogramm zum Thema Timer
'* Der Timer 0 wird gestartet und immer wieder ausgelesen.
'* Allerdings ziemlich schnell.
'* Stefan Weißer - Getestet, funktioniert

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

Config Pina.7 = Output                                      '* Als Ausgang konfigurieren, Grüne LED
Config Timer0 = Timer , Prescale = 1024                     '* Durch Angabe des Prescalers wird der Prozessortakt gezählt
Enable Timer0                                               '* Timerschaltkreis einschalten

Dim W As Word
Timer0 = 0                                                  '* Zähle von Null beginnend

Cls
Upperline
Lcd "Timer V1"

Start Timer0
Do
W = Timer0                                                  '* Aktuellen Zählerstand auslesen
Lowerline
Lcd "W: " ; W
If W = 255 Then                                             '* Zähle von Null auf 255 und beginne von vorn
           Stop Timer0                                      '* Zum neu einstellen kurz anhalten
           Porta.7 = 1                                      '* Grüne LED einschalten
           Timer0 = 0                                       '* Zähle von Null beginnend
           Waitms 1                                         '* Wartezeit, sonst sieht man die LED nicht blitzen....
           Porta.7 = 0                                      '* Grüne LED ausschalten
           Start Timer0                                     '* Timer starten
           End If
Loop

End                                                         '* Hauptprogramm