ATmega32 DCF77 / Sekundentakt

[Hans F. (Gast)]

Guten Tag!

Habe mit einem ATmega32 und einem DCF Empfänger die Uhrzeit und das 
Datum auf einem LCD ausgegeben. Gibt es irgendeine möglichkeit den 
Sekundentakt an einem Pin abzugreifen? Würde damit gerne Schieberegister 
füllen für eine große Uhr.

Hier mal mein bisheriger Code:

' Bascom-AVR DCF77 Beispiel
    '
    ' Copyright (c) 2011 Peter Tuch, crycode.de
    ' Lizenz/License: GNU General Public License version 3
    ' siehe/see: http://crycode.de/files/gnu_gpl_3.html
    '
    $regfile = "m32def.dat"
    $crystal = 16000000
    '$baud = 57600
    '$hwstack = 100
    '$swstack = 100
    '$framesize = 100
    $lib "mcsbyte.lbx"

    'LCD initialisieren






    ' DCF77 auf PinB.0 einstellen
    Config Dcf77 = Pinb.0 , Timer = 1 , Debug = 1 , Check = 1 , Inverted = 1 , Gosub = Sectic

    'LCD initialisieren

    Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.5 , Rs = Portd.4
    Config Lcd = 16 * 2

    Initlcd
    Cursor Off
    Cls

    ' Interrupts müssen aktiviert werden
    Enable Interrupts

    ' Datumsformat festlegen
    Config Date = Dmy , Separator = .

    'Print "Synchronisiere die Uhrzeit mit dem DCF77 Zeitsignal..."
    Locate 1 , 1
    Lcd "Sync. DCF77"

    ' Auf die Synchronisierung der Uhrzeit mit dem DCF77 Zeitsignal warten
    While Dcf_status.7 = 0
    ' Dcf_status.7 wird auf 1 gesetzt sobald die Zeit erfolgreich synchronisiert wurde
    ' aktuelle Zeiten (intern und DCF) sowie den Status zum Terminal ausgeben
    'Print "DCF: " ; Time$ ; " " ; Date$ ; " " ; Time(dcf_sec) ; " " ; Date(dcf_day) ; " " ; Bin(dcf_status) ; " " ; Bin(dcf_parity) ; " " ; Bin(dcf_bits) ; " " ; Bdcf_impuls ; " " ; Bdcf_pause
    Locate 1 , 1
    Lcd " ABW DCF77 Uhr "
    Locate 2 , 1
    Lcd "      Sync      "
    Waitms 50
    Wend

    'Print "Uhrzeit erfolgreich synchronisiert! " ; Time$ ; " " ; Date$

    ' Hauptschleife des Programms
    ' (kann weitere Anweisungen enthalten)
    Do
    Locate 1 , 1
    Lcd "Time: " ; Time$ ;
    Locate 2 , 1
    Lcd "Date: " ; Date$ ;
    'NOP
    Loop

    ' Programmende
    End

    ' Sectic-Programmteil
    ' wird durch den internen Timer automatisch jede Sekunde einmal aufgerufen
    Sectic:
    'Print Time$ ; " " ; Date$
    Return

Danke schonmal im Vorraus.

MfG

[Karl H. (kbuchegg)]

Hans F. schrieb:

> Habe mit einem ATmega32 und einem DCF Empfänger die Uhrzeit und das
> Datum auf einem LCD ausgegeben. Gibt es irgendeine möglichkeit den
> Sekundentakt an einem Pin abzugreifen?

Direkt am DCF Empfänger gibt es keine Möglichkeit. Das folgt daraus, 
dass im DCF Signal der MInutenanfang durch ein fehlendes Sekundensignal 
signalisiert wird.


Aber wo liegt das Problem?
Du hast doch in deinem Programm eine Routine, die jede Sekunde 
aufgerufen wird. Toggle dir dort einen Pin (oder erzeug dir einen Puls) 
und du hast das gewünschte Signal? Oder stimmt der Kommentar hier nicht?

    ' Sectic-Programmteil
    ' wird durch den internen Timer automatisch jede Sekunde einmal aufgerufen
    Sectic:
    'Print Time$ ; " " ; Date$
    Return

[Hans F. (Gast)]

Okay, hab nun mal

    Config Pinb.5 = Output
    Dim Sekunden As Byte
    Sekunden = 0

und

Sectic:

    Portb.5 = 1
    Waitms 5
    Portb.5 = 0
    Sekunden = Sekunden + 1


Ich gebe die Sekunden nun mit auf dem LCD aus. Ist es irgendwie möglich 
das er nur synchron zu den dcf sekunden bis 60 hochzählt und auch erst 
anfängt, wenn ein DCF Signal (Dcf_status.7 = 1) anliegt?

So zählt er ja schon los, wenn ich einschalte.

MfG

[Volkmar D. (volkmar)]

Hans F. schrieb:
> Ist es irgendwie möglich
> das er nur synchron zu den dcf sekunden bis 60 hochzählt

Dazu mußt Du in der Interrupt-Routine eben nur bis 59 zählen und danach 
Deine interne Uhr anhalten bis ein neues DCF-Signal kommt.

Hans F. schrieb:
> und auch erst
> anfängt, wenn ein DCF Signal (Dcf_status.7 = 1) anliegt?

Ähnlich, warte mit der Freischaltung des internen Uhren-Interrupts bis 
das DCF-Signal vorhanden ist.

[Hans F. (Gast)]

Sooo, habs nun so:

     If Dcf_status.7 = 1 Then


    If Sekunden >= 59 Then
    Sekunden = 0
    Else
    Sekunden = Sekunden + 1
    End If
    End If

Leider gehen die Sekunden nach 59 immer auf 255. Warum ist das so?

MfG

[Volkmar D. (volkmar)]

Ich denke, da wird zur Beurteilung der gesamte Code benötigt. Ich kenne 
mich jedoch mit Basic nicht aus.

[Alex (Gast)]

Frage mal deinen Debugger.

[Hans F. (Gast)]

Soooo, habs nun einigermaßen zum laufen gebracht. Allerdings habe ich 
nun das Problem, das die DCF Minute nicht mehr bei Sekunde 00 umspringt 
sonder mittendrin in der Minute. Und das Urzeit/Datum wird nun so 3-4min 
angezeigt, danach dreht das LCD voll durch und zeigt nur noch 
Sonderzeichen etc. an! Am LCD liegts nicht, habe grad schon ein zweites 
getestet.

Hier mal der Code:

    ' Bascom-AVR DCF77 Beispiel
    '
    ' Copyright (c) 2011 Peter Tuch, crycode.de
    ' Lizenz/License: GNU General Public License version 3
    ' siehe/see: http://crycode.de/files/gnu_gpl_3.html
    '
    $regfile = "m32def.dat"
    $crystal = 16000000
    '$baud = 57600
    '$hwstack = 100
    '$swstack = 100
    '$framesize = 100
    $lib "mcsbyteint.lbx"
    $lib "mcsbyte.lbx"

    'LCD initialisieren


    Config Pinb.5 = Output
    Dim Sekunden As Integer
    'Dim Sekunden2 As Byte
    'Dim Minuten As Byte
    Sekunden = -1




    ' DCF77 auf PinB.0 einstellen
    Config Dcf77 = Pinb.0 , Timer = 1 , Debug = 1 , Check = 1 , Inverted = 1 , Gosub = Sectic



    'LCD initialisieren

    Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.5 , Rs = Portd.4
    Config Lcd = 20 * 2

    Initlcd
    Cursor Off
    Cls

    ' Interrupts müssen aktiviert werden
    Enable Interrupts

    ' Datumsformat festlegen
    Config Date = Dmy , Separator = .

    'Print "Synchronisiere die Uhrzeit mit dem DCF77 Zeitsignal..."
    'Locate 1 , 1
    'Lcd "Sync. DCF77"

    ' Auf die Synchronisierung der Uhrzeit mit dem DCF77 Zeitsignal warten
    While Dcf_status.7 = 0
    ' Dcf_status.7 wird auf 1 gesetzt sobald die Zeit erfolgreich synchronisiert wurde
    ' aktuelle Zeiten (intern und DCF) sowie den Status zum Terminal ausgeben
    'Print "DCF: " ; Time$ ; " " ; Date$ ; " " ; Time(dcf_sec) ; " " ; Date(dcf_day) ; " " ; Bin(dcf_status) ; " " ; Bin(dcf_parity) ; " " ; Bin(dcf_bits) ; " " ; Bdcf_impuls ; " " ; Bdcf_pause
    Locate 1 , 1
    Lcd " ABW DCF77 Uhr "
    Locate 2 , 1
    Lcd "      Sync      "
    Waitms 50
    Wend



    'Print "Uhrzeit erfolgreich synchronisiert! " ; Time$ ; " " ; Date$

    ' Hauptschleife des Programms
    ' (kann weitere Anweisungen enthalten)
    Do
    Locate 1 , 1
    Lcd "Time: " ; Time$ ;
    Locate 2 , 1
    Lcd "Date: " ; Date$ ;
    'NOP

    Locate 2 , 17
    Lcd Sekunden



    Loop
    ' Programmende
    End

    ' Sectic-Programmteil
    ' wird durch den internen Timer automatisch jede Sekunde einmal aufgerufen
    Sectic:

    Portb.5 = 1
    Waitms 5
    Portb.5 = 0
    'Sekunden = Sekunden + 1

    If Dcf_status.7 = 1 Then


    If Sekunden >= 59 Then
    Sekunden = 0
    Cls
    Else
    Sekunden = Sekunden + 1
    End If
    End If




    'Print Time$ ; " " ; Date$
    Return

MfG

[sBronco (Gast)]

Da kommt dir ein Interrupt während der LCD Anzeige in die Quere,
niemals ans LCD was schicken wenn ein Interrupt kommen könnte.