hallo hat jemand einen idee warum meine DCF nicht mehr geht habe die mal neu reingeladen weil ich was anderes machen will aber sie geht nicht mehr
eigentlich ging das mal dcf-sec bleibt auch bei 00:00:01 stehen
habe an dem Conrad DCF-77 modul pull up dran und auch da eine LED die schön blinkt und die 59ste sec anbleibt also hat diese auch ein signal es wird nur nicht umgewandelt
eigentlich ging das mal dcf-sec bleibt auch bei 00:00:01 stehen
habe an dem Conrad DCF-77 modul pull up dran und auch da eine LED die schön blinkt und die 59ste sec anbleibt also hat diese auch ein signal es wird nur nicht umgewandelt
Code:
$regfile = "m32def.dat"
$crystal = 16000000
$hwstack = 32
$swstack = 8
$framesize = 24
Dim Lftag As Word 'Tag des Jahres
Dim Jahreszeit As Bit 'Jahreszeiten für Sommer / Winter
Dim Tz As Byte 'Zeit Zone
Dim Wochentag As Byte , Monat As Byte , Jahr As Word 'Datums anzeige
Declare Sub Funkuhr
Config Lcd = 16 * 4
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , _
Db7 = Portd.7 , E = Portd.2 , Rs = Portd.3
Initlcd
Cls
Config Dcf77 = Pinb.0 , Timer = 1 , Timer1sec = 1 , Debug = 1 , Update = 0 , Check = 1 , Inverted = 0 ' , Gosub = Sectic
Config Date = Dmy , Separator = .
Enable Interrupts
Do
If Dcf_status.7 = 1 Then Call Funkuhr
Locate 1 , 1 'Zeit anzeigen
Lcd Time$ 'Zeit anzeigen
Locate 2 , 1
Lcd Date$
Locate 3 , 1
Lcd Time(dcf_sec)
Loop
Sub Funkuhr
Lftag = Dayofyear() 'Tag des Jahres
Incr Lftag 'Tag des Jahres
Tz = Dcf77timezone() 'Zeitzone
Wochentag = Makebcd(_weekday) 'Wochentags anzeige
Locate 2 , 1 'Wochentags anzeige
Lcd Lookupstr(wochentag , Wochentage) 'Wochentags anzeige
Locate 2 , 5 'Tag anzeigen
Lcd _day 'Tag anzeigen
Locate 2 , 6
Lcd "."
Monat = Makebcd(_month) 'Monats Anzeige
Locate 2 , 7 'Monats Anzeige
Lcd Lookupstr(monat , Monate) 'Monats Anzeige
Locate 2 , 10
Lcd "."
Locate 2 , 11 'Jahr anzeigen
Lcd Jahr 'Jahr anzeigen
Jahr = _year + 2000 'Jahr anzeigen
End Sub Funkuhr
Sectic:
NOP
Return
End
' ----- Daten für Wochentag -----
Wochentage:
Data " " , "MO" , "DI" , "MI" , "DO" , "FR" , "SA" , "SO"
' ----- Daten für Monate -------
Monate:
Data " " , "Jan" , "Feb" , "Mar" , "Apr" , "Mai" , "Jun" , "Jul" , "Aug" , "Sep" , "Okt" , "Nov" , "Dez"