Conrad DCF77 etwas geändert

[maikgen]

Habe mal die DCF Uhr etwas angepasst und hier mal reingestellt.
So wie ich sie jetzt habe den ein oder anderen gefällt es so vielleicht auch

$regfile = "m1280def.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 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.0 , _
Db7 = Porta.2 , E = Porta.3 , Rs = Porta.1
Initlcd
Cls

Config Dcf77 = Pinf.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$

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"

Sollte eigentlich auch funktionieren so wie ich es bis her beurteilen kann.

Nicht das es so aussieht als ob ich mir immer nur hilfe von hier hole.

Sicherlich findet der ein oder andere es auch nicht so gut.

 

[hermann]

Hallo Maikgen,
vielen Dank für die freigegebene SW.
Werde das mal mit einem atmega8 und 16x2 LCD im 4-bit Mode ausprobieren.
Wenn alles so geht wie ich mir das vorstelle meld ich mich nochmal.
Bis dahin und gutes coden - hermann

 

[stromer1948]

Danke für die SW.es muss bei der wochetageingabe locate 2 , 4 heissen nicht 2 , 5
ich habe das programm auf mega 8 mit internem 8Mhz Takt geaendert,weiss nur noch nicht wie ich das hier anhaenge
arnolf

 

[stromer1948]

Anhang anzeigen Conrad DCF_77.basweiss nicht ob das geht,wollte datei anhaengen

 

[riesen]

Hallo zusammen

Habt ihr das Signal vom Conrad-Modul irgendwie mit einem Transistor verstärkt? Wenn wie?

Viele Grüsse
Thomas

 

[Cassio]

Hallo Thomas!

Infos zur Inbetriebnahme einer DCF-Uhr bzw. zu den DCF-Modulen incl. Ausgangsverstärkung findest du in DIESEM THREAD !

Da sind auch Schaltbilder zum Nachbauen dabei!

Grüße,
Cassio