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

76_SolarForecast.pm: contrib 0.19.0

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@24059 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2021-03-22 21:32:51 +00:00
parent 1eb42e94d4
commit 58ae7166cc
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1403,10 +1403,10 @@ sub _transferDWDForecastValues {
my $calcpv = calcPVforecast ($name, $v, $num, $t, $fh, $fd); # Vorhersage gewichtet kalkulieren my $calcpv = calcPVforecast ($name, $v, $num, $t, $fh, $fd); # Vorhersage gewichtet kalkulieren
my $num1 = $num-1; #my $num1 = $num-1;
if($num1 >= 0) { if($num >= 0) {
$time_str = "NextHour".sprintf "%02d", $num1; $time_str = "NextHour".sprintf "%02d", $num;
$epoche = $t + (3600*$num1); $epoche = $t + (3600*$num);
my $ta = TimeAdjust ($epoche); my $ta = TimeAdjust ($epoche);
push @$daref, "${time_str}_PVforecast:".$calcpv." Wh"; push @$daref, "${time_str}_PVforecast:".$calcpv." Wh";
@ -1501,7 +1501,7 @@ sub _transferWeatherValues {
$data{$type}{$name}{nexthours}{$time_str}{rainprob} = $r101; $data{$type}{$name}{nexthours}{$time_str}{rainprob} = $r101;
} }
if($num < 23 && $fh > 0 && $fh < 24) { # Ringspeicher Weather Forum: https://forum.fhem.de/index.php/topic,117864.msg1139251.html#msg1139251 if($num < 23 && $fh > 0 && $fh < 24) { # Ringspeicher Weather Forum: https://forum.fhem.de/index.php/topic,117864.msg1139251.html#msg1139251
$data{$type}{$name}{weather}{sprintf("%02d",$fh)}{id} = $wid; $data{$type}{$name}{weather}{sprintf("%02d",$fh)}{id} = $wid;
$data{$type}{$name}{weather}{sprintf("%02d",$fh)}{txt} = $txt; $data{$type}{$name}{weather}{sprintf("%02d",$fh)}{txt} = $txt;
$data{$type}{$name}{weather}{sprintf("%02d",$fh)}{cloudcover} = $neff; $data{$type}{$name}{weather}{sprintf("%02d",$fh)}{cloudcover} = $neff;
@ -2196,7 +2196,7 @@ sub forecastGraphic {
####################################### #######################################
#correct the hour for accurate display #correct the hour for accurate display
if ($start < $hfcg->{0}{time}) { # consumption seems to be tomorrow if ($start < $hfcg->{0}{time}) { # consumption seems to be tomorrow
$start = 24-$hfcg->{0}{time}+$start; $start = 24-$hfcg->{0}{time}+$start;
$flag = 1; $flag = 1;
} }