Versuchs mal damit.


$regfile = "m8def.dat"
$crystal = 14000000
Config Timer1 = Timer , Prescale = 1024
Dim Sekunde As Byte
Dim Minute As Byte
Dim Stunde As Byte
On Timer1 Timer1int
Load Timer1 , 13900
Enable Interrupts
Enable Timer1
Start Timer1

Do
'Haupschleife
'z.B. Uhr stellen mit Tastenabfrage
Loop

Timer1int:
Load Timer1 , 13900 '1ne Sekunde
Sekunde = Sekunde + 1
If Sekunde = 60 Then
Sekunde = 0
Minute = Minute + 1
If Minute = 60 Then
Minute = 0
Stunde = Stunde + 1
If Stunde = 24 Then Stunde = 0
End If
End If
'Hier kommt noch die Ausgabe rein, z.B. das LCD
Return

_________________
mfg Jornbyte

Es handelt sich bei dem Tipp nicht um eine Rechtsverbindliche Auskunft und
wer Tippfehler findet, kann sie behalten.

Zitat : Jornbyte hat am 27 Mär 2004 17:31 geschrieben :

Versuchs mal damit. $regfile = "m8def.dat" $crystal = 14000000 Config Timer1 = Timer , Prescale = 1024 Dim Sekunde As Byte Dim Minute As Byte Dim Stunde As Byte On Timer1 Timer1int Load Timer1 , 13900 Enable Interrupts Enable Timer1 Start Timer1 Do 'Haupschleife 'z.B. Uhr stellen mit Tastenabfrage Loop Timer1int: Load Timer1 , 13900 '1ne Sekunde Sekunde = Sekunde + 1 If Sekunde = 60 Then Sekunde = 0 Minute = Minute + 1 If Minute = 60 Then Minute = 0 Stunde = Stunde + 1 If Stunde = 24 Then Stunde = 0 End If End If 'Hier kommt noch die Ausgabe rein, z.B. das LCD Return

Jau genau sowas habe ich gemeint... bilicke nur bei den Internen interrups noch net so durch ...

wie sieht das ganze denn für einen qurz mit 8MhZ aus? (ne formel?)

Ist ganz einfach:

Code :

..... $crystal = 8000000 ....

Und der Reload Wert für Timer 1 ist dann ca.
Quarzfrequenz/Prescalerwert

Also bei 8MHz 8000000/1024 = 7812.

Das ganze ist aber noch ein bisschen was komplizierter, da der Timer ja in der Zeit nicht Zählt, die es dauert, bis in den Interrupt gesprungen wurde, und der Timer neu geladen wurde. Dass heisst die Zeit wird ein wenig länger sein als berechnet. Desswegen muss man sich das entweder genau überlegen oder ausprobieren, welcher Wert der richtige ist.Das Datenblatt vom AVR dabei zu konsultieren ist durchaus empfehlenswert.

Hat der Timer nicht sogar einen Reload Modus, wo er automatisch sofort neu geladen wird, sowie er abgelaufen ist?? In dem Fall währe dann natürlich eine Quarz Frequenz empfehlenswert, die durch 1024 Teilbar ist wie 8,192 MHz z.B..

[ Diese Nachricht wurde geändert von: tixiv am 28 Mär 2004  4:10 ]

Sehe ich das letzt richtig das die interrupt sub 1 mal pro sekunde ausgeführt wird ???

wenn ja dann muß ich die ausgane in die hauptschleife packen (Zwischen DO / LOOP) da ich 6 7segmet anzeigen im multipexbetrieb ansteuere.

Ja, so ist es. Die Schleife wird aller 1 Sekunde ausgeführt.

_________________
mfg Jornbyte

Es handelt sich bei dem Tipp nicht um eine Rechtsverbindliche Auskunft und
wer Tippfehler findet, kann sie behalten.

Die Variablen sekunde , stunde und Sekunde sind aber global verfügbar und nicht nur in der sub ?

Ja, die sind Global, sonst würde in einer Sub Local Sekunde As Byte stehen.

_________________
mfg Jornbyte

Es handelt sich bei dem Tipp nicht um eine Rechtsverbindliche Auskunft und
wer Tippfehler findet, kann sie behalten.

ok funktioniert...mit einem lcde jetzt kommt nur noch die 7seg anzeigen