Announcement

Collapse
No announcement yet.

ControlThermostat - THM Script Help

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

  • Alan
    replied
    Rupp,

    That worked. However, I discovered also that it would not work unless my temp setting was greater than 55 deg. I appears to be a setting within the Trane thermostat.

    Thanks for your help!

    Leave a comment:


  • Rupp
    replied
    Try
    Code:
    Sub Main(parm as object) 
    Dim pi As Object 
    Dim ret as integer
    
    pi = hs.Plugin("ZWave Thermostats") 
    ret= pi.CmdSetHeat(1,50) 
    
    hs.writelog("test", ret)
    End Sub

    Leave a comment:


  • Alan
    replied
    Thanks. I seem closer, yes.

    I tried ... CmdSetHeat(1,50)

    and I got a return from ... GetHeatSet(1) that is set to 50. However, if I look at the Trane thermostat, it is still set at 55.

    Any other great words of advise?

    Thanks,

    Alan

    Leave a comment:


  • Rupp
    replied
    So now you are on your way. Download the HomeSeer SDK from the updater and have a look at the calls that can be made using the Thermostat API. I'll edit a few of these posts out to clear up and confusion.

    Leave a comment:


  • Alan
    replied
    I added:
    Dim temp As Integer...

    2/8/2010 2:39:14 PM test 67
    2/8/2010 2:39:14 PM Event Running script in background: Thermotest6.vb

    Leave a comment:


  • Rupp
    replied
    Try this

    Code:
    Sub Main(parm as object) 
    Dim pi As Object 
    Dim temp as Double
    
    pi = hs.Plugin("ZWave Thermostats") 
    temp = pi.GetTemp(1) 
    
    hs.writelog("test", temp)
    End Sub
    Last edited by Rupp; February 8, 2010, 05:40 PM.

    Leave a comment:


  • Rupp
    replied
    This doesn't work? Saved as stat.vb in your scripts directory? What version of HS are you running?

    Code:
    Sub Main(parm as object) 
    Dim pi As Object 
    Dim setp,mode,temp As String 
    
    Try 
    pi = hs.Plugin("ZWave Thermostats") 
    temp = pi.GetTemp(2) 
    setp = pi.GetHeatSet(2) 
    If(pi.GetCurrentMode(2)=0) Then 
    mode="Off" 
    ElseIf (pi.GetCurrentMode(2)=1) Then 
    mode="Heat" 
    ElseIf(pi.GetCurrentMode(2)=2) Then 
    mode="Cool" 
    ElseIf(pi.GetCurrentMode(2)=3) Then 
    mode="Auto" 
    ElseIf(pi.GetCurrentMode(2)=4) Then 
    mode="Aux" 
    End If 
    
    hs.writeLog("debug","temp=[" & temp & "] setp=[" & setp & "] mode=[" & mode & "]") 
    
    Catch e As Exception 
    hs.WriteLog("debug", e.Message) 
    Finally 
    pi = Nothing 
    End Try 
    
    End Sub

    Leave a comment:


  • Rupp
    replied
    See this post for the correct use of the thermostat api.

    http://board.homeseer.com/showpost.p...21&postcount=6

    Leave a comment:


  • Alan
    started a topic ControlThermostat - THM Script Help

    ControlThermostat - THM Script Help

    I'm new to HomeSeer and scripting - so excuse me if my problem is obvious.

    I'm running HSPro rev: 2.4.0.6

    I've installed a Trane Zwave thermostat and am trying to figure out how to write a script to control it (and learn how to write scripts) based on various conditions.

    The following script only writes Time and "Status" in the log, the rest is blank and the thermostat setpoint does not change:

    Sub Main
    ' get the current temperature
    dim temp
    temp = hs.ControlThermostat("Q24","GetTemp",0)
    hs.WriteLog "Status", temp
    ' set the set point to 55 degrees
    hs.ControlThermostat "Q24","SetSetPoint",55
    End Sub

    In the status screen, the Thermostat is listed as Q24 and the child Temp value is Q25. I tried changing the first Q24 to Q25 and that didn't work either.

    Any help would be appreciated.

    Alan
Working...
X