Help with scripting

[brbjr]

What is the scripting command the set the cool setpoint?


hs.ControlThermostat("^12", "CmdSetCool", 84) does not work.

I get error in the log ControlThermostat cannot be used to control plugin-owned thermostat devices. This device is owned by: BeakerStat. Please use the Thermostat API to control this device via scripts.

I have searched all over and can not figure this out.

Thanks for you help.

Bruce

[spknapp]

Thermostat API

The thermostat API is documented here:http://board.homeseer.com/showthread.php?t=114698
It's also documented in the HomeSeer SDK:http://www.homeseer.com/support/home...lug-In_SDK.htm.

[brbjr]

Need Example

I have read that 10 times and still cant figure it out. Can someone please provide a example how to set a cool setpoint via script.

[Rupp]

See this post for a script example.
http://board.homeseer.com/showthread...ght=CmdSetCool

[brbjr]

Error

Dim pi As Object
Dim currentCoolSetPoint As Double
pi = hs.Plugin("BeakerStat")
currentCoolSetPoint = pi.getCoolSet(1, 1)
currentCoolSetPoint = currentCoolSetPoint + 1
pi.cmdSetCool(1, currentCoolSetPoint)

pi.getCoolSet(1, 1) works correctly

pi.cmdSetCool(1, currentCoolSetPoint) does not work.
Here is the error:
System.MissingMemberException: Overload resolution failed because no accessible 'cmdSetCool' accepts this number of arguments. at Microsoft.VisualBasic.CompilerServices.OverloadResolution.Re solveOverloadedCall(String MethodName, MemberInfo[] Members, Object[] Arguments, String[] ArgumentNames, Type[] TypeArguments, BindingFlags LookupFlags, Boolean ReportErrors, ResolutionFailure& Failure) at Microsoft.VisualBasic.CompilerServices.NewLateBinding.Resolv eCall(Container BaseReference, String MethodName, MemberInfo[] Members, Object[] Arguments, String[] ArgumentNames, Type[] TypeArguments, BindingFlags LookupFlags, Boolean ReportErrors, ResolutionFailure& Failure) at Microsoft.VisualBasic.CompilerServices.NewLateBinding.CallMe thod(Container BaseReference, String MethodName, Object[] Arguments, String[] ArgumentNames, Type[] TypeArguments, Boolean[] CopyBack, BindingFlags InvocationFlags, Boolean ReportErrors, ResolutionFailure& Failure) at Microsoft.VisualBasic.CompilerServices.NewLateBinding.LateCa ll(Object Instance, Type Type, String MemberName, Object[] Arguments, String[] ArgumentNames, Type[] TypeArguments, Boolean[] CopyBack, Boolean IgnoreReturn) at tenScripting.Test.Main(Object Parms) in Y:\Working code\tenScripting_1_4_2\tenScripting\BruceHome.vb:line 285

[brbjr]

[Rupp]

Good find. It appears this plugin didn't fully implement the tstat API.

[reidfo]

Good find. It appears this plugin didn't fully implement the tstat API.

I guess I'm a little confused as to what the problem is. The thermostat API shows that CmdSetCool takes 3 arguments, but the OP was passing two. I implemented according to the API docs. Are you guys saying the third parameter is really supposed to be optional?

[Rupp]

It appears you did it correctly. I was going off what the OP stated when they said:
"pi.getCoolSet(1, 1) works correctly"

3 parameters is correct.

[Guest]

BRBJR - thanks for working through this!

I have two momentary push buttons next to my wife's bed on her bedstand, and I want her to be able to press one button to increase the temperature by 1 degree, and press the other to reduce by 1 degree. Do you know how I'd modify this script to accomplish the desired effect? I know my momentary push buttons are good, and can trigger events in HS by pressing either of them. I have the 3M / Filtrete thermostat with BeakerStat. Works great. I appreciate your experience and advice!

Adam

Dim pi As Object
Dim currentCoolSetPoint As Double
pi = hs.Plugin("BeakerStat")
currentCoolSetPoint = pi.getCoolSet(1, 1)
currentCoolSetPoint = currentCoolSetPoint + 1 <- WOULDN"T THIS INCREASE TEMP BY 1 DEGREE?
pi.cmdSetCool(1, currentCoolSetPoint, 1)

[Rupp]

Yes, that should work.

[Guest]

Got it! Works great. I was a bonehead and have been doing everything as .txt. Saw in another post that this needed to be renamed to .vb, and after that... surprise. Rookie mistake.

So now I have two momentary pushbuttons, one red and one green on the side of my wife's nightstand (all wires concealed) that she can press to increase or decrease the 3M Wifi thermostat without getting out of bed. She'll appreciate that.

As a side note, I also have a 'naughty' mode, that plays the sad trombone sound if she presses the red button, or plays Barry White 'Let's Get it On' when she presses the green button. We'll see how long THAT lasts :-)

[Guest]

So this was working fine... but I've installed a second thermostat, both of which work great, but it doesn't seem to work any longer. Is there an argument in there that specifies which thermostat is being controlled?

Also, is the hs.speak property still allowed in .vb scripts? It seems to completely ignore the command.

Here's the code...

Sub Main(ByVal parms as Object)
Dim pi As Object
Dim currentCoolSetPoint As Double
pi = hs.Plugin("BeakerStat")
currentCoolSetPoint = pi.getCoolSet(1, 1)
currentCoolSetPoint = currentCoolSetPoint - 1
pi.cmdSetCool(1, currentCoolSetPoint, 1)
hs.Speak "Thermostat set to", True
hs.Speak (currentCoolSetPoint), True
hs.Speak "degrees", True
End Sub

Thanks!!
Adam

[Rupp]

Off the top of my head it's the first 1 in these lines:
currentCoolSetPoint = pi.getCoolSet(1, 1)
pi.cmdSetCool(1, currentCoolSetPoint, 1)

[mrhappy]

So this was working fine... but I've installed a second thermostat, both of which work great, but it doesn't seem to work any longer. Is there an argument in there that specifies which thermostat is being controlled?

Also, is the hs.speak property still allowed in .vb scripts? It seems to completely ignore the command.

Here's the code...

Sub Main(ByVal parms as Object)
Dim pi As Object
Dim currentCoolSetPoint As Double
pi = hs.Plugin("BeakerStat")
currentCoolSetPoint = pi.getCoolSet(1, 1)
currentCoolSetPoint = currentCoolSetPoint - 1
pi.cmdSetCool(1, currentCoolSetPoint, 1)
hs.Speak "Thermostat set to", True
hs.Speak (currentCoolSetPoint), True
hs.Speak "degrees", True
End Sub

Thanks!!
Adam

One of the differences between VBScript (.txt files) and VB.net scripts (.vb) is that some calls require surrounding parentheses. You can also join some parts of the script together so try something like this;

hs.speak("Thermostat set to " & currentCoolSetPoint & " degrees", True, "*:*")

Whilst the *:* which specifies the host is optional it can't hurt to include it.