Hallo an alle,
ich bin Neueinsteiger in der Mikrocontroller Welt.
Bisher war ich eher als Beobachter in diesem Forum unterwegs und konnte meine Fragen durch lesen klären. jetzt bin ich aber an ein Problem gestoßen wo ich keine diskutierte Lösung finden kann.
Ich will einen DCF Empfänger betreiben. Der Empfänger ist von Conrad. Ich habe einen Pullup Widerstand gegen den invertierten Ausgang geschaltet. Das ganze steuert mir dann ein Hcf 4093 an. Der 4093 ist ein nand gatter mit schmitttrigger. Irgendwo habe ich gelsen dass es gut wäre das Signal zu filtern bevor es auf den Controller geht.
Da der 4093 ein nand ist müsste ich ja am diesem Ausgang wieder ein nicht invertiertes Signal haben.
Den Empfang habe ich mit einer led schon getestet, sie blinkt auch schön im Sekundentakt.
Jetzt zum eigentlichen Problem.
Ich will fürs erste Mal den Code von der bascom Hilfe benutzen. Wenn ich alles richtig verstanden habe müsste mir dann in der Konsole die Werte der einzelnen Variablen angezeigt werden.
In der Konsole wird mir allerdings nur dass angezeigt:
ž¬‚,ÂÂÂÂÂþ‘-þ‘,:Šâ,×ÚžžÂVâ’CÊ— Úž¬‚,ÂÂÂÂÂþ‘-þ‘,:Šâ,×ÚÂ
žÂžÂVâ’Cʑ— Úž¬‚,ÂÂÊÂÂþ’.þ‘¬:Šâ,×âžžÂVâ’Cʑ— Úž¬‚,ÂÂÊÂÂ
þ’.þ‘¬:Šâ,×âžžÂVâ’Cʒ— Úž¬‚,‘ÂÂþ‘ þ™£¨â,×êžžÂVâ’Cʒ— Ú
ž¬‚,‘ÂÂþ‘ þ™£¨â,×êžžÂVâ’Cʓ— Úž¬‚,ÂÂÂ,‘ þ‘,:Šâ, ‚
²²‚’,—Úš¬Â— Úž¬‚,ÂÂÂ,‘ þ‘,:Šâ, ‚²²‚’,—Úš, — Úž¬‚,ÂÂÊÊÂ
þ’.þ‘,:Šâ,#‚²²‚’,—Úš, — Úž¬‚,ÂÂÊÊÂþ’.þ‘,:Šâ,#‚²²‚’,—Úš¬ — Ú
ž¬‚,‘‘Âþ‘-þ™:Šâ,C‚²²‚’,—Úš¬ — Úž¬‚,‘‘Âþ‘-þ™:Šâ,C‚²
²‚’,—Úš, — Úž¬‚,ÂÂÂ,‘‘-þ‘¬:Šâ,c‚²²‚’,—
Ich bin ratlos was der Fehler ist, und konnte auch noch nichts in der Hilfe finden.
Ich hoffe dass ihr mir helfen könnt.
Achso, auf meiner Platine habe ich ein Uhrenquarz, und Fusebits habe ich keine umgestellt.
Das ist mein Programm:
$regfile = "M8def.dat"
$crystal = 1000000
$hwstack = 128
$swstack = 128
$framesize = 128
$baud = 19200
'Config Dcf77 = Pind.2 , Debug = 1 , Inverted = 0 , Check = 2 , Update = 0 , Updatetime = 30 , Switchpower = 0 , Secondticks = 50 , Timer1sec = 1 , Powerlevel = 1 , Timer = 1
Config Dcf77 = Pinb.1 , 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 ': DCF_Debug_Timer = 0
' Testroutine für die DCF77 Clock
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$ ; " " ; Date$ ; " " ; Time(dcf_sec) ; " " ; Date(dcf_day) ; " " ; Bin(dcf_status) ; " " ; Bin(dcf_bits) ; " " ; Bdcf_impuls ; " " ; Bdcf_pause
Loop
Vielen Dank.
ich bin Neueinsteiger in der Mikrocontroller Welt.
Bisher war ich eher als Beobachter in diesem Forum unterwegs und konnte meine Fragen durch lesen klären. jetzt bin ich aber an ein Problem gestoßen wo ich keine diskutierte Lösung finden kann.
Ich will einen DCF Empfänger betreiben. Der Empfänger ist von Conrad. Ich habe einen Pullup Widerstand gegen den invertierten Ausgang geschaltet. Das ganze steuert mir dann ein Hcf 4093 an. Der 4093 ist ein nand gatter mit schmitttrigger. Irgendwo habe ich gelsen dass es gut wäre das Signal zu filtern bevor es auf den Controller geht.
Da der 4093 ein nand ist müsste ich ja am diesem Ausgang wieder ein nicht invertiertes Signal haben.
Den Empfang habe ich mit einer led schon getestet, sie blinkt auch schön im Sekundentakt.
Jetzt zum eigentlichen Problem.
Ich will fürs erste Mal den Code von der bascom Hilfe benutzen. Wenn ich alles richtig verstanden habe müsste mir dann in der Konsole die Werte der einzelnen Variablen angezeigt werden.
In der Konsole wird mir allerdings nur dass angezeigt:
ž¬‚,ÂÂÂÂÂþ‘-þ‘,:Šâ,×ÚžžÂVâ’CÊ— Úž¬‚,ÂÂÂÂÂþ‘-þ‘,:Šâ,×ÚÂ
žÂžÂVâ’Cʑ— Úž¬‚,ÂÂÊÂÂþ’.þ‘¬:Šâ,×âžžÂVâ’Cʑ— Úž¬‚,ÂÂÊÂÂ
þ’.þ‘¬:Šâ,×âžžÂVâ’Cʒ— Úž¬‚,‘ÂÂþ‘ þ™£¨â,×êžžÂVâ’Cʒ— Ú
ž¬‚,‘ÂÂþ‘ þ™£¨â,×êžžÂVâ’Cʓ— Úž¬‚,ÂÂÂ,‘ þ‘,:Šâ, ‚
²²‚’,—Úš¬Â— Úž¬‚,ÂÂÂ,‘ þ‘,:Šâ, ‚²²‚’,—Úš, — Úž¬‚,ÂÂÊÊÂ
þ’.þ‘,:Šâ,#‚²²‚’,—Úš, — Úž¬‚,ÂÂÊÊÂþ’.þ‘,:Šâ,#‚²²‚’,—Úš¬ — Ú
ž¬‚,‘‘Âþ‘-þ™:Šâ,C‚²²‚’,—Úš¬ — Úž¬‚,‘‘Âþ‘-þ™:Šâ,C‚²
²‚’,—Úš, — Úž¬‚,ÂÂÂ,‘‘-þ‘¬:Šâ,c‚²²‚’,—
Ich bin ratlos was der Fehler ist, und konnte auch noch nichts in der Hilfe finden.
Ich hoffe dass ihr mir helfen könnt.
Achso, auf meiner Platine habe ich ein Uhrenquarz, und Fusebits habe ich keine umgestellt.
Das ist mein Programm:
$regfile = "M8def.dat"
$crystal = 1000000
$hwstack = 128
$swstack = 128
$framesize = 128
$baud = 19200
'Config Dcf77 = Pind.2 , Debug = 1 , Inverted = 0 , Check = 2 , Update = 0 , Updatetime = 30 , Switchpower = 0 , Secondticks = 50 , Timer1sec = 1 , Powerlevel = 1 , Timer = 1
Config Dcf77 = Pinb.1 , 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 ': DCF_Debug_Timer = 0
' Testroutine für die DCF77 Clock
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$ ; " " ; Date$ ; " " ; Time(dcf_sec) ; " " ; Date(dcf_day) ; " " ; Bin(dcf_status) ; " " ; Bin(dcf_bits) ; " " ; Bdcf_impuls ; " " ; Bdcf_pause
Loop
Vielen Dank.