";
- $ret .= "\n"; # das \n erleichtert das Lesen der debug Quelltextausgabe
+ $ret = "";
+ $ret .= $html_start if (defined($html_start));
+ $ret .= "";
+ $ret .= "|
";
+ $ret .= "";
+ $ret .= "\n"; # das \n erleichtert das Lesen der debug Quelltextausgabe
- if ($header) { # Header ausgeben
- $ret .= "";
- # mit einem extra | ein wenig mehr Platz machen, ergibt i.d.R. weniger als ein Zeichen
- $ret .= "$header | ";
- }
+ if ($header) { # Header ausgeben
+ $ret .= "";
+ # mit einem extra | ein wenig mehr Platz machen, ergibt i.d.R. weniger als ein Zeichen
+ $ret .= "$header | ";
+ }
- if ($legend_txt && ($legend eq 'top')) {
- $ret .= "";
- $ret .= "| $legend_txt | ";
- }
+ if ($legend_txt && ($legend eq 'top')) {
+ $ret .= "";
+ $ret .= "| $legend_txt | ";
+ }
- if ($weather) {
- $ret .= " | "; # freier Platz am Anfang
+ if ($weather) {
+ $ret .= " | "; # freier Platz am Anfang
- my $ii;
- for my $i (0..($maxhours*2)-1) {
+ my $ii;
+ for my $i (0..($maxhours*2)-1) {
- last if (!exists($hfcg->{$i}{weather}));
- next if (!$show_night && ($hfcg->{$i}{weather} > 99) && !$hfcg->{$i}{beam1} && !$hfcg->{$i}{beam2});
- # Lässt Nachticons aber noch durch wenn es einen Wert gibt , ToDo : klären ob die Nacht richtig gesetzt wurde
- $ii++; # wieviele Stunden Icons haben wir bisher beechnet ?
- last if ($ii > $maxhours); # vorzeitiger Abbruch
+ last if (!exists($hfcg->{$i}{weather}));
+ next if (!$show_night && defined($hfcg->{$i}{weather}) && ($hfcg->{$i}{weather} > 99) && !$hfcg->{$i}{beam1} && !$hfcg->{$i}{beam2});
+ # Lässt Nachticons aber noch durch wenn es einen Wert gibt , ToDo : klären ob die Nacht richtig gesetzt wurde
+ $ii++; # wieviele Stunden Icons haben wir bisher beechnet ?
+ last if ($ii > $maxhours); # vorzeitiger Abbruch
- # FHEM Wetter Icons (weather_xxx) , Skalierung und Farbe durch FHEM Bordmittel
- # ToDo : weather_icon sollte im Fehlerfall Title mit der ID besetzen um in FHEMWEB sofort die ID sehen zu können
- if (exists($hfcg->{$i}{weather}) && defined($hfcg->{$i}{weather})) {
- my ($icon_name, $title) = (($hfcg->{$i}{weather} > 99)) ? weather_icon($hfcg->{$i}{weather}-100) : weather_icon($hfcg->{$i}{weather});
- # unknown -> FHEM Icon Fragezeichen im Kreis wird als Ersatz Icon ausgegeben
- Log3($name, 4, "$name - unknown weather id: ".$hfcg->{$i}{weather}.", please inform the maintainer") if($icon_name eq 'unknown');
+ # FHEM Wetter Icons (weather_xxx) , Skalierung und Farbe durch FHEM Bordmittel
+ # ToDo : weather_icon sollte im Fehlerfall Title mit der ID besetzen um in FHEMWEB sofort die ID sehen zu können
+ if (exists($hfcg->{$i}{weather}) && defined($hfcg->{$i}{weather})) {
+ my ($icon_name, $title) = (($hfcg->{$i}{weather} > 99)) ? weather_icon($hfcg->{$i}{weather}-100) : weather_icon($hfcg->{$i}{weather});
+ # unknown -> FHEM Icon Fragezeichen im Kreis wird als Ersatz Icon ausgegeben
+ Log3($name, 4, "$name - unknown weather id: ".$hfcg->{$i}{weather}.", please inform the maintainer") if($icon_name eq 'unknown');
- $icon_name .= ($hfcg->{$i}{weather} < 100 ) ? '@'.$colorw : '@'.$colorwn;
- $val = FW_makeImage($icon_name);
+ $icon_name .= ($hfcg->{$i}{weather} < 100 ) ? '@'.$colorw : '@'.$colorwn;
+ $val = FW_makeImage($icon_name);
- if ($val eq $icon_name) { # passendes Icon beim User nicht vorhanden ! ( attr web iconPath falsch/prüfen/update ? )
- $val ='???';
- Log3($name, 3, qq{$name - the icon $hfcg->{$i}{weather} not found. Please check attribute "iconPath" of your FHEMWEB instance and/or update your FHEM software});
- }
+ if ($val eq $icon_name) { # passendes Icon beim User nicht vorhanden ! ( attr web iconPath falsch/prüfen/update ? )
+ $val ='???';
+ Log3($name, 3, qq{$name - the icon $hfcg->{$i}{weather} not found. Please check attribute "iconPath" of your FHEMWEB instance and/or update your FHEM software});
+ }
- $ret .= "$val | "; # title -> Mouse Over Text
- # mit $hfcg->{$i}{weather} = undef kann man unten leicht feststellen ob für diese Spalte bereits ein Icon ausgegeben wurde oder nicht
- }
- else {
- $ret .= " | ";
- $hfcg->{$i}{weather} = undef; # ToDo : prüfen ob noch nötig
- }
- }
+ $ret .= "$val | "; # title -> Mouse Over Text
+ # mit $hfcg->{$i}{weather} = undef kann man unten leicht feststellen ob für diese Spalte bereits ein Icon ausgegeben wurde oder nicht
+ }
+ else {
+ $ret .= " | ";
+ $hfcg->{$i}{weather} = undef; # ToDo : prüfen ob noch nötig
+ }
+ }
- $ret .= " | "; # freier Platz am Ende der Icon Zeile
- }
+ $ret .= " | "; # freier Platz am Ende der Icon Zeile
+ }
- if($show_diff eq 'top') { # Zusätzliche Zeile Ertrag - Verbrauch
- $ret .= " | "; # freier Platz am Anfang
- my $ii;
- for my $i (0..($maxhours*2)-1) {
- # gleiche Bedingung wie oben
- next if (!$show_night && ($hfcg->{$i}{weather} > 99) && !$hfcg->{$i}{beam1} && !$hfcg->{$i}{beam2});
- $ii++; # wieviele Stunden haben wir bisher angezeigt ?
- last if ($ii > $maxhours); # vorzeitiger Abbruch
+ if($show_diff eq 'top') { # Zusätzliche Zeile Ertrag - Verbrauch
+ $ret .= " | "; # freier Platz am Anfang
+ my $ii;
+ for my $i (0..($maxhours*2)-1) {
+ # gleiche Bedingung wie oben
+ next if (!$show_night && ($hfcg->{$i}{weather} > 99) && !$hfcg->{$i}{beam1} && !$hfcg->{$i}{beam2});
+ $ii++; # wieviele Stunden haben wir bisher angezeigt ?
+ last if ($ii > $maxhours); # vorzeitiger Abbruch
- $val = formatVal6($hfcg->{$i}{diff},$kw,$hfcg->{$i}{weather});
- $val = ($hfcg->{$i}{diff} < 0) ? ''.$val.'' : ($val>0) ? '+'.$val : $val; # negative Zahlen in Fettschrift, 0 aber ohne +
- $ret .= "$val | ";
- }
- $ret .= " | "; # freier Platz am Ende
- }
+ $val = formatVal6($hfcg->{$i}{diff},$kw,$hfcg->{$i}{weather});
+ $val = ($hfcg->{$i}{diff} < 0) ? ''.$val.'' : ($val>0) ? '+'.$val : $val; # negative Zahlen in Fettschrift, 0 aber ohne +
+ $ret .= "$val | ";
+ }
+ $ret .= " | "; # freier Platz am Ende
+ }
- $ret .= " | "; # Neue Zeile mit freiem Platz am Anfang
+ $ret .= " | "; # Neue Zeile mit freiem Platz am Anfang
- my $ii = 0;
- for my $i (0..($maxhours*2)-1) {
- # gleiche Bedingung wie oben
- next if (!$show_night && ($hfcg->{$i}{weather} > 99) && !$hfcg->{$i}{beam1} && !$hfcg->{$i}{beam2});
- $ii++;
- last if ($ii > $maxhours);
+ my $ii = 0;
+ for my $i (0..($maxhours*2)-1) {
+ # gleiche Bedingung wie oben
+ next if (!$show_night && defined($hfcg->{$i}{weather}) && ($hfcg->{$i}{weather} > 99) && !$hfcg->{$i}{beam1} && !$hfcg->{$i}{beam2});
+ $ii++;
+ last if ($ii > $maxhours);
- # Achtung Falle, Division by Zero möglich,
- # maxVal kann gerade bei kleineren maxhours Ausgaben in der Nacht leicht auf 0 fallen
- $height = 200 if (!$height); # Fallback, sollte eigentlich nicht vorkommen, außer der User setzt es auf 0
- $maxVal = 1 if (!int $maxVal);
- $maxCon = 1 if (!$maxCon);
+ # Achtung Falle, Division by Zero möglich,
+ # maxVal kann gerade bei kleineren maxhours Ausgaben in der Nacht leicht auf 0 fallen
+ $height = 200 if (!$height); # Fallback, sollte eigentlich nicht vorkommen, außer der User setzt es auf 0
+ $maxVal = 1 if (!int $maxVal);
+ $maxCon = 1 if (!$maxCon);
- # Der zusätzliche Offset durch $fsize verhindert bei den meisten Skins
- # dass die Grundlinie der Balken nach unten durchbrochen wird
+ # Der zusätzliche Offset durch $fsize verhindert bei den meisten Skins
+ # dass die Grundlinie der Balken nach unten durchbrochen wird
- if ($lotype eq 'pv') {
- $he = int(($maxVal-$hfcg->{$i}{beam1}) / $maxVal*$height) + $fsize;
- $z3 = int($height + $fsize - $he);
- }
+ if ($lotype eq 'pv') {
+ $he = int(($maxVal-$hfcg->{$i}{beam1}) / $maxVal*$height) + $fsize;
+ $z3 = int($height + $fsize - $he);
+ }
- if ($lotype eq 'pvco') {
- # Berechnung der Zonen
- # he - freier der Raum über den Balken. fsize wird nicht verwendet, da bei diesem Typ keine Zahlen über den Balken stehen
- # z2 - der Ertrag ggf mit Icon
- # z3 - der Verbrauch , bei zu kleinem Wert wird der Platz komplett Zone 2 zugeschlagen und nicht angezeigt
- # z2 und z3 nach Bedarf tauschen, wenn der Verbrauch größer als der Ertrag ist
+ if ($lotype eq 'pvco') {
+ # Berechnung der Zonen
+ # he - freier der Raum über den Balken. fsize wird nicht verwendet, da bei diesem Typ keine Zahlen über den Balken stehen
+ # z2 - der Ertrag ggf mit Icon
+ # z3 - der Verbrauch , bei zu kleinem Wert wird der Platz komplett Zone 2 zugeschlagen und nicht angezeigt
+ # z2 und z3 nach Bedarf tauschen, wenn der Verbrauch größer als der Ertrag ist
- $maxVal = $maxCon if ($maxCon > $maxVal); # wer hat den größten Wert ?
+ $maxVal = $maxCon if ($maxCon > $maxVal); # wer hat den größten Wert ?
- if ($hfcg->{$i}{beam1} > $hfcg->{$i}{beam2}) { # pv oben , co unten
- $z2 = $hfcg->{$i}{beam1}; $z3 = $hfcg->{$i}{beam2};
- }
- else { # tauschen, Verbrauch ist größer als Ertrag
- $z3 = $hfcg->{$i}{beam1}; $z2 = $hfcg->{$i}{beam2};
- }
+ if ($hfcg->{$i}{beam1} > $hfcg->{$i}{beam2}) { # pv oben , co unten
+ $z2 = $hfcg->{$i}{beam1}; $z3 = $hfcg->{$i}{beam2};
+ }
+ else { # tauschen, Verbrauch ist größer als Ertrag
+ $z3 = $hfcg->{$i}{beam1}; $z2 = $hfcg->{$i}{beam2};
+ }
- $he = int(($maxVal-$z2)/$maxVal*$height);
- $z2 = int(($z2 - $z3)/$maxVal*$height);
+ $he = int(($maxVal-$z2)/$maxVal*$height);
+ $z2 = int(($z2 - $z3)/$maxVal*$height);
- $z3 = int($height - $he - $z2); # was von maxVal noch übrig ist
-
- if ($z3 < int($fsize/2)) { # dünnen Strichbalken vermeiden / ca. halbe Zeichenhöhe
- $z2 += $z3; $z3 = 0;
- }
- }
-
- if ($lotype eq 'diff') { # Typ diff
- # Berechnung der Zonen
- # he - freier der Raum über den Balken , Zahl positiver Wert + fsize
- # z2 - positiver Balken inkl Icon
- # z3 - negativer Balken
- # z4 - Zahl negativer Wert + fsize
-
- my ($px_pos,$px_neg);
- my $maxPV = 0; # ToDo: maxPV noch aus Attribut maxPV ableiten
-
- if ($maxPV) { # Feste Aufteilung +/- , jeder 50 % bei maxPV = 0
- $px_pos = int($height/2);
- $px_neg = $height - $px_pos; # Rundungsfehler vermeiden
- }
- else { # Dynamische hoch/runter Verschiebung der Null-Linie
- if ($minDif >= 0 ) { # keine negativen Balken vorhanden, die Positiven bekommen den gesammten Raum
- $px_neg = 0;
- $px_pos = $height;
- }
- else {
- if ($maxDif > 0) {
- $px_neg = int($height * abs($minDif) / ($maxDif + abs($minDif))); # Wieviel % entfallen auf unten ?
- $px_pos = $height-$px_neg; # der Rest ist oben
- }
- else { # keine positiven Balken vorhanden, die Negativen bekommen den gesammten Raum
- $px_neg = $height;
- $px_pos = 0;
- }
- }
- }
-
- if ($hfcg->{$i}{diff} >= 0) { # Zone 2 & 3 mit ihren direkten Werten vorbesetzen
- $z2 = $hfcg->{$i}{diff};
- $z3 = abs($minDif);
- }
- else {
- $z2 = $maxDif;
- $z3 = abs($hfcg->{$i}{diff}); # Nur Betrag ohne Vorzeichen
- }
-
- # Alle vorbesetzen Werte umrechnen auf echte Ausgabe px
- $he = (!$px_pos || !$maxDif) ? 0 : int(($maxDif-$z2)/$maxDif*$px_pos); # Teilung durch 0 vermeiden
- $z2 = ($px_pos - $he) ;
-
- $z4 = (!$px_neg || !$minDif) ? 0 : int((abs($minDif)-$z3)/abs($minDif)*$px_neg); # Teilung durch 0 unbedingt vermeiden
- $z3 = ($px_neg - $z4);
-
- # Beiden Zonen die Werte ausgeben könnten muß fsize als zusätzlicher Raum zugeschlagen werden !
- $he += $fsize;
- $z4 += $fsize if ($z3); # komplette Grafik ohne negativ Balken, keine Ausgabe von z3 & z4
- }
-
- # das style des nächsten TD bestimmt ganz wesentlich das gesammte Design
- # das \n erleichtert das lesen des Seitenquelltext beim debugging
- # vertical-align:bottom damit alle Balken und Ausgaben wirklich auf der gleichen Grundlinie sitzen
-
- $ret .="\n";
-
- if ($lotype eq 'pv') {
- #my $v = ($lotype eq 'co') ? $hfcg->{$i}{beam2} : $hfcg->{$i}{beam1} ;
- #$v = 0 if (($lotype eq 'co') && !$hfcg->{$i}{beam1} && !$show_night); # auch bei type co die Nacht ggf. unterdrücken
- $val = formatVal6($hfcg->{$i}{beam1},$kw,$hfcg->{$i}{weather});
-
- $ret .=""; # mit width=100% etwas bessere Füllung der Balken
- $ret .="";
- $ret .="| ".$val." | ";
-
- if ($hfcg->{$i}{beam1} || $show_night) { # Balken nur einfärben wenn der User via Attr eine Farbe vorgibt, sonst bestimmt class odd von TR alleine die Farbe
- my $style = "style=\"padding-bottom:0px; vertical-align:top; margin-left:auto; margin-right:auto;";
- $style .= defined $colorfc ? " background-color:#$colorfc\"" : '"'; # Syntaxhilight
-
- $ret .= "";
- $ret .= "| ";
+ $z3 = int($height - $he - $z2); # was von maxVal noch übrig ist
- my $sicon = 1;
- #$ret .= $is{$i} if (defined ($is{$i}) && $sicon);
+ if ($z3 < int($fsize/2)) { # dünnen Strichbalken vermeiden / ca. halbe Zeichenhöhe
+ $z2 += $z3; $z3 = 0;
+ }
+ }
- ##################################
- # inject the new icon if defined
- #$ret .= consinject($hash,$i,@pgCDev) if($s);
-
- $ret .= " | ";
- }
- }
-
- if ($lotype eq 'pvco') {
- my ($color1, $color2, $style1, $style2, $v);
+ if ($lotype eq 'diff') { # Typ diff
+ # Berechnung der Zonen
+ # he - freier der Raum über den Balken , Zahl positiver Wert + fsize
+ # z2 - positiver Balken inkl Icon
+ # z3 - negativer Balken
+ # z4 - Zahl negativer Wert + fsize
- $ret .="\n"; # mit width=100% etwas bessere Füllung der Balken
+ my ($px_pos,$px_neg);
+ my $maxPV = 0; # ToDo: maxPV noch aus Attribut maxPV ableiten
- # der Freiraum oben kann beim größten Balken ganz entfallen
- $ret .=" | " if ($he);
+ if ($maxPV) { # Feste Aufteilung +/- , jeder 50 % bei maxPV = 0
+ $px_pos = int($height/2);
+ $px_neg = $height - $px_pos; # Rundungsfehler vermeiden
+ }
+ else { # Dynamische hoch/runter Verschiebung der Null-Linie
+ if ($minDif >= 0 ) { # keine negativen Balken vorhanden, die Positiven bekommen den gesammten Raum
+ $px_neg = 0;
+ $px_pos = $height;
+ }
+ else {
+ if ($maxDif > 0) {
+ $px_neg = int($height * abs($minDif) / ($maxDif + abs($minDif))); # Wieviel % entfallen auf unten ?
+ $px_pos = $height-$px_neg; # der Rest ist oben
+ }
+ else { # keine positiven Balken vorhanden, die Negativen bekommen den gesammten Raum
+ $px_neg = $height;
+ $px_pos = 0;
+ }
+ }
+ }
- if($hfcg->{$i}{beam1} > $hfcg->{$i}{beam2}) { # wer ist oben, co pder pv ? Wert und Farbe für Zone 2 & 3 vorbesetzen
- $val = formatVal6($hfcg->{$i}{beam1},$kw,$hfcg->{$i}{weather});
- $color1 = $colorfc;
- $style1 = "style=\"padding-bottom:0px; padding-top:1px; vertical-align:top; margin-left:auto; margin-right:auto;";
- $style1 .= (defined($color1)) ? " background-color:#$color1\"" : '"';
-
- if($z3) { # die Zuweisung können wir uns sparen wenn Zone 3 nachher eh nicht ausgegeben wird
- $v = formatVal6($hfcg->{$i}{beam2},$kw,$hfcg->{$i}{weather});
- $color2 = $colorc;
- $style2 = "style=\"padding-bottom:0px; padding-top:1px; vertical-align:top; margin-left:auto; margin-right:auto;";
- $style2 .= (defined($color2)) ? " background-color:#$color2\"" : '"';
- }
- }
- else {
- $val = formatVal6($hfcg->{$i}{beam2},$kw,$hfcg->{$i}{weather});
- $color1 = $colorc;
- $style1 = "style=\"padding-bottom:0px; padding-top:1px; vertical-align:top; margin-left:auto; margin-right:auto;";
- $style1 .= (defined($color1)) ? " background-color:#$color1\"" : '"';
-
- if($z3) {
- $v = formatVal6($hfcg->{$i}{beam1},$kw,$hfcg->{$i}{weather});
- $color2 = $colorfc;
- $style2 = "style=\"padding-bottom:0px; padding-top:1px; vertical-align:top; margin-left:auto; margin-right:auto;";
- $style2 .= (defined($color2)) ? " background-color:#$color2\"" : '"';
- }
- }
-
- $ret .= "";
- $ret .= "| $val";
- #$ret .= $is{$i} if (defined $is{$i});
-
- ##################################
- # inject the new icon if defined
- #$ret .= consinject($hash,$i,@pgCDev) if($s);
-
- $ret .= " | ";
-
- if ($z3) { # die Zone 3 lassen wir bei zu kleinen Werten auch ganz weg
- $ret .= "";
- $ret .= "| $v | ";
- }
- }
-
- if ($lotype eq 'diff') { # Type diff
- my $style = "style=\"padding-bottom:0px; padding-top:1px; vertical-align:top; margin-left:auto; margin-right:auto;";
- $ret .= "\n"; # Tipp : das nachfolgende border=0 auf 1 setzen hilft sehr Ausgabefehler zu endecken
- #$val = ($hfcg->{$i}{diff} >= 0) ? formatVal6($hfcg->{$i}{diff},$kw,$hfcg->{$i}{weather}) : '';
-
- $val = ($hfcg->{$i}{diff} > 0) ? formatVal6($hfcg->{$i}{diff},$kw,$hfcg->{$i}{weather}) : '';
- $val = ' 0 ' if ($hfcg->{$i}{diff} == 0); # Sonderfall , hier wird die 0 gebraucht !
-
- if ($val) {
- $ret .= "";
- $ret .= "| ".$val." | ";
- }
-
- if ($hfcg->{$i}{diff} >= 0) { # mit Farbe 1 colorfc füllen
- $style .= defined $colorfc ? " background-color:#$colorfc\"" : '"';
- $z2 = 1 if ($hfcg->{$i}{diff} == 0); # Sonderfall , 1px dünnen Strich ausgeben
- $ret .= "";
- $ret .= "| ";
- #$ret .= $is{$i} if (defined $is{$i});
- $ret .= " | ";
- }
- else { # ohne Farbe
- $z2 = 2 if ($hfcg->{$i}{diff} == 0); # Sonderfall, hier wird die 0 gebraucht !
- if ($z2 && $val) { # z2 weglassen wenn nicht unbedigt nötig bzw. wenn zuvor he mit val keinen Wert hatte
- $ret .= "";
- $ret .= " | ";
- }
- }
+ if ($hfcg->{$i}{diff} >= 0) { # Zone 2 & 3 mit ihren direkten Werten vorbesetzen
+ $z2 = $hfcg->{$i}{diff};
+ $z3 = abs($minDif);
+ }
+ else {
+ $z2 = $maxDif;
+ $z3 = abs($hfcg->{$i}{diff}); # Nur Betrag ohne Vorzeichen
+ }
- if ($hfcg->{$i}{diff} < 0) { # Negativ Balken anzeigen ?
- $style .= (defined($colorc)) ? " background-color:#$colorc\"" : '"'; # mit Farbe 2 colorc füllen
- $ret .= "";
- $ret .= " | ";
- }
- elsif ($z3) { # ohne Farbe
- $ret .= "";
- $ret .= " | ";
- }
+ # Alle vorbesetzen Werte umrechnen auf echte Ausgabe px
+ $he = (!$px_pos || !$maxDif) ? 0 : int(($maxDif-$z2)/$maxDif*$px_pos); # Teilung durch 0 vermeiden
+ $z2 = ($px_pos - $he) ;
- if($z4) { # kann entfallen wenn auch z3 0 ist
- $val = ($hfcg->{$i}{diff} < 0) ? formatVal6($hfcg->{$i}{diff},$kw,$hfcg->{$i}{weather}) : ' ';
- $ret .= "";
- $ret .= "| ".$val." | ";
- }
- }
+ $z4 = (!$px_neg || !$minDif) ? 0 : int((abs($minDif)-$z3)/abs($minDif)*$px_neg); # Teilung durch 0 unbedingt vermeiden
+ $z3 = ($px_neg - $z4);
- if ($show_diff eq 'bottom') { # zusätzliche diff Anzeige
- $val = formatVal6($hfcg->{$i}{diff},$kw,$hfcg->{$i}{weather});
- #$val = 0 if ($val eq ' ');
- #$hfcg->{$i}{diff} = 0 if ($hfcg->{$i}{diff} eq ' ');
- $val = ($hfcg->{$i}{diff} < 0) ? ''.$val.'' : ($val > 0 ) ? '+'.$val : $val if ($val ne ' '); # negative Zahlen in Fettschrift, 0 aber ohne +
- $ret .= "| $val | ";
- }
+ # Beiden Zonen die Werte ausgeben könnten muß fsize als zusätzlicher Raum zugeschlagen werden !
+ $he += $fsize;
+ $z4 += $fsize if ($z3); # komplette Grafik ohne negativ Balken, keine Ausgabe von z3 & z4
+ }
+
+ # das style des nächsten TD bestimmt ganz wesentlich das gesammte Design
+ # das \n erleichtert das lesen des Seitenquelltext beim debugging
+ # vertical-align:bottom damit alle Balken und Ausgaben wirklich auf der gleichen Grundlinie sitzen
- $ret .= "| ";
- $ret .= (($hfcg->{$i}{time} == $thishour) && ($offset < 0)) ? ''.$hfcg->{$i}{time_str}.'' : $hfcg->{$i}{time_str};
- $thishour = 99 if ($hfcg->{$i}{time} == $thishour); # nur einmal verwenden !
- $ret .=" | ";
- } ## for i
+ $ret .="\n";
+ if ($lotype eq 'pv') {
+ #my $v = ($lotype eq 'co') ? $hfcg->{$i}{beam2} : $hfcg->{$i}{beam1} ;
+ #$v = 0 if (($lotype eq 'co') && !$hfcg->{$i}{beam1} && !$show_night); # auch bei type co die Nacht ggf. unterdrücken
+ $val = formatVal6($hfcg->{$i}{beam1},$kw,$hfcg->{$i}{weather});
- $ret .= " | | ";
+ $ret .=""; # mit width=100% etwas bessere Füllung der Balken
+ $ret .="";
+ $ret .="| ".$val." | ";
- ###################
- # Legende unten
- if ($legend_txt && ($legend eq 'bottom')) {
- $ret .= "";
- $ret .= "| ";
- $ret .= "$legend_txt | ";
- }
+ if ($hfcg->{$i}{beam1} || $show_night) { # Balken nur einfärben wenn der User via Attr eine Farbe vorgibt, sonst bestimmt class odd von TR alleine die Farbe
+ my $style = "style=\"padding-bottom:0px; vertical-align:top; margin-left:auto; margin-right:auto;";
+ $style .= defined $colorfc ? " background-color:#$colorfc\"" : '"'; # Syntaxhilight
- $ret .= " ";
- $ret .= $html_end if (defined($html_end));
- $ret .= "";
+ $ret .= "";
+ $ret .= "| ";
+
+ my $sicon = 1;
+ #$ret .= $is{$i} if (defined ($is{$i}) && $sicon);
- return $ret;
+ ##################################
+ # inject the new icon if defined
+ #$ret .= consinject($hash,$i,@pgCDev) if($s);
+
+ $ret .= " | ";
+ }
+ }
+
+ if ($lotype eq 'pvco') {
+ my ($color1, $color2, $style1, $style2, $v);
+
+ $ret .="\n"; # mit width=100% etwas bessere Füllung der Balken
+
+ # der Freiraum oben kann beim größten Balken ganz entfallen
+ $ret .=" | " if ($he);
+
+ if($hfcg->{$i}{beam1} > $hfcg->{$i}{beam2}) { # wer ist oben, co pder pv ? Wert und Farbe für Zone 2 & 3 vorbesetzen
+ $val = formatVal6($hfcg->{$i}{beam1},$kw,$hfcg->{$i}{weather});
+ $color1 = $colorfc;
+ $style1 = "style=\"padding-bottom:0px; padding-top:1px; vertical-align:top; margin-left:auto; margin-right:auto;";
+ $style1 .= (defined($color1)) ? " background-color:#$color1\"" : '"';
+
+ if($z3) { # die Zuweisung können wir uns sparen wenn Zone 3 nachher eh nicht ausgegeben wird
+ $v = formatVal6($hfcg->{$i}{beam2},$kw,$hfcg->{$i}{weather});
+ $color2 = $colorc;
+ $style2 = "style=\"padding-bottom:0px; padding-top:1px; vertical-align:top; margin-left:auto; margin-right:auto;";
+ $style2 .= (defined($color2)) ? " background-color:#$color2\"" : '"';
+ }
+ }
+ else {
+ $val = formatVal6($hfcg->{$i}{beam2},$kw,$hfcg->{$i}{weather});
+ $color1 = $colorc;
+ $style1 = "style=\"padding-bottom:0px; padding-top:1px; vertical-align:top; margin-left:auto; margin-right:auto;";
+ $style1 .= (defined($color1)) ? " background-color:#$color1\"" : '"';
+
+ if($z3) {
+ $v = formatVal6($hfcg->{$i}{beam1},$kw,$hfcg->{$i}{weather});
+ $color2 = $colorfc;
+ $style2 = "style=\"padding-bottom:0px; padding-top:1px; vertical-align:top; margin-left:auto; margin-right:auto;";
+ $style2 .= (defined($color2)) ? " background-color:#$color2\"" : '"';
+ }
+ }
+
+ $ret .= "";
+ $ret .= "| $val";
+
+ ##################################
+ # inject the new icon if defined
+ #$ret .= consinject($hash,$i,@pgCDev) if($s);
+
+ $ret .= " | ";
+
+ if ($z3) { # die Zone 3 lassen wir bei zu kleinen Werten auch ganz weg
+ $ret .= "";
+ $ret .= "| $v | ";
+ }
+ }
+
+ if ($lotype eq 'diff') { # Type diff
+ my $style = "style=\"padding-bottom:0px; padding-top:1px; vertical-align:top; margin-left:auto; margin-right:auto;";
+ $ret .= "\n"; # Tipp : das nachfolgende border=0 auf 1 setzen hilft sehr Ausgabefehler zu endecken
+
+ $val = ($hfcg->{$i}{diff} > 0) ? formatVal6($hfcg->{$i}{diff},$kw,$hfcg->{$i}{weather}) : '';
+ $val = ' 0 ' if ($hfcg->{$i}{diff} == 0); # Sonderfall , hier wird die 0 gebraucht !
+
+ if ($val) {
+ $ret .= "";
+ $ret .= "| ".$val." | ";
+ }
+
+ if ($hfcg->{$i}{diff} >= 0) { # mit Farbe 1 colorfc füllen
+ $style .= defined $colorfc ? " background-color:#$colorfc\"" : '"';
+ $z2 = 1 if ($hfcg->{$i}{diff} == 0); # Sonderfall , 1px dünnen Strich ausgeben
+ $ret .= "";
+ $ret .= "| ";
+ $ret .= " | ";
+ }
+ else { # ohne Farbe
+ $z2 = 2 if ($hfcg->{$i}{diff} == 0); # Sonderfall, hier wird die 0 gebraucht !
+ if ($z2 && $val) { # z2 weglassen wenn nicht unbedigt nötig bzw. wenn zuvor he mit val keinen Wert hatte
+ $ret .= "";
+ $ret .= " | ";
+ }
+ }
+
+ if ($hfcg->{$i}{diff} < 0) { # Negativ Balken anzeigen ?
+ $style .= (defined($colorc)) ? " background-color:#$colorc\"" : '"'; # mit Farbe 2 colorc füllen
+ $ret .= "";
+ $ret .= " | ";
+ }
+ elsif ($z3) { # ohne Farbe
+ $ret .= "";
+ $ret .= " | ";
+ }
+
+ if($z4) { # kann entfallen wenn auch z3 0 ist
+ $val = ($hfcg->{$i}{diff} < 0) ? formatVal6($hfcg->{$i}{diff},$kw,$hfcg->{$i}{weather}) : ' ';
+ $ret .= "";
+ $ret .= "| ".$val." | ";
+ }
+ }
+
+ if ($show_diff eq 'bottom') { # zusätzliche diff Anzeige
+ $val = formatVal6($hfcg->{$i}{diff},$kw,$hfcg->{$i}{weather});
+ $val = ($hfcg->{$i}{diff} < 0) ? ''.$val.'' : ($val > 0 ) ? '+'.$val : $val if ($val ne ' '); # negative Zahlen in Fettschrift, 0 aber ohne +
+ $ret .= "| $val | ";
+ }
+
+ $ret .= "| ";
+ $ret .= (($hfcg->{$i}{time} == $thishour) && ($offset < 0)) ? ''.$hfcg->{$i}{time_str}.'' : $hfcg->{$i}{time_str};
+ $thishour = 99 if ($hfcg->{$i}{time} == $thishour); # nur einmal verwenden !
+ $ret .=" | ";
+ }
+
+ $ret .= " | ";
+
+ ###################
+ # Legende unten
+ if ($legend_txt && ($legend eq 'bottom')) {
+ $ret .= "";
+ $ret .= "| ";
+ $ret .= "$legend_txt | ";
+ }
+
+ $ret .= " ";
+ $ret .= $html_end if (defined($html_end));
+ $ret .= "";
+
+return $ret;
}
################################################################
@@ -2808,8 +2791,9 @@ return @aneeded;
sub calcPVforecast {
my $name = shift;
my $rad = shift; # Nominale Strahlung aus DWD Device
- my $num = shift; # Stunde des Tages
+ my $num = shift; # Nexthour
my $t = shift; # aktueller Unix Timestamp
+ my $fh = shift;
my $fd = shift;
my $hash = $defs{$name};
@@ -2831,7 +2815,7 @@ sub calcPVforecast {
my $rcf = 1 - ((($rainprob - $rain_base)/100) * $rainslope/100); # Rain Correction Faktor mit Steilheit
my $kw = AttrVal ($name, 'Wh/kWh', 'Wh');
- my $hc = ReadingsNum ($name, "pvCorrectionFactor_".sprintf("%02d",$num), 1); # Korrekturfaktor für die Stunde des Tages
+ my $hc = ReadingsNum ($name, "pvCorrectionFactor_".sprintf("%02d",$fh+1), 1); # Korrekturfaktor der Stunde des Tages einbeziehen
my $pvsum = 0;
@@ -2945,6 +2929,9 @@ sub calcVariance {
my ($pvavg,$fcavg) = calcFromHistory ($paref); # historische PV / Forecast Vergleichswerte ermitteln
$pvval = $pvavg ? ($pvval + $pvavg) / 2 : $pvval; # Ertrag aktuelle Stunde berücksichtigen
$fcval = $fcavg ? ($fcval + $fcavg) / 2 : $fcval; # Vorhersage aktuelle Stunde berücksichtigen
+
+ Log3 ($name, 4, "$name - PV History -> average hour ($h) -> real: $pvval, forecast: $fcval");
+
my $factor = sprintf "%.2f", ($pvval / $fcval); # Faktorberechnung: reale PV / Prognose
if(abs($factor - $oldfac) > $maxvar) {
@@ -3010,15 +2997,13 @@ sub calcFromHistory {
my ($pvrl,$pvfc) = (0,0);
for my $dayfa (@efa) {
- $pvrl += $pvhh->{$dayfa}{$hour}{pvrl} // 0;
- $pvfc += $pvhh->{$dayfa}{$hour}{pvfc} // 0;
+ $pvrl += HistoryVal ($hash, $dayfa, $hour, "pvrl", 0);
+ $pvfc += HistoryVal ($hash, $dayfa, $hour, "pvfc", 0);
}
my $pvavg = sprintf "%.2f", $pvrl / $anzavg;
my $fcavg = sprintf "%.2f", $pvfc / $anzavg;
- Log3 ($name, 4, "$name - PV History -> average hour ($hour) -> real: $pvavg, forecast: $fcavg");
-
return ($pvavg,$fcavg);
}
@@ -3051,7 +3036,7 @@ sub setPVhistory {
my $pvrlsum = 0;
for my $k (keys %{$data{$type}{$name}{pvhist}{$day}}) {
next if($k eq "99");
- $pvrlsum += $data{$type}{$name}{pvhist}{$day}{$k}{pvrl} // 0;
+ $pvrlsum += HistoryVal ($hash, $day, $k, "pvrl", 0);
}
$data{$type}{$name}{pvhist}{$day}{99}{pvrl} = $pvrlsum;
}
@@ -3063,7 +3048,7 @@ sub setPVhistory {
my $pvfcsum = 0;
for my $k (keys %{$data{$type}{$name}{pvhist}{$day}}) {
next if($k eq "99");
- $pvfcsum += $data{$type}{$name}{pvhist}{$day}{$k}{pvfc} // 0;
+ $pvfcsum += HistoryVal ($hash, $day, $k, "pvfc", 0);
}
$data{$type}{$name}{pvhist}{$day}{99}{pvfc} = $pvfcsum;
}
@@ -3075,7 +3060,7 @@ sub setPVhistory {
my $gcsum = 0;
for my $k (keys %{$data{$type}{$name}{pvhist}{$day}}) {
next if($k eq "99");
- $gcsum += $data{$type}{$name}{pvhist}{$day}{$k}{gcons} // 0;
+ $gcsum += HistoryVal ($hash, $day, $k, "gcons", 0);
}
$data{$type}{$name}{pvhist}{$day}{99}{gcons} = $gcsum;
}
@@ -3102,9 +3087,9 @@ sub listDataPool {
my $day = shift;
my $ret;
for my $key (sort{$a<=>$b} keys %{$h->{$day}}) {
- my $pvrl = $h->{$day}{$key}{pvrl} // 0;
- my $pvfc = $h->{$day}{$key}{pvfc} // 0;
- my $cons = $h->{$day}{$key}{gcons} // 0;
+ my $pvrl = HistoryVal ($hash, $day, $key, "pvrl", 0);
+ my $pvfc = HistoryVal ($hash, $day, $key, "pvfc", 0);
+ my $cons = HistoryVal ($hash, $day, $key, "gcons", 0);
$ret .= "\n " if($ret);
$ret .= $key." => pvreal: $pvrl, pvforecast: $pvfc, gridcon: $cons";
}
@@ -3160,13 +3145,14 @@ sub listDataPool {
return qq{NextHours cache is empty.};
}
for my $idx (sort keys %{$h}) {
- my $nhts = $data{$type}{$name}{nexthours}{$idx}{starttime};
- my $nhfc = $data{$type}{$name}{nexthours}{$idx}{pvforecast};
- my $wid = $data{$type}{$name}{nexthours}{$idx}{weatherid};
- my $neff = $data{$type}{$name}{nexthours}{$idx}{cloudcover};
- my $r101 = $data{$type}{$name}{nexthours}{$idx}{rainprob};
- $sq .= "\n" if($sq);
- $sq .= $idx." => starttime: $nhts, pvforecast: $nhfc, weatherid: $wid, cloudcover: $neff, rainprob: $r101";
+ my $nhts = $data{$type}{$name}{nexthours}{$idx}{starttime};
+ my $nhfc = $data{$type}{$name}{nexthours}{$idx}{pvforecast};
+ my $wid = $data{$type}{$name}{nexthours}{$idx}{weatherid};
+ my $neff = $data{$type}{$name}{nexthours}{$idx}{cloudcover};
+ my $r101 = $data{$type}{$name}{nexthours}{$idx}{rainprob};
+ my $rad1h = $data{$type}{$name}{nexthours}{$idx}{Rad1h};
+ $sq .= "\n" if($sq);
+ $sq .= $idx." => starttime: $nhts, pvforecast: $nhfc, weatherid: $wid, cloudcover: $neff, rainprob: $r101, Rad1h: $rad1h";
}
}
@@ -3360,6 +3346,40 @@ sub createNotifyDev {
return;
}
+################################################################
+# Wert des pvhist-Hash zurückliefern
+# Usage:
+# HistoryVal ($hash, $day, $hod, $key, $def)
+#
+# $day: Tag des Monats (01,02,...,31)
+# $hod: Stunde des Tages (01,02,...,24,99)
+# $key: pvrl - realer PV Ertrag
+# pvfc - PV Vorhersage
+# gcons - realer Netzbezug
+# $def: Defaultwert
+#
+################################################################
+sub HistoryVal {
+ my $hash = shift;
+ my $day = shift;
+ my $hod = shift;
+ my $key = shift;
+ my $def = shift;
+
+ my $name = $hash->{NAME};
+ my $type = $hash->{TYPE};
+
+ my ($d,$n,$default) = @_;
+ if(defined($data{$type}{$name}{pvhist}) &&
+ defined($data{$type}{$name}{pvhist}{$day}) &&
+ defined($data{$type}{$name}{pvhist}{$day}{$hod}) &&
+ defined($data{$type}{$name}{pvhist}{$day}{$hod}{$key})) {
+ return $data{$type}{$name}{pvhist}{$day}{$hod}{$key};
+ }
+
+return $def;
+}
+
1;
=pod
| |
|