Da haste wieder was falsch in den "Code gemeiselt", wie du es vorher so schön formuliert hast. Du vergisst jedesmal das das Hauptprogramm immer weiterläuft. Bei dir läuft es in die Interrupt Routine rein.
Du musst nach der Konfigurierung eine do:loop Schleife rein hängen.
Probier es mal so:
Code:
$regfile = "M8def.dat"
$crystal = 8000000
Config Lcd = 20 * 4
Config Lcdbus = 4
Config Lcdpin = Pin
Dim Zehler As Long
On Int0 Int0_int
Config Timer1 = Timer , Prescale = 256
On Timer1 Timer_irq
Const Timervorgabe = 34286
Enable Timer1
Enable Int0
Enable Interrupts
Start Timer1
do
loop
Int0_int:
Incr Zehler
Return
'Dies ist der Programmteil, der in dem von ihnen gewählten
'Intervall aufgerufen wird
Timer_irq:
Timer1 = Timervorgabe
Cls
Lcd Zehler
Zehler = 0
Return
End
Es kann aber sein das es immer noch nicht geht, weil der LCD Befehl eventuell zu lange braucht. Dann müsstest du in der Interrupt Routine das Ergebnis in einer Variablen ablegen und in der do:loop Schleife dann diese Variable ab und zu ausgeben (ein Wait 2 oder so dann nicht vergessen).
Viel Spaß
Lesezeichen