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


Timer1over:
Zeit = Timer1
return
klappt es nicht. ich bin halt noch nicht so erfahren in Bascom und mit den avrs wie manch anderer hier.