1,Z1-Bed.1,W,1,0123456,08:00,08:05,09:00,09:00,09:00,09:00,09:00,09:00
2,Z2-Bed.2,W,0,0123456,00:00,00:00,09:00,09:0
3,Z3-GH.Tank,En,
4,Z4-Spare.1
5,Z5-Spare.2
6,Z6-GH.Water,W,1,0123456,00:00,00:00,12:58,13:50
7,Z7-GH.Mist,,30,30
8,Z8-GH.Fan,En,30,27
9,Usage Greenhouse-House and Garden,0,0
10,Max Daily Usage,500

'http://www.codenquilts.com.au
'Michael Ogden June 2016
'screen functions Geoff Graham
'water flow code - TassyJim
'Greenhouse and Irrigation controller
'v1.2 fixed problem with Run/Stop toggling itself.
'Using MXWifi2.9 or 170MXwifi Library code
Option Explicit
Option Default Integer
Option autorun On

'Constants
const Sver$="Ver 1.2"
Const NumofMonth$="JAN,FEB,MAR,APR,MAY,JUN,JLY,AUG,SEP,OCT,NOV,DEC"
CONST STRB=24 : SETPIN STRB,DOUT:PIN(STRB)=1 'CONFIGURE i/o strobe pin
Dim wholedate$
'Define I/O
SETPIN 17, CIN 'House Flow
SETPIN 18, CIN 'GHouse Flow
'setpin 10, dout 'Redled
setpin 10,din,PULLUP 'water tank level High
setpin 9,din,PULLUP 'water tank level Low

'Global variables


Dim Integer key_coord(5, 5)
Dim String key_caption(5)
Dim Integer c
''Flag Variable
Dim integer flag(13)
'0=err
'1=timeout
'2=Relay memory
'3=display update
'4=Alarms On
'5=Alarms Off
'7=time
'8=ntp
'9=busy
'10=override
'11=Watersensors
'12=Flashsave
'13=TankFill
relay(0) ' ensure all relays are off

Dim Integer idpdata(10) 'general array
Dim string results(11) length 10 'data results array
'1=Ghouse temp
'2=ghouse Hum
'3=rain
'4=Tank Level
'5=House Flow
'6=GHouse Flow
'7=Tank Level
'8=GHouse Flow
'9=Total Tank Flow
'10=24hr Usage

Dim Secs
dim preset,x,Errorflag
dim ErrorMsg$
dim AlarmTime,NO_CLS,backup


'Print "Greenhouse & Irrigation Ctrl "+sver$
Pusc 'Power up system check
initWiFifile 1 'call initialise WiFi file transfer library, set comm port to use

'intialise I/O


Var Restore

cls
Text MM.HRes/2, MM.VRes/2, "INITIALISE", CM, 1,2, RGB(white)
'intialise modules


'Initialise Arrays
if Touch(x) <> -1 then
backup=0
Text MM.HRes/2, MM.VRes/2, "DEFAULTS RESTORED", CM, 1, 1, RGB(white)
end if
pause 1000

' restore the settings. If this is the first time set the defaults

If backup = 0 Then
backup=1
results(10)="0"
Var Save backup,results()
EndIf


for x=1 to 11
print "Results:";x;" ";results(x)
next
for x=1 to 10
print "Config:";x;" ";cfgdata(x)
next




'interupts
Settick 1000 ,T1,1 'establish seconds "Tick Timer"
settick 300000,SavetoFlash,3
flag(3)=1 'content update
flag(8)=1 'NTP flag


'debug=1
'*** start main program loop
Do
'StartTime = Timer
Watchdog 60000


Do While Touch(x) <> -1

Loop

' draw the main menu options

if NO_CLS=0 then CLS
if preset=0 then
Text 80, 10,"RLY1-8" , CM, 1,1, RGB(white)
showrelays
DrawButtonOnly 3, "ZONE",245,155,70
if flag(10)=0 then
DrawButtonOnly 0, "STOP!",5,155,90
else
DrawButtonOnly 0, " RUN ",5,155,90
end if
No_CLS=1

