Jetzt habe ich die Antenne an 5 V angeschlossen und an Masse und den DCF Ausgang habe ich mit einem 5k6 an den PortB.4 angeschlossen. Aber nach 30 Minuten geht immer noch ncihts.
Ich habe zum Probieren aus den Samples/DateTime von Bascom den DCF77 Beispiel.
Code:
'---------------------------------------------------------
' (c) 1995-2007 MCS Electronics
' DCF 77 demo to demonstrate the DCF77 library from Josef Vögel
'---------------------------------------------------------
$regfile = "M32def.dat"
$crystal = 16000000
$baud = 9600
$hwstack = 128
$swstack = 128
$framesize = 128
Config Dcf77 = Pinb.4 , Timer = 1 , Debug = 1 , Check = 1 , Gosub = Sectic
'Config Dcf77 = Pind.7 , Timer = 1 , Debug = 1
Enable Interrupts
Config Date = Dmy , Separator = .
Declare Function Dcf_timezone() As Byte
Dim I As Integer
Dim Sec_old As Byte , Dcfsec_old As Byte
Sec_old = 99 : Dcfsec_old = 99
' Testroutine für die DCF77 Clock
Print "Test DCF77 Version 1.02"
Print "Configuration"
Do
For I = 1 To 78
Waitms 10
If Sec_old <> _sec Then
Exit For
End If
If Dcfsec_old <> Dcf_sec Then
Exit For
End If
Next
Waitms 220
Sec_old = _sec
Dcfsec_old = Dcf_sec
Print Time$ ; " " ; Date$ ; " " ; Time(dcf_sec) ; " " ; Date(dcf_day) ; " " ; Bin(dcf_status) ; " " ; Bin(dcf_parity) ; " " ; Bin(dcf_bits) ; " " ; Bdcf_impuls ; " " ; Bdcf_pause '; " " ; db1 ; " " ; db2
If Dcf_sec > 45 Then
Reset Dcf_status.7
End If
Print "Timezone : " ; Dcf77timezone()
Loop
'optional, is called every second by the library
Sectic:
nop
Return
End
Kann man die Antenne mit einem Multimeter testen ob die was ausgibt?
Lesezeichen