Goldenflash
06.08.2011, 10:34
Hallo,
ich hab mir gestern das DCF 77 Modul von Conrad gekauft und heute mal an meinen AVR gehängt.
Anschluss nach Wolfgang Back http://www.wolfgang-back.com/PDF/DCF77.pdf an PD0 von meinem ATMega8.
Als Code hab ich einfach den Bascom Beispiel Code genommen und ihn angepasst:
$regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 128
$swstack = 128
$framesize = 128
$baud = 9600
Config Dcf77 = Pind.0 , Inverted = 0 , Timer = 1 , Timer1sec = 1 , Debug = 1
Enable Interrupts
Config Date = Dmy , Separator = .
Dim I As Integer
Dim Sec_old As Byte , Dcfsec_old As Byte
Sec_old = 99 : Dcfsec_old = 99
Print "Test DCF77 Version 1.00"
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:" ;
Print Time$
Print "Time(dcf_sec):" ;
Print Time(dcf_sec)
Loop
End
Leider kann ich diese Uhrzeit
Time:00:03:03
Time(dcf_sec):45:85:B1
aber nicht lesen.
Es kommt ein Signal an PD0 an, da bin ich sicher, das hab ich mit ner LED an PD6 und diesem Programm
$regfile = "m8def.dat"
$crystal = 8000000
Config Pind.0 = Input
Portd.0 = 1
Config Pind.6 = Output
Dim Check As Integer
Do
If Pind.0 = 0 Then
Portd.6 = 0
Else
Portd.6 = 1
End If
Loop
getestet.
Also viel kanns ja eigentlich kaum sein was falsch läuft, weil es kommt ja was an. Nur mach das was ankommt keinen Sinn.^^
Danke schonmal
ich hab mir gestern das DCF 77 Modul von Conrad gekauft und heute mal an meinen AVR gehängt.
Anschluss nach Wolfgang Back http://www.wolfgang-back.com/PDF/DCF77.pdf an PD0 von meinem ATMega8.
Als Code hab ich einfach den Bascom Beispiel Code genommen und ihn angepasst:
$regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 128
$swstack = 128
$framesize = 128
$baud = 9600
Config Dcf77 = Pind.0 , Inverted = 0 , Timer = 1 , Timer1sec = 1 , Debug = 1
Enable Interrupts
Config Date = Dmy , Separator = .
Dim I As Integer
Dim Sec_old As Byte , Dcfsec_old As Byte
Sec_old = 99 : Dcfsec_old = 99
Print "Test DCF77 Version 1.00"
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:" ;
Print Time$
Print "Time(dcf_sec):" ;
Print Time(dcf_sec)
Loop
End
Leider kann ich diese Uhrzeit
Time:00:03:03
Time(dcf_sec):45:85:B1
aber nicht lesen.
Es kommt ein Signal an PD0 an, da bin ich sicher, das hab ich mit ner LED an PD6 und diesem Programm
$regfile = "m8def.dat"
$crystal = 8000000
Config Pind.0 = Input
Portd.0 = 1
Config Pind.6 = Output
Dim Check As Integer
Do
If Pind.0 = 0 Then
Portd.6 = 0
Else
Portd.6 = 1
End If
Loop
getestet.
Also viel kanns ja eigentlich kaum sein was falsch läuft, weil es kommt ja was an. Nur mach das was ankommt keinen Sinn.^^
Danke schonmal