Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Update omnistat to add celsius to setpoint #264

Merged
merged 1 commit into from
Oct 4, 2013
Merged

Update omnistat to add celsius to setpoint #264

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
191 changes: 105 additions & 86 deletions code/support/hai-omnistat/omnistat.pl
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -55,7 +55,16 @@

foreach my $omnistat (@omnilist)
{
my $temprange = join(",", (50..90));
my $temprange;
if( $config_parms{Omnistat_celcius} )
{
$temprange = join(",", (10..32));
}
else
{
$temprange = join(",", (50..90));
}

$stat_reset_timer[$omnistat] = new Timer();
# little trick to support an index if you have more than one stat, and no index otherwise
my $statidx = " ";
Expand Down Expand Up @@ -84,85 +93,95 @@
foreach my $omnistat (@omnilist)
{
if ($Reload or $Reread or $New_Day) {
# Talking to Omnistats can be a bit expensive for mh, due to the main loop hangs this can create, so we'll wait
# 60 seconds after the event to space things out from whatever else might be happening at those magic times
# (plus an offset for each omnistat id)
$stat_reset_timer[$omnistat]->set(60 + $omnistat*4);
# Talking to Omnistats can be a bit expensive for mh, due to the main loop hangs this can create, so we'll wait
# 60 seconds after the event to space things out from whatever else might be happening at those magic times
# (plus an offset for each omnistat id)
$stat_reset_timer[$omnistat]->set(60 + $omnistat*4);
}

if ($stat_reset_timer[$omnistat]->expired) {
Omnistat::omnistat_log("$omniname[$omnistat] Omnistat: Resetting time");
#$omnistat[$omnistat]->cooling_anticipator('10');
#$omnistat[$omnistat]->heating_anticipator('10');
#$omnistat[$omnistat]->cooling_cycle_time('8');
#$omnistat[$omnistat]->heating_cycle_time('8');
$omnistat[$omnistat]->set_time;
Omnistat::omnistat_log("$omniname[$omnistat] Omnistat: Resetting time");
#$omnistat[$omnistat]->cooling_anticipator('10');
#$omnistat[$omnistat]->heating_anticipator('10');
#$omnistat[$omnistat]->cooling_cycle_time('8');
#$omnistat[$omnistat]->heating_cycle_time('8');
$omnistat[$omnistat]->set_time;
}

# update data once a minute, per omnistat offset seconds.
if ($New_Second and $Second eq $omnioffset[$omnistat]) {
# we make the extended group1 call that also retreives the stat's output status
my ($cool_sp, $heat_sp, $mode, $fan, $hold, $temp, $output) = $omnistat[$omnistat]->read_group1("true");
my $stat_type = $omnistat[$omnistat]->get_stat_type;
# Remember the queried values in our own cache so that we don't query this from other places unless
# necessary (this is important in a multiple thermostat sharing the same cable situation
# where querying two stats in code later will cause collisions on the cable).
$omnicache{$omniname[$omnistat]}->{'cool_sp'} = $cool_sp;
$omnicache{$omniname[$omnistat]}->{'heat_sp'} = $heat_sp;
$omnicache{$omniname[$omnistat]}->{'mode'} = $mode;
$omnicache{$omniname[$omnistat]}->{'fan'} = $fan;
$omnicache{$omniname[$omnistat]}->{'hold'} = $hold;
$omnicache{$omniname[$omnistat]}->{'temp'} = $temp;
$omnicache{$omniname[$omnistat]}->{'output'} = $output;
$omnicache{$omniname[$omnistat]}->{'stat_type'} = $stat_type;

# This mashes $hold and $mode together from registers cached in the group1 call and outputs a combined string
$mode = $omnistat[$omnistat]->get_mode;

Omnistat::omnistat_log("".$omniname[$omnistat]." Omnistat $stat_type: Indoor temp is $temp, HVAC Command: $output, heat to $heat_sp, cool to $cool_sp, mode: $mode");

# only store the temperature from the first stat (which we'll assume is master)
$Weather{TempIndoor} = $temp if ($omnistat == $omnilist[0]);
# we make the extended group1 call that also retreives the stat's output status
my ($cool_sp, $heat_sp, $mode, $fan, $hold, $temp, $output) = $omnistat[$omnistat]->read_group1("true");
my $stat_type = $omnistat[$omnistat]->get_stat_type;
# Remember the queried values in our own cache so that we don't query this from other places unless
# necessary (this is important in a multiple thermostat sharing the same cable situation
# where querying two stats in code later will cause collisions on the cable).
$omnicache{$omniname[$omnistat]}->{'cool_sp'} = $cool_sp;
$omnicache{$omniname[$omnistat]}->{'heat_sp'} = $heat_sp;
$omnicache{$omniname[$omnistat]}->{'mode'} = $mode;
$omnicache{$omniname[$omnistat]}->{'fan'} = $fan;
$omnicache{$omniname[$omnistat]}->{'hold'} = $hold;
$omnicache{$omniname[$omnistat]}->{'temp'} = $temp;
$omnicache{$omniname[$omnistat]}->{'output'} = $output;
$omnicache{$omniname[$omnistat]}->{'stat_type'} = $stat_type;

# This mashes $hold and $mode together from registers cached in the group1 call and outputs a combined string
$mode = $omnistat[$omnistat]->get_mode;

Omnistat::omnistat_log("".$omniname[$omnistat]." Omnistat $stat_type: Indoor temp is $temp, HVAC Command: $output, heat to $heat_sp, cool to $cool_sp, mode: $mode");

# only store the temperature from the first stat (which we'll assume is master)
$Weather{TempIndoor} = $temp if ($omnistat == $omnilist[0]);

if( $omniname[$omnistat] )
{
my $tempname = "TempIndoor$omniname[$omnistat]";
$Weather{$tempname} = $temp;
}
}

if ($state = $v_omnistat_fan[$omnistat]->said) {
$omnistat[$omnistat]->fan($state);
$omnistat[$omnistat]->fan($state);
respond "$omniname[$omnistat] fan $state";
}

if ($state = $v_omnistat_resume[$omnistat]->said) {
$omnistat[$omnistat]->restore_setpoints;
$omnistat[$omnistat]->restore_setpoints;
respond "Restore $omniname[$omnistat] Omnistat";
}

if ($state = $v_omnistat_hold[$omnistat]->said) {
$omnistat[$omnistat]->hold($state);
$omnistat[$omnistat]->hold($state);
respond "$omniname[$omnistat] hold $state";
}

if ($state = $v_omnistat_mode[$omnistat]->said) {
$omnistat[$omnistat]->mode($state);
$omnistat[$omnistat]->mode($state);
respond "$omniname[$omnistat] mode $state";
}

if ($state = $v_omnistat_cool_sp[$omnistat]->said) {
$omnistat[$omnistat]->cool_setpoint($state);
speak "Air conditioning set to $state degrees for $omniname[$omnistat] Omnistat";
Omnistat::omnistat_log("$omniname[$omnistat] Omnistat: Air conditioning set to $state degrees", 2);
$omnistat[$omnistat]->cool_setpoint($state);
respond "Air conditioning set to $state degrees for $omniname[$omnistat] Omnistat";
Omnistat::omnistat_log("$omniname[$omnistat] Omnistat: Air conditioning set to $state degrees", 2);
}

if ($state = $v_omnistat_heat_sp[$omnistat]->said) {
$omnistat[$omnistat]->heat_setpoint($state);
speak "Heat set to $state degrees for $omniname[$omnistat] Omnistat";
Omnistat::omnistat_log("$omniname[$omnistat] Omnistat: Heat set to $state degrees", 2);
$omnistat[$omnistat]->heat_setpoint($state);
respond "Heat set to $state degrees for $omniname[$omnistat] Omnistat";
Omnistat::omnistat_log("$omniname[$omnistat] Omnistat: Heat set to $state degrees", 2);
}

if ($state = $v_omnistat_setting[$omnistat]->said) {
my ($heat,$cool);
$cool = $omnistat[$omnistat]->get_cool_sp;
$heat = $omnistat[$omnistat]->get_heat_sp;
speak "cool setpoint $cool, heat setpoint $heat";
Omnistat::omnistat_log("$omniname[$omnistat] Omnistat: cool setpoint $cool, heat setpoint $heat", 2);
my ($heat,$cool);
$cool = $omnistat[$omnistat]->get_cool_sp;
$heat = $omnistat[$omnistat]->get_heat_sp;
respond "cool setpoint $cool, heat setpoint $heat";
Omnistat::omnistat_log("$omniname[$omnistat] Omnistat: cool setpoint $cool, heat setpoint $heat", 2);
}

if ($state = $v_omnistat_background[$omnistat]->said) {
$omnistat[$omnistat]->set_background_color($state);
$omnistat[$omnistat]->set_background_color($state);
}

# Old code left over in case it's useful to some -- merlin
Expand All @@ -184,55 +203,55 @@
#}

if (time_now '7:45 PM') {
my $filter_days = $omnistat[$omnistat]->get_filter_reminder;
if ($filter_days == 0)
{
speak "Replace the furnace filter linked to $omniname[$omnistat] Omnistat";
print_log "$omniname[$omnistat] Omnistat: replace the filter";
Omnistat::omnistat_log("$omniname[$omnistat] Omnistat: replace the filter", 0);
# reset the timer to 6 months
$omnistat[$omnistat]->set_filter_reminder(180);
}
else
{
Omnistat::omnistat_log("$omniname[$omnistat] Omnistat: $filter_days days before filter replacement", 1);
}
my $filter_days = $omnistat[$omnistat]->get_filter_reminder;
if ($filter_days == 0)
{
speak "Replace the furnace filter linked to $omniname[$omnistat] Omnistat";
print_log "$omniname[$omnistat] Omnistat: replace the filter";
Omnistat::omnistat_log("$omniname[$omnistat] Omnistat: replace the filter", 0);
# reset the timer to 6 months
$omnistat[$omnistat]->set_filter_reminder(180);
}
else
{
Omnistat::omnistat_log("$omniname[$omnistat] Omnistat: $filter_days days before filter replacement", 1);
}
}

# set stat temperature every 5 minutes at an offset to reduce hangs
if ($Minute % 5 == 0 and $New_Second and $Second eq ($omnioffset[$omnistat]+5))
{
# Set the outside temp on the thermostat if available (refreshing this value should cause the
# stat to display the outside temperature on the display).
if ($Weather{TempOutdoor}) {
Omnistat::omnistat_log("$omniname[$omnistat] Omnistat: Setting outside temperature to $Weather{TempOutdoor}", 2);
$omnistat[$omnistat]->outdoor_temp($Weather{TempOutdoor});
}

if ($omnistat[$omnistat]->is_omnistat2 and defined ($Weather{TempOutdoor}))
{
# Change the backlight based on outside temp
my $background_color;

if ($Weather{TempOutdoor} >= 95) { $background_color = "Red"; }
elsif ($Weather{TempOutdoor} >= 85) { $background_color = "Yello"; }
elsif ($Weather{TempOutdoor} >= 65) { $background_color = "Green"; }
elsif ($Weather{TempOutdoor} >= 55) { $background_color = "Purple"; }
elsif ($Weather{TempOutdoor} < 55) { $background_color = "Blue"; }
else { $background_color = "Orange"; }

Omnistat::omnistat_log("$omniname[$omnistat] Omnistat: Setting background color to $background_color", 2);
$omnistat[$omnistat]->set_background_color($state);
}
# Set the outside temp on the thermostat if available (refreshing this value should cause the
# stat to display the outside temperature on the display).
if ($Weather{TempOutdoor}) {
Omnistat::omnistat_log("$omniname[$omnistat] Omnistat: Setting outside temperature to $Weather{TempOutdoor}", 2);
$omnistat[$omnistat]->outdoor_temp($Weather{TempOutdoor});
}

if ($omnistat[$omnistat]->is_omnistat2 and defined ($Weather{TempOutdoor}))
{
# Change the backlight based on outside temp
my $background_color;

if ($Weather{TempOutdoor} >= 95) { $background_color = "Red"; }
elsif ($Weather{TempOutdoor} >= 85) { $background_color = "Yello"; }
elsif ($Weather{TempOutdoor} >= 65) { $background_color = "Green"; }
elsif ($Weather{TempOutdoor} >= 55) { $background_color = "Purple"; }
elsif ($Weather{TempOutdoor} < 55) { $background_color = "Blue"; }
else { $background_color = "Orange"; }

Omnistat::omnistat_log("$omniname[$omnistat] Omnistat: Setting background color to $background_color", 2);
$omnistat[$omnistat]->set_background_color($state);
}
}

# WARNING: Reading state_now here empties the 'state_now' flag. If you need it elsewhere, that won't work.
# For debugging, Omnistat.pl will also output state changes like so:
# 25/11/2011 23:30:37 Omnistat[2]->read_reg: set state->now to temp_change

# If you plan on using state_now elsewhere in your code, you should leave this commented this out:
# if ($state = $omnistat[$omnistat]->state_now) {
# Omnistat::omnistat_log("".$omniname[$omnistat]." Omnistat State set to: $state", 3);
# Omnistat::omnistat_log("".$omniname[$omnistat]." Omnistat State set to: $state", 3);
# }
}

Expand Down