Announcement

Collapse
No announcement yet.

secu16 problem

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • Robethan
    replied
    I will give that a try. Thanks again Jon.

    Leave a comment:


  • jon00
    replied
    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."
    else

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

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

        hs
    .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 
        next
    end if
    end sub 

    Leave a comment:


  • Robethan
    replied
    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.

    Leave a comment:


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

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

    Leave a comment:


  • Robethan
    started a topic secu16 problem

    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."
    else
    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
Working...
X