Zum Beispiel so:
Beispiel ist allerdings ungeprüft. Die Berechnung der Timervorgabe habe ich mit rnAVR (hier im Downloadbereich) gemacht.Code:$regfile = "m32def.dat" $crystal = 8000000 'Timer konfigurieren Config Timer1 = Timer, Prescale = 64 Config Portd.5 = Output Led Alias Portd.5 dim Zaehler als byte 'Timerinterruptroutine definieren On Timer1 Timer_irq Vorgabe für 12 Herz (doppelte Blinkfrequenz) Const Timervorgabe = 55119 'Timer starten Enable Timer1 Enable Interrupts 'Programmhauptschleife Do if zaehler > 200 then disable Timer1 led = 0 'zur Sicherheit end if Loop 'Interruptroutine Timer_irq: Timer1 = Timervorgabe Toggle Led incr Zaehler Return







Zitieren

Lesezeichen