'****************************************************************
'* Name : Schakelklok *
'* Author : Coenen Stijn [Stynus] *
'* Notice : Copyright (c) 2009 ElektronicaStynus.be *
'* : All Rights Reserved *
'* Date : 01/02/2009 *
'* Version : 1.15 *
'* Notes : *
'* : *
'****************************************************************
Device 16F648A
Config INTRC_OSC_NOCLKOUT, WDT_OFF, PWRTE_ON, LVP_OFF, MCLRE_OFF
ALL_DIGITAL TRUE
'****************************************************************
'Algemeen
Symbol knop_up = PORTA.4
Symbol knop_enter = PORTA.5
Symbol knop_down = PORTA.3
Symbol ldr = PORTA.7
Symbol triac = PORTB.1
'************************************************************
'Lcd
Declare LCD_DTPIN PORTB.4
Declare LCD_ENPIN PORTB.3
Declare LCD_RSPIN PORTB.2
Declare LCD_INTERFACE 4
Declare LCD_LINES 2
Print $FE,$40,$0E,$0A,$0E,$00,$00,$00,$00,$00 ' °
Symbol Grad = 0
Symbol M = 1
Symbol e = 2
Symbol n = 3
Symbol u = 4
'************************************************************
'RTC
Symbol DS_SDA = PORTA.0
Symbol DS_SLC = PORTA.1
Symbol DS_Reset = PORTA.2
Dim Seconden As Byte
Dim Minuten As Byte
Dim Uren As Byte
Dim Dag As Byte
Dim Datum As Byte
Dim Maand As Byte
Dim Jaar As Byte
Dim Temperatuur As Byte
Symbol Reg_Seconden = $00
Symbol Reg_Minuten = $01
Symbol Reg_Uren = $02
Symbol Reg_Dag = $03
Symbol Reg_Datum = $04
Symbol Reg_Maand = $05
Symbol Reg_Jaar = $06
Symbol Reg_Temp = $11
'Ram registers
Symbol Reg_ldr = $14
Symbol Reg_TijdAanU1 = $15
Symbol Reg_TijdAanM1 = $16
Symbol Reg_TijdUitU1 = $17
Symbol Reg_TijdUitM1 = $18
Symbol Reg_Tijd2Gebr = $19
Symbol Reg_TijdAanU2 = $20
Symbol Reg_TijdAanM2 = $21
Symbol Reg_TijdUitU2 = $22
Symbol Reg_TijdUitM2 = $23
Symbol Reg_ldr2 = $24
Symbol Lezen = %11010000
Symbol Schrijven = %11010001
'************************************************************
'Subroutine
Dim BCD_In As Byte
Dim Byte_Uit As Byte
Dim Hbits As Byte
Dim Lbits As Byte
Dim BCD_Uit As Byte
Dim Byte_In As Byte
Dim Uur_sub As Byte
Dim Min_sub As Byte
'************************************************************
'Instellen
Dim temp As Byte
Dim teller As Byte
Dim Ldr_insch As Byte
Dim AanTijdu1 As Byte
Dim AanTijdm1 As Byte
Dim UitTijdu1 As Byte
Dim aan2 As Byte
Dim UitTijdm1 As Byte
Dim AanTijdu2 As Byte
Dim AanTijdm2 As Byte
Dim UitTijdu2 As Byte
Dim UitTijdm2 As Byte
Dim Ldr_uitsc As Byte
Dim lezen_reg As Byte
Dim lezen_uit As Byte
Dim schrv_reg As Byte
Dim schrv_in As Byte
'****************************************************************
Opstarten:
Clear
Cls
DelayMS 100
Print At 1,1, "Schematheek.net"
Print At 2,1, "LDR-schakelklok"
DelayMS 1500
Cls
GoTo Hoofdprogramma
'****************************************************************
'Subroutines
Inlezen:
lezen_reg = Reg_Seconden: GoSub DS_lezen: Seconden = lezen_uit
lezen_reg = Reg_Minuten : GoSub DS_lezen: Minuten = lezen_uit
lezen_reg = Reg_Uren : GoSub DS_lezen: Uren = lezen_uit
lezen_reg = Reg_Datum : GoSub DS_lezen: Datum = lezen_uit
lezen_reg = Reg_Maand : GoSub DS_lezen: Maand = lezen_uit
lezen_reg = Reg_Jaar : GoSub DS_lezen: Jaar = lezen_uit
lezen_reg = Reg_Temp : GoSub DS_lezen: Temperatuur = lezen_uit
Return
Omzetten:
'Seconden
BCD_In = Seconden : GoSub BCD_To_Byte: Seconden = Byte_Uit
'Minuten
BCD_In = Minuten : GoSub BCD_To_Byte: Minuten = Byte_Uit
'Uren
Uren.7 = 0
Uren.6 = 0
BCD_In = Uren : GoSub BCD_To_Byte: Uren = Byte_Uit
'Datum
BCD_In = Datum : GoSub BCD_To_Byte: Datum = Byte_Uit
'Maand
BCD_In = Maand : GoSub BCD_To_Byte: Maand = Byte_Uit
'Jaar
BCD_In = Jaar : GoSub BCD_To_Byte: Jaar = Byte_Uit
'Temperatuur
Temperatuur.7 = 0
Return
BCD_To_Byte:
'Hoogste 4 bits omzetten (Tientallen)
Byte_Uit = 0
Byte_Uit.0 = BCD_In.4
Byte_Uit.1 = BCD_In.5
Byte_Uit.2 = BCD_In.6
Byte_Uit.3 = BCD_In.7
Byte_Uit = Byte_Uit * 10
'Laagste 4 bits omzetten (Eenheden)
BCD_In.4 = 0
BCD_In.5 = 0
BCD_In.6 = 0
BCD_In.7 = 0
Byte_Uit = BCD_In + Byte_Uit
Return
Byte_To_BCD:
'Hoge bits
Hbits = Byte_In / 10
'Lagebits
Lbits = Byte_In - (Hbits * 10)
'Hoge bits doorschuiven
Hbits = Hbits << 4
'Samenvoegen
BCD_Uit = Lbits + Hbits
Return
AU_inst:
Print At 2,12, "Uur"
While 1 = 1
If knop_up = 0 Then
If Uur_sub < 24 Then
Inc Uur_sub
EndIf
Print At 2,1, DEC2 Uur_sub
While knop_up = 0 : Wend
EndIf
If knop_down = 0 Then
If Uur_sub > 0 Then
Dec Uur_sub
EndIf
Print At 2,1, DEC2 Uur_sub
While knop_down = 0 : Wend
EndIf
If knop_enter = 0 Then
While knop_enter = 0 : Wend
DelayMS 200
Break
EndIf
Wend
Print At 2,12, "Min"
While 1 = 1
If knop_up = 0 Then
If Min_sub < 60 Then
Inc Min_sub
EndIf
Print At 2,4, DEC2 Min_sub
While knop_up = 0 : Wend
EndIf
If knop_down = 0 Then
If Min_sub > 0 Then
Dec Min_sub
EndIf
Print At 2,4, DEC2 Min_sub
While knop_down = 0 : Wend
EndIf
If knop_enter = 0 Then
While knop_enter = 0 : Wend
DelayMS 200
Break
EndIf
Wend
Return
DS_lezen:
I2CIN DS_SDA, DS_SLC, Lezen, lezen_reg, [lezen_uit]
Return
DS_schrijven:
I2COUT DS_SDA, DS_SLC, Schrijven ,schrv_reg, [schrv_in]
Return
'****************************************************************
Hoofdprogramma:
lezen_reg = Reg_ldr : GoSub DS_lezen: Ldr_insch = lezen_uit
lezen_reg = Reg_TijdAanU1: GoSub DS_lezen: AanTijdu1 = lezen_uit
lezen_reg = Reg_TijdAanM1: GoSub DS_lezen: AanTijdm1 = lezen_uit
lezen_reg = Reg_TijdUitU1: GoSub DS_lezen: UitTijdu1 = lezen_uit
lezen_reg = Reg_TijdUitM1: GoSub DS_lezen: UitTijdm1 = lezen_uit
lezen_reg = Reg_Tijd2Gebr: GoSub DS_lezen: aan2 = lezen_uit
lezen_reg = Reg_TijdAanU2: GoSub DS_lezen: AanTijdu2 = lezen_uit
lezen_reg = Reg_TijdAanM2: GoSub DS_lezen: AanTijdm2 = lezen_uit
lezen_reg = Reg_TijdUitU2: GoSub DS_lezen: UitTijdu2 = lezen_uit
lezen_reg = Reg_TijdUitM2: GoSub DS_lezen: UitTijdm2 = lezen_uit
lezen_reg = Reg_ldr2 : GoSub DS_lezen: Ldr_uitsc = lezen_uit
While 1 = 1
GoSub Inlezen
GoSub Omzetten
Print At 1,1, DEC2 Uren, ":", DEC2 Minuten, ":", DEC2 Seconden, " ", DEC2 Temperatuur, Grad, "C"
Print At 2,1, DEC2 Datum, "/", DEC2 Maand, "/", DEC2 Jaar, " Menu"
'S avonds aandoen
If triac = 0 And Uren > 17 Then
If Reg_ldr = 1 Then
If ldr = 0 Then
triac = 1
EndIf
Else
If Uren = Reg_TijdAanU1 And Minuten = Reg_TijdAanM1 Then
triac = 1
EndIf
EndIf
EndIf
'S avonds uitdoen
If triac = 1 Then
If Uren = Reg_TijdUitU1 And Minuten = Reg_TijdUitM1 Then
triac = 0
EndIf
EndIf
'Smorgens aandoen
If triac = 0 And Reg_Tijd2Gebr = 1 Then
If Uren = Reg_TijdAanU2 And Minuten = Reg_TijdAanM2 Then
triac = 1
EndIf
EndIf
'Smorgens uitdoen
If triac = 1 And Reg_Tijd2Gebr = 1 Then
If Reg_ldr2 = 1 Then
If ldr = 1 Then
triac = 0
EndIf
Else
If Uren = Reg_TijdUitU2 And Minuten = Reg_TijdUitM2 Then
triac = 0
EndIf
EndIf
EndIf
If knop_enter = 0 Then
GoTo Hoofd_Menu
EndIf
DelayMS 300
Wend
'****************************************************************
Hoofd_Menu:
While knop_enter = 0: Wend
'************************************************************
Tijd_instellen:
Cls
DelayMS 50 '1234567890123456
Print At 1,1, "* Tijd instellen"
Print At 2,1, " Lichttijd inst"
teller = 0
While 1 = 1
If knop_down = 0 Then
While knop_down = 0 : Wend
GoTo Lichttijd_inst
EndIf
If knop_enter = 0 Then
While knop_enter = 0 : Wend
DelayMS 200
GoTo Tijd_instellen_enter
EndIf
DelayMS 50
Inc teller
If teller = 255 Then
GoTo Hoofdprogramma
EndIf
Wend
'************************************************************
Lichttijd_inst:
Cls
DelayMS 50
Print At 1,1, " Tijd instellen"
Print At 2,1, "* Lichttijd inst"
teller = 0
While 1 = 1
If knop_up = 0 Then
While knop_up = 0 : Wend
GoTo Tijd_instellen
EndIf
If knop_down = 0 Then
While knop_down = 0 : Wend
GoTo LDR_inst
EndIf
If knop_enter = 0 Then
While knop_enter = 0 : Wend
DelayMS 200
GoTo Lichttijd_instellen
EndIf
DelayMS 50
Inc teller
If teller = 255 Then
GoTo Hoofdprogramma
EndIf
Wend
'************************************************************
LDR_inst:
Cls
DelayMS 50
Print At 1,1, "* LDR afstellen "
Print At 2,1, " Exit "
teller = 0
While 1 = 1
If knop_up = 0 Then
While knop_up = 0 : Wend
GoTo Lichttijd_inst
EndIf
If knop_down = 0 Then
While knop_down = 0 : Wend
GoTo Exit
EndIf
If knop_enter = 0 Then
While knop_enter = 0 : Wend
DelayMS 200
GoTo LDR_afst
EndIf
DelayMS 50
Inc teller
If teller = 255 Then
GoTo Hoofdprogramma
EndIf
Wend
'************************************************************
Exit:
Cls
DelayMS 50
Print At 1,1, " LDR afstellen "
Print At 2,1, "* Exit "
teller = 0
While 1 = 1
If knop_up = 0 Then
While knop_up = 0 : Wend
GoTo LDR_inst
EndIf
If knop_enter = 0 Then
While knop_enter = 0 : Wend
DelayMS 200
GoTo Hoofdprogramma
EndIf
DelayMS 50
Inc teller
If teller = 255 Then
GoTo Hoofdprogramma
EndIf
Wend
'************************************************************
Tijd_instellen_enter: 'Tijd instellen
Cls
GoSub Inlezen
GoSub Omzetten
Print At 2,1, DEC2 Uren, ":", DEC2 Minuten, ":", DEC2 Seconden
'uren instellen
'1234567890123456
Print At 1,1, "Tijd: Uren"
While 1 = 1
If knop_up = 0 Then
If Uren < 23 Then
Inc Uren
EndIf
Print At 2,1, DEC2 Uren
While knop_up = 0 : Wend
EndIf
If knop_down = 0 Then
If Uren > 0 Then
Dec Uren
EndIf
Print At 2,1, DEC2 Uren
While knop_down = 0 : Wend
EndIf
If knop_enter = 0 Then
While knop_enter = 0 : Wend
DelayMS 200
Break
'GoTo Minuten_instellen
EndIf
Wend
'Minuten instellen
'1234567890123456
Print At 1,1, "Tijd: Minuten"
While 1 = 1
If knop_up = 0 Then
If Minuten < 60 Then
Inc Minuten
EndIf
Print At 2,4, DEC2 Minuten
While knop_up = 0 : Wend
EndIf
If knop_down = 0 Then
If Minuten > 0 Then
Dec Minuten
EndIf
Print At 2,4, DEC2 Minuten
While knop_down = 0 : Wend
EndIf
If knop_enter = 0 Then
While knop_enter = 0 : Wend
DelayMS 200
Break
EndIf
Wend
'Seconden instellen
'1234567890123456
Print At 1,1, "Tijd: Seconden"
While 1 = 1
If knop_up = 0 Then
If Seconden < 60 Then
Inc Seconden
EndIf
Print At 2,7, DEC2 Seconden
While knop_up = 0 : Wend
EndIf
If knop_down = 0 Then
If Seconden > 0 Then
Dec Seconden
EndIf
Print At 2,7, DEC2 Seconden
While knop_down = 0 : Wend
EndIf
If knop_enter = 0 Then
While knop_enter = 0 : Wend
DelayMS 200
Break
EndIf
Wend
'Omzetten en wegschrijven
'Seconden
Byte_In = Seconden : GoSub Byte_To_BCD : Seconden = BCD_Uit
schrv_reg = Reg_Seconden: schrv_in = Seconden: GoSub DS_schrijven
'Minuten
Byte_In = Minuten : GoSub Byte_To_BCD : Minuten = BCD_Uit
schrv_reg = Reg_Minuten: schrv_in = Minuten: GoSub DS_schrijven
'Uren
Byte_In = Uren : GoSub Byte_To_BCD : Uren = BCD_Uit
schrv_reg = Reg_Uren :schrv_in = Uren: GoSub DS_schrijven
'Datum
Cls
GoSub Inlezen
GoSub Omzetten
Print At 2,1, DEC2 Datum, "/", DEC2 Maand, "/", DEC2 Jaar
'dagen instellen
'1234567890123456
Print At 1,1, "Tijd: Dag"
While 1 = 1
If knop_up = 0 Then
If Dag < 31 Then
Inc Dag
EndIf
Print At 2,1, DEC2 Dag
While knop_up = 0 : Wend
EndIf
If knop_down = 0 Then
If Dag > 1 Then
Dec Dag
EndIf
Print At 2,1, DEC2 Dag
While knop_down = 0 : Wend
EndIf
If knop_enter = 0 Then
While knop_enter = 0 : Wend
DelayMS 200
Break
EndIf
Wend
'Maanden instellen
'1234567890123456
Print At 1,1, "Tijd: Maanden"
While 1 = 1
If knop_up = 0 Then
If Maand < 12 Then
Inc Maand
EndIf
Print At 2,4, DEC2 Maand
While knop_up = 0 : Wend
EndIf
If knop_down = 0 Then
If Maand > 1 Then
Dec Maand
EndIf
Print At 2,4, DEC2 Maand
While knop_down = 0 : Wend
EndIf
If knop_enter = 0 Then
While knop_enter = 0 : Wend
DelayMS 200
Break
EndIf
Wend
'Jaren instellen
'1234567890123456
Print At 1,1, "Tijd: Jaar"
While 1 = 1
If knop_up = 0 Then
If Jaar < 99 Then
Inc Jaar
EndIf
Print At 2,7, DEC2 Jaar
While knop_up = 0 : Wend
EndIf
If knop_down = 0 Then
If Jaar > 1 Then
Dec Jaar
EndIf
Print At 2,7, DEC2 Jaar
While knop_down = 0 : Wend
EndIf
If knop_enter = 0 Then
While knop_enter = 0 : Wend
DelayMS 200
Break
EndIf
Wend
'Omzetten en wegschrijven
'Dagen
Byte_In = Dag : GoSub Byte_To_BCD : Dag = BCD_Uit
schrv_reg = Reg_Datum :schrv_in = Dag: GoSub DS_schrijven
'Maanden
Byte_In = Maand : GoSub Byte_To_BCD : Maand = BCD_Uit
Maand.7 = 1
schrv_reg = Reg_Maand :schrv_in = Maand: GoSub DS_schrijven
'Jaren
Byte_In = Jaar : GoSub Byte_To_BCD : Jaar = BCD_Uit
schrv_reg = Reg_Jaar :schrv_in = Jaar: GoSub DS_schrijven
GoTo Hoofdprogramma
'************************************************************
Lichttijd_instellen:
Cls
'1234567890123456
Print At 1,1, " LDR gebruiken? "
Print At 2,1, " Ja "
While 1 = 1
If knop_up = 0 Then
Print At 2,1, " Ja "
temp = 1
While knop_up = 0 : Wend
EndIf
If knop_down = 0 Then
Print At 2,1, " Nee "
temp = 0
While knop_down = 0 : Wend
EndIf
If knop_enter = 0 Then
While knop_enter = 0 : Wend
DelayMS 200
Break
EndIf
Wend
I2COUT DS_SDA, DS_SLC, Schrijven ,Reg_ldr, [temp]
If temp = 0 Then
Cls
'1234567890123456
Print At 1,1, "Aanschakeltijd1:"
lezen_reg = Reg_TijdAanU1: GoSub DS_lezen: Uur_sub = lezen_uit
Print At 2,1, DEC2 Uur_sub, ":"
lezen_reg = Reg_TijdAanM1: GoSub DS_lezen: Min_sub = lezen_uit
Print At 2,4, DEC2 Min_sub
GoSub AU_inst
schrv_reg = Reg_TijdAanU1 :schrv_in = Uur_sub: GoSub DS_schrijven
schrv_reg = Reg_TijdAanM1 :schrv_in = Min_sub: GoSub DS_schrijven
EndIf
'Uitschakeltijd
Cls
'1234567890123456
Print At 1,1, "Uitschakeltijd1:"
lezen_reg = Reg_TijdUitU1: GoSub DS_lezen: Uur_sub = lezen_uit
Print At 2,1, DEC2 Uur_sub, ":"
lezen_reg = Reg_TijdUitM1: GoSub DS_lezen: Min_sub = lezen_uit
Print At 2,4, DEC2 Min_sub
GoSub AU_inst
schrv_reg = Reg_TijdUitU1 :schrv_in = Uur_sub: GoSub DS_schrijven
schrv_reg = Reg_TijdUitM1 :schrv_in = Min_sub: GoSub DS_schrijven
'Smorgens licht?
Cls
'1234567890123456
Print At 1,1, "S'morgens licht?"
Print At 2,1, " Ja "
While 1 = 1
If knop_up = 0 Then
Print At 2,1, " Ja "
temp = 1
While knop_up = 0 : Wend
EndIf
If knop_down = 0 Then
Print At 2,1, " Nee "
temp = 0
While knop_down = 0 : Wend
EndIf
If knop_enter = 0 Then
While knop_enter = 0 : Wend
DelayMS 200
Break
EndIf
Wend
schrv_reg = Reg_Tijd2Gebr :schrv_in = temp: GoSub DS_schrijven
If temp = 1 Then
'Inschakeltijd
Cls
'1234567890123456
Print At 1,1, "Inschakeltijd2:"
lezen_reg = Reg_TijdAanU2: GoSub DS_lezen: Uur_sub = lezen_uit
Print At 2,1, DEC2 Uur_sub, ":"
lezen_reg = Reg_TijdAanM2: GoSub DS_lezen: Min_sub = lezen_uit
Print At 2,4, DEC2 Min_sub
GoSub AU_inst
schrv_reg = Reg_TijdAanU2 :schrv_in = Uur_sub: GoSub DS_schrijven
schrv_reg = Reg_TijdAanM2 :schrv_in = Min_sub: GoSub DS_schrijven
Cls
Print At 1,1, "Uit met LDR?"
Print At 2,1, " Ja "
While 1 = 1
If knop_up = 0 Then
Print At 2,1, " Ja "
temp = 1
While knop_up = 0 : Wend
EndIf
If knop_down = 0 Then
Print At 2,1, " Nee "
temp = 0
While knop_down = 0 : Wend
EndIf
If knop_enter = 0 Then
While knop_enter = 0 : Wend
DelayMS 200
Break
EndIf
Wend
schrv_reg = Reg_ldr2 :schrv_in = temp: GoSub DS_schrijven
If temp = 0 Then
Cls
'1234567890123456
Print At 1,1, "Uitschakeltijd2:"
lezen_reg = Reg_TijdAanU2: GoSub DS_lezen: Uur_sub = lezen_uit
Print At 2,1, DEC2 Uur_sub, ":"
lezen_reg = Reg_TijdAanM2: GoSub DS_lezen: Min_sub = lezen_uit
Print At 2,4, DEC2 Min_sub
GoSub AU_inst
schrv_reg = Reg_TijdUitU2 :schrv_in = Uur_sub: GoSub DS_schrijven
schrv_reg = Reg_TijdUitM2 :schrv_in = Min_sub: GoSub DS_schrijven
EndIf
EndIf
GoTo Hoofdprogramma
LDR_afst:
Cls
'1234567890123456
Print At 1,1, " LDR afstellen "
While 1 = 1
If ldr = 1 Then
'1234567890123456
Print At 2,1, " licht "
Else
'1234567890123456
Print At 2,1, " donker "
EndIf
If knop_enter = 0 Then
While knop_enter = 0 : Wend
DelayMS 200
Break
EndIf
Wend
GoTo Hoofdprogramma
End