Atmega: Sekunden in Takt umrechnen

[Wombatz]

Ich benutze den Atmega8 und hier ist der code. Den Printbefehl habe ich nur zur Kontrolle eingefügt.

$regfile = "m8def.dat"
$crystal = 1000000
$baud = 57600

Tccr0 = &B00000001
Timsk.toie0 = 1

Ddrb = &B00000001

On Timer0 Zaehler

   Dim Count As Word
   Dim Sekunde As Byte
   Dim Minute As Byte
   Dim Stunde As Byte

   Count = 0
   Sekunde = 0
   Minute = 0
   Stunde = 0

Tcnt0 = 55

Sreg.7 = 1

Do

   If Count = 5000 Then
         Sekunde = Sekunde + 1
         Count = 0
         Portb.0 = Not Portb.0

       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
         End If
    End If

   'Print Stunde ; ":" ; Minute ; ":" ; Sekunde
Loop

Zaehler:

   Count = Count + 1
   Tcnt0 = 55

Return

Danke für die schnellen Antworten...

[radbruch]

Lass mich raten: Deine Uhr läuft zu langsam.

Hier ein Beispiel für die Frequenzkorrektur in der Overflow-ISR mit 36kHz und Timer2:
https://www.roboternetz.de/community...l=1#post444004
https://www.roboternetz.de/community...l=1#post444260

[Wombatz]

ja die Uhr läuft zu langsam.

Verstehe ich das richtig??? Durch den Aufruf der ISR verstreichen Takte die man mit += ausgleichen kann??

Danke für deine Antwort...bist echt super!!!

[radbruch]

Jepp, wenn die ISR aufgerufen wird verstreichen einige Zähltakte. Und zwar nicht nur durch das Ermitteln der Sprungadresse, speichern der Rücksprungadresse auf dem Stack und dem Sprung und Rücksprung zur ISR sondern auch durch das Speichern und Zurückladen der wichtigsten Register. (Stichwort: nosave). Dadurch ist zu Beginn der ISR der Zähler schon deutlich größer als 0 und diese Zähltakte verlängern letztlich deine Sekunden...

P.S.:

Danke für deine Antwort...bist echt super!!!

Danke für's Lob :)