Hallo,
ich habe mir ein kleinen Code zum dekodieren des DCF77 Signals kopiert.
Laut Simulator sollte es so aussehen:
00:00:00 00.00.0
Zeitanzeige Test
auf einem Steckboard gibt es allerdings das hier aus:
33/33#3 33;33;
333[qkwco
Woran liegt dass?
Ich weis ja das der Simulator nicht besonders gut funktioniert.
Zum einspeisen des DCF77 Signals hab ich mir einen einfachen verstärker gebastelt - aber auf einem anderen Steckboard.
Grüße
&Danke
Alex
Alles anzeigen
ich habe mir ein kleinen Code zum dekodieren des DCF77 Signals kopiert.
Laut Simulator sollte es so aussehen:
00:00:00 00.00.0
Zeitanzeige Test
auf einem Steckboard gibt es allerdings das hier aus:
33/33#3 33;33;
333[qkwco
Woran liegt dass?
Ich weis ja das der Simulator nicht besonders gut funktioniert.
Zum einspeisen des DCF77 Signals hab ich mir einen einfachen verstärker gebastelt - aber auf einem anderen Steckboard.
Grüße
&Danke
Alex
Quellcode
- $regfile = "m48def.dat"
- $crystal = 1000000
- $hwstack = 32
- $swstack = 64
- $framesize = 24
- Config Portd = Output 'LCD Display Datenbits
- 'LCD Datenbits im 8BIT Mod
- Config Portb.6 = Output 'LCD E
- 'LCD Enable
- Config Portb.7 = Output 'LCD Rs
- 'LCD Reset
- Waitms 100
- Config Lcdpin = Pin , Port = Portd , E = Portb.6 , Rs = Portb.7
- Config Lcdbus = 8 ' LCD arbeitet über 8-Bit
- Config Lcd = 16 * 2
- Initlcd
- 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
- Cls
- Locate 1 , 1
- Lcd Time$ ; " " ; Date$ ; " " ; Time(dcf_sec) ; " " ; Date(dcf_day) ; " " ; Bin(dcf_status) ; " " ; Bin(dcf_bits) ; " " ; Bdcf_impuls ; " " ; Bdcf_pause
- Locate 2 , 1
- Lcd "Zeitanzeige Test"
- Loop
- End