else
For x=1 To 8 'clear relay leds
Circle 100+x*25,10, 5, 0, 1, 0, rgb(black)
next
Text MM.HRes/2, 10,"Menu " + parse$(cfgdata(preset),1) , CM, 1,2, RGB(white)
DrawButtonOnly 0, "< ",5,155,70
DrawButtonOnly 1, "ON",85,155,70
DrawButtonOnly 2, "OFF",165,155,70
DrawButtonOnly 3, "ZONE",245,155,70
end if
Line 0, 25, MM.HRes, 25, 1, RGB(210, 210, 210)
Line 0, 175, MM.HRes, 175, 1, RGB(210, 210, 210)


if errorflag=1 then
Text MM.HRes/2,220, errormsg$,c , 1, 1, RGB(RED)
else
Text MM.HRES/2,220, "Greenhouse & Irrigation Ctrl "+sver$,c , 1, 1, RGB(white)
endif
' get the selected button and take action based on the button
'print "main loop"

Select Case CheckButtonPress(0, 3)
Case 0
if preset=0 then
'print "case zero"
if flag(10)=0 then 'if in free run
relay(0)
flag(10)=1 'set Override flag
else
flag(10)=0 'set Override flag
end if
else
PReset=0
end if
Case 1
if flag(10)=0 or preset=8 then relay(preset,1) 'relay on only in RUN or for Greenhouse Fan
Case 2
relay(preset,0)
Case 3
No_CLS=0 'clear CLS flag to allow clear screen
preset=preset+1
if preset>8 then
preset=0
end if
End Select
flag(3)=1 'ensure screen update
'Print "Loop elapsed time"; Timer-StartTime
Loop
'***** End main program loop
End


'T1 - 1second Tick interrupt
'set up some time flags
Sub T1
local x
secs=secs+1 'update seconds timer
if secs => 86400 then '24 hrs reached
secs = 0 'reset counter
results(10)="0" 'reset 24hr usage
EndIf
If flag(1)>0 Then flag(1)=flag(1)-1
if Flag(13)>0 then flag(13)=flag(13)+1
Text 105,35, wholedate$ + " " + time$,L , 1, 1, RGB(green)
if secs mod 25 = 0 Then 'every 25 secs
if flag(8)=1 then
print "Try to get NTP data"
xbsend "time:" 'try to get NTP time data
end if
end if

if secs mod 5 = 0 Then
FLAG(3)=1 'content update
endif

if secs mod 10 = 0 Then
FLAG(11)=1 'read water sensors
EndIf

if secs mod 3600 = 0 then 'every 60 mins
FLAG(8)=1 'set NTP flag
endif

if secs mod 15 = 0 then 'every 15 secs
if flag(4)=0 then FLAG(4)=1 'Check Alarms On
endif
if secs mod 17 = 0 then 'every 17 secs
if flag(5)=0 then FLAG(5)=1 'Check Alarms Off
endif
End Sub



'*************** Specific Subs/Functions **********



SUB WaterSensors
local integer flow1,flow2,range1
flow1=PIN(17)
flow2=PIN(18)
'flow2=19003 'bench testing
print "Flows ";flow1;" ";flow2
results(8)=str$(val(results(8))+(flow1/330 MOD 1000000),8,0," ")' ghouse
results(9)=str$(val(results(9))+(flow2/330 MOD 1000000),8,0," ")' tank
results(10)=str$(val(results(10))+(flow2/330 MOD 1000000),8,0," ")' 24hrs use
'reset flows
SETPIN 17, CIN 'House Flow
SETPIN 18, CIN 'GHouse Flow
range1=DISTANCE(26,16)' house tank
results(7)=str$(((270 - range1)*42),3,0," ") '~10080 full
xbsend "udp.send:||"+TIME$+","+results(7)+","+results(8)+","+results(9)+","+results(10)
END Sub

sub usage
results(8)=parse$(cfgdata(9),2)
results(9)=parse$(cfgdata(9),3)
end sub

Sub SavetoFlash
Print "Saving to Flash"
Var save cfgdata(),results()
End Sub

'Test Alarms against time and weekday
sub TestAlarms(Off%) As integer
local Integer MinuteTime,z,cr,nr
local day$
StartTime = Timer
'Get first two letters of weekday to compare
day$=str$(GetDOW(SDT("","","DT")))
MinuteTime = sdt("","","m")
'print day$;" ";minutetime
' TestAlarms
'if off%=1 then increment times pos by 1 for off time
print "test alarms"
if flag(8)=1 then exit sub 'dont test if Time flag is set
For z=1 to 8
Circle 10, 10, 5, 0, 1, 0, rgb(red)
select case parse$(cfgdata(z),2)
case "W" 'watering alarm cycles
cr=0
Print cfgdata(z)
nr= Val(parse$(cfgdata(z),3))
print "repeats:";nr
Do while cr<nr 'cycle through start and finish times upto the # of repeats
if instr(parse$(cfgdata(z),4),day$)>0 then
'check On Time for 00:00 if so then exit
If sdt("",parse$(cfgdata(z),5+(cr*2)+0),"m") =0 Then
print "Zero time alarm , Time Alarm OFF"
relay(z,0)
else
print "time Now?Alarm Time:";minutetime;"/"; sdt("",parse$(cfgdata(z),5+(cr*2)+off%),"m") 'offset is position+(repeats*2)+on or off(0 or 1)
If MinuteTime = sdt("",parse$(cfgdata(z),5+(cr*2)+off%),"m") Then
if off%=0 And flag(10)=0 Then 'if not in override
print "Time Alarm ON"
relay(z,1)
else
print "Time Alarm OFF"
relay(z,0)
end if
end if
end if
end if
cr=cr + 1 'increment repeat counter
Loop
case else
'if not using watering cycles set specific actions for each relay
print z;" ";parse$(cfgdata(z),2)
if z=8 and parse$(cfgdata(z),2)="En" then 'Enable Greenhouse fan
if val(results(1))=>val(parse$(cfgdata(z),3)) then 'temp high turn on fan
relay(z,1)
elseif val(results(1))=<val(parse$(cfgdata(z),4)) then 'temp low turn off fan
relay(z,0)
end if
end if
if z=7 and parse$(cfgdata(z),2)="En" And flag(10)=0 then 'Enable Greenhouse Mist
'misting code
end if
if z=3 and parse$(cfgdata(z),2)="En" And flag(10)=0 Then 'Enable Greenhouse Tank Fill
if pin(10)<>0 and flag(13)=0 then 'top sensor not made and delay has not been set, so top up water Reservoir
flag(13)=1 'start Tank Fill relay delay sequence
end if
if pin(10)=0 or flag(13)>100 then 'only turn off when top sensor is made again or timed out
relay(z,0)
flag(13)=0
end if
end if
end select
Circle 10, 10, 5, 0, 1, 0, rgb(black)
Next
Print "Alarm Loop elapsed time"; Timer-StartTime
Circle 10, 10, 5, 0, 1, 0, rgb(black)
End sub


'External command processing sub Routine if required
sub extCmd
local temp$,ext$
print "External Commands:";from$;cmd$;cfg$;strin$
select case cmd$
case "ntp"
wholedate$=parse$(strin$,1," ")+" "+parse$(strin$,3," ")+" "+parse$(strin$,2," ")+" "+parse$(strin$,5," ")
if wholedate$<>"" then
flag(7)=0 'got time reset flag
flag(8)=0 'reset NTP flag
time$=left$(parse$(strin$,4," "),5)
print time$
print wholedate$
temp$=ucase$(parse$(strin$,2," "))
date$=parse$(strin$,3," ")+"-"+Str$(moy(temp$),2)+"-"+parse$(strin$,5," ")
print date$
If IsDST()=1 Then IncTime
'time$="23:59:00" 'test for midnight
end if
case "Log"
results(1)=parse$(strin$,9)
results(2)=parse$(strin$,10)
results(3)=parse$(strin$,5)
case "uMsavetoflash"
SavetoFlash
case "uMusage"
usage
case "uMconfig"
For res=1 To cfgnum
Print cfgdata(res)
xbsend "udp.send:|"+from$+"|Config:"+cfgdata(res)
WaitforReady
Next
end Select
end sub

'update the main screen data
sub updatemain
Text 5,55, "Tank "+ results(7)+ "L" ,L , 1, 1, RGB(green)
Text 5,75, "Usage - House/Garden "+ results(9)+ "L" ,L , 1, 1, RGB(green)
Text 5,95, "Usage - Greenhouse "+ results(8)+ "L" ,L , 1, 1, RGB(green)
Text 5,115, "Greenhouse - Temperature " + str$(val(results(1)),3,1," ") + chr$(96)+"C" ,L , 1, 1, RGB(green)
Text 5,135, "Greenhouse - Humidity " + str$(val(results(2)),3,0," ")+ "%" ,L , 1, 1, RGB(green)
Text 5,155, "Rain " + str$(val(results(3)),3,0," ")+ "mm" ,L , 1, 1, RGB(green)
end sub

sub updatecycle(cz)
local bin$="1,2,4,8,16,32,64,128"
Text 5,55, "Days of Week (Sun=0) " + parse$(cfgdata(cz),4),L , 1, 1, RGB(White)
Text 5,75, "Cycle1 On:"+ parse$(cfgdata(cz),5) + " Off:" + parse$(cfgdata(cz),6),L , 1, 1, RGB(green)
Text 5,95, "Cycle1 On:"+ parse$(cfgdata(cz),7) + " Off:" + parse$(cfgdata(cz),8) ,L , 1, 1, RGB(green)
Text 5,115, "Cycle1 On:"+ parse$(cfgdata(cz),9) + " Off:" + parse$(cfgdata(cz),10) ,L , 1, 1, RGB(green)
if (val(parse$(bin$,cz)) and flag(2)) >0 then
Text 5,135, "Watering NOW! "
else
Text 5,135, "Watering Off "
end if
end sub


' check if a button has been touch and animate the button's image
' returns the buttin number
Function CheckButtonPress(startn As Integer, endn As Integer) As Integer
Local Integer keydwn, xt, yellowt, n,r
keydwn = 0
flag(1)=30 'set flag if not in main page waiting for input
' keep looping while waiting for a press and release
Do
'print "buttonpress loop"
'***** mxWiFi Hook ****
if userprocessflag=1 then
print "Userprocess"
StartTime = Timer
UserProcess
UserProcessFlag=0
xbsend "udp.send:|"+from$+"|"+chr$(4)+"|"
Print "Processing elapsed time"; Timer-StartTime
Watchdog 60000 'ensure watchdog is set to long time out again
continue do 'skip to a new loop immediately , there may be more external processing to do
endif
'***** End mxWiFi Hook ****
'check flags
'print "checkbutton loop"
if flag(4)=1 then 'Alarms On
testalarms(0)
FLAG(4)=0
end if

if flag(5)=1 then 'Alarms Off
testalarms(1)
FLAG(5)=0
end if
'return to main page
If flag(1)=0 Then
PReset=0 'switch to main page after pressflag period
flag(3)=1 'ensure screen update
checkbuttonpress=-1
print "checkbuttonpress:";checkbuttonpress
exit function
end If

if flag(13)>60 then 'Tank Fill delay reached so (60 sec delay)
relay(3,1) 'enable tank fill relay
end if

if flag(11)=1 then 'watersensors
WaterSensors
FLAG(11)=0
print "24Hr Water usage/Limit:";Val(results(10));"/";Val(parse$(cfgdata(10),2))
If Val(results(10))>Val(parse$(cfgdata(10),2))Then
'set overuse flag
flag(10)=1
if flag(12)=0 then
SaveToFlash
flag(12)=1 'single write to flash only
end if
PReset=0 'switch to main page after pressflag period
flag(3)=1 'ensure screen update
checkbuttonpress=-1
print "checkbuttonpress:";checkbuttonpress
exit function
End If
end If

'check page presets for screen updating etc are done here
if flag(3)=1 then
select case preset
case 0
updateMain
case 1
updatecycle(1)
case 2
updatecycle(2)
case 6
updatecycle(6)
case 7
Text 5,55, "Greenhouse - Temperature " + str$(val(results(1)),3,1," ") + chr$(96)+"C Humidity:" + str$(val(results(2)),3,0," ")+ "%" ,L , 1, 1, RGB(green)
Text 5,75, "Misting Temp On:" + parse$(cfgdata(preset),3)+ chr$(96)+"C" +" Hum On:" + parse$(cfgdata(preset),4)+ chr$(96)+"C",L , 1, 1, RGB(green)
if (64 and flag(2))=64 then
Text 5,105, "Misting is On "
else
Text 5,105, "Misting is Off"
end if
case 8
Text 5,55, "Greenhouse - Temperature " + str$(val(results(1)),3,1," ") + chr$(96)+"C" ,L , 1, 1, RGB(green)
Text 5,75, "Fan Temp On:" + parse$(cfgdata(preset),3)+ chr$(96)+"C" +" Temp Off:" + parse$(cfgdata(preset),4)+ chr$(96)+"C",L , 1, 1, RGB(green)
if (128 and flag(2))=128 then
Text 5,105, "Fan is Running"
else
Text 5,105, "Fan is Off "
end if
case 3
if pin(10)=0 then
Text 5,55, "Water Reservoir is Full " ,L , 1, 1, RGB(green)
else
if pin(9)=1 then
Text 5,55, "Water Reservoir is Empty" ,L , 1, 1, RGB(green)
else
Text 5,55, "Water Reservoir is Low " ,L , 1, 1, RGB(green)
end if
end if
if (4 and flag(2))=4 then
Text 5,105, "Tank is Filling "
else
Text 5,105, " "
end if
end select
if preset=0 then showrelays
end if

'Touch pad processing
If Touch(x) <> -1 And Not keydwn Then
' we have a touch
xt = Touch(x)
yellowt = Touch(y)
' scan the array key_coord() to see if the touch was within the
' boundaries of a button
For n = startn To endn
If xt > key_coord(n,0) And xt < key_coord(n,0) + key_coord(n,2) And yellowt > key_coord(n,1) And yellowt < key_coord(n,1) + key_coord(n,3) Then
' we have a button press
' draw the button as pressed

DrawButton n, 1
keydwn = 1
Exit For
EndIf
Next n
EndIf

' if a button is currently down check if it has been released
If Touch(x) = -1 And keydwn Then
' yes, the button has been released
' draw the button as normal (ie, not pressed)
DrawButton n, 0
CheckButtonPress = n
' return with the button's number
print "checkbuttonpress:";checkbuttonpress
Exit Function
EndIf
Loop
End Function

Sub ShowRelays
Local p
local bin$="1,2,4,8,16,32,64,128"
For p=1 To 8
if (val(parse$(bin$,p)) and flag(2)) >0 then
Circle 100+p*25,10, 5, 0, 1, 0, RGB(red)
else
Circle 100+p*25,10, 5, 0, 1, 0, rgb(green)
end If
next
End Sub

'i/o EXT relay driver
sub relay(p,o)
local J
local bin$="1,2,4,8,16,32,64,128"
if p=0 then
flag(2)=0 'reset all relays and relay memory flag
else
if o=1 Then 'switch relay On
flag(2)=flag(2) or val(parse$(bin$,P)) 'add new relay
Else 'switch relay Off
flag(2)=flag(2) and (flag(2) xor val(parse$(bin$,P))) 'minus relay
end if
end if
'switch relay
SPI OPEN 500000,0,8
PIN(STRB)=0
PAUSE 1
j=SPI(Flag(2)) 'switch relays
SPI CLOSE
PIN(STRB)=1
end Sub

trig=15
echo=16

main:
d = DISTANCE(trig, echo)
? d
pause 300
goto main: