The bear
Senior Member
Hello,
Suggestions please.
Problem, using 'Toggle'.
Toggle flashes a Led, to indicate water flow. When power (12v) is removed, Led has a 50 50 chance of being OFF, I would like 100%
Suggestions please.
Problem, using 'Toggle'.
Toggle flashes a Led, to indicate water flow. When power (12v) is removed, Led has a 50 50 chance of being OFF, I would like 100%
Code:
;IRRIGATION using Buzby timer v1.0a 12.06.19 (Thank you Buzby, Desperate Dans cat).
#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
;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 was = 1
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 ( 12 hrs, Spot on) No Sertxd line 20
Sertxd ("Valve operated OFF",Cr,Lf)
Low valve 'Valve OFF
Endif
If hours = 4 Then ;was 24 ( 12 hrs, Spot on) No Sertxd line 20
Sertxd ("Valve operated ON",Cr,Lf)
High valve 'Valve OFF
Endif
If hours = 5 Then ;was 24 ( 12 hrs, Spot on) No Sertxd line 20
Sertxd ("Valve operated OFF",Cr,Lf)
Low valve 'Valve OFF
Endif
If hours = 24 Then ;was 24 ( 12 hrs, Spot on) No Sertxd line 20
Reset 'Every 24 Hours
Endif
Loop
Attachments
-
49.5 KB Views: 33
Last edited by a moderator: