Mirley - Elektronika i Programowanie

'Zegar DCF77
$regfile= "attiny2313.dat"
$crystal = 8000000
'Sygnał z odbiornika DCF podłączony do Portb.2
Config Dcf77 = Pinb.2 , Debug = 1 , Inverted = 0 , Check = 0 , Update = 0 , Updatetime = 0 , Switchpower = 0 , Secondticks = 50 , Timer1sec = 1 , Powerlevel = 1 , Timer = 1 , Gosub = Sectic
'Można użyć zwiększonego poziomu sprawdzania poprawności sygnału,
'ale wtedy zegarek będzie synchronizowany nie częściej niż co 2 minuty,
'Config Dcf77 = Pinb.2 , Debug = 1 , Inverted = 0 , Check = 2 , Update = 0 , Updatetime = 0 , Switchpower = 0 , Secondticks = 50 , Timer1sec = 1 , Powerlevel = 1 , Timer = 1 , Gosub = Sectic
 
'Wyświetlacz LCD 16*2. Sygnały jak poniżej.
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.3 , Rs = Portb.2
Config Lcd = 16 * 2
Cls
Cursor Off
Enable Interrupts
Config Date = Dmy , Separator = /
Do
Wait 5
Loop
 
'Co sekundę aktualizuje wyświetlacz
Sectic:
   Cls
   Upperline
   Lcd Time$
   Lowerline
   Lcd Date$
Return
 
End