Sprengi
21.08.2009, 20:51
Hallo,
ich habe einmal versucht den Timer zu benutzen um z.b. eine Variable um 1 zu erhöhen und dann auszugeben im 1 Sekunden abstand. Allerdings passiert garnichts. Wenn ich in die Hauptschleife eine Print anweisung einbaue wird diese normal ausgegeben. Woran könnte das liegen?
Grüße
$regfile = "m32def.dat"
$crystal = 16000000
$baud = 9600
Enable Interrupts
Config Timer1 = Timer , Prescale = 256
On Timer1 Isr_von_timer1
Timer1 = 3035
Dim Zeit As Long
Do
Print Zeit
Waitms 1000
Loop
End
Isr_von_timer1:
Timer1 = 3035
Zeit = Zeit + 1
Print Zeit
Return
ich habe einmal versucht den Timer zu benutzen um z.b. eine Variable um 1 zu erhöhen und dann auszugeben im 1 Sekunden abstand. Allerdings passiert garnichts. Wenn ich in die Hauptschleife eine Print anweisung einbaue wird diese normal ausgegeben. Woran könnte das liegen?
Grüße
$regfile = "m32def.dat"
$crystal = 16000000
$baud = 9600
Enable Interrupts
Config Timer1 = Timer , Prescale = 256
On Timer1 Isr_von_timer1
Timer1 = 3035
Dim Zeit As Long
Do
Print Zeit
Waitms 1000
Loop
End
Isr_von_timer1:
Timer1 = 3035
Zeit = Zeit + 1
Print Zeit
Return