Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-04 22:19:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

76_SolarForecast: Version 1.50.4

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@29852 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2025-04-13 20:53:08 +00:00
parent e90bf772c0
commit a5e4be3249
1 changed files with 37 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

60
fhem/contrib/DS_Starter/76_SolarForecast.pm
View File

@ -160,6 +160,8 @@ BEGIN {
# Versions History intern # Versions History intern
my %vNotesIntern = ( my %vNotesIntern = (
"1.50.4" => "13.04.2025 Consumer Strokes: fix __dynColor, new key flowGraphicControl->strokeCmrRedColLimit ".
"__getopenMeteoData: fix get calclated call interval ",
"1.50.3" => "12.04.2025 __calcPVestimates: Fix missing limitation for strings if more than one string is assigned to an inverter ". "1.50.3" => "12.04.2025 __calcPVestimates: Fix missing limitation for strings if more than one string is assigned to an inverter ".
"code change in _attrInverterStrings, _attrStringPeak, checkPlantConfig: improved string check ", "code change in _attrInverterStrings, _attrStringPeak, checkPlantConfig: improved string check ",
"1.50.2" => "11.04.2025 take inverter cap into account if no strings key is set, ctrlSpecialReadings: new option tomorrowConsumptionForecast ". "1.50.2" => "11.04.2025 take inverter cap into account if no strings key is set, ctrlSpecialReadings: new option tomorrowConsumptionForecast ".
@ -482,6 +484,7 @@ use constant {
STROKCOLSIGDEF => 'red', # Flußgrafik: Standardfarbe aktive Signal-Kette STROKCOLSIGDEF => 'red', # Flußgrafik: Standardfarbe aktive Signal-Kette
STROKCOLINADEF => 'gray', # Flußgrafik: Standardfarbe inaktive Kette STROKCOLINADEF => 'gray', # Flußgrafik: Standardfarbe inaktive Kette
STROKWIDTHDEF => 25, # Flußgrafik: Standard Breite der Kette STROKWIDTHDEF => 25, # Flußgrafik: Standard Breite der Kette
STROKCMRREDLIM => 400, # Flußgrafik: Consumerpower ab der dynamische Laufkette rot gefärbt wird
PRODICONDEF => 'sani_garden_pump', # default Producer-Icon PRODICONDEF => 'sani_garden_pump', # default Producer-Icon
CICONDEF => 'light_light_dim_100', # default Consumer-Icon CICONDEF => 'light_light_dim_100', # default Consumer-Icon
CICONCOLACT => 'darkorange', # default Consumer-Icon aktiv Färbung CICONCOLACT => 'darkorange', # default Consumer-Icon aktiv Färbung
@ -2820,7 +2823,7 @@ sub __getSolCastData {
return "The current time is not between sunrise minus ".(LEADTIME/60)." minutes and sunset"; return "The current time is not between sunrise minus ".(LEADTIME/60)." minutes and sunset";
} }
my $lrt = StatusAPIVal ($hash, $rapi, '?All', 'lastretrieval_timestamp', 0); my $lrt = StatusAPIVal ($hash, $rapi, '?All', 'lastretrieval_timestamp', 0);
my $apiitv = StatusAPIVal ($hash, $rapi, '?All', 'currentAPIinterval', SOLAPIREPDEF); my $apiitv = StatusAPIVal ($hash, $rapi, '?All', 'currentAPIinterval', SOLAPIREPDEF);
if ($lrt && $t < $lrt + $apiitv) { if ($lrt && $t < $lrt + $apiitv) {
@ -4236,10 +4239,11 @@ sub __getopenMeteoData {
my $reqm = $paref->{reqm}; my $reqm = $paref->{reqm};
if (!$force) { # regulärer API Abruf if (!$force) { # regulärer API Abruf
my $lrt = StatusAPIVal ($name, 'OpenMeteo', '?All', 'lastretrieval_timestamp', 0); my $lrt = StatusAPIVal ($name, 'OpenMeteo', '?All', 'lastretrieval_timestamp', 0);
my $cival = StatusAPIVal ($name, 'OpenMeteo', '?All', 'currentAPIinterval', OMETEOREPDEF);
if ($lrt && $t < $lrt + OMETEOREPDEF) { if ($lrt && $t < $lrt + $cival) {
my $rt = $lrt + OMETEOREPDEF - $t; my $rt = $lrt + $cival - $t;
return qq{The waiting time to the next Open-Meteo API call has not expired yet. The remaining waiting time is $rt seconds}; return qq{The waiting time to the next Open-Meteo API call has not expired yet. The remaining waiting time is $rt seconds};
} }
} }
@ -6288,6 +6292,7 @@ sub _attrflowGraphicControl { ## no critic "not used"
showconsumerdummy showconsumerdummy
showconsumerpower showconsumerpower
strokeconsumerdyncol strokeconsumerdyncol
strokeCmrRedColLimit
strokecolstd strokecolstd
strokecolsig strokecolsig
strokecolina strokecolina
@ -6311,6 +6316,7 @@ sub _attrflowGraphicControl { ## no critic "not used"
showconsumerremaintime => '(0|1)', showconsumerremaintime => '(0|1)',
showconsumerpower => '(0|1)', showconsumerpower => '(0|1)',
strokeconsumerdyncol => '(0|1)', strokeconsumerdyncol => '(0|1)',
strokeCmrRedColLimit => '\d+',
strokecolstd => '.*', strokecolstd => '.*',
strokecolsig => '.*', strokecolsig => '.*',
strokecolina => '.*', strokecolina => '.*',
@ -16369,7 +16375,7 @@ sub _flowGraphic {
my $cgc = ReadingsNum ($name, 'Current_GridConsumption', 0); my $cgc = ReadingsNum ($name, 'Current_GridConsumption', 0);
my $node2grid = ReadingsNum ($name, 'Current_GridFeedIn', 0); # vom Knoten zum Grid my $node2grid = ReadingsNum ($name, 'Current_GridFeedIn', 0); # vom Knoten zum Grid
my $cself = ReadingsNum ($name, 'Current_SelfConsumption', 0); my $cself = ReadingsNum ($name, 'Current_SelfConsumption', 0);
my $cc = CurrentVal ($hash, 'consumption', 0); my $cc = CurrentVal ($name, 'consumption', 0);
my $cc_dummy = $cc; my $cc_dummy = $cc;
my $scale = FGSCALEDEF; my $scale = FGSCALEDEF;
@ -16399,7 +16405,7 @@ sub _flowGraphic {
$bat2home += $bat2homepow if(defined $bat2homepow); $bat2home += $bat2homepow if(defined $bat2homepow);
} }
my $soc = CurrentVal ($hash, 'batsoctotal', 0); # resultierender SoC (%) aller Batterien als Cluster my $soc = CurrentVal ($name, 'batsoctotal', 0); # resultierender SoC (%) aller Batterien als Cluster
if (!defined $batin && !defined $bat2home) { if (!defined $batin && !defined $bat2home) {
$hasbat = 0; $hasbat = 0;
@ -16559,10 +16565,11 @@ sub _flowGraphic {
!$node2grid && !$cgc && $bat2home ? "$stna grid_gray" : !$node2grid && !$cgc && $bat2home ? "$stna grid_gray" :
"$stna grid_red"; "$stna grid_red";
my $strokecolstd = CurrentVal ($hash, 'strokecolstd', STROKCOLSTDDEF); my $strokecolstd = CurrentVal ($name, 'strokecolstd', STROKCOLSTDDEF);
my $strokecolsig = CurrentVal ($hash, 'strokecolsig', STROKCOLSIGDEF); my $strokecolsig = CurrentVal ($name, 'strokecolsig', STROKCOLSIGDEF);
my $strokecolina = CurrentVal ($hash, 'strokecolina', STROKCOLINADEF); my $strokecolina = CurrentVal ($name, 'strokecolina', STROKCOLINADEF);
my $strokewidth = CurrentVal ($hash, 'strokewidth', STROKWIDTHDEF); my $strokewidth = CurrentVal ($name, 'strokewidth', STROKWIDTHDEF);
my $strokeredlim = CurrentVal ($name, 'strokeCmrRedColLimit', STROKCMRREDLIM);
my $ret = << "END0"; my $ret = << "END0";
<style> <style>
@ -16634,7 +16641,7 @@ END0
$cons_left = $consumer_start + 15; $cons_left = $consumer_start + 15;
for my $c (@consumers) { for my $c (@consumers) {
my $calias = ConsumerVal ($hash, $c, 'alias', ''); # Name des Consumerdevices my $calias = ConsumerVal ($name, $c, 'alias', ''); # Name des Consumerdevices
$currentPower = $cnsmr->{$c}{p}; $currentPower = $cnsmr->{$c}{p};
my ($cicon) = __substituteIcon ( { hash => $hash, # Icon des Consumerdevices my ($cicon) = __substituteIcon ( { hash => $hash, # Icon des Consumerdevices
@ -16683,7 +16690,7 @@ END1
if (defined $car && CurrentVal ($name, 'homenodedyncol', 0)) { if (defined $car && CurrentVal ($name, 'homenodedyncol', 0)) {
$car = 100 - $car; $car = 100 - $car;
my $pahcol = '#'.__dynColor ($car, 0, 50, 100); # V 1.49.5 my $pahcol = '#'.__dynColor ($car, 100); # V 1.50.4
($hicon, my $col) = split '@', $hicon; ($hicon, my $col) = split '@', $hicon;
$hicon = $hicon.'@'.$pahcol; $hicon = $hicon.'@'.$pahcol;
} }
@ -16752,7 +16759,7 @@ END3
my $chain_color = ""; # Farbe der Laufkette Consumer-Dummy my $chain_color = ""; # Farbe der Laufkette Consumer-Dummy
if ($cc_dummy > 0.5 && CurrentVal ($name, 'strokeconsumerdyncol', 0)) { if ($cc_dummy > 0.5 && CurrentVal ($name, 'strokeconsumerdyncol', 0)) {
$chain_color = 'style="stroke: #'.__dynColor ($cc_dummy).';"'; $chain_color = 'style="stroke: #'.__dynColor ($cc_dummy, $strokeredlim).';"';
} }
$ret .= qq{<path id="home2dummy_$stna" class="$consumer_style" $chain_color d="M790,690 L1200,690" />}; $ret .= qq{<path id="home2dummy_$stna" class="$consumer_style" $chain_color d="M790,690 L1200,690" />};
@ -16814,8 +16821,8 @@ END3
my $consumer_style; my $consumer_style;
for my $c (@consumers) { for my $c (@consumers) {
my $power = ConsumerVal ($hash, $c, 'power', 0); my $power = ConsumerVal ($name, $c, 'power', 0);
my $rpcurr = ConsumerVal ($hash, $c, 'rpcurr', ''); # Reading für akt. Verbrauch angegeben ? my $rpcurr = ConsumerVal ($name, $c, 'rpcurr', ''); # Reading für akt. Verbrauch angegeben ?
$currentPower = $cnsmr->{$c}{p}; $currentPower = $cnsmr->{$c}{p};
if (!$rpcurr && isConsumerPhysOn($hash, $c)) { # Workaround wenn Verbraucher ohne Leistungsmessung if (!$rpcurr && isConsumerPhysOn($hash, $c)) { # Workaround wenn Verbraucher ohne Leistungsmessung
@ -16828,7 +16835,7 @@ END3
my $chain_color = ""; # Farbe der Laufkette des Consumers my $chain_color = ""; # Farbe der Laufkette des Consumers
if ($p > 0.5 && CurrentVal ($name, 'strokeconsumerdyncol', 0)) { if ($p > 0.5 && CurrentVal ($name, 'strokeconsumerdyncol', 0)) {
$chain_color = 'style="stroke: #'.__dynColor ($p).';"'; $chain_color = 'style="stroke: #'.__dynColor ($currentPower, $strokeredlim).';"';
} }
$ret .= qq{<path id="home2consumer_${c}_$stna" class="$consumer_style" $chain_color d="M$cons_left_start,780 L$cons_left,$y_pos" />}; $ret .= qq{<path id="home2consumer_${c}_$stna" class="$consumer_style" $chain_color d="M$cons_left_start,780 L$cons_left,$y_pos" />};
@ -16899,8 +16906,8 @@ END3
for my $c (@consumers) { for my $c (@consumers) {
$currentPower = sprintf "%.1f", $cnsmr->{$c}{p}; $currentPower = sprintf "%.1f", $cnsmr->{$c}{p};
$currentPower = sprintf "%.0f", $currentPower if($currentPower > 10); $currentPower = sprintf "%.0f", $currentPower if($currentPower > 10);
my $consumerTime = ConsumerVal ($hash, $c, 'remainTime', ''); # Restlaufzeit my $consumerTime = ConsumerVal ($name, $c, 'remainTime', ''); # Restlaufzeit
my $rpcurr = ConsumerVal ($hash, $c, 'rpcurr', ''); # Readingname f. current Power my $rpcurr = ConsumerVal ($name, $c, 'rpcurr', ''); # Readingname f. current Power
if (!$rpcurr) { # Workaround wenn Verbraucher ohne Leistungsmessung if (!$rpcurr) { # Workaround wenn Verbraucher ohne Leistungsmessung
$currentPower = isConsumerPhysOn($hash, $c) ? 'on' : 'off'; $currentPower = isConsumerPhysOn($hash, $c) ? 'on' : 'off';
@ -17246,10 +17253,11 @@ return ($icon, $txt);
################################################################### ###################################################################
sub __dynColor { sub __dynColor {
my $val = shift; my $val = shift;
my $beg = shift // 0;
my $mid = shift // 200;
my $end = shift // 400; my $end = shift // 400;
my $beg = 0;
my $mid = $end / 2;
my $color = substr (Color::pahColor ($beg, $mid, $end, $val, [40,198,45, 127,255,0, 251,158,4, 255,127,0, 255,0,0]), 0, 6); my $color = substr (Color::pahColor ($beg, $mid, $end, $val, [40,198,45, 127,255,0, 251,158,4, 255,127,0, 255,0,0]), 0, 6);
return $color; return $color;
@ -24747,6 +24755,9 @@ to ensure that the system configuration is correct.
<tr><td> <b>strokeconsumerdyncol</b> </td><td>The lines from the house node to the consumers can be colored dynamically depending on the consumption value. </td></tr> <tr><td> <b>strokeconsumerdyncol</b> </td><td>The lines from the house node to the consumers can be colored dynamically depending on the consumption value. </td></tr>
<tr><td> </td><td><b>0</b> - no dynamic coloring, <b>1</b> - dynamic coloring, default: 0 </td></tr> <tr><td> </td><td><b>0</b> - no dynamic coloring, <b>1</b> - dynamic coloring, default: 0 </td></tr>
<tr><td> </td><td> </td></tr> <tr><td> </td><td> </td></tr>
<tr><td> <b>strokeCmrRedColLimit</b> </td><td>Power consumption from which the house -> consumer line is displayed in red if strokeconsumerdyncol=1 is set. </td></tr>
<tr><td> </td><td>Value: <b>Integer</b>, default: 400 </td></tr>
<tr><td> </td><td> </td></tr>
<tr><td> <b>strokecolina </b> </td><td>Color of an inactive line </td></tr> <tr><td> <b>strokecolina </b> </td><td>Color of an inactive line </td></tr>
<tr><td> </td><td>Value: <b>Hex (e.g. #cc3300) or designation (e.g. red, blue)</b>, default: gray </td></tr> <tr><td> </td><td>Value: <b>Hex (e.g. #cc3300) or designation (e.g. red, blue)</b>, default: gray </td></tr>
<tr><td> </td><td> </td></tr> <tr><td> </td><td> </td></tr>
@ -25106,7 +25117,7 @@ to ensure that the system configuration is correct.
<colgroup> <col width="23%"> <col width="77%"> </colgroup> <colgroup> <col width="23%"> <col width="77%"> </colgroup>
<tr><td> <b>backupFilesKeep</b> </td><td>Defines the number of generations of backup files. </td></tr> <tr><td> <b>backupFilesKeep</b> </td><td>Defines the number of generations of backup files. </td></tr>
<tr><td> </td><td>(see <a href="#SolarForecast-set-operatingMemory">set &lt;name&gt; operatingMemory backup</a>) </td></tr> <tr><td> </td><td>(see <a href="#SolarForecast-set-operatingMemory">set &lt;name&gt; operatingMemory backup</a>) </td></tr>
<tr><td> </td><td>If ctrlBackupFilesKeep explit is set to '0', no automatic generation and cleanup of backup files takes place. </td></tr> <tr><td> </td><td>If backupFilesKeep explit is set to '0', no automatic generation and cleanup of backup files takes place. </td></tr>
<tr><td> </td><td>Manual execution with the aforementioned set command is still possible. </td></tr> <tr><td> </td><td>Manual execution with the aforementioned set command is still possible. </td></tr>
<tr><td> </td><td>Value: <b>Integer</b>, default: 3 </td></tr> <tr><td> </td><td>Value: <b>Integer</b>, default: 3 </td></tr>
<tr><td> </td><td> </td></tr> <tr><td> </td><td> </td></tr>
@ -27230,7 +27241,10 @@ die ordnungsgemäße Anlagenkonfiguration geprüft werden.
<tr><td> <b>strokeconsumerdyncol</b> </td><td>Die Linien vom Hausknoten zu den Verbrauchern können abhängig vom Verbrauchswert dynamisch eingefärbt werden. </td></tr> <tr><td> <b>strokeconsumerdyncol</b> </td><td>Die Linien vom Hausknoten zu den Verbrauchern können abhängig vom Verbrauchswert dynamisch eingefärbt werden. </td></tr>
<tr><td> </td><td><b>0</b> - keine dynamische Färbung, <b>1</b> - dynamische Färbung, default: 0 </td></tr> <tr><td> </td><td><b>0</b> - keine dynamische Färbung, <b>1</b> - dynamische Färbung, default: 0 </td></tr>
<tr><td> </td><td> </td></tr> <tr><td> </td><td> </td></tr>
<tr><td> <b>strokecolina </b> </td><td>Farbe einer inaktiven Linie </td></tr> <tr><td> <b>strokeCmrRedColLimit</b> </td><td>Leistungsaufnahme ab der die Linie Haus -> Verbraucher rot dargestellt wird sofern strokeconsumerdyncol=1 gesetzt ist. </td></tr>
<tr><td> </td><td>Wert: <b>Ganzzahl</b>, default: 400 </td></tr>
<tr><td> </td><td> </td></tr>
<tr><td> <b>strokecolina </b> </td><td>Farbe einer inaktiven Linie </td></tr>
<tr><td> </td><td>Wert: <b>Hex (z.B. #cc3300) oder Bezeichnung (z.B. red, blue)</b>, default: gray </td></tr> <tr><td> </td><td>Wert: <b>Hex (z.B. #cc3300) oder Bezeichnung (z.B. red, blue)</b>, default: gray </td></tr>
<tr><td> </td><td> </td></tr> <tr><td> </td><td> </td></tr>
<tr><td> <b>strokecolsig </b> </td><td>Farbe einer aktiven Signallinie </td></tr> <tr><td> <b>strokecolsig </b> </td><td>Farbe einer aktiven Signallinie </td></tr>
@ -27587,7 +27601,7 @@ die ordnungsgemäße Anlagenkonfiguration geprüft werden.
<colgroup> <col width="23%"> <col width="77%"> </colgroup> <colgroup> <col width="23%"> <col width="77%"> </colgroup>
<tr><td> <b>backupFilesKeep</b> </td><td>Legt die Anzahl der Generationen von Sicherungsdateien fest. </td></tr> <tr><td> <b>backupFilesKeep</b> </td><td>Legt die Anzahl der Generationen von Sicherungsdateien fest. </td></tr>
<tr><td> </td><td>(siehe <a href="#SolarForecast-set-operatingMemory">set &lt;name&gt; operatingMemory backup</a>) </td></tr> <tr><td> </td><td>(siehe <a href="#SolarForecast-set-operatingMemory">set &lt;name&gt; operatingMemory backup</a>) </td></tr>
<tr><td> </td><td>Ist ctrlBackupFilesKeep explit auf '0' gesetzt, erfolgt keine automatische Generierung und Bereinigung von Sicherungsdateien. </td></tr> <tr><td> </td><td>Ist backupFilesKeep explit auf '0' gesetzt, erfolgt keine automatische Generierung und Bereinigung von Sicherungsdateien. </td></tr>
<tr><td> </td><td>Eine manuelle Ausführung mit dem genannten Set-Kommando ist weiterhin möglich. </td></tr> <tr><td> </td><td>Eine manuelle Ausführung mit dem genannten Set-Kommando ist weiterhin möglich. </td></tr>
<tr><td> </td><td>Wert: <b>Ganzzahl</b>, default: 3 </td></tr> <tr><td> </td><td>Wert: <b>Ganzzahl</b>, default: 3 </td></tr>
<tr><td> </td><td> </td></tr> <tr><td> </td><td> </td></tr>