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:
Code:
$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
Code:
$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