The bear
Senior Member
Indent failed again.
;IRRIGATION using Buzby timer v1.0a 12.06.19
#picaxe 08m2 ;274 Bytes Toggle C.1 = 12v present
#No_data ;1 HR delay, ON for 1 Hr, OFF for 2 Hrs, ON for 1 HR
#Com 3 ;Resets after 24 Hrs
Sertxd("IRRIGATION using Buzby timer v1.0a 12.06.19",13,10)
Symbol minutes = w2
Symbol hours = w3
Symbol valve = C.2 'was C.4
Symbol valveSupplyLed = C.1
Symbol valvepower = pinC.3
' Start of code
minutes = 0
hours = 0
Do
Do ' Hours loop
time = 0 ' Reset in-built seconds counter
Do ' Minutes loop
;----------------------------------------------------
If valvepower = 0 Then '+12v present
Toggle valvesupplyled 'Flash Led
Endif
;------------------------------------------------
Pause 1000
;Sertxd (#hours,":",#minutes,":",#time,Cr,Lf) 'Com'd out when in use.
Loop Until time > 59 ' *** Should be 59 for one minute
minutes = minutes + 1
Loop Until minutes > 59 ' *** Should be 59 for one hour
hours = hours + 1
minutes = 0
If hours = 1 Then
Sertxd ("Valve operated ON",Cr,Lf)
High valve ' Operate Valve ON for 1 Hour
Endif
If hours = 2 Then ;was 24
Sertxd ("Valve operated OFF",Cr,Lf)
Low valve 'Valve OFF
Endif
If hours = 4 Then ;was 24
Sertxd ("Valve operated ON",Cr,Lf)
High valve 'Valve OFF
Endif
If hours = 5 Then ;was 24
Sertxd ("Valve operated OFF",Cr,Lf)
Low valve 'Valve OFF
Endif
If hours = 24 Then ;was 24
Reset 'Every 24 Hours
Endif
Loop
Rich (BB code):
#picaxe 08m2 ;274 Bytes Toggle C.1 = 12v present
#No_data ;1 HR delay, ON for 1 Hr, OFF for 2 Hrs, ON for 1 HR
#Com 3 ;Resets after 24 Hrs
Sertxd("IRRIGATION using Buzby timer v1.0a 12.06.19",13,10)
Symbol minutes = w2
Symbol hours = w3
Symbol valve = C.2 'was C.4
Symbol valveSupplyLed = C.1
Symbol valvepower = pinC.3
' Start of code
minutes = 0
hours = 0
Do
Do ' Hours loop
time = 0 ' Reset in-built seconds counter
Do ' Minutes loop
;----------------------------------------------------
If valvepower = 0 Then '+12v present
Toggle valvesupplyled 'Flash Led
Endif
;------------------------------------------------
Pause 1000
;Sertxd (#hours,":",#minutes,":",#time,Cr,Lf) 'Com'd out when in use.
Loop Until time > 59 ' *** Should be 59 for one minute
minutes = minutes + 1
Loop Until minutes > 59 ' *** Should be 59 for one hour
hours = hours + 1
minutes = 0
If hours = 1 Then
Sertxd ("Valve operated ON",Cr,Lf)
High valve ' Operate Valve ON for 1 Hour
Endif
If hours = 2 Then ;was 24
Sertxd ("Valve operated OFF",Cr,Lf)
Low valve 'Valve OFF
Endif
If hours = 4 Then ;was 24
Sertxd ("Valve operated ON",Cr,Lf)
High valve 'Valve OFF
Endif
If hours = 5 Then ;was 24
Sertxd ("Valve operated OFF",Cr,Lf)
Low valve 'Valve OFF
Endif
If hours = 24 Then ;was 24
Reset 'Every 24 Hours
Endif
Loop