'******************************************************** '******** Definition des µC und des Quarzes '******************************************************** $regfile "m8def.dat" $crystal = 1000000 '******************************************************** '******** Konfiguration LCD 20*4 '******************************************************** Config Lcd = 20 * 4 Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.1 , Rs = Portc.0 '******************************************************** '******** Configuration DCF '******************************************************** Config Dcf77 = Pinb.6 , Timer = 1 , Inverted = 0 , Check = 1 , Update = 0 , Secondticks = 1 , Timer1sec = 1 , Debug = 1 Config Date = Dmy , Separator = . '******************************************************** '******** Configuration PWM '******************************************************** Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Prescale = 1. '******************************************************** '******** Variablen '******************************************************** Dim Time_flag As Integer Dim I As Integer Dim Sec_old As Byte , Dcfsec_old As Byte Dim Chk_dcf As Integer '******************************************************** '******** Startupmeldung am LCD '******************************************************** Cursor = Off Gosub Hello '******************************************************** '******** Definition IO '******************************************************** Config Portb.1 = Output Config Portd.0 = Input Config Portd.1 = Input Config Portd.5 = Input Config Portb.2 = Output Config Portd.4 = Output Config Portd.6 = Output Config Portd.7 = Output Config Portb.0 = Output '******************************************************** '******** Definition Alias '******************************************************** Tast_1 Alias Portd.0 Tast_2 Alias Portd.1 Tast_3 Alias Portd.5 Rel_1 Alias Portb.2 Rel_2 Alias Portd.4 Rel_3 Alias Portd.6 Rel_4 Alias Portd.7 Rel_5 Alias Portb.0 Dimmer Alias Portb.1 '******************************************************** '******** Konfiguration Interrupts '******************************************************** Enable Interrupts '******************************************************** '******** Hauptschleife '******************************************************** Do Chk_dcf = 0 Gosub Act_time Gosub Use_rel_1 Gosub Use_dimmer Loop '******************************************************** '******** Subroutinen '******************************************************** Hello: Cls Locate 1 , 4 Lcd "Hallo, ich bin" Locate 2 , 7 Lcd "der neue" Locate 3 , 2 Lcd "Microcontroller" Wait 3 Return Act_time: 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 Locate 4 , 1 Lcd Time$ ; "" Locate 4 , 10 Lcd Date$ If Chk_dcf = 1 Then Cls Locate 4 , 1 Lcd Time$ ; "" Locate 4 , 10 Lcd Date$ Locate 1 , 1 Lcd Time(dcf_sec) ; " " Locate 1 , 10 Lcd Date(dcf_day) ; " " Locate 2 , 1 Lcd Bin(dcf_status) ; " " Locate 2 , 10 Lcd Bin(dcf_bits) ; " " Locate 3 , 1 Lcd Bdcf_impuls ; " " Locate 3 , 10 Lcd Bdcf_pause Return End If Return Use_rel_1: If Time$ = "00:00:10" And Time_flag = 0 Then Rel_1 = 1 Time_flag = 1 End If If Time$ = "00:01:10" And Time_flag = 1 Then Rel_1 = 0 Time_flag = 0 End If Return Use_dimmer: If Time$ = "00:00:05" And Time_flag = 0 Then compare1a=1 Time_flag = 1 End If If Time$ = "00:00:15" And Time_flag = 1 Then Compare1a = 255 Time_flag = 0 End If Return

Do ... If Sekunden_flag=1 Then Sekunden_flag=0 Locate 4 , 1 Lcd Time$ ; "" Locate 4 , 10 Lcd Date$ If Chk_dcf = 1 Then Cls Locate 4 , 1 Lcd Time$ ; "" Locate 4 , 10 Lcd Date$ Locate 1 , 1 Lcd Time(dcf_sec) ; " " Locate 1 , 10 Lcd Date(dcf_day) ; " " Locate 2 , 1 Lcd Bin(dcf_status) ; " " Locate 2 , 10 Lcd Bin(dcf_bits) ; " " Locate 3 , 1 Lcd Bdcf_impuls ; " " Locate 3 , 10 Lcd Bdcf_pause End If End If ... Loop ... End Sectic: Sekunden_flag=1 Return