FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-22 14:16:42 +00:00
Code Issues Releases Wiki Activity

76_SolarForecast.pm: contrib 0.21.0

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@24074 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2021-03-24 15:38:43 +00:00
parent 0bcbebe992
commit 0c5ceefdb6
1 changed files with 57 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1180,6 +1180,7 @@ sub centralTask {
Log3 ($name, 4, "$name - ################################################################"); Log3 ($name, 4, "$name - ################################################################");
Log3 ($name, 4, "$name - current hour of day: ".($chour+1)); Log3 ($name, 4, "$name - current hour of day: ".($chour+1));
_additionalEvents ($params); # zusätzliche Events generieren + Zusatzaufgaben
_transferWeatherValues ($params); # Wetterwerte übertragen _transferWeatherValues ($params); # Wetterwerte übertragen
_transferDWDForecastValues ($params); # Forecast Werte übertragen _transferDWDForecastValues ($params); # Forecast Werte übertragen
_transferInverterValues ($params); # WR Werte übertragen _transferInverterValues ($params); # WR Werte übertragen
@ -1193,8 +1194,6 @@ sub centralTask {
calcVariance ($params); # Autokorrektur berechnen calcVariance ($params); # Autokorrektur berechnen
_additionalEvents ($params);
readingsSingleUpdate($hash, "state", "updated", 1); # Abschluß state readingsSingleUpdate($hash, "state", "updated", 1); # Abschluß state
} }
else { else {
@ -1336,6 +1335,59 @@ sub writeCacheToFile {
return; return;
} }
################################################################
# Zusätzliche Events für Logging generieren und
# Sonderaufgaben !
################################################################
sub _additionalEvents {
my $paref = shift;
my $hash = $paref->{hash};
my $name = $paref->{name};
my $chour = $paref->{chour};
my $t = $paref->{t}; # Epoche Zeit
my $no_replace = 1; # Ersetzung von Events durch das Attribut eventMap verhindern
my $date = strftime "%Y-%m-%d", localtime($t); # aktuelles Datum
my $mseclog = AttrVal("global", "mseclog", 0);
my $tsmsec = $mseclog ? ".000" : q{};
my ($ts,$pvfc,$pvrl);
$ts = $date." ".sprintf("%02d",$chour).":00:00".$tsmsec;
$pvfc = ReadingsNum($name, "Today_Hour".sprintf("%02d",$chour)."_PVforecast", undef);
__addCHANGED ($hash, "PVforecast: ".$pvfc, $ts) if(defined $pvfc);
$pvrl = ReadingsNum($name, "Today_Hour".sprintf("%02d",$chour)."_PVreal", undef);
__addCHANGED ($hash, "PVreal: ".$pvrl, $ts) if(defined $pvrl);
my $tlim = "00"; # bestimmte Aktionen
if($chour =~ /^($tlim)$/x) {
if(!exists $hash->{HELPER}{H00DONE}) {
$ts = $date." ".sprintf("%02d",24).":00:00".$tsmsec;
$pvfc = ReadingsNum($name, "Today_Hour".sprintf("%02d",24)."_PVforecast", undef);
__addCHANGED ($hash, "PVforecast: ".$pvfc, $ts) if(defined $pvfc);
$pvrl = ReadingsNum($name, "Today_Hour".sprintf("%02d",24)."_PVreal", undef);
__addCHANGED ($hash, "PVreal: ".$pvrl, $ts) if(defined $pvrl);
deleteReadingspec ($hash, "Today_Hour.*_GridConsumption");
deleteReadingspec ($hash, "Today_Hour.*_PV.*");
delete $hash->{HELPER}{INITETOTAL};
delete $hash->{HELPER}{INITCONTOTAL};
$hash->{HELPER}{H00DONE} = 1;
}
}
else {
delete $hash->{HELPER}{H00DONE};
}
my $ret = DoTrigger($name, undef, $no_replace);
return;
}
################################################################ ################################################################
# Forecast Werte Device (DWD_OpenData) ermitteln und # Forecast Werte Device (DWD_OpenData) ermitteln und
# übertragen # übertragen
@ -1508,14 +1560,8 @@ sub _transferInverterValues {
$indev = $a->[0] // ""; $indev = $a->[0] // "";
return if(!$indev || !$defs{$indev}); return if(!$indev || !$defs{$indev});
my $tlim = "23"; # Stunde 23 -> bestimmte Aktionen
my $type = $hash->{TYPE}; my $type = $hash->{TYPE};
if($chour =~ /^($tlim)$/x) {
deleteReadingspec ($hash, "Today_Hour.*_PV.*");
delete $hash->{HELPER}{INITETOTAL};
}
my ($pvread,$pvunit) = split ":", $h->{pv}; # Readingname/Unit für aktuelle PV Erzeugung my ($pvread,$pvunit) = split ":", $h->{pv}; # Readingname/Unit für aktuelle PV Erzeugung
my ($edread,$etunit) = split ":", $h->{etotal}; # Readingname/Unit für Energie total my ($edread,$etunit) = split ":", $h->{etotal}; # Readingname/Unit für Energie total
@ -1593,14 +1639,8 @@ sub _transferMeterValues {
$medev = $a->[0] // ""; $medev = $a->[0] // "";
return if(!$medev || !$defs{$medev}); return if(!$medev || !$defs{$medev});
my $tlim = "23"; # Stunde 23 -> bestimmte Aktionen
my $type = $hash->{TYPE}; my $type = $hash->{TYPE};
if($chour =~ /^($tlim)$/x) {
deleteReadingspec ($hash, "Today_Hour.*_GridConsumption");
delete $hash->{HELPER}{INITCONTOTAL};
}
my ($gc,$gcunit) = split ":", $h->{gcon}; # Readingname/Unit für aktuellen Netzbezug my ($gc,$gcunit) = split ":", $h->{gcon}; # Readingname/Unit für aktuellen Netzbezug
my ($gt,$ctunit) = split ":", $h->{contotal}; # Readingname/Unit für Bezug total my ($gt,$ctunit) = split ":", $h->{contotal}; # Readingname/Unit für Bezug total
@ -1677,35 +1717,6 @@ sub _calcDayHourMove {
return ($fd,$fh); return ($fd,$fh);
} }
################################################################
# Zusätzliche Events für Logging generieren
################################################################
sub _additionalEvents {
my $paref = shift;
my $hash = $paref->{hash};
my $name = $paref->{name};
my $t = $paref->{t}; # Epoche Zeit
my $no_replace = 1; # Ersetzung von Events durch das Attribut eventMap verhindern
my $date = strftime "%Y-%m-%d", localtime($t); # aktuelles Datum
my $mseclog = AttrVal("global", "mseclog", 0);
my $tsmsec = $mseclog ? ".000" : q{};
for my $num (1..24) {
my $ts = $date." ".sprintf("%02d",$num).":00:00".$tsmsec;
my $pvfc = ReadingsNum($name, "Today_Hour".sprintf("%02d",$num)."_PVforecast", undef);
__addCHANGED ($hash, "PVforecast: ".$pvfc, $ts) if(defined $pvfc);
my $pvrl = ReadingsNum($name, "Today_Hour".sprintf("%02d",$num)."_PVreal", undef);
__addCHANGED ($hash, "PVreal: ".$pvrl, $ts) if(defined $pvrl);
}
my $ret = DoTrigger($name, undef, $no_replace);
return;
}
################################################################ ################################################################
# Zusätzliche Events für Logging generieren # Zusätzliche Events für Logging generieren
################################################################ ################################################################
@ -2355,7 +2366,7 @@ sub forecastGraphic {
# FHEM Wetter Icons (weather_xxx) , Skalierung und Farbe durch FHEM Bordmittel # 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 # 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})) { 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}); my ($icon_name, $title) = (($hfcg->{$i}{weather} > 100)) ? weather_icon($hfcg->{$i}{weather}-100) : weather_icon($hfcg->{$i}{weather});
# unknown -> FHEM Icon Fragezeichen im Kreis wird als Ersatz Icon ausgegeben # 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'); Log3($name, 4, "$name - unknown weather id: ".$hfcg->{$i}{weather}.", please inform the maintainer") if($icon_name eq 'unknown');