dcf77-empfang mit bascom...?

[Papsi]

Hallo,

meine Augen fallen gleich zu aber ich wollte es noch schaffen...

Leider zeigt mein Display nur "-- --.--.-- --:--:--" an und die LED blinkt (ich sage mal im sekundentakt)

Wenn ich den Empfänger ein wenig bewege, geht die LED auch mal ganz aus.

Wie muß den die LED blinken und wie muß der Empfänger gelagert sein.

Kann es sein, das es aber einweing dauert, bis da was auf dem Display erscheint. Bei mir steht seit 5 Minuten "-- --.--.-- --:--:--" und die LED blinkt nur.

???

[albundy]

@Papsi

... und die LED blinkt (ich sage mal im sekundentakt)

Das ist schon mal sehr gut.
Nimm mal im Code die 2 auskommentierten Zeilen unter "Zaehle:" mit rein.
Dann siehst du auf dem Display die gemessenen Impuls und Pausenzeiten.
Bei einem Minutenanfang ( der grösste Pausenwert ) muss die Pausenzeit kurz auf einen Wert zwischen 200 und 300 kommen.
Wenn nicht, ändere den Code bei "if Pause<300 and Pause>200 then", sodass dein gemessener Pausenwert dort reinpasst.
Das gleiche dann mit den Impulszeiten.
Die müssten mal <17 und mal >17 sein. Wenn nicht, bei "if Impuls >17 then" entsprechend anpassen.

[Papsi]

Habe eine Frequenz von 8Mhz und die Daten so angeglichen:

Config Timer0 = Timer , Prescale = 1024      '8000000 / 1024 = 7812,5 Hz
Const Startwert = 178       'Überlauf 256 - Startwert 178 = 78  ( 7812,5 Hz / 78 = 100,1 Hz ) => 10ms
Load Timer0 , Startwert

Vorher hatte ich da deine Angabe drin stehen und er ist immer zu Marke Check_parity gesprungen.
Nachdem ich die Daten wie oben im Code geändert habe, zeigt er mir die Sekunde unten nicht mehr an.

Der Impuls schwankt immer so bei 3 4 und die Pause nur so bei 40

???

[albundy]

Load Timer0 , Startwert

Sorry, das ist falsch (siehe weiter oben).
Timer0 = Startwert ist richtig.
Auch in der Interruptroutine ändern !

[Papsi]

Hat trotzdem nichts geholfen.

???

[cure]

>Der Impuls schwankt immer so bei 3 4 und die Pause nur so bei 40

Das ändere mal das:

If Sekunde > 3 Then
K = Sekunde - 18
If Impuls > 17 Then
Minute(k) = 1
Else
Minute(k) = 0
End If
End If
Locate 1 , 19
Wert = Makebcd(sekunde) ' Umweg ueber BCD, dann fuehrende 0
Lcd Bcd(wert) ' Sekunde anzeigen
If Pause < 43 And Pause > 37 Then 'Minutenanfang

[albundy]

@cure

If Sekunde > 3 Then
K = Sekunde - 18
If Impuls > 17 Then

If Sekunde > 18 Then muss so bleiben, da das bestimmt, von welchem Bit an das Telegramm verarbeitet wird.

@Papsi

Der Impuls schwankt immer so bei 3 4 und die Pause nur so bei 40

Ich habe den Code mal kurz mit 8MHz getestet.
Meine Impulswerte liegen zwischen 6 und 18.
Bei Minutenanfang ist der Pausenwert 170 bis 180.

[cure]

@albundy

Klar, hast recht. Ich hab mich in der Zeile vertan.

so meinte ich das:

If Sekunde > 18 Then
K = Sekunde - 18
If Impuls > 3 Then
Minute(k) = 1
Else
Minute(k) = 0
End If
End If
Locate 1 , 19
Wert = Makebcd(sekunde) ' Umweg ueber BCD, dann fuehrende 0
Lcd Bcd(wert) ' Sekunde anzeigen
If Pause < 43 And Pause > 37 Then 'Minutenanfang

[Papsi]

Hallo,

ich habe mir den halben Tag den Code um die Ohren gehaueb und probiert.

Bei mir zeigt er nur immer keine Uhrzeit an.

Die Werte habe ich entsprechend den Debugausgaben angepasst.
Ich sehe auch, wenn die Minute zu Ende ist und die LED für eine Sekunde aussetzt.
Dabei geht auch der Pausen...


HALT STOPP - ES G E H T

auf einmal fängt die "Schei..e" an zu funktionieren, während ich hier schreibe

JUHU

Danke nochmal

[Papsi]

Hallo nochmal,

wie kann ich denn die Variablen der Stunde und der Minute in weiterverwendbare Variablen umwandeln.

Ich habe die hier versucht:

Dim Meinestunde as Byte
Dim Meineminute as Byte
...
Locate 1 , 3 : Lcd Temp ; " " ; Bcd(minute(19)) ; "." ; Bcd(minute(28)) ; "." ; Bcd(minute(33))
Locate 2 , 6 : Lcd Bcd(minute(12)) ; ":" ; Bcd(minute(4))

(minute(12)) = Meinestunde
(minute(4)) = Meineminute

Locate 3,1 : Lcd Meinestunde ;  ":" ; Meineminute

aber es wird immer 0:0 an und oben wird die berechnete Uhrzeit korekkt angezeigt