Bascom DCF 77 sample nicht verstanden

[LCD leidender (Gast)]

Hallo,

kann mir jemand erklären welchen Sinn diese for next Schleife haben 
soll??
Verstehe ich nicht !

'Config Dcf77 = Pind.2 , Debug = 1 , Inverted = 0 , Check = 2 , Update = 0 , Updatetime = 30 , Switchpower = 0 , Secondticks = 50 , Timer1sec = 1 , Powerlevel = 1 , Timer = 1

Config Dcf77 = Pind.2 , 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

Print Time$ ; " " ; Date$ ; " " ; Time(dcf_sec) ; " " ; Date(dcf_day) ; " " ; Bin(dcf_status) ; " " ; Bin(dcf_bits) ; " " ; Bdcf_impuls ; " " ; Bdcf_pause

Loop

End

[Karl H. (kbuchegg)]

Es ist eine etwas seltsame Art ein

  Drehe Däumchen, bis sich die Uhrzeit ganz sicher geändert hat
  oder eine Timeout Situation eingetreten ist

auszudrücken. Mehr steckt da nicht dahinter.

Das ganze ist nur ein Testprogramm um einen DCF Dekoder zu testen. Mit 
der Funktion des DCF-Dekoders hat das nichts zu tun. Das darfst du nicht 
so eng sehen, wenn da geschlampt wird. Hoffen wir mal, dass der Dekoder 
qualitativ besser geschrieben ist.

[oscar (Gast)]

na, na, nicht immer diese Seitenhiebe.
Zugegeben etwas merkwürdig und mehr Fragen als Antworten erzeugend.

Aber so ganz blöd ist der Hersteller ja sicher wohl nicht.
Der kennt die AVR's schon in und auswendig.