Atmega8 misst die Zeit nicht richtig

[Martin Zippel (Gast)]

Hallo werte Forengemeinde,

ich habe ein altbekanntes Problem, komm aber auch nach langer Suche 
nicht auf einen grünen Zweig:
Ein Atmega8 soll jede Stunde für 5 Minuten ein Gerät anschalten. Den 
Grundaufbau habe ich so weit hinbekommen, geschaltet wird über einen 
MOSFET, als Display dient eine SSA mit vier Stellen.
Den Schaltplan hänge ich an.

Probleme bereitet mir aber die genaue Sekunde:
Ein Quarz der Frequenz 7372800 Hz soll's richten. Die Einstellungen 
Prescale = 64, Startwert Timer1 = 7936 sollten jeweils Schritte im Takt 
halber Sekunden sein, sind tatsächlich aber langsamer.
Die Einstellungen Prescaler = 256, Startwert Timer1 = 36736 sollten den 
Interrupt nach jeweils einer Sekunde auslösen, sind aber sehr viel 
langsamer (etwa halb so schnell, lösen also (in etwa) jede zweite 
Sekunde aus).

Als Kondensatoren am Quarz habe ich zwei 22pF-Kerkos verwendet, da ich 
auch nach langer Recherche nicht wusste, ob die beiden nun genau 
berechnet werden müssen, oder 22pF "schon ok" sind. Zu genau muss es 
auch gar nicht sein, reicht, wenn die Uhr pro Tag nicht mehr als 3 
Minuten falsch geht.

Die Fusebiteinstellungen lauten

CKSEL3 = 0
CKSEL2 = 0
CKSEL1 = 0
CKSEL0 = 0

Mein Quellcode in Bascom (ich verzichte auf die Unterprogramme, welche 
nur den Code für die SSA-Anzeige enthalten)

$regfile = "M8def.dat"
$crystal = 7372800                      'Frequenz des Kristalls

Config Portd = Output
Config Portb = Output

'Timer-Variablen
Ledrot Alias Portd.5
Ledrot = 1                              'Test-LED ist immer an
Testled Alias Portd.6                   'zeigt Status
Dim Anzahl As Integer                   'zaehlt die Sekunden
Dim Zaehler As Bit

'Timer-Einstellungen
Enable Interrupts                       'Interrupts aktivieren, damit Timer einen Interrupt auslösen kann
Config Timer1 = Timer , Prescale = 64   'welcher Timer soll verwendet werden, Prescaler einstellen
Enable Timer1                           'Timer1 aktivieren
On Timer1 Zaehlen                       'Was passiert bei Timer-Overflow (also Timer-Ereignis)
Timer1 = 7936                           'Startwert für Timer nach jedem Überlauf

'SSA-Variablen
Dim Onoff As Integer                    'Art der Anzeige
Dim Zeiton As Integer                   'Variable für Anzeit
Dim Zeitoff As Integer                  'Variable für Auszeit
Dim Zehner As Integer                   'Zehnerstelle
Dim Einer As Integer                    'Einerstelle
Dim Punkt As Bit                        'Doppelpunkt nach jeder Sekunde an/ausschalten
Const Wartezeit = 1                   'wie lange beim Multiplexen gewartet werden soll

'Subprogramme mit Parametern deklarieren
Declare Sub Zahl(l As Integer)


'Hauptprogramm
Do
Zehner = Anzahl \ 10                    'Zehnerstelle errechnen
Einer = Anzahl Mod 10                   'Einerstelle errechnen

Gosub Worton
Gosub Zehnerstelle                      'Zehnerstelle anzeigen
Gosub Einerstelle                       'Einerstelle anzeigen
Gosub Doppelpunkt                       'Doppelpunkt anzeigen
Loop

End

'Subprogramme
Zaehlen:                                'was passieren soll bei Timer-Überlauf
   Toggle Testled
   Toggle Punkt                         'Doppelpunkt an- oder ausschalten

   Toggle Zaehler
   If Zaehler = 1 Then Anzahl = Anzahl + 1
Return

Könnt ihr mir weiterhelfen? Es ist mein erster Versuch, eine Uhr mit dem 
Atmega zu bauen, weshalb ich, nachdem ich an Aufbau, Code und Fusebits 
keinen Fehler mehr finden kann, keine Idee mehr habe, woran es liegt.

Ich freue mich auf eure Antworten,
Martin

[holger (Gast)]

>On Timer1 Zaehlen                       'Was passiert bei Timer-Overflow >Timer1 
= 7936                           'Startwert für Timer nach jedem >Überlauf

Vergiss Overflow und nimm CTC. Sonst wird das nie genau.

[Sascha W. (sascha-w)]

Hallo,

sollte das da,

Timer1 = 7936     'Startwert für Timer nach jedem Überlauf

nicht eher in der ISR stehen !!

Sascha

[Martin Zippel (Gast)]

Sascha, du hast natürlich Recht.

Ich war in dem Glauben, dass der Befehl    Timer1 = 36736 zu Beginn des 
Programms dem Timer jedes Mal diesen Wert als Startwert vorgibt.
Nachdem ich den Befehl in die Interrupt-Routine schrieb, funktioniert es 
jetzt sehr gut.
Die CTC-Sache werde ich mir ansehen, sobald ich den Schaltplan etwas 
hübscher gezeichnet habe.

Vielen Dank an Euch,
Martin

[Martin V. (oldmax)]

Hi
Ich kenn mich zwar mit Bascom nicht aus, aber die Zahl 7936 sieht mir um 
1 zu groß aus. Die Controller fangen an, bei 0 zu zählen, das ist auch 
der Grund, warum uns die Digitaltechnik 9 Finger gönnt. (0-9=10 Ziffern)
Ich denke, du wirst noch genauer, wenn dein Wert 7936-1 ist.
Gruß oldmax