Difference between revisions of "Radio Thermostat"

1. 192 on:
   

data+="3}" # Auto
log("tmode set data: " + data)
tstat_set(data)

1. 279 set fan:
   

data = "{\"fmode\":"
if onoff == "1"
data+="2}" # Fan is always on
else
data+="0}" # Auto
end

log("fmode set data: " + data)
tstat_set(data)

1. 280 set heat/cool:
   

data = "{\"tmode\":"
if onoff == "H"
data+="1" # Heat only
elsif onoff == "C"
data+="2" # Cool only
else
data+="3" # Auto
end

data+="}"

log("tmode set data: " + data)

tstat_set(data)

1. 278 set temperature:
   

if ((value_to_assign[0,1]=="+") || (value_to_assign[0,1]=="-"))
# The new setpoint is relative to the current setpoint
new_temp = celcius_to_farhenheit(Float(@setpoint)).round + value_to_assign.to_i
else
# The new setpoint is absolute
new_temp = celcius_to_farhenheit(Float(value_to_assign.to_i)).round
end

# to set the temp, we must know the mode
case $tstathash["tmode"].to_s
when "1"
data = "{\"t_heat\":" + new_temp.to_s + "}"
when "2"
data = "{\"t_cool\":" + new_temp.to_s + "}"
end
log("Set temp data: " + data)
tstat_set(data)

1. 373 Private method listing:
   

# Helper function for logging
def log(word)
$logFile.print(word + "\n")
$logFile.flush()
end

def get()

# Reconnect to the device
conn_.Reconnect()

# Send the request
s = "GET /tstat HTTP/1.1\r\n"
s += "\r\n"
conn_.Send(s)

# Wait for a reply
recv = ""
while(true)
buff=conn_.Recv(256, 5000)
if(buff.length() == 0)
break
end
recv = recv + buff
end

