Bascom und Timer
aus RN-Wissen, der freien Wissensdatenbank
Inhaltsverzeichnis |
Bascom Timer (Mega8 und andere)
Zweck
Timer sind selbständige Zähler im Prozessor. Sie werden dort gebraucht, wo zeitkritische und genaue Aufgaben gefordert sind.
Struktur:
Config TimerXXX = Timer, Prescale= XX ‘Konfiguriere TimerXXX Enable TimerXXX ‘schalte den Overflow-Interrupt zu TimerXXX ein On TimerXXX SprungXXX ‘verzweige bei TimerXXX überlauf zu SprungXXX Enable Interrupts ‘generell Interrupts zulassen Do ....Hauptprogramm ‘Hauptprogramm Loop End SprungXXX: ‘Unterprogramm von TimerXXX ....Ausführung ‘arbeitet hier etwas ab und springt mit Return Return ‘wieder zurück zum Hauptprogramm
Zuerst muss man den zu verwendeten Timer mit „Config“, konfigurieren.
Dazu definiert man ihn als Timer (man könnte auch einen Counter daraus machen).
Dazu muss man noch den Prescaler definieren. Der Prescaler ist der Teiler, der die Quarzfrequenz für den Timer reduziert .
(Sonst würde der Timer immer mit der vollen Frequenz vom Quarz zählen und das würde meistens zu schnell sein.)
Dann mit „Enable“ den gewünschten Interrupt des Timers einschalten. Der Timer selbst läuft auch schon so, mit dem definieren des Taktes. Mit „On“ das Unterprogramm (ISR) definieren, an die der Timer springen soll, wenn dieser überläuft(ISR= Interrupt Service Routine). Dann das generelle Einschalten von Interrupts.
Jeder Zähler hat eine bestimmte, maximale Zählweite. Zählt er über diese, fängt er wieder bei Null an zu zählen (Überlauf). Wie weit ein Zähler zählen kann, ergibt sich aus seiner Struktur. Es gibt da 8-Bit Timer (Timer0 und Timer2, beim Mega8)und 16-Bit Timer (Timer1 beim Mega8). 8-Bit Timer zählen von 0 bis 255, 16-Bit Timer von 0 bis 65535.
Bei vielen Timern ist es möglich einzustellen bis zu welchen Wert der Timer zählt. Mit „CONFIG .... COMPARE A = CLEAR“ im Vergleichsregister A die Grenze eingestellt werden.
Bei einem Interrupt (z.B. Überlauf), unterbricht der Timer das Hauptprogramm und springt in die ISR. Die ISR wird abgearbeitet und mit Return wird wieder an die Stelle zurückgesprungen, wo vorher das Hauptprogramm unterbrochen wurde.
Man soll darauf achten, dass in der ISR immer nur kurze Anweisungen (d.h. insbesondere kein WAIT oder PRINT) abgearbeitet werden und der Hauptteil dann im Hauptprogramm bearbeitet wird. Sonst kann es sein, dass man den Prozessor damit blockiert.
Timer Beispiel:
Config Timer0 = Timer, Prescale= 8 ‘Konfiguriere Timer0 Enable Timer0 ‘schalte den Timer0 Overflow-interrupt ein On Timer0 Isr_von_Timer0 ‘verzweige bei Timer0 überlauf zu Isr_von_Timer0 Enable Interrupts Do ....Hauptprogramm Loop End Isr_von_Timer0: ‘ISR von Timer0 .....Programm-Code Return
Timer0 ist nun so eingestellt, dass die Frequenz vom Quarz, durch den Prescaler, durch 8 geteilt wird.
(Beim Prescaler kann man Teilungen von 1 , 8 , 64, 256, oder 1024 einstellen).
Diese Frequenz kommt nun zum Timer0 und der zählt nun mit dieser Frequenz bis 255.
Ab 255 läuft der Timer über, fängt wieder bei Null an zu zählen, und verzweigt dabei in die ISR.
Mit Return springt die ISR dann wieder zum Hauptprogramm zurück.
In der ISR könnte man z.B. eine Variable hochzählen. Diese würde dann bei einem 8Mhz Quarz, ca. 3906mal in der Sekunde um 1 hochgezählt. ( (8000000Hz/8) /256=3906.26Hz)
Timer im 1 Sekunden Takt
Wenn man jetzt z.B. will, dass eine Variable nur alle Sekunden um 1 hochgezählt wird, muss man den Prescaler anpassen und auch noch die Zählweite vom Timer anpassen. Die Zählweite vom Timer kann man nur insofern verändern, dass man ihn nicht von Null weg zählen lässt, sondern von einem höheren Wert.(der Überlauf ist immer der maximale Wert vom Timer)
Da der Timer0 aber mit 8-Bit jetzt zu kurz zählt (0-255) und wir mit einem grossen Prescaler auch nicht auf 1 Sekunde kommen, nehmen wir dazu den Timer1.
Der Timer1 ist ein 16-Bit Timer und kann von 0-65535 zählen.
Wenn ich jetzt einen Prescaler von 256 verwende, bekomme ich bei einem 8Mhz Quarz, eine Taktrate von 31250Hz. Das heißt, dass der Zähler in einer Sekunde von 0 bis 31250 zählt. Wenn ich jetzt will, dass der Timer nach 31250 Zählungen überläuft (weil nur beim Überlaufen springt er in die ISR und zählt somit meine Variable um 1 hoch), darf ich den Timer nicht von Null wegzählen lassen sondern von einem höheren Wert.
Dazu muss ich die maximale mögliche Zählweite (16-Bit = 65535) von meiner gewünschten Zählweite, abziehen. Also 65535-31250 = 34285 .Der Timer muss also schon bei 34285 zu zählen anfangen und macht dann nach 1 Sekunde einen Überlauf. 34285+31250= 65535 = Überlauf
Hier ein Beispiel mit dem Timer 1. Zur Kontrolle wird eine Led im Sekundentakt aus und ein geschalten. Man kann in der ISR auch eine Variable hochzählen lassen.
$regfile = "m8def.dat" 'für Mega8
$crystal = 8000000 'für 8MHz Quarz
Config Portd = Output 'definiert Portd als Output
Config Timer1 = Timer , Prescale = 256 'Konfiguriere Timer1
Enable Timer1 'schalte den Timer1 ein
On Timer1 Isr_von_timer1 'verzweige bei Timer1 überlauf zu Isr_von_Timer1
Enable Interrupts
Timer1 = 34285 'Timer1 soll schon von 34285 wegzählen
Do
'....Hauptprogramm
Loop
End
Isr_von_timer1: 'ISR von Timer1
Timer1 = 34285 'Timer1 soll wieder von 34285 wegzählen
Toggle Portd.0 'schaltet Portd.0 im Sekundentakt
'EIN und AUS
'....oder z.B. incr Variable
Return
Die Vorgabe (Timer1=34285) soll man vor dem Hauptprogramm reinsetzen und bei der ISR. Wenn man die Vorgabe nicht bei der ISR reinsetzen würde (ISR = Überlauf), würde er ja wieder bei 0 statt bei 34285 anfangen zu zählen.
Um sich das Rechnen zu ersparen könnte man statt der Anweisung: Timer1 = 34286 , auch den Befehl "Load" verwenden.
Man gibt dann ein: Load Timer1 , 31250
Mit Load rechnet sich der Compiler selber die Werte aus ( 65536-31250 ).Man gibt einfach nach dem Komma, die beabsichtigte Zählweite ein.
Damit hat man nun einen Timer der alle Sekunden eine Variable hochzählt.
Das nachladen des Startwertes gibt nur bei einem großen Prescaler (64 oder größer), und wenn keine anderen Interrupts aktiv sind genaue Zeitwerte. Beim Prescaler 64 müsste man eventuell noch die Zeiten für Sprung in die ISR u.s.w. mit einberechen. Aber für die meisten Anwendungen reicht diese Genauigkeit vollkommen aus ! :-) Besser macht man das ohnehin mit einem Vergleichsregister in Hardware.
