So ich hab hier nochmal denn Code:
Das dumme is nur jetzt zeigt er wieder bloß 1 manchmal 2 an... Ich fühle mich von dem ding langsam aber sicher verschauckeltCode:$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 'Hier wird das Unterprogramm festgelegt, das 'in dem von ihnen eingestellten Intervall aufgerufen wird On Timer1 Timer_irq 'Diese Vorgabe wurde berechnet um die genaue Intervallfrequenz zu erreichen Const Timervorgabe = 34286 'Hier werden die Timer aktiviert Enable Timer1 'Hier wird der Timer und der Teiler festgelegt Enable Int0 Enable Interrupts Start Timer1 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[/quote]







Zitieren

Lesezeichen