FHT80b Programm Anzeigen: Unterschied zwischen den Versionen
K (Wikifiziert, Formatierung "Perl-Source") |
(Anpassung von <source>-Tags nach <syntaxhighlight>) |
||
| Zeile 52: | Zeile 52: | ||
Dieser Code muss in die [[99 myUtils anlegen|99_myUtils.pm]]: | Dieser Code muss in die [[99 myUtils anlegen|99_myUtils.pm]]: | ||
< | <syntaxhighlight lang="perl">#Programm für ein Device abfragen | ||
sub FHTProgramm($) { | sub FHTProgramm($) { | ||
my($fht) = @_; | my($fht) = @_; | ||
| Zeile 77: | Zeile 77: | ||
} | } | ||
return $resultstring; | return $resultstring; | ||
}</ | }</syntaxhighlight> | ||
[[Kategorie:Code Snippets]] | [[Kategorie:Code Snippets]] | ||
Aktuelle Version vom 26. Juli 2017, 19:57 Uhr
Um eine Übersicht darüber zu bekommen, welche Schaltzeiten für "Tagestemperatur" und "Nachttemperatur" für die gesamte Woche in einem FHT80b hinterlegt sind, kann man zwar in die einzelnen Readings des Devices schauen - dies ist aber recht unübersichtlich.
Als Lösung gibts daher zwei Funktionen, mit denen man sich die Programme etwas übersichtlicher darstellen kann.
{FHTProgramm("NAME.DES.FHT.DEVICES")} -> zeigt das Programm eines Devices
{FHTProgramme} -> zeigt die Programme aller FHTs
"NAME.DES.FHT.DEVICES" muss natürlich durch den Namen eines eigenen Devices ersetzt werden...
Voraussetzungen
Die FHTs müssen im FHEM bekannt sein. Die Programme der FHTs müssen in den Readings stehen. Falls nicht per Report1 255 abfragen...
Das Ergebnis sieht dann zum Beispiel so aus
Alle Programme: Heizungsprogramm für HZ.EG.Bad mon: Tag (21.0°): 06:00-19:00 und 24:00-24:00, sonst Nacht (18.0°) tue: Tag (21.0°): 06:00-19:00 und 24:00-24:00, sonst Nacht (18.0°) wed: Tag (21.0°): 06:00-19:00 und 24:00-24:00, sonst Nacht (18.0°) thu: Tag (21.0°): 06:00-19:00 und 24:00-24:00, sonst Nacht (18.0°) fri: Tag (21.0°): 06:00-19:00 und 24:00-24:00, sonst Nacht (18.0°) sat: Tag (21.0°): 08:00-19:30 und 24:00-24:00, sonst Nacht (18.0°) sun: Tag (21.0°): 08:00-19:30 und 24:00-24:00, sonst Nacht (18.0°) Heizungsprogramm für HZ.EG.Flur mon: Tag (19.0°): 06:00-23:00 und 24:00-24:00, sonst Nacht (16.5°) tue: Tag (19.0°): 06:00-23:00 und 24:00-24:00, sonst Nacht (16.5°) wed: Tag (19.0°): 06:00-23:00 und 24:00-24:00, sonst Nacht (16.5°) thu: Tag (19.0°): 06:00-23:00 und 24:00-24:00, sonst Nacht (16.5°) fri: Tag (19.0°): 06:00-23:00 und 24:00-24:00, sonst Nacht (16.5°) sat: Tag (19.0°): 06:00-23:00 und 24:00-24:00, sonst Nacht (16.5°) sun: Tag (19.0°): 06:00-23:00 und 24:00-24:00, sonst Nacht (16.5°) Heizungsprogramm für HZ.EG.Kueche mon: Tag (19.5°): 07:30-22:30 und 24:00-24:00, sonst Nacht (16.0°) tue: Tag (19.5°): 07:30-22:30 und 24:00-24:00, sonst Nacht (16.0°) wed: Tag (19.5°): 07:30-22:30 und 24:00-24:00, sonst Nacht (16.0°) thu: Tag (19.5°): 07:30-22:30 und 24:00-24:00, sonst Nacht (16.0°) fri: Tag (19.5°): 07:30-22:30 und 24:00-24:00, sonst Nacht (16.0°) sat: Tag (19.5°): 07:30-22:30 und 24:00-24:00, sonst Nacht (16.0°) sun: Tag (19.5°): 07:30-22:30 und 24:00-24:00, sonst Nacht (16.0°) Heizungsprogramm für HZ.EG.Spielzimmer mon: Tag (21.0°): 09:00-23:00 und 24:00-24:00, sonst Nacht (17.0°) tue: Tag (21.0°): 09:00-23:00 und 24:00-24:00, sonst Nacht (17.0°) wed: Tag (21.0°): 09:00-23:00 und 24:00-24:00, sonst Nacht (17.0°) thu: Tag (21.0°): 09:00-23:00 und 24:00-24:00, sonst Nacht (17.0°) fri: Tag (21.0°): 09:00-23:00 und 24:00-24:00, sonst Nacht (17.0°) sat: Tag (21.0°): 09:00-19:40 und 24:00-24:00, sonst Nacht (17.0°) sun: Tag (21.0°): 09:00-23:00 und 24:00-24:00, sonst Nacht (17.0°)
Und hier noch der Code
Dieser Code muss in die 99_myUtils.pm:
#Programm für ein Device abfragen
sub FHTProgramm($) {
my($fht) = @_;
my $daytemp = ReadingsVal($fht,"day-temp","???");
my $nighttemp = ReadingsVal($fht,"night-temp","???");
my @wdays = qw(mon tue wed thu fri sat sun);
my $resultstring='Heizungsprogramm für ' . $fht . "\n";
foreach(@wdays){
my $f1 = ReadingsVal($fht,$_ . "-from1","???");
my $f2 = ReadingsVal($fht,$_ . "-from2","???");
my $t1 = ReadingsVal($fht,$_ . "-to1","???");
my $t2 = ReadingsVal($fht,$_ . "-to2","???");
$resultstring .= $_ . ": Tag ($daytemp°): " . $f1 . "-" . $t1 . " und " . $f2 . "-" . $t2 . ", sonst Nacht ($nighttemp°)\n"
}
return $resultstring . "\n";
}
#Programm für alle FHTs abfragen und ausgeben
sub FHTProgramme(){
my @fhts = devspec2array("TYPE=FHT");
my $resultstring="Alle Programme: \n";
foreach(@fhts){
$resultstring .= FHTProgramm($_);
}
return $resultstring;
}
--Dron72 (Diskussion) 20:37, 23. Feb. 2016 (CET)