[DIY104]

Do it yourself !

---

Zedomax Sprinkler System -

Make a Touch-screen sprinkler system

Couple months ago, my friend's sprinkler contol system broke, so I decided to build him one using a touch screen controller.

The other day, I went to Home Depot and I've noticed there was no touch screen sprinkler system on the market yet, or at least not at Home Depot.  

Anyways, today I will show you how to make one and let you have access to my sprinkler program source code too.

Since I don't own a house like my friend and live out of a garage, I will have to simulate the water pressure using a water pump.

See video of Zedomax Sprinkler System in Action:

 

 

(yes, I went here)

 

(No touch-screen sprinkler systems here)

 

Parts List:

1 Utility Pump               $59
1 Sprinkler Valve          $12
1 Sprinkler                   $12
Various pipe fittings      $20

Available at Home Depot

1 CT1721 Kit          $399
1 Relay8 Board        $29
Available at Comfile Technology

Estimated Time to Buy Parts:  30min

Estimated Time to Assemble:   20min

If you goto Home Depot, you will find lots of sprinkler valves, just pick one they are all the same I think...

Get a sprinkler or get whole bunch of them...

Connections

 

Connect the Relay8 Board to like shown below:

Then connect the sprinkler valve(solenoid) to the Relay8 board.

(yes, there's only 2 wires on the valve)

The valve is powered by the on-board 24V DC power of CT1721, but you will have to use 24VAC for the real thing.  
The Relay8 board supports both AC and DC, so you should be okay.

Then connect hoses, one to the water pump, the other going out to your sprinkler(s).  

One valve can support more than 1 sprinkler, please refer to the following howto links on calculating exactly how many sprinklers you can activate at one time:

via [Lowes]

via [zedomax]

 

(My sprinkler wedged on the door)

(My water pump to simulate water pressure)

 

(Experimental setup)

Simply download sprinkler6.zip  and use CublocStudio to download the program which are Program006.cul(LADDER CODE) and Program006.cub(BASIC CODE).

I've used a combination of BASIC and Ladder in this program to make one helluva sprinkler program...I think...

 

Taking it Further...

The current program is pretty stable I think,

but hopefully, I can add a temperature sensor to stop the

sprinkler on hot days and add a humidity sensor for rainy days.

It must be working well since my friend is not complaining about it.

You can add up to 32 sprinkler valves, well the program is for 12 right now, you will have to modify it to fit 32...

That means at 5 sprinklers per sprinkler valves, you could possibly hook up 160 sprinklers and control them.

Well to take it even further, you can use modbus to connect 127 touch screen controllers and control 127 * 160 = 20,320 sprinklers!  Well, that might not be case unless you own a golf course...

If you are having any trouble with above app, please e-mail max@zedomax.com

If you have any cool apps you'd like to share or want some kind of DIY, please e-mail to max@zedomax.com

We do accept free samples for DIYs, please email  max@zedomax.com :)

BASIC Source Code:

[sprinkler006.cul]

Const Device = CT1720

#define PZ Pulsout 18,50

#define Bdelay 200

    Usepin 32, Out, relay1

    Usepin 33, Out, relay2

    Usepin 34, Out, relay3

    Usepin 35, Out, relay4

    Usepin 36, Out, relay5

    Usepin 37, Out, relay6

    Usepin 38, Out, relay7

    Usepin 39, Out, relay8

    Usepin 40, Out, relay9

    Usepin 41, Out, relay10

    Usepin 42, Out, relay11

    Usepin 43, Out, relay12

    Set Ladder On

    Dim TX1 As Integer, TY1 As Integer

    Dim Contrast_Setting As Integer

    Dim mode As Byte

    Dim sec As Byte, min As Byte, hr As Byte, date As Byte, day As Byte, month As Byte, year As Integer

    Dim sec2 As Byte, min2 As Byte, hr2 As Byte, date2 As Byte, day2 As Byte, month2 As Byte, year2 As Integer

    Dim programtype As Byte

    Dim prog(4) As Byte

    Dim relay(4) As Integer     '2 bytes or 16 bits

    Dim relaynumber As Byte

    Dim AUTO As Byte

    Dim relaytimes(13) As Integer

    Dim ProgramHour(4) As Byte

    Dim ProgramMin(4) As Byte

    Dim mm(12) As Byte

    Dim disa(13,4) As Integer

    Dim qqq As Byte

    Dim mmode As Byte

    Dim onebyte As Integer

    Dim relaysON As Byte

    relaysON=0

'   ManualON=0

    mmode=0

    For qqq=0 To 11

        relaytimes(qqq)=Eeread(2+(qqq*2),2)

        If relaytimes(qqq)=65535 Then relaytimes(qqq)=1

        _D(qqq)=relaytimes(qqq)

        _M(qqq)=0

    Next

'       Timeset 0, 0x55

'       Timeset 1, 0x59'Bin2bcd(6)

'       Timeset 2, 0x02'Bin2bcd(6)

'   _M(0)=1

    'Delay 10

    _M(0)=0

'   Do

'   Loop

'   If AUTO>1 Then AUTO=0

    relaynumber=0   

    mode=0

    Cls

    Contrast_Setting=Eeread(0,2)

    If Contrast_Setting>1000 Then Contrast_Setting=580

    Contrast Contrast_Setting

    ' Initialize all variables to 0, 0 is OFF 1 is ON

    Delay 500

    gPrint "v.0.0.6"

    Delay 500

    gPrint "v.0.0.6"

    Delay 500

    gPrint "v.0.0.6"

    Delay 500

    Cls

    Set Pad 0,4,5               ' When input received, jump to welovemax!

    On Pad Gosub welovemax

    On timer(35) Gosub Display

  mainmenu

  If AUTO.bit0=1 Then Menureverse 4

  If AUTO.bit1=1 Then Menureverse 5

  If AUTO.bit2=1 Then Menureverse 6

  If AUTO.bit3=1 Then Menureverse 7

  CurrentTime 1

    Do                          ' Infinite Loop

    Loop    

Display:

CurrentTime 0

If mode=5 Then

    DisplayMTimes

End If

Return

welovemax:

'------Receive x, y values from TouchPAD!-----------------------------------------------

    TX1 = Getpad(2)

    TY1 = Getpad(2)                     

    If mode=0 Then

        If Menucheck(0,TX1,TY1) = 1 Then

            PZ

            Menureverse 0

            mode=1

            Delay 250

            Cls

            CurrentTime 1

            setuptime

        Elseif Menucheck(1,TX1,TY1)=1 Then      'Schedule Menu

            PZ

            Menureverse 1

            mode=2

            Delay 250

            Cls

            CurrentTime 1

            schedulemenu

        Elseif Menucheck(2,TX1,TY1)=1 Then

            PZ

            Contrast_Setting=Contrast_Setting+4

'           Debug Dec contrast_setting

            Contrast Contrast_Setting

            Eewrite 0,Contrast_Setting,2

            Menureverse 2

            Delay BDelay

            Menureverse 2

        Elseif Menucheck(3,TX1,TY1)=1 Then

            PZ

            Contrast_Setting=Contrast_Setting-4

'           Debug Dec contrast_setting

            Contrast Contrast_Setting

            Eewrite 0,Contrast_Setting,2

            Menureverse 3

            Delay BDelay

            Menureverse 3

        Elseif Menucheck(4,TX1,TY1)=1 Then

            PZ

            Menureverse 4

            Delay BDelay

            AUTO.bit0=AUTO.bit0 Xor 1

        Elseif Menucheck(5,TX1,TY1)=1 Then

            PZ

            Menureverse 5

            Delay BDelay

            AUTO.bit1=AUTO.bit1 Xor 1

        Elseif Menucheck(6,TX1,TY1)=1 Then

            PZ

            Menureverse 6

            Delay BDelay

            AUTO.bit2=AUTO.bit2 Xor 1

        Elseif Menucheck(7,TX1,TY1)=1 Then

            PZ

            Menureverse 7

            Delay BDelay

            AUTO.bit3=AUTO.bit3 Xor 1

        Elseif Menucheck(8,TX1,TY1)=1 Then

            PZ

            Menureverse 8

            Delay 250

            mode=5

            Cls

            CurrentTime 1

            mmode=0

            StatusMenu

            TurnOFF

        Elseif Menucheck(9,TX1,TY1)=1 Then

            PZ

            turnoff

            Menureverse 9

            Delay 250

        End If          

    Elseif mode=1 Then

        If Menucheck(0,TX1,TY1) = 1 Then

            PZ

            If hr<23 Then

                hr=hr+1 

                Timeset 2, Bin2bcd(hr)

            End If

            Menureverse 0

            Delay BDelay

            Menureverse 0

        Elseif Menucheck(1,TX1,TY1)=1 Then

            PZ

            If hr>0 Then

                hr=hr-1

                Timeset 2, Bin2bcd(hr)

            End If

            Menureverse 1

            Delay BDelay

            Menureverse 1

        Elseif Menucheck(2,TX1,TY1)=1 Then

            PZ

            If min<60 Then

                min=min+1

                Timeset 1, Bin2bcd(min)

            End If  

            Menureverse 2

            Delay BDelay

            Menureverse 2

        Elseif Menucheck(3,TX1,TY1)=1 Then

            PZ

            If min>0 Then

                min=min-1

                Timeset 1, Bin2bcd(min)

            End If

            Menureverse 3

            Delay BDelay

            Menureverse 3

        Elseif Menucheck(4,TX1,TY1)=1 Then

            PZ

            If month<12 Then

                month=month+1

                Timeset 5, Bin2bcd(month)

            End If

            Menureverse 4

            Delay BDelay

            Menureverse 4

        Elseif Menucheck(5,TX1,TY1)=1 Then

            PZ

            If month > 1 Then

                month=month-1

                Timeset 5, Bin2bcd(month)

            End If

            Menureverse 5

            Delay BDelay

            Menureverse 5

        Elseif Menucheck(6,TX1,TY1)=1 Then

            PZ

            If date<32 Then

                date=date+1

                Timeset 3, Bin2bcd(date)

            End If

            Menureverse 6

            Delay BDelay

            Menureverse 6

        Elseif Menucheck(7,TX1,TY1)=1 Then

            PZ

            If date > 1 Then

                date=date-1

                Timeset 3, Bin2bcd(date)

            End If

            Menureverse 7

            Delay BDelay

            Menureverse 7

        Elseif Menucheck(8,TX1,TY1)=1 Then

            PZ

            Menureverse 8

            Delay BDelay

            mode=0

            Cls

            mainmenu

            If AUTO.bit0=1 Then Menureverse 4

            If AUTO.bit1=1 Then Menureverse 5

            If AUTO.bit2=1 Then Menureverse 6

            If AUTO.bit3=1 Then Menureverse 7

            currenttime 1

        End If

    Elseif mode=2 Then

        If Menucheck(0,TX1,TY1) = 1 Then

            PZ

            Menureverse 0

            Delay BDelay

            Menureverse 0

            mode=3

            Cls

            currenttime 1

            programtype=0

            programmenu

            showbuttons

            ProgramTime

            Glocate 10,200

            Dprint "Program ",Dec programtype+1

        Elseif Menucheck(1,TX1,TY1)=1 Then

            PZ

            Menureverse 1

            Delay BDelay

            Menureverse 1

            mode=3

            Cls

            currenttime 1

            programtype=1

            programmenu

            showbuttons

            ProgramTime

            Glocate 10,200

            Dprint "Program ",Dec programtype +1

        Elseif Menucheck(2,TX1,TY1)=1 Then

            PZ

            Menureverse 2

            Delay BDelay

            Menureverse 2

            mode=3

            Cls

            currenttime 1

            programtype=2

            programmenu

            showbuttons

            ProgramTime         

            Glocate 10,200

            Dprint "Program ",Dec programtype+1

        Elseif Menucheck(3,TX1,TY1)=1 Then

            PZ

            Menureverse 3

            Delay BDelay

            mode=3

            Cls

            currenttime 1

            programtype=3

            programmenu 

            showbuttons

            ProgramTime         

            Glocate 10,200

            Dprint "Program ",Dec programtype+1

        Elseif Menucheck(4,TX1,TY1)=1 Then

            PZ

            Menureverse 4

            Delay BDelay

            mode=0

            Cls

            currenttime 1

            mainmenu

            If AUTO.bit0=1 Then Menureverse 4

            If AUTO.bit1=1 Then Menureverse 5

            If AUTO.bit2=1 Then Menureverse 6

            If AUTO.bit3=1 Then Menureverse 7

        Elseif Menucheck(5,TX1,TY1)=1 Then      'goto relay time setting

            PZ

            Menureverse 5

            Delay BDelay

            mode=4

            Cls

            currenttime 1

            relaymenu

            showrelaytimes relaynumber

        End If

    Elseif mode=3 Then

        If Menucheck(0,TX1,TY1) = 1 Then

            PZ

            prog(programtype).bit0=1 Xor prog(programtype).bit0

            Menureverse 0

        Elseif Menucheck(1,TX1,TY1) = 1 Then

            PZ

            prog(programtype).bit1=1 Xor prog(programtype).bit1

            Menureverse 1

        Elseif Menucheck(2,TX1,TY1) = 1 Then

            PZ

            prog(programtype).bit2=1 Xor prog(programtype).bit2

            Menureverse 2

        Elseif Menucheck(3,TX1,TY1) = 1 Then

            PZ

            prog(programtype).bit3=1 Xor prog(programtype).bit3

            Menureverse 3

        Elseif Menucheck(4,TX1,TY1) = 1 Then

            PZ

            prog(programtype).bit4=1 Xor prog(programtype).bit4

            Menureverse 4

        Elseif Menucheck(5,TX1,TY1) = 1 Then

            PZ

            prog(programtype).bit5=1 Xor prog(programtype).bit5

            Menureverse 5

        Elseif Menucheck(6,TX1,TY1) = 1 Then

            PZ

            prog(programtype).bit6=1 Xor prog(programtype).bit6

            Menureverse 6

        'relay ON/OFF           

        Elseif Menucheck(7,TX1,TY1) = 1 Then

            PZ

            relay(programtype).bit0=1 Xor relay(programtype).bit0

            Menureverse 7

        Elseif Menucheck(8,TX1,TY1) = 1 Then

            PZ

            relay(programtype).bit1=1 Xor relay(programtype).bit1

            Menureverse 8

        Elseif Menucheck(9,TX1,TY1) = 1 Then

            PZ

            relay(programtype).bit2=1 Xor relay(programtype).bit2

            Menureverse 9

        Elseif Menucheck(10,TX1,TY1) = 1 Then

            PZ

            relay(programtype).bit3=1 Xor relay(programtype).bit3

            Menureverse 10

        Elseif Menucheck(11,TX1,TY1) = 1 Then

            PZ

            relay(programtype).bit4=1 Xor relay(programtype).bit4

            Menureverse 11

        Elseif Menucheck(12,TX1,TY1) = 1 Then

            PZ

            relay(programtype).bit5=1 Xor relay(programtype).bit5

            Menureverse 12

        Elseif Menucheck(13,TX1,TY1) = 1 Then

            PZ

            relay(programtype).bit6=1 Xor relay(programtype).bit6

            Menureverse 13

        Elseif Menucheck(14,TX1,TY1) = 1 Then

            PZ

            relay(programtype).bit7=1 Xor relay(programtype).bit7

            Menureverse 14

        Elseif Menucheck(15,TX1,TY1) = 1 Then

            PZ

            relay(programtype).bit8=1 Xor relay(programtype).bit8

            Menureverse 15

        Elseif Menucheck(16,TX1,TY1) = 1 Then

            PZ

            relay(programtype).bit9=1 Xor relay(programtype).bit9

            Menureverse 16

        Elseif Menucheck(17,TX1,TY1) = 1 Then

            PZ

            relay(programtype).bit10=1 Xor relay(programtype).bit10

            Menureverse 17

        Elseif Menucheck(18,TX1,TY1) = 1 Then

            PZ

            relay(programtype).bit11=1 Xor relay(programtype).bit11

            Menureverse 18

        Elseif Menucheck(19,TX1,TY1) = 1 Then

            PZ

            Delay BDelay

            mode=0

            Cls

            CurrentTime 1

            mainmenu

            If AUTO.bit0=1 Then Menureverse 4

            If AUTO.bit1=1 Then Menureverse 5

            If AUTO.bit2=1 Then Menureverse 6

            If AUTO.bit3=1 Then Menureverse 7

        Elseif Menucheck(20,TX1,TY1) = 1 Then

            PZ

            Delay BDelay

            mode=2

            Cls

            CurrentTime 1

            schedulemenu

        Elseif Menucheck(21,TX1,TY1) = 1 Then

            PZ

            If ProgramHour(programtype)<23 Then ProgramHour(programtype)=ProgramHour(programtype)+1

            ProgramTime

            Menureverse 21

            Delay BDelay

            Menureverse 21

        Elseif Menucheck(22,TX1,TY1) = 1 Then

            PZ

            If ProgramHour(programtype)>0 Then ProgramHour(programtype)=ProgramHour(programtype)-1

            ProgramTime

            Menureverse 22

            Delay BDelay

            Menureverse 22

        Elseif Menucheck(23,TX1,TY1) = 1 Then

            PZ

            If ProgramMin(programtype)<59 Then ProgramMin(programtype)=ProgramMin(programtype)+1

            ProgramTime

            Menureverse 23

            Delay BDelay

            Menureverse 23

        Elseif Menucheck(24,TX1,TY1) = 1 Then

            PZ

            If ProgramMin(programtype)>0 Then ProgramMin(programtype)=ProgramMin(programtype)-1

            ProgramTime

            Menureverse 24

            Delay BDelay

            Menureverse 24

        End If

    Elseif mode=4 Then          'if relay menu then

        If Menucheck(0,TX1,TY1) = 1 Then

            PZ

            If relaytimes(relaynumber)<60 Then

                relaytimes(relaynumber)=relaytimes(relaynumber)+1

                Eewrite 2+(relaynumber*2),relaytimes(relaynumber),2

            End If

            showrelaytimes relaynumber

            Menureverse 0

            Delay BDelay

            Menureverse 0

        Elseif Menucheck(1,TX1,TY1) = 1 Then

            If relaytimes(relaynumber) > 0 Then

                relaytimes(relaynumber)=relaytimes(relaynumber)-1

                Eewrite 2+(relaynumber*2),relaytimes(relaynumber),2

            End If

            showrelaytimes relaynumber

            PZ

            Menureverse 1

            Delay BDelay

            Menureverse 1

        Elseif Menucheck(2,TX1,TY1) = 1 Then

            PZ

            Menureverse 2

            Delay BDelay

            Cls

            mode=0

            mainmenu

            If AUTO.bit0=1 Then Menureverse 4

            If AUTO.bit1=1 Then Menureverse 5

            If AUTO.bit2=1 Then Menureverse 6

            If AUTO.bit3=1 Then Menureverse 7

            CurrentTime 1

'           

        Elseif Menucheck(3,TX1,TY1) = 1 Then

            PZ

            Menureverse 3

            Delay BDelay

            Cls

            mode=2

            CurrentTime 1

            schedulemenu

        Elseif Menucheck(4,TX1,TY1) = 1 Then

            PZ

            If relaynumber<11 Then relaynumber=relaynumber+1

            showrelaytimes relaynumber

            Menureverse 4

            Delay BDelay

            Menureverse 4

        Elseif Menucheck(5,TX1,TY1) = 1 Then

            PZ

            If relaynumber>0 Then relaynumber=relaynumber-1

            showrelaytimes relaynumber

            Menureverse 5

            Delay BDelay

            Menureverse 5

        Elseif Menucheck(6,TX1,TY1) = 1 Then

            PZ

            relaytimes(relaynumber)=0

            showrelaytimes relaynumber

            Menureverse 5

            Delay BDelay

            Menureverse 5

        End If

    Elseif mode=5 Then

        If Menucheck(0,TX1,TY1) = 1 Then

        '   PZ

        '   ManualON 0

        '   Menureverse 0

        '   Delay BDelay

        Elseif Menucheck(1,TX1,TY1) = 1 Then

        '   PZ

        '   ManualON 1

        '   Menureverse 1

        '   Delay BDelay

        Elseif Menucheck(2,TX1,TY1) = 1 Then

        '   PZ

        '   ManualON 2

        '   Menureverse 2

        '   Delay BDelay

        Elseif Menucheck(3,TX1,TY1) = 1 Then

        '   PZ

        '   ManualON 3

        '   Menureverse 3

        '   Delay BDelay

        Elseif Menucheck(4,TX1,TY1) = 1 Then

        '   PZ

        '   ManualON 4

        '   Menureverse 4

        '   Delay BDelay

        Elseif Menucheck(5,TX1,TY1) = 1 Then

        '   PZ

        '   ManualON 5

        '   Menureverse 5

        '   Delay BDelay

        Elseif Menucheck(6,TX1,TY1) = 1 Then

        '   PZ

        '   ManualON 6

        '   Menureverse 6

        '   Delay BDelay

        Elseif Menucheck(7,TX1,TY1) = 1 Then

        '   PZ

        '   ManualON 7

        '   Menureverse 7

        '   Delay BDelay

        Elseif Menucheck(8,TX1,TY1) = 1 Then

        '   PZ

        '   ManualON 8

        '   Menureverse 8

        '   Delay BDelay

        Elseif Menucheck(9,TX1,TY1) = 1 Then

        '   PZ

        '   ManualON 9

        '   Menureverse 9

        '   Delay BDelay

        Elseif Menucheck(10,TX1,TY1) = 1 Then

        '   PZ

        '   ManualON 10

        '   Menureverse 10

        '   Delay BDelay

        Elseif Menucheck(11,TX1,TY1) = 1 Then

        '   PZ

        '   ManualON 11

        '   Menureverse 11

        '   Delay BDelay

        Elseif Menucheck(12,TX1,TY1) = 1 Then

            PZ

            Menureverse 12

            Delay BDelay

                mode=0

            Cls

            currenttime 1

            mainmenu

            If AUTO.bit0=1 Then Menureverse 4

            If AUTO.bit1=1 Then Menureverse 5

            If AUTO.bit2=1 Then Menureverse 6

            If AUTO.bit3=1 Then Menureverse 7

        Elseif Menucheck(13,TX1,TY1) = 1 Then

            PZ

'                       onebyte=(relay(uu)>>qqq) And 0x01

'                       _D(qqq)=relaytimes(qqq)*600*onebyte

            For qqq=0 To 11

                onebyte=(relay(0)>>qqq) And 0x01

                _D(qqq)=relaytimes(qqq)*600*onebyte

            Next

            If mmode=0 Then

                mmode=1

            Elseif mmode=1 Then

                mmode=0         

            Elseif mmode=2 Then

                mmode=1

                Menureverse 14

            Elseif mmode=3 Then

                mmode=1

                Menureverse 15

            Elseif mmode=4 Then

                mmode=1

                Menureverse 16

            End If

            Menureverse 13          

            Delay BDelay

        Elseif Menucheck(14,TX1,TY1) = 1 Then

            PZ

            For qqq=0 To 11

                onebyte=(relay(1)>>qqq) And 0x01

                _D(qqq)=relaytimes(qqq)*600*onebyte

            Next

            If mmode=0 Then

                mmode=2

            Elseif mmode=1 Then

                mmode=2

                Menureverse 13

            Elseif mmode=2 Then

                mmode=0

            Elseif mmode=3 Then

                mmode=2

                Menureverse 15

            Elseif mmode=4 Then

                mmode=2

                Menureverse 16

            End If

            Menureverse 14

            Delay BDelay

        Elseif Menucheck(15,TX1,TY1) = 1 Then

            PZ

            For qqq=0 To 11

                onebyte=(relay(2)>>qqq) And 0x01

                _D(qqq)=relaytimes(qqq)*600*onebyte

            Next

            If mmode=0 Then

                mmode=3

            Elseif mmode=1 Then

                mmode=3

                Menureverse 13

            Elseif mmode=2 Then

                mmode=3

                Menureverse 14

            Elseif mmode=3 Then

                mmode=0

            Elseif mmode=4 Then

                mmode=3

                Menureverse 16

            End If

            Menureverse 15

            Delay BDelay

'           Menureverse 15

        Elseif Menucheck(16,TX1,TY1) = 1 Then

            PZ

            For qqq=0 To 11

                onebyte=(relay(3)>>qqq) And 0x01

                _D(qqq)=relaytimes(qqq)*600*onebyte

            Next

            If mmode=0 Then

                mmode=4

            Elseif mmode=1 Then

                mmode=4

                Menureverse 13

            Elseif mmode=2 Then

                mmode=4

                Menureverse 14

            Elseif mmode=3 Then

                mmode=4

                Menureverse 15

            Elseif mmode=4 Then

                mmode=0

            End If

            Menureverse 16

            Delay BDelay

        Elseif Menucheck(17,TX1,TY1) = 1 Then

            PZ

            relaysON=1

            Menureverse 17

            Delay BDelay

            TurnRelaysON mmode-1

        Elseif Menucheck(18,TX1,TY1) = 1 Then

            PZ

            Menureverse 18

            Delay BDelay

            Menureverse 18

            If mmode=0 Then

            Elseif mmode=1 Then

                Menureverse 13

            Elseif mmode=2 Then

                Menureverse 14

            Elseif mmode=3 Then

                Menureverse 15

            Elseif mmode=4 Then

                Menureverse 16

            End If

            If relaysON=1 Then

                Menureverse 17

            End If  

            relaysON=0

            turnoff

            mmode=0

        End If

    Elseif mode=6 Then

    End If

Return

    End

    Sub CurrentTime(cc As Byte)

        Dim dhr As Byte

        sec=Time(0)

        min=Time(1)

        hr=Time(2)

        date=Time(3)

        day=Time(4)

        month=Time(5)

        year=Time(6)

        sec=Bcd2bin(sec)

        min=Bcd2bin(min)

        hr=Bcd2bin(hr)

        date=Bcd2bin(date)

        day=Bcd2bin(day)

        month=Bcd2bin(month)

        year=Bcd2bin(year)      

    '   Timeset 6, Bin2bcd(6)

        Font 7,0

        Style 0,0,0

        'Debug Dec sec, "L",Dec sec2 , cr

        CalcDay

        If (hr <> hr2) Or (cc=1) Then

            Glocate 150,10

            If hr > 12 Then

                Dprint "PM"

            Else

                Dprint "AM"

            End If

            Glocate 10,10

            If hr>12 Then

                dhr=hr-12

            Elseif hr=0 Then

                dhr=12

            Else

                dhr=hr

            End If

            Dprint Dp(dhr,2,1), ":"

        End If

        If min <> min2 Or cc=1 Then

            Glocate 60,10

            Dprint Dp(min,2,1),":"

                    End If

        If sec <> sec2 Or cc=1 Then

            Glocate 110,10

            Dprint Dp(sec,2,1)

'           Debug Dec prog(0).bit4

            If AUTO.bit0=1 Then

                CheckDate 0

            End If

            If AUTO.bit1=1 Then

                CheckDate 1

            End If

            If AUTO.bit2=1 Then

                CheckDate 2

            End If

            If AUTO.bit3=1 Then

                CheckDate 3

            End If

    '       If mode=0 Then

    '           

    '           Locate 17,3

    '           Print "1 2 3 4 5 6 7 8 9 10 12"

    '           If relay1 = 1 Then Circlefill 145,40,5

    '           If relay2 = 1 Then Circlefill 160,40,5

    '           If relay3 = 1 Then Circlefill 174,40,5

    '           If relay4 = 1 Then Circlefill 189,40,5

    '           If relay5 = 1 Then   Circlefill 204,40,5

    '           If relay6 = 1 Then   Circlefill 219,40,5

    '           If relay7 = 1 Then   Circlefill 234,40,5

    '           If relay8 = 1 Then   Circlefill 249,40,5

    '           If relay9 = 1 Then   Circlefill 264,40,5

    '           If relay10 = 1 Then  Circlefill 279,40,5

    '           If relay11 = 1 Then  Circlefill 294,40,5

    '           If relay12 = 1 Then  Circlefill 310,40,5

    '       

    '       

    '       End If

        End If

            Waitdraw

    '   Glocate 10,40

        If date2 <> date Or month2 <> month Or year2 <> year Or cc=1 Then

            Font 3,3

            Glocate 190,10

            Dprint "         "

            Glocate 190,10

            Dprint Dec month, "/",Dec date,"/200", Dec year

            Glocate 275,10

            Select Case day

                Case 0

                Dprint "Sun"

                Case 1

                Dprint "Mon"

                Case 2

                Dprint "Tue"

                Case 3

                Dprint "Wed"

                Case 4

                Dprint "Thu"

                Case 5

                Dprint "Fri"

                Case 6

                Dprint "Sat"

            End Select

        End If

        sec2=sec

        min2=min

        hr2=hr

        date2=date      

        month2=month

        year2=year

    End Sub

' Calculate day

Sub CalcDay()

Dim tmp1 As Integer

Dim tmp2 As Integer

Dim dyear As Integer

dyear= year+2000

tmp1=year2 MOD 10

tmp2=year MOD 100

tmp2=tmp2-tmp1

tmp2=tmp2 MOD 10

tmp2=tmp2+tmp1

tmp2=tmp2+Floor (tmp2/4)

Select Case month

    Case 1

        tmp2=tmp2+6

    Case 2,3,11

        tmp2=tmp2+2

    Case 4,7

        tmp2=tmp2+5

    Case 6

        tmp2=tmp2+3

    Case 8

        tmp2=tmp2+1

    Case 9,12

        tmp2=tmp2+4

    Case 10

        tmp2=tmp2+6

End Select

day=(date+tmp2) MOD 7

End Sub

Sub showbuttons()

        Waitdraw

            If prog(programtype).bit0 = 1 Then Menureverse 0

            If prog(programtype).bit1 = 1 Then Menureverse 1

            If prog(programtype).bit2= 1 Then Menureverse 2

            If prog(programtype).bit3= 1 Then Menureverse 3

            If prog(programtype).bit4= 1 Then Menureverse 4

            If prog(programtype).bit5= 1 Then Menureverse 5

            If prog(programtype).bit6= 1 Then Menureverse 6

            If relay(programtype).bit0 = 1 Then Menureverse 7

            If relay(programtype).bit1 = 1 Then Menureverse 8

            If relay(programtype).bit2 = 1 Then Menureverse 9

            If relay(programtype).bit3 = 1 Then Menureverse 10

            If relay(programtype).bit4 = 1 Then Menureverse 11

            If relay(programtype).bit5 = 1 Then Menureverse 12

            If relay(programtype).bit6 = 1 Then Menureverse 13

            If relay(programtype).bit7 = 1 Then Menureverse 14

            If relay(programtype).bit8 = 1 Then Menureverse 15

            If relay(programtype).bit9 = 1 Then Menureverse 16

            If relay(programtype).bit10 = 1 Then Menureverse 17

            If relay(programtype).bit11= 1 Then Menureverse 18

End Sub

Sub ProgramTime()

    Dim phr As Byte

    Waitdraw

    Font 0,0

    Style 0,0,0

            Glocate 5,150

            Dprint "Turn ON at:"

            If ProgramHour(programtype)>23 Then ProgramHour(programtype)=3

            If ProgramMin(programtype)>59 Then  ProgramMin(programtype)=59

            If ProgramHour(programtype)=12 Then

                Dprint "PM "

                phr=12

            Elseif ProgramHour(programtype)>12 Then

                Dprint "PM "

                phr=ProgramHour(programtype)-12

            Else

                If ProgramHour(programtype)=0 Then

                    phr=12

                Else

                    phr=ProgramHour(programtype)

                End If

                Dprint "AM "

            End If

        '   If phr = 0 Then

        '       Dprint "12"

        '   Else            

                If phr<10 Then Dprint "0"

                Dprint Dec phr,":"

        '   End If

            If ProgramMin(programtype)<10 Then Dprint "0"

            Dprint Dec ProgramMin(programtype)

End Sub

Sub showrelaytimes(relaynum As Byte)

    Waitdraw

    Font 3,0

    Style 0,0,0

    Color 0

    Boxfill 34,58,84,118,0

    Color 1 

    Glocate 50,93

'   Dprint Dec "    "

'   Glocate 50,93   

    Dprint Dec relaynum+1

'   Glocate 180,82

'   Dprint Dec "    "

    Color 0

    Boxfill 156,60,242,114,0

    Color 1 

    Glocate 180,82

    Dprint Dec relaytimes(relaynum)

End Sub

Sub TurnRelaysON(uu As Byte)

                    For qqq=0 To 11

                        onebyte=(relay(uu)>>qqq) And 0x01

                        _D(qqq)=relaytimes(qqq)*600*onebyte

                    Next

                    _M(0)=1             

End Sub

Sub CheckDate(pnum As Byte)

'           Debug "program type: ", Dec pnum," prog sunday bit", Dec prog(pnum).bit6

                If day = 0 And prog(pnum).bit0 = 1 Then

                    If ProgramHour(pnum)=hr And ProgramMin(pnum)=min Then

                        TurnRelaysON pnum

                    End If

                Elseif day = 1 And prog(pnum).bit1 = 1 Then

                    If ProgramHour(pnum)=hr And ProgramMin(pnum)=min Then

                         TurnRelaysON pnum

                    End If

                Elseif day = 2 And prog(pnum).bit2 = 1 Then

                    If ProgramHour(pnum)=hr And ProgramMin(pnum)=min Then

                         TurnRelaysON pnum

                    End If

                Elseif day = 3 And prog(pnum).bit3 = 1 Then

                    If ProgramHour(pnum)=hr And ProgramMin(pnum)=min Then

                         TurnRelaysON pnum

                    End If

                Elseif day = 4 And prog(pnum).bit4 = 1 Then

                    If ProgramHour(pnum)=hr And ProgramMin(pnum)=min Then

                         TurnRelaysON pnum

                    End If

                Elseif day = 5 And prog(pnum).bit5 = 1 Then

                    If ProgramHour(pnum)=hr And ProgramMin(pnum)=min Then

                         TurnRelaysON pnum

                    End If

                Elseif day = 6 And prog(pnum).bit6 = 1 Then

                    If ProgramHour(pnum)=hr And ProgramMin(pnum)=min Then

                         TurnRelaysON pnum

                    End If

                End If

End Sub

Sub ManualON(mnum As Byte)

            If mm(mnum)=0 Then

                _M(mnum)=1

            Else

                _M(mnum)=0          

                _T(mnum)=1

            End If

            mm(mnum)=mm(mnum) Xor 1

End Sub

Sub DisplayMTimes()

    Dim countd As Byte

    Waitdraw

    Font 0,0

    For countd=0 To 5

        Glocate 5+countd*44,50

        disa(countd,0)=_T(countd)/600

        disa(countd,1)=_T(countd)/10 - disa(countd,0)*60

        Dprint Dp (disa(countd,0),2,1), ":"

        Dprint Dp(disa(countd,1),2,1)

    Next

    For countd=6 To 11

        Glocate 5+((countd-6)*44),120

        disa(countd,0)=_T(countd)/600

        disa(countd,1)=_T(countd)/10 - disa(countd,0)*60

        Dprint Dp (disa(countd,0),2,1), ":"

        Dprint Dp(disa(countd,1),2,1)

    Next    

End Sub

Sub TurnOFF()

        For qqq=0 To 11

            _M(qqq)=0

            _T(qqq)=1

            mm(qqq)=0

        Next    

End Sub         

Sub MAINMENU()

    Font 4,1

    Style 3,0,0

    Menuset 0,2,30,150,132,188

    Menutitle 0,7,11,"Setup Time"

    Menuset 1,2,182,148,286,186

    Menutitle 1,18,11,"Schedule"

    Menuset 2,2,234,98,266,130

    Menutitle 2,11,8,"+"

    Menuset 3,2,276,98,308,132

    Menutitle 3,11,9,"-"

    Font 1,1

    Glocate 242,74

    GPRINT "Contrast"

    Font 3,1

    Menuset 4,2,28,48,136,68

    Menutitle 4,7,2,"Prog 1 Auto"

    Menuset 5,2,28,72,138,92

    Menutitle 5,6,2,"Prog 2 Auto"

    Menuset 6,2,28,96,138,116

    Menutitle 6,6,2,"Prog 3 Auto"

    Menuset 7,2,28,122,138,142

    Menutitle 7,6,2,"Prog 4 Auto"

    Font 4,1

    Menuset 8,2,30,194,132,230

    Menutitle 8,11,10,"Manual"

    Menuset 9,2,182,192,286,230

    Menutitle 9,16,11,"ALL OFF"

    Glocate 150,56

    GPRINT "Zedomax"

    Glocate 150,72

    GPRINT "Sprinkler"

    Glocate 150,88

    GPRINT "Program"

    Font 4,0

    Style 0,0,0

End Sub

Sub SETUPTIME()

    Font 4,1

    Style 3,0,0

    Menuset 0,2,8,114,48,152

    Menutitle 0,15,11,"+"

    Menuset 1,2,56,114,96,152

    Menutitle 1,15,11,"-"

    Glocate 34,90

    GPRINT "Hour"

    Menuset 2,2,8,182,46,220

    Menutitle 2,14,11,"+"

    Menuset 3,2,54,182,96,220

    Menutitle 3,16,11,"-"

    Glocate 24,156

    GPRINT "Minute"

    Menuset 4,2,108,116,148,152

    Menutitle 4,15,10,"+"

    Menuset 5,2,156,116,194,152

    Menutitle 5,14,10,"-"

    Menuset 6,2,108,180,148,220

    Menutitle 6,15,12,"+"

    Menuset 7,2,156,178,196,218

    Menutitle 7,15,12,"-"

    Glocate 124,92

    GPRINT "Month"

    Glocate 132,156

    GPRINT "Date"

    Menuset 8,2,208,196,319,239

    Menutitle 8,13,13,"Main Menu"

    Font 4,0

    Style 0,0,0

End Sub

Sub SCHEDULEMENU()

    Font 4,1

    Style 3,0,0

    Menuset 0,2,14,82,118,132

    Menutitle 0,13,17,"Program 1"

    Menuset 1,2,130,82,224,132

    Menutitle 1,6,17,"Program 2"

    Menuset 2,2,14,144,118,194

    Menutitle 2,11,17,"Program 3"

    Menuset 3,2,130,144,224,194

    Menutitle 3,6,17,"Program 4"

    Menuset 4,2,204,200,310,239

    Menutitle 4,6,11,"MAIN MENU"

    Font 0,0

    Style 0,0,0

    Menuset 5,2,236,82,310,192

    Font 4,0

    Style 3,0,0

    Glocate 250,100

    GPRINT "Relay "

    Glocate 250,116

    GPRINT "Time  "

    Glocate 250,132

    GPRINT "Setup"

    Style 0,0,0

End Sub

Sub PROGRAMMENU()

    Font 0,1

    Style 3,0,0

    Menuset 0,2,0,38,38,74

    Menutitle 0,8,10,"Mon"

    Menuset 1,2,46,38,84,74

    Menutitle 1,8,10,"Tue"

    Menuset 2,2,92,38,130,74

    Menutitle 2,8,10,"Wed"

    Menuset 3,2,140,38,178,74

    Menutitle 3,8,10,"Thu"

    Menuset 4,2,186,38,224,74

    Menutitle 4,8,10,"Fri"

    Menuset 5,2,230,38,268,74

    Menutitle 5,8,10,"Sat"

    Menuset 6,2,274,38,319,74

    Menutitle 6,12,10,"Sun"

    Menuset 7,2,0,112,22,134

    Menutitle 7,7,3,"1"

    Menuset 8,2,24,112,46,134

    Menutitle 8,7,3,"2"

    Menuset 9,2,48,112,70,134

    Menutitle 9,7,3,"3"

    Menuset 10,2,74,112,96,134

    Menutitle 10,7,3,"4"

    Menuset 11,2,98,112,122,134

    Menutitle 11,8,3,"5"

    Menuset 12,2,126,112,148,134

    Menutitle 12,7,3,"6"

    Menuset 13,2,150,112,174,134

    Menutitle 13,8,3,"7"

    Menuset 14,2,178,112,200,134

    Menutitle 14,7,3,"8"

    Menuset 15,2,204,112,224,134

    Menutitle 15,6,3,"9"

    Menuset 16,2,228,112,256,134

    Menutitle 16,7,3,"10"

    Menuset 17,2,258,114,288,134

    Menutitle 17,7,2,"11"

    Menuset 18,2,290,114,319,132

    Menutitle 18,7,1,"12"

    Font 4,1

    Menuset 19,2,222,194,319,239

    Menutitle 19,6,14,"Main Menu"

    Font 0,1

    Glocate 8,90

    GPRINT "Relay Number"

    Font 4,1

    Menuset 20,2,122,194,218,239

    Menutitle 20,4,14,"Prev. Menu"

    Font 0,1

    Menuset 21,2,156,144,186,168

    Menutitle 21,11,4,"+"

    Menuset 22,2,190,144,220,168

    Menutitle 22,11,4,"-"

    Menuset 23,2,244,144,274,168

    Menutitle 23,11,4,"+"

    Menuset 24,2,278,144,308,168

    Menutitle 24,11,4,"-"

    Glocate 176,172

    GPRINT "Hour"

    Glocate 266,174

    GPRINT "Min"

    Font 4,0

    Style 0,0,0

End Sub

Sub STATUSMENU()

    Font 4,1

    Style 3,0,0

    Menuset 0,2,5,75,40,105

    Menutitle 0,15,7,"1"

    Menuset 1,2,50,75,80,105

    Menutitle 1,10,7,"2"

    Menuset 2,2,90,75,120,105

    Menutitle 2,10,7,"3"

    Menuset 3,2,130,75,160,105

    Menutitle 3,10,7,"4"

    Menuset 4,2,170,75,200,105

    Menutitle 4,10,7,"5"

    Menuset 5,2,210,75,245,105

    Menutitle 5,13,7,"6"

    Menuset 6,2,6,150,40,182

    Menutitle 6,12,8,"7"

    Menuset 7,2,50,150,80,180

    Menutitle 7,10,7,"8"

    Menuset 8,2,90,150,120,180

    Menutitle 8,10,7,"9"

    Menuset 9,2,130,150,160,180

    Menutitle 9,7,7,"10"

    Menuset 10,2,170,150,200,180

    Menutitle 10,10,7,"11"

    Menuset 11,2,210,150,245,185

    Menutitle 11,10,9,"12"

    Menuset 12,2,212,188,310,239

    Menutitle 12,6,17,"Main Menu"

    Font 0,1

    Menuset 13,2,10,195,45,230

    Menutitle 13,10,9,"P1"

    Menuset 14,2,55,195,90,230

    Menutitle 14,10,9,"P2"

    Menuset 15,2,100,195,135,230

    Menutitle 15,10,9,"P3"

    Menuset 16,2,145,195,180,230

    Menutitle 16,10,9,"P4"

    Menuset 17,2,270,85,305,110

    Menutitle 17,10,4,"ON"

    Menuset 18,2,270,120,305,145

    Menutitle 18,7,4,"OFF"

    Font 4,0

    Style 0,0,0

End Sub

Sub RELAYMENU()

    Font 7,1

    Style 3,0,0

    Menuset 0,2,142,126,192,170

    Menutitle 0,17,10,"+"

    Menuset 1,2,200,126,248,170

    Menutitle 1,17,10,"-"

'   Linestyle

    Dotsize 0,0

    Color 1

    Box 154,58,244,116

    Font 4,1

    Menuset 2,2,214,190,311,235

    Menutitle 2,6,14,"Main Menu"

    Menuset 3,2,114,190,210,235

    Menutitle 3,5,14,"Prev. Menu"

    Font 3,1

    Glocate 254,96

    GPRINT "Minutes"

    Font 5,1

    Glocate 35,60

    GPRINT "Relay #"

    Box 30,80,85,120

    Font 7,1

    Menuset 4,2,8,126,54,170

    Menutitle 4,15,10,"+"

    Menuset 5,2,60,126,106,170

    Menutitle 5,16,10,"-"

    Font 3,1

    Menuset 6,2,260,128,310,170

    Menutitle 6,8,13,"zero"

    Font 4,0

    Linestyle 0

    Style 0,0,0

End Sub