mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-05-04 22:19:38 +00:00
c28515b9ea
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@2868 2b470e98-0d58-463d-a4d8-8e2adae1ed80
537 lines
19 KiB
Perl
537 lines
19 KiB
Perl
|
|
# $Id$
|
|
##############################################################################
|
|
#
|
|
# 98_Heating_Control.pm
|
|
# written by Dietmar Ortmann
|
|
# modified by Tobias Faust
|
|
#
|
|
# This file is part of fhem.
|
|
#
|
|
# Fhem is free software: you can redistribute it and/or modify
|
|
# it under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation, either version 2 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
# Fhem is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with fhem. If not, see <http://www.gnu.org/licenses/>.
|
|
#
|
|
##############################################################################
|
|
|
|
package main;
|
|
use strict;
|
|
use warnings;
|
|
use POSIX;
|
|
|
|
sub Heating_Control_Update($);
|
|
|
|
#####################################
|
|
sub
|
|
Heating_Control_Initialize($)
|
|
{
|
|
my ($hash) = @_;
|
|
|
|
# Consumer
|
|
$hash->{DefFn} = "Heating_Control_Define";
|
|
$hash->{UndefFn} = "Heating_Control_Undef";
|
|
$hash->{GetFn} = "Heating_Control_Get";
|
|
$hash->{AttrList}= "disable:0,1 loglevel:0,1,2,3,4,5 ".
|
|
$readingFnAttributes;
|
|
}
|
|
|
|
sub
|
|
Heating_Control_Get($@)
|
|
{
|
|
my ($hash, @a) = @_;
|
|
return "argument is missing" if(int(@a) != 2);
|
|
|
|
$hash->{LOCAL} = 1;
|
|
#Heating_Control_GetUpdate($hash);
|
|
delete $hash->{LOCAL};
|
|
my $reading= $a[1];
|
|
my $value;
|
|
|
|
if(defined($hash->{READINGS}{$reading})) {
|
|
$value= $hash->{READINGS}{$reading}{VAL};
|
|
} else {
|
|
return "no such reading: $reading";
|
|
}
|
|
return "$a[0] $reading => $value";
|
|
}
|
|
|
|
|
|
sub
|
|
Heating_Control_Define($$)
|
|
{
|
|
my ($hash, $def) = @_;
|
|
|
|
RemoveInternalTimer($hash);
|
|
my @a = split("[ \t]+", $def);
|
|
|
|
return "Usage: define <name> Heating_Control <device> <switching times> <condition|command>"
|
|
if(@a < 4);
|
|
|
|
my $name = shift @a;
|
|
my $type = shift @a;
|
|
my $device = shift @a;
|
|
my @switchingtimes;
|
|
my $conditionOrCommand = "";
|
|
|
|
my @Wochentage_de = ("Montag","Dienstag","Mittwoch", "Donnerstag","Freitag","Samstag", "Sonntag");
|
|
my @Wochentage_en = ("Monday","Tuesday", "Wednesday","Thursday", "Friday", "Saturday","Sunday");
|
|
|
|
return "invalid Device, given Device <$device> not found" if(!$defs{$device});
|
|
|
|
#Altlasten bereinigen
|
|
delete($hash->{helper}{CONDITION}) if($hash->{helper}{CONDITION});
|
|
delete($hash->{helper}{COMMAND}) if($hash->{helper}{COMMAND});
|
|
delete($hash->{helper}{SWITCHINGTIMES}) if($hash->{helper}{SWITCHINGTIMES});
|
|
delete($hash->{helper}{SWITCHINGTIME}) if($hash->{helper}{SWITCHINGTIME});
|
|
for (my $w=0; $w<@Wochentage_de; $w++) {
|
|
delete($hash->{"PROFILE ".($w+1).": ".$Wochentage_de[$w]}) if($hash->{"PROFILE ".($w+1).": ".$Wochentage_de[$w]});
|
|
delete($hash->{"PROFILE ".($w+1).": ".$Wochentage_en[$w]}) if($hash->{"PROFILE ".($w+1).": ".$Wochentage_en[$w]});
|
|
}
|
|
|
|
for(my $i=0; $i<@a; $i++) {
|
|
#pruefen auf Angabe eines Schaltpunktes
|
|
my @t = split(/\|/, $a[$i]);
|
|
my $anzahl = @t;
|
|
if ( $anzahl >= 2 && $anzahl <= 3) {
|
|
push(@switchingtimes, $a[$i]);
|
|
} else {
|
|
#der Rest ist das auzufuehrende Kommando/condition
|
|
$conditionOrCommand = trim(join(" ", @a[$i..@a-1]));
|
|
last;
|
|
}
|
|
}
|
|
|
|
$hash->{NAME} = $name;
|
|
$hash->{DEVICE} = $device;
|
|
$hash->{helper}{SWITCHINGTIMES} = join(" ", @switchingtimes);
|
|
if($conditionOrCommand =~ m/^\(.*\)$/g) { #condition (*)
|
|
$hash->{helper}{CONDITION} = $conditionOrCommand;
|
|
} elsif(length($conditionOrCommand) > 0 ) {
|
|
$hash->{helper}{COMMAND} = $conditionOrCommand;
|
|
}
|
|
|
|
my $daysRegExp = "(mo|di|mi|do|fr|sa|so|tu|we|th|su)";
|
|
my $daysRegExp_en = "(tu|we|th|su)";
|
|
|
|
my %dayNumber=();
|
|
my $idx = 1;
|
|
foreach my $day ("mo","di","mi","do","fr","sa","so") {
|
|
$dayNumber{$day} = $idx; $idx++;
|
|
}
|
|
$idx = 1;
|
|
foreach my $day ("mo","tu","we","th","fr","sa","su") {
|
|
$dayNumber{$day} = $idx; $idx++;
|
|
}
|
|
|
|
my (@st, @days, $daylist, $time, $para, $englisch);
|
|
for(my $i=0; $i<@switchingtimes; $i++) {
|
|
|
|
@st = split(/\|/, $switchingtimes[$i]);
|
|
if ( @st == 2) {
|
|
$daylist = "1234567"; #jeden Tag/woche ist vordefiniert
|
|
$time = $st[0];
|
|
$para = $st[1];
|
|
} elsif ( @st == 3) {
|
|
$daylist = lc($st[0]);
|
|
$time = $st[1];
|
|
$para = $st[2];
|
|
}
|
|
|
|
my %hdays=();
|
|
|
|
#Aufzaehlung 1234 ...
|
|
if ( $daylist =~ m/^(\d){0,7}$/g) {
|
|
|
|
@days = split("", $daylist);
|
|
@hdays{@days}=1;
|
|
|
|
# Aufzaehlung Sa,So,... | Mo-Di,Do,Fr-Mo
|
|
} elsif ($daylist =~ m/^($daysRegExp(,|-|$)){0,7}$/g ) {
|
|
|
|
my $oldDay = "", my $oldDel = "";
|
|
for (;length($daylist);) {
|
|
my $day = substr($daylist,0,2,"");
|
|
my $del = substr($daylist,0,1,"");
|
|
$englisch = ($day =~ m/^($daysRegExp_en)$/g);
|
|
my @subDays;
|
|
if ($oldDel eq "-" ){
|
|
# von bis Angabe: Mo-Di
|
|
my $low = $dayNumber{$oldDay};
|
|
my $high = $dayNumber{$day};
|
|
if ($low <= $high) {
|
|
@subDays = ($low .. $high);
|
|
} else {
|
|
@subDays = (1 .. $high, $low .. 7);
|
|
}
|
|
@hdays{@subDays}=1;
|
|
} else {
|
|
#einzelner Tag: Sa
|
|
$hdays{$dayNumber{$day}} = 1;
|
|
}
|
|
$oldDay = $day;
|
|
$oldDel = $del;
|
|
}
|
|
} else{
|
|
return "invalid daylist in $name <$daylist> 123... | Sa,So,... | Mo-Di,Do,Fr-Mo | Su-Th,We"
|
|
}
|
|
|
|
@days = sort(SortNumber keys %hdays);
|
|
|
|
return "invalid time in $name <$time> HH:MM"
|
|
if(!($time =~ m/^[0-2][0-9]:[0-5][0-9]$/g));
|
|
#return "invalid temperature in $name <$para> 99.9"
|
|
# if(!($para =~ m/^\d{1,2}(\.\d){0,1}$/g));
|
|
|
|
for (my $d=0; $d<@days; $d++) {
|
|
#Log 3, "Switchingtime: $switchingtimes[$i] : $days[$d] -> $time -> $para ";
|
|
$hash->{helper}{SWITCHINGTIME}{$days[$d]}{$time} = $para;
|
|
}
|
|
}
|
|
|
|
#desired-temp des Zieldevices auswaehlen
|
|
if($defs{$device}{TYPE} eq "MAX") {
|
|
$hash->{helper}{DESIRED_TEMP_READING} = "desiredTemperature"
|
|
} else {
|
|
$hash->{helper}{DESIRED_TEMP_READING} = "desired-temp";
|
|
}
|
|
|
|
$hash->{helper}{UNIT} = "°C";
|
|
my $unit = $hash->{helper}{UNIT};
|
|
|
|
my $rWochentage;
|
|
if ($englisch) {
|
|
$rWochentage = \@Wochentage_en;
|
|
} else {
|
|
$rWochentage = \@Wochentage_de;
|
|
}
|
|
|
|
# Profile sortiert aufbauen
|
|
for (my $d=1; $d<=7; $d++) {
|
|
foreach my $st (sort (keys %{ $hash->{helper}{SWITCHINGTIME}{$d} })) {
|
|
my $para = $hash->{helper}{SWITCHINGTIME}{$d}{$st};
|
|
$hash->{"PROFILE ".($d).": ".$$rWochentage[$d-1]} .= sprintf("%s %s, ", $st, $para);
|
|
}
|
|
}
|
|
|
|
my $now = time();
|
|
InternalTimer ($now+30, "Heating_Control_Update", $hash, 0);
|
|
|
|
readingsBeginUpdate ($hash);
|
|
readingsBulkUpdate ($hash, "nextUpdate", strftime("Heute, %H:%M:%S",localtime($now+30)));
|
|
readingsBulkUpdate ($hash, "nextValue", "???");
|
|
readingsBulkUpdate ($hash, "state", "waiting...");
|
|
readingsEndUpdate ($hash, defined($hash->{LOCAL} ? 0 : 1));
|
|
|
|
return undef;
|
|
}
|
|
|
|
sub
|
|
Heating_Control_Undef($$)
|
|
{
|
|
my ($hash, $arg) = @_;
|
|
|
|
RemoveInternalTimer($hash);
|
|
return undef;
|
|
}
|
|
|
|
sub
|
|
Heating_Control_Update($)
|
|
{
|
|
my ($hash) = @_;
|
|
my $now = time() + 5; # garantiert > als die eingestellte Schlatzeit
|
|
my $next = 0;
|
|
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($now);
|
|
|
|
my $AktDesiredTemp = ReadingsVal($hash->{DEVICE}, $hash->{helper}{DESIRED_TEMP_READING}, 0);
|
|
my $newDesTemperature = $AktDesiredTemp; #default#
|
|
my $nextDesTemperature = 0;
|
|
my $nextSwitch = 0;
|
|
my $nowSwitch = 0;
|
|
|
|
my $loglevel = GetLogLevel ($hash->{NAME}, 5);
|
|
# $loglevel = 3;
|
|
|
|
$wday=7 if($wday==0);
|
|
my @days = ($wday..7, 1..$wday);
|
|
|
|
Log $loglevel, "Begin##################>$hash->{NAME}";
|
|
Log $loglevel, "wday------------>$wday";
|
|
|
|
for (my $d=0; $d<@days; $d++) {
|
|
Log $loglevel, "d------------>$d--->nextSwitch:$nextSwitch";
|
|
#ueber jeden Tag
|
|
last if ($nextSwitch > 0);
|
|
Log $loglevel, "days[$d]------------>$days[$d]";
|
|
foreach my $st (sort (keys %{ $hash->{helper}{SWITCHINGTIME}{$days[$d]} })) {
|
|
Log $loglevel, "st------------>$st";
|
|
# Tagediff + Sekunden des Tages addieren
|
|
my $secondsToSwitch = $d*24*3600 +
|
|
3600*(int(substr($st,0,2)) - $hour) +
|
|
60*(int(substr($st,3,2)) - $min ) - $sec;
|
|
Log $loglevel, "secondsToSwitch------------>$secondsToSwitch";
|
|
Log $loglevel, "wday-days[d]----------->$wday $days[$d]";
|
|
|
|
$next = $now+$secondsToSwitch;
|
|
|
|
Log $loglevel, "Jetzt:".strftime('%d.%m.%Y %H:%M:%S',localtime($now))." -> Next: ".strftime('%d.%m.%Y %H:%M:%S',localtime($next))." -> Temp: $hash->{helper}{SWITCHINGTIME}{$days[$d]}{$st}";
|
|
if ($now >= $next) {
|
|
$newDesTemperature = $hash->{helper}{SWITCHINGTIME}{$days[$d]}{$st};
|
|
Log $loglevel, "newDestemperature------------>$newDesTemperature";
|
|
$nowSwitch = $now;
|
|
Log $loglevel, "nowSwitch------------>$nowSwitch--->" .strftime('%d.%m.%Y %H:%M:%S',localtime($nowSwitch));
|
|
} else {
|
|
$nextSwitch = $next;
|
|
Log $loglevel, "nextSwitch------------>$nextSwitch--->".strftime('%d.%m.%Y %H:%M:%S',localtime($nextSwitch));
|
|
$nextDesTemperature = $hash->{helper}{SWITCHINGTIME}{$days[$d]}{$st};
|
|
last;
|
|
}
|
|
}
|
|
}
|
|
|
|
if ($nextSwitch eq "") {
|
|
$nextSwitch = $now + 3600;
|
|
}
|
|
|
|
my $name = $hash->{NAME};
|
|
my $unit = $hash->{helper}{UNIT};
|
|
my $command;
|
|
|
|
Log $loglevel, "NowSwitch: ".strftime('%d.%m.%Y %H:%M:%S',localtime($nowSwitch))." ; AktDesiredTemp: $AktDesiredTemp ; newDesTemperature: $newDesTemperature";
|
|
Log $loglevel, "NextSwitch=".strftime('%d.%m.%Y %H:%M:%S',localtime($nextSwitch));
|
|
|
|
if ($nowSwitch gt "" && $AktDesiredTemp ne $newDesTemperature) {
|
|
if (defined $hash->{helper}{CONDITION}) {
|
|
$command = '{ fhem("set @ '.$hash->{helper}{DESIRED_TEMP_READING}.' %") if' . $hash->{helper}{CONDITION} . '}';
|
|
} elsif (defined $hash->{helper}{COMMAND}) {
|
|
$command = $hash->{helper}{COMMAND};
|
|
} else {
|
|
$command = '{ fhem("set @ '.$hash->{helper}{DESIRED_TEMP_READING}.' %") }';
|
|
}
|
|
}
|
|
|
|
if ($command && AttrVal($hash->{NAME}, "disable", 0) == 0) {
|
|
$command =~ s/@/$hash->{DEVICE}/g;
|
|
$command =~ s/%/$newDesTemperature/g;
|
|
$command = SemicolonEscape($command);
|
|
Log $loglevel, "command-$hash->{NAME}----------->$command";
|
|
my $ret = AnalyzeCommandChain(undef, $command);
|
|
Log GetLogLevel($name,3), $ret if($ret);
|
|
}
|
|
|
|
InternalTimer($nextSwitch, "Heating_Control_Update", $hash, 0);
|
|
readingsBeginUpdate($hash);
|
|
readingsBulkUpdate ($hash, "nextUpdate", strftime("%d.%m.%Y %H:%M:%S",localtime($nextSwitch)));
|
|
readingsBulkUpdate ($hash, "nextValue", $nextDesTemperature);
|
|
readingsBulkUpdate ($hash, "state", $newDesTemperature);
|
|
readingsEndUpdate ($hash, defined($hash->{LOCAL} ? 0 : 1));
|
|
|
|
return 1;
|
|
}
|
|
|
|
sub SortNumber {
|
|
if($a < $b)
|
|
{ return -1; }
|
|
elsif($a == $b)
|
|
{ return 0; }
|
|
else
|
|
{ return 1; }
|
|
}
|
|
|
|
1;
|
|
|
|
=pod
|
|
=begin html
|
|
|
|
<a name="Heating_Control"></a>
|
|
<meta content="text/html; charset=ISO-8859-1" http-equiv="content-type">
|
|
<h3>Heating Control</h3>
|
|
<ul>
|
|
<br>
|
|
<a name="Heating_Controldefine"></a>
|
|
<b>Define</b>
|
|
<ul>
|
|
<code>define <name> Heating_Control <device> <profile> <command>|<condition></code>
|
|
<br><br>
|
|
|
|
to set a weekly profile for <device>, eg. a heating sink.<br>
|
|
You can define different switchingtimes for every day.<br>
|
|
|
|
The new temperature is sent to the <device> automatically with <br><br>
|
|
|
|
<code>set <device> (desired-temp|desiredTemerature) <temp></code><br><br>
|
|
|
|
Because of the fhem-type of structures, a structures of heating sinks is sent "desired-temp":
|
|
Use an explicit command if you have structures of MAX heating thermostats.<br>
|
|
If you have defined a <condition> and this condition is false if the switchingtime has reached, no command will executed.<br>
|
|
A other case is to define an own perl command with <command>.
|
|
<p>
|
|
The following parameter are defined:
|
|
<ul><b>device</b><br>
|
|
The device to switch at the given time.
|
|
</ul>
|
|
<p>
|
|
<ul><b>profile</b><br>
|
|
Define the weekly profile. All timings are separated by space. One switchingtime are defined
|
|
by the following example: <br>
|
|
<ul><b>[<weekdays>|]<time>|<parameter></b></ul><br>
|
|
<u>weekdays:</u> optional, if not set every day is using.<br>
|
|
Otherwise you can define one day as number or as shortname.<br>
|
|
<u>time:</u>define the time to switch, format: HH:MM(HH in 24 hour format)<br>
|
|
<u>parameter:</u>the temperature to be set, using a float with mask 99.9 or a sybolic value like <b>eco</b> or <b>comfort</b> - whatever your thermostat understands<br>
|
|
</ul>
|
|
<p>
|
|
<ul><b>command</b><br>
|
|
If no condition is set, all others is interpreted as command. Perl-code is setting up
|
|
by well-known Block with {}.<br>
|
|
Note: if a command is defined only this command are executed. In case of executing
|
|
a "set desired-temp" command, you must define it explicit.<br>
|
|
The following parameter are replaced:<br>
|
|
<ol>
|
|
<li>@ => the device to switch</li>
|
|
<li>% => the new temperature</li>
|
|
</ol>
|
|
</ul>
|
|
<p>
|
|
<ul><b>condition</b><br>
|
|
if a condition is defined you must declared this with () and a valid perl-code.<br>
|
|
The returnvalue must be boolean.<br>
|
|
The parameter @ and % will be interpreted.
|
|
</ul>
|
|
<p>
|
|
<b>Example:</b>
|
|
<ul>
|
|
<code>define HCB Heating_Control Bad_Heizung 12345|05:20|21 12345|05:25|comfort 17:20|21 17:25|eco</code><br>
|
|
Mo-Fr are setting the temperature at 05:20 to 21°C, and at 05:25 to <b>comfort</b>.
|
|
Every day will be set the temperature at 17:20 to 21°C and 17:25 to <b>eco</b>.<p>
|
|
|
|
<code>define HCW Heating_Control WZ_Heizung 07:00|16 Mo,Tu,Th-Fr|16:00|18.5 20:00|12
|
|
{fhem("set dummy on"); fhem("set @ desired-temp %");}</code><br>
|
|
At the given times and weekdays only(!) the command will be executed.<p>
|
|
|
|
<code>define HCW Heating_Control WZ_Heizung Sa-Su,We|08:00|21 (ReadingsVal("WeAreThere", "state", "no") eq "yes")</code><br>
|
|
The temperature is only set if the dummy variable WeAreThere is "yes".<p>
|
|
</ul>
|
|
</ul>
|
|
|
|
<a name="Heating_Controlset"></a>
|
|
<b>Set</b> <ul>N/A</ul><br>
|
|
|
|
<a name="Heating_Controlget"></a>
|
|
<b>Get</b> <ul>N/A</ul><br>
|
|
|
|
<a name="Heating_ControlLogattr"></a>
|
|
<b>Attributes</b>
|
|
<ul>
|
|
<li><a href="#disable">disable</a></li>
|
|
<li><a href="#loglevel">loglevel</a></li>
|
|
<li><a href="#event-on-update-reading">event-on-update-reading</a></li>
|
|
<li><a href="#event-on-change-reading">event-on-change-reading</a></li>
|
|
<li><a href="#stateFormat">stateFormat</a></li>
|
|
</ul><br>
|
|
</ul>
|
|
|
|
=end html
|
|
=begin html_DE
|
|
|
|
<a name="Heating_Control"></a>
|
|
<meta content="text/html; charset=ISO-8859-1" http-equiv="content-type">
|
|
<h3>Heating Control</h3>
|
|
<ul>
|
|
<br>
|
|
<a name="Heating_Controldefine"></a>
|
|
<b>Define</b>
|
|
<ul>
|
|
<code>define <name> Heating_Control <device> <profile> <command>|<condition></code>
|
|
<br><br>
|
|
|
|
Bildet ein Wochenprofil für ein <device>, zb. Heizkörper, ab.<br>
|
|
Es können für jeden Tag unterschiedliche Schaltzeiten angegeben werden.<br>
|
|
Ist das <device> ein Heizkörperthermostat (zb. FHT8b, MAX) so wird bei FHT8b/MAX die
|
|
zu setzende Temperatur im <profile> automatisch mittels <br><br>
|
|
<code>set <device> (desired-temp|desiredTemerature) <temp></code> <br><br> gesendet.
|
|
Struktuen von Heizkörperthermostaten bekommen aufgrund des fhem-Typs auch desired-temp gesendet:
|
|
Nutze bitte explizite Kommandos wenn du Strukturen von MAX Heizthermostaten gesteuert werden sollen.<br><br>
|
|
Ist eine <condition> angegeben und ist zum Schaltpunkt der Ausdruck unwahr,
|
|
so wird dieser Schaltpunkt nicht ausgeführt.<br>
|
|
Alternativ zur Automatik kann stattdessen eigener Perl-Code im <command> ausgeführt werden.
|
|
<p>
|
|
Folgende Parameter sind im Define definiert:
|
|
<ul><b>device</b><br>
|
|
Das an den Schaltpunkten zu schaltende Device.
|
|
</ul>
|
|
<p>
|
|
<ul><b>profile</b><br>
|
|
Angabe des Wochenprofils. Die einzelnen Schaltzeiten sind durch Leerzeichen getrennt
|
|
Die Angabe der Schaltzeiten ist nach folgendem Muster definiert:<br>
|
|
<ul><b>[<Wochentage>|]<Uhrzeit>|<Parameter></b></ul><br>
|
|
<u>Wochentage:</u> optionale Angabe, falls nicht gesetzt wird der Schaltpunkt jeden Tag ausgeführt.
|
|
Für die Tage an denen dieser Schaltpunkt aktiv sein soll, ist jeder Tag mit seiner
|
|
Tagesnummer (Mo=1, ..., So=7) oder Name des Tages (Mo, Di, ..., So) einzusetzen.<br>
|
|
<u>Uhrzeit:</u>Angabe der Uhrzeit an dem geschaltet werden soll, Format: HH:MM(HH im 24 Stunden format)<br>
|
|
<u>Parameter:</u>Angabe der zu setzenden Temperatur als Zahl mit Format 99.9 oder als symbolische Konstante <b>eco</b>
|
|
or <b>comfort</b> - was immer das Heizkörperthermostat versteht.<br>
|
|
</ul>
|
|
<p>
|
|
<ul><b>command</b><br>
|
|
Falls keine Condition in () angegeben wurde, so wird alles weitere als Command
|
|
interpretiert. Perl-Code ist in {} zu setzen. <br>
|
|
Wichtig: Falls ein Command definiert ist, so wird zu den definierten Schaltzeiten
|
|
nur(!) das Command ausgeführt. Falls ein desired-temp Befehl abgesetzt werde soll,
|
|
so muss dies explizit angegeben werden.<br>
|
|
Folgende Parameter werden ersetzt:<br>
|
|
<ol>
|
|
<li>@ => das zu schaltende Device</li>
|
|
<li>% => die zu setzende Temperatur</li>
|
|
</ol>
|
|
</ul>
|
|
<p>
|
|
<ul><b>condition</b><br>
|
|
Bei Angabe einer Condition ist diese in () zu setzen und mit validem Perl-Code zu versehen.<br>
|
|
Der Rückgabedatentyp der condition muss boolean sein.<br>
|
|
Die Parameter @ und % werden interpretiert.
|
|
</ul>
|
|
<p>
|
|
<b>Beispiel:</b>
|
|
<ul>
|
|
<code>define HCB Heating_Control Bad_Heizung 12345|05:20|21 12345|05:25|comfort 17:20|21 17:25|eco</code><br>
|
|
Mo-Fr wird die Temperatur um 05:20Uhr auf 21°C, und um 05:25Uhr auf <b>comfort</b> gesetzt.
|
|
Jeden Tag wird die Temperatur um 17:20Uhr auf 21°C und 17:25Uhr auf <b>eco</b> gesetzt.<p>
|
|
|
|
<code>define HCW Heating_Control WZ_Heizung 07:00|16 Mo,Di,Mi|16:00|18.5 20:00|12
|
|
{fhem("set dummy on"); fhem("set @ desired-temp %");}</code><br>
|
|
Zu den definierten Schaltzeiten wird nur(!) der in {} angegebene Perl-Code ausgeführt.<p>
|
|
|
|
<code>define HCW Heating_Control WZ_Heizung Sa-So,Mi|08:00|21 (ReadingsVal("WeAreThere", "state", "no") eq "yes")</code><br>
|
|
Die zu setzende Temperatur wird nur gesetzt, falls die Dummy Variable WeAreThere = "yes" ist.<p>
|
|
</ul>
|
|
</ul>
|
|
|
|
<a name="Heating_Controlset"></a>
|
|
<b>Set</b> <ul>N/A</ul><br>
|
|
|
|
<a name="Heating_Controlget"></a>
|
|
<b>Get</b> <ul>N/A</ul><br>
|
|
|
|
<a name="Heating_ControlLogattr"></a>
|
|
<b>Attributes</b>
|
|
<ul>
|
|
<li><a href="#disable">disable</a></li>
|
|
<li><a href="#loglevel">loglevel</a></li>
|
|
<li><a href="#event-on-update-reading">event-on-update-reading</a></li>
|
|
<li><a href="#event-on-change-reading">event-on-change-reading</a></li>
|
|
<li><a href="#stateFormat">stateFormat</a></li>
|
|
</ul><br>
|
|
</ul>
|
|
|
|
=end html_DE
|
|
=cut
|