ich hab mir jetzt mal aus allem was ich gefunden habe was zusammengesucht. gefunzt hat es leider nicht

Code:
Config Timer1 = Counter , Edge = Rising
On Timer1 Timer1over
Enable Timer1
Enable Interrupts
Timer1 = 0
Dim Zeit As Integer
Do
Lcd Zeit
Loop


Timer1over:
Zeit = Timer1
bitte um hilfe und verbessreung