Elektronik FAQ V7.1 - HOME

Elektronik – FAQ
Eine Gemeinschaftsproduktion der Gruppe ELEKTRONIK im MausNet
' *** Sekunden-Schleife
loop:
pause 300 ' weil pulsin nur bis ca. 650ms messen kann
pulsin DCFin,Polarity,PulsDauer ' in 10ms
if PulsDauer > 18000 then eins
if PulsDauer > 8000 then null
' kein Impuls innerhalb von
(Schleifenlaufzeit+300ms+650ms), also:
' *** Minutenanfang ***
gosub SekAusBS ' den fehlenden 60. Impuls nachbilden
pause 1000 ' jetzt fängt die Minute an
if Sekunde 59 then Fehler ' zuwenig Impulse
Sekunde = 0
serout DigOut,Baudrate,(13)
gosub ZeitAus
serout DigOut,Baudrate,(13,10)
gosub ZeitAus
goto keinFehler
Fehler:
Sekunde = 0 ' ohne Zeitausgabe weiter
keinFehler:
pause 300
goto keinZiffernende
' *** Null-Marke ***
null:
Bit7 = 0
goto BitBearbeiten
' *** Eins-Marke ***
eins:
Bit7 = 1
Parity = Parity + 1
' goto BitBearbeiten
Kapitel DCF 77, Seite 4
199