# Check that we got a response and try to parse through it
if (recv=~ /^HTTP[^\r\n]+200\sOK.+?\r\n\r\n(.+)$/m)
#parse temp
$tstathash["temp"] = recv.to_s.scan(/\{\"temp\"Sad.*?),/)

#parse tmode
$tstathash["tmode"] = recv.to_s.scan(/\"tmode\"Sad.*?),/)

#parse fmode
$tstathash["fmode"] = recv.to_s.scan(/\"fmode\"Sad.*?),/)

#parse override
$tstathash["override"] = recv.to_s.scan(/\"override\"Sad.*?),/)

#parse hold
$tstathash["hold"] = recv.to_s.scan(/\"hold\"Sad.*?),/)

#parse t_heat
$tstathash["t_heat"] = recv.to_s.scan(/\"t_heat\"Sad.*?),/)

#parse t_cool
$tstathash["t_cool"] = recv.to_s.scan(/\"t_cool\"Sad.*?),/)

#parse time
$tstathash["day"] = recv.to_s.scan(/\"day\"Sad.*?),/)
$tstathash["hour"] = recv.to_s.scan(/\"hour\"Sad.*?),/)
$tstathash["minute"] = recv.to_s.scan(/\"minute\"Sad.*?)\}/)

case $tstathash["tmode"].to_s
when "1"
$tstathash["setpoint"] = recv.to_s.scan(/\"t_heat\"Sad.*?),/)
when "2"
$tstathash["setpoint"] = recv.to_s.scan(/\"t_cool\"Sad.*?),/)
when "3"
$tstathash["setpoint"] = 32.0 #no setpoint for auto ??
else
log("Error getting setpoint! mode:" + $tstathash["tmode"].to_s + " 0 is OFF")
end
end
end

def tstat_set(data, update=true)
# Reconnect to the device

conn_.Reconnect()

s = "POST /tstat HTTP/1.1\r\n"
s += "Content-type: application/x-www-form-urlencoded\r\n"
s += "Content-Length: " + (data.length).to_s() + "\r\n"
s += "\r\n"
s += data
s += "\r\n"

conn_.Send(s)
log("Update: " + data)
# Wait for a reply
recv = ""
while(true)
buff=conn_.Recv(256, 5000)
if(buff.length() == 0)
break
end
recv = recv + buff
end
log(recv.to_s)
# Update the state to reflect the new situation
if (update)
update_state()


end

end

def update_state()
# This function queries the thermostat to get the most recent state

log("Polling thermostat for updates at: " + Time.now.to_s)
get()

# Get the new states
new_tmode = $tstathash["tmode"] # 0-Off, 1-Heat, 2-Cool, 3-Auto
#if ($tstathash["fmode"] == 2)
# Always on
#new_fmode = 2 # On
#else
# Auto/Schedule
#new_fmode = 1 # Auto
#end
new_fmode = $tstathash["fmode"]
new_setpoint = farhenheit_to_celcius(Float($tstathash["setpoint"].to_s))

new_temp = farhenheit_to_celcius(Float($tstathash["temp"].to_s))
#new_time = Time.at(results[4].to_i - Time.now.utc_offset) # Time.at creates a UTC time, wheras the thermostat reports the time in the local time zone

# Update the state and send events when necessary
if (new_tmode != @tmode)
log(" New mode detected : " + new_tmode.to_s)
if (@tmode == 0)
# The old mode was "Off", so now the thermostat is on
cmd = Command.new(device_.devid_, -1001, 1, 2, 28) # On
SendCommand(cmd)
end
if (new_tmode == 0)
# The new mode is "Off", so we send the Off event:
cmd = Command.new(device_.devid_, -1001, 1, 2, 29) # Off
SendCommand(cmd)
else
# We send the Thermostat mode changed event:
cmd = Command.new(device_.devid_, -1001, 1, 2, 78)
cmd.params_[30] = new_tmode.to_s #(new_tmode - 1).to_s
SendCommand(cmd)
end
@tmode = new_tmode
end

if (new_fmode != @fmode)
@fmode = new_fmode
log(" New fan mode detected : " + new_fmode.to_s)
cmd = Command.new(device_.devid_, -1001, 1, 2, 79) # Fan Mode Changed
cmd.params_[30] = new_fmode.to_s # Fan mode value
SendCommand(cmd)
end

if (new_setpoint != @setpoint)
@setpoint = new_setpoint
log(" New temperature setpoint detected : " + new_setpoint.to_s)
cmd = Command.new(device_.devid_, -1001, 1, 2, 27) # Thermostat Set Point Chan
cmd.params_[30] = new_setpoint.to_s # The new set point
SendCommand(cmd)
end

if (new_temp != @temp)
@temp = new_temp
log(" New temperature measurement detected : " + new_temp.to_s)
cmd = Command.new(device_.devid_, -1001, 1, 2, 25) # Temperature changed event
cmd.params_[30] = new_temp.to_s # The ambient temperature
SendCommand(cmd)
end

# Check the latest system time
#@time = new_time
#if ((@time-Time.now).abs > 600)
# Time is out of sync for more than 10 minutes
#log("Thermostat's time ("+@time.to_s+") is out of sync with system time ("+Time.now.to_s+"), resynchronizing")
#data="OID2.5.1=" # Current system time in seconds since Jan 1, 1970
#data+=(Time.now + Time.now.utc_offset).to_i.to_s # Time.to_i returns seconds since epoch in UTC, wheras the thermostat expects the time in seconds since epoch in the local time zone
#pdp_set(data, false)
#end

# Record the last time the state was checked
@last_check = Time.now
end

def farhenheit_to_celcius(cf)
# Converts a temperatue in deci-Farhenheit into deci-degrees Celcius
power = 10.00
return ((((cf - 32.0)*5.0)/9.0) * power).round / power
end

def celcius_to_farhenheit(c)
# Converts a temperatue in degrees Celcius into deci-Farhenheit
power = 10.00
return ((((c*9.0)/5.0)+32.0) * power).round / power
end

1. 351 process idle:
   

# Check how long it has been since we queried the thermostat
now = Time.now
if ((@last_check + 300) < now)
# The last check was more than 5 minutes ago
update_state()
end

1. 350 process incoming data:
   

conn_.Close()

1. 355 process init:
   

# Create Log File
$logFile = File.new("/var/log/pluto/RadioThermostatWiFi.log", "w")
log("Starting RadioThermostatWiFi" + "\n")

@tmode = 0
@fmode = 0
@temp = 0.0
@setpoint = 0.0

# Define Hashes to store our data
$tstathash = Hash.new
$tstathash["hour"] = 0
$tstathash["minute"] = 0
$tstathash["day"] = 0
$tstathash["temp"] = 0.00
$tstathash["setpoint"] = 0.00
$tstathash["tmode"] = 0
$tstathash["fmode"] = 0
$tstathash["override"] = 0
$tstathash["hold"] = 0
$tstathash["t_heat"] = 0.00
$tstathash["t_cool"] = 0.00
$tstathash["tstate"] = 0
$tstathash["fstate"] = 0
$tstathash["t_type_post"] = 0


# Update the state
get()
@tmode = $tstathash["tmode"]
@fmode = $tstathash["fmode"]
@temp = $tstathash["temp"]
@setpoint = $tstathash["setpoint"]
@last_check = Time.now
update_state()

1. 356 process release: