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ß







Zitieren

Lesezeichen