I'm trying to write a couple of scripts that will increase or decrease my RC80 thermostat by one degree for each B12 on or B12 off sent from a palmpad and then announce the setpoint change.
In doing research I found the hs.controlthermostat function. I wrote a simple script to test it:
sub main()
dim temp
temp = hs.ControlThermostat ("t1","GetSetPoint",0)
msgbox temp
end sub
but whenever I do the test the following error appears in the log:
Script error in file: rc80.thm: 13:Type mismatch: 'byt' in line 399
So I go to line 399 and it says:
SendChar = hs.SendToComPort(Port,chr(byt))
What am I missing???
In doing research I found the hs.controlthermostat function. I wrote a simple script to test it:
sub main()
dim temp
temp = hs.ControlThermostat ("t1","GetSetPoint",0)
msgbox temp
end sub
but whenever I do the test the following error appears in the log:
Script error in file: rc80.thm: 13:Type mismatch: 'byt' in line 399
So I go to line 399 and it says:
SendChar = hs.SendToComPort(Port,chr(byt))
What am I missing???
Comment