No announcement yet.

secu16 problem

  • Filter
  • Time
  • Show
Clear All
new posts

    secu16 problem

    I am new to scripting and I have wrote this script for garage door open/close event and my problem is error in log. Can someone possibly have a solution to to this. Running hs2.

    08/03/2007 1:40:25 PM - Error - Ocelot not configured

    I do have the ocelot plugin working and can run events to trigger input and output on the secu16

    Dim doorstatus

    ' Figure out the current door status.
    doorstatus =hs.DeviceStatus("`5") 'Reference to relay 0
    if doorstatus = 3 then
    hs.Speak "Garage door is already closed."
    hs.Speak "I will close garage door."
    hs.WaitSecs 3
    cpuxa.SetPoint 1,0,1
    hs.WaitSecs 1
    cpuxa.SetPoint 1,0,0
    end if
    end sub

    Try putting this at the top of the script after the sub main()

    Dim cpuxa
    Set cpuxa = hs.Plugin("Applied Digital Ocelot")


      Perfect thanks again Jon. Have another question maybe you can help me with. I need to pulse a relay for the garage door. Seems what I have in my script doesn't work consistantly. The door either doesn't recieve the signal or it pulse once and then again so the door begins to close then reverses right away. Any better ideas would be great. I have tried a longer and a shorter wait time with the same results.


        The script is relatively sound. I would suspect your problem is that the event that is triggering the script is re-triggering. In the event under the name tab, put a value of 15 seconds in the Cannot Re-trigger For: (seconds) box.

        If you want to make the script a little more robust, you could do something like:

        PHP Code:
        Sub main()

        Dim cpuxa
        Dim doorstatus
        Dim check

        Set cpuxa 
        hs.Plugin("Applied Digital Ocelot")

        doorstatus =hs.DeviceStatus("`5"'Reference to relay 0
        if doorstatus = 3 then
            hs.Speak "Garage door is already closed."

            hs.Speak "I will close garage door."
            hs.WaitSecs 3

        attempt to make sure the relay goes on routine
        For check=1 to 10
        .SetPoint 1,0,1
        If cpuxa.Getpoint(1,0,1)= 0 then exit for 

        .WaitSecs 2

        'attempt to make sure the relay goes off routine
            For check=1 to 10
                cpuxa.SetPoint 1,0,0
                If cpuxa.Getpoint(1,0,1)= 1 then exit for 
        end if
        end sub 


          I will give that a try. Thanks again Jon.