Gast
#1478874
Hallo, ich versuche schon seit sehr langer zeit die aktuelle Uhrzeit
mittels dcf empfänger (von reichelt) auf einem 16*4 lcd display
darzustellen, aber ich bin immer mehr am verzweifeln....
wäre nett wenn mal jemand das programm angucken mag was ich hab und mir
vielleicht weiter helfen kann..
$regfile = "m8def.dat"
$crystal = 3686400
$hwstack = 128
$swstack = 128
$framesize = 128
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 ,
Db7 = Portb.7 , E = Portd.0 , Rs = Portd.1
Config Lcd = 16 * 4
Cls
Cursor Off
Config Dcf77 = Pind.2 , Debug = 1 , Inverted = 0 , Check = 2 , Update =
0 , Updatetime = 30 , Switchpower = 0 , Secondticks = 50 , Timer1sec = 1
, Powerlevel = 1 , Timer = 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
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
Home
Lcd Time$
Locate 2, 1
Lcd Date$
Loop
End
Das Modul ist mit einem 10k Pullupwiderstand an PIND.2 angeschlossen.
Wäre sehr dankbar für jede art von hilfe..
mfg Jan