######################################################################################################################## # $Id: 76_SolarForecast.pm 21735 2020-04-20 20:53:24Z DS_Starter $ ######################################################################################################################### # 76_SolarForecast.pm # # (c) 2020-2021 by Heiko Maaz e-mail: Heiko dot Maaz at t-online dot de # # This Module is used by module 76_SMAPortal to create graphic devices. # It can't be used standalone without any SMAPortal-Device. # # This script is part of fhem. # # Fhem is free software: you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation, either version 2 of the License, or # (at your option) any later version. # # Fhem is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with fhem. If not, see . # ######################################################################################################################### package FHEM::SolarForecast; ## no critic 'package' use strict; use warnings; use POSIX; use GPUtils qw(GP_Import GP_Export); # wird für den Import der FHEM Funktionen aus der fhem.pl benötigt use Time::HiRes qw(gettimeofday); eval "use FHEM::Meta;1" or my $modMetaAbsent = 1; ## no critic 'eval' use Encode; use utf8; eval "use JSON;1;" or my $jsonabs = "JSON"; ## no critic 'eval' # Debian: apt-get install libjson-perl use FHEM::SynoModules::SMUtils qw( evaljson moduleVersion ); # Hilfsroutinen Modul use Data::Dumper; # Run before module compilation BEGIN { # Import from main:: GP_Import( qw( attr AnalyzePerlCommand AttrVal AttrNum data defs delFromDevAttrList delFromAttrList devspec2array deviceEvents Debug fhemTimeLocal FmtDateTime FileWrite FileRead FileDelete FmtTime FW_makeImage getKeyValue init_done InternalTimer IsDisabled Log Log3 modules parseParams readingsSingleUpdate readingsBulkUpdate readingsBulkUpdateIfChanged readingsBeginUpdate readingsDelete readingsEndUpdate ReadingsNum ReadingsTimestamp ReadingsVal RemoveInternalTimer readingFnAttributes setKeyValue sortTopicNum FW_cmd FW_directNotify FW_ME FW_subdir FW_room FW_detail FW_wname ) ); # Export to main context with different name # my $pkg = caller(0); # my $main = $pkg; # $main =~ s/^(?:.+::)?([^:]+)$/main::$1\_/g; # foreach (@_) { # *{ $main . $_ } = *{ $pkg . '::' . $_ }; # } GP_Export( qw( Initialize pageAsHtml ) ); } # Versions History intern my %vNotesIntern = ( "0.2.0" => "use SMUtils, JSON, implement getter data,html,pvHistory ", "0.1.0" => "09.12.2020 initial Version " ); # Voreinstellungen my %hset = ( # Hash der Set-Funktion currentForecastDev => { fn => \&_setcurrentForecastDev }, moduleArea => { fn => \&_setmoduleArea }, moduleEfficiency => { fn => \&_setmoduleEfficiency }, inverterEfficiency => { fn => \&_setinverterEfficiency }, currentInverterDev => { fn => \&_setinverterDevice }, currentMeterDev => { fn => \&_setmeterDevice }, pvCorrectionFactor_05 => { fn => \&_setpvCorrectionFactor }, pvCorrectionFactor_06 => { fn => \&_setpvCorrectionFactor }, pvCorrectionFactor_07 => { fn => \&_setpvCorrectionFactor }, pvCorrectionFactor_08 => { fn => \&_setpvCorrectionFactor }, pvCorrectionFactor_09 => { fn => \&_setpvCorrectionFactor }, pvCorrectionFactor_10 => { fn => \&_setpvCorrectionFactor }, pvCorrectionFactor_11 => { fn => \&_setpvCorrectionFactor }, pvCorrectionFactor_12 => { fn => \&_setpvCorrectionFactor }, pvCorrectionFactor_13 => { fn => \&_setpvCorrectionFactor }, pvCorrectionFactor_14 => { fn => \&_setpvCorrectionFactor }, pvCorrectionFactor_15 => { fn => \&_setpvCorrectionFactor }, pvCorrectionFactor_16 => { fn => \&_setpvCorrectionFactor }, pvCorrectionFactor_17 => { fn => \&_setpvCorrectionFactor }, pvCorrectionFactor_18 => { fn => \&_setpvCorrectionFactor }, pvCorrectionFactor_19 => { fn => \&_setpvCorrectionFactor }, pvCorrectionFactor_20 => { fn => \&_setpvCorrectionFactor }, pvCorrectionFactor_21 => { fn => \&_setpvCorrectionFactor }, pvCorrectionFactor_Auto => { fn => \&_setpvCorrectionFactorAuto }, reset => { fn => \&_setreset }, moduleTiltAngle => { fn => \&_setmoduleTiltAngle }, ); my %hget = ( # Hash für Get-Funktion (needcred => 1: Funktion benötigt gesetzte Credentials) data => { fn => \&_getdata, needcred => 0 }, html => { fn => \&_gethtml, needcred => 0 }, ftui => { fn => \&_getftui, needcred => 0 }, pvHistory => { fn => \&_getlistPVHistory, needcred => 0 }, ); my %htilt = ( # Faktor für Neigungswinkel der Solarmodule "0" => 1.00, # https://www.labri.fr/perso/billaud/travaux/Helios/Helios2/resources/de04/Chapter_4_DE.pdf "10" => 1.06, "20" => 1.15, "30" => 1.35, "40" => 1.43, "45" => 1.44, "50" => 1.47, "60" => 1.50, "70" => 1.44, "80" => 1.35, "90" => 1.26 ); my %weather_ids = ( # s => 0 , 0 - 3 DWD -> kein signifikantes Wetter # s => 1 , 45 - 99 DWD -> signifikantes Wetter '0' => { s => '0', icon => 'weather_sun', txtd => 'sonnig' }, '1' => { s => '0', icon => 'weather_cloudy_light', txtd => 'Bewölkung abnehmend' }, '2' => { s => '0', icon => 'weather_cloudy', txtd => 'Bewölkung unverändert' }, '3' => { s => '0', icon => 'weather_cloudy_heavy', txtd => 'Bewölkung zunehmend' }, '4' => { s => '0', icon => 'unknown', txtd => 'Sicht durch Rauch oder Asche vermindert' }, '5' => { s => '0', icon => 'unknown', txtd => 'trockener Dunst (relative Feuchte < 80 %)' }, '6' => { s => '0', icon => 'unknown', txtd => 'verbreiteter Schwebstaub, nicht vom Wind herangeführt' }, '7' => { s => '0', icon => 'unknown', txtd => 'Staub oder Sand bzw. Gischt, vom Wind herangeführt' }, '8' => { s => '0', icon => 'unknown', txtd => 'gut entwickelte Staub- oder Sandwirbel' }, '9' => { s => '0', icon => 'unknown', txtd => 'Staub- oder Sandsturm im Gesichtskreis, aber nicht an der Station' }, '10' => { s => '0', icon => 'weather_fog', txtd => 'Nebel' }, '11' => { s => '0', icon => 'weather_rain_fog', txtd => 'Nebel mit Regen' }, '12' => { s => '0', icon => 'weather_fog', txtd => 'durchgehender Bodennebel' }, '13' => { s => '0', icon => 'unknown', txtd => 'Wetterleuchten sichtbar, kein Donner gehört' }, '14' => { s => '0', icon => 'unknown', txtd => 'Niederschlag im Gesichtskreis, nicht den Boden erreichend' }, '15' => { s => '0', icon => 'unknown', txtd => 'Niederschlag in der Ferne (> 5 km), aber nicht an der Station' }, '16' => { s => '0', icon => 'unknown', txtd => 'Niederschlag in der Nähe (< 5 km), aber nicht an der Station' }, '17' => { s => '0', icon => 'unknown', txtd => 'Gewitter (Donner hörbar), aber kein Niederschlag an der Station' }, '18' => { s => '0', icon => 'unknown', txtd => 'Markante Böen im Gesichtskreis, aber kein Niederschlag an der Station' }, '19' => { s => '0', icon => 'unknown', txtd => 'Tromben (trichterförmige Wolkenschläuche) im Gesichtskreis' }, '20' => { s => '0', icon => 'unknown', txtd => 'nach Sprühregen oder Schneegriesel' }, '21' => { s => '0', icon => 'unknown', txtd => 'nach Regen' }, '22' => { s => '0', icon => 'unknown', txtd => 'nach Schnefall' }, '23' => { s => '0', icon => 'unknown', txtd => 'nach Schneeregen oder Eiskörnern' }, '24' => { s => '0', icon => 'unknown', txtd => 'nach gefrierendem Regen' }, '25' => { s => '0', icon => 'unknown', txtd => 'nach Regenschauer' }, '26' => { s => '0', icon => 'unknown', txtd => 'nach Schneeschauer' }, '27' => { s => '0', icon => 'unknown', txtd => 'nach Graupel- oder Hagelschauer' }, '28' => { s => '0', icon => 'unknown', txtd => 'nach Nebel' }, '29' => { s => '0', icon => 'unknown', txtd => 'nach Gewitter' }, '30' => { s => '0', icon => 'unknown', txtd => 'leichter oder mäßiger Sandsturm, an Intensität abnehmend' }, '31' => { s => '0', icon => 'unknown', txtd => 'leichter oder mäßiger Sandsturm, unveränderte Intensität' }, '32' => { s => '0', icon => 'unknown', txtd => 'leichter oder mäßiger Sandsturm, an Intensität zunehmend' }, '33' => { s => '0', icon => 'unknown', txtd => 'schwerer Sandsturm, an Intensität abnehmend' }, '34' => { s => '0', icon => 'unknown', txtd => 'schwerer Sandsturm, unveränderte Intensität' }, '35' => { s => '0', icon => 'unknown', txtd => 'schwerer Sandsturm, an Intensität zunehmend' }, '36' => { s => '0', icon => 'weather_snow_light', txtd => 'leichtes oder mäßiges Schneefegen, unter Augenhöhe' }, '37' => { s => '0', icon => 'weather_snow_heavy', txtd => 'starkes Schneefegen, unter Augenhöhe' }, '38' => { s => '0', icon => 'weather_snow_light', txtd => 'leichtes oder mäßiges Schneetreiben, über Augenhöhe' }, '39' => { s => '0', icon => 'weather_snow_heavy', txtd => 'starkes Schneetreiben, über Augenhöhe' }, '40' => { s => '0', icon => 'weather_fog', txtd => 'Nebel in einiger Entfernung' }, '41' => { s => '0', icon => 'weather_fog', txtd => 'Nebel in Schwaden oder Bänken' }, '42' => { s => '0', icon => 'weather_fog', txtd => 'Nebel, Himmel erkennbar, dünner werdend' }, '43' => { s => '0', icon => 'weather_fog', txtd => 'Nebel, Himmel nicht erkennbar, dünner werdend' }, '44' => { s => '0', icon => 'weather_fog', txtd => 'Nebel, Himmel erkennbar, unverändert' }, '45' => { s => '1', icon => 'weather_fog', txtd => 'Nebel' }, '46' => { s => '0', icon => 'weather_fog', txtd => 'Nebel, Himmel erkennbar, dichter werdend' }, '47' => { s => '0', icon => 'weather_fog', txtd => 'Nebel, Himmel nicht erkennbar, dichter werdend' }, '48' => { s => '1', icon => 'weather_fog', txtd => 'Nebel mit Reifbildung' }, '49' => { s => '0', icon => 'weather_fog', txtd => 'Nebel mit Reifansatz, Himmel nicht erkennbar' }, '50' => { s => '0', icon => 'weather_rain', txtd => 'unterbrochener leichter Sprühregen' }, '51' => { s => '1', icon => 'weather_rain_light', txtd => 'leichter Sprühregen' }, '52' => { s => '0', icon => 'weather_rain', txtd => 'unterbrochener mäßiger Sprühregen' }, '53' => { s => '1', icon => 'weather_rain_light', txtd => 'leichter Sprühregen' }, '54' => { s => '0', icon => 'weather_rain_heavy', txtd => 'unterbrochener starker Sprühregen' }, '55' => { s => '1', icon => 'weather_rain_heavy', txtd => 'starker Sprühregen' }, '56' => { s => '1', icon => 'weather_rain_light', txtd => 'leichter gefrierender Sprühregen' }, '57' => { s => '1', icon => 'weather_rain_heavy', txtd => 'mäßiger oder starker gefrierender Sprühregen' }, '58' => { s => '0', icon => 'weather_rain_light', txtd => 'leichter Sprühregen mit Regen' }, '59' => { s => '0', icon => 'weather_rain_heavy', txtd => 'mäßiger oder starker Sprühregen mit Regen' }, '60' => { s => '0', icon => 'weather_rain_light', txtd => 'unterbrochener leichter Regen oder einzelne Regentropfen' }, '61' => { s => '1', icon => 'weather_rain_light', txtd => 'leichter Regen' }, '62' => { s => '0', icon => 'weather_rain', txtd => 'unterbrochener mäßiger Regen' }, '63' => { s => '1', icon => 'weather_rain', txtd => 'mäßiger Regen' }, '64' => { s => '0', icon => 'weather_rain_heavy', txtd => 'unterbrochener starker Regen' }, '65' => { s => '1', icon => 'weather_rain_heavy', txtd => 'starker Regen' }, '66' => { s => '1', icon => 'weather_rain_snow_light', txtd => 'leichter gefrierender Regen' }, '67' => { s => '1', icon => 'weather_rain_snow_heavy', txtd => 'mäßiger oder starker gefrierender Regen' }, '68' => { s => '0', icon => 'weather_rain_snow_light', txtd => 'leichter Schneeregen' }, '69' => { s => '0', icon => 'weather_rain_snow_heavy', txtd => 'mäßiger oder starker Schneeregen' }, '70' => { s => '0', icon => 'weather_snow_light', txtd => 'unterbrochener leichter Schneefall oder einzelne Schneeflocken' }, '71' => { s => '1', icon => 'weather_snow_light', txtd => 'leichter Schneefall' }, '72' => { s => '0', icon => 'weather_snow', txtd => 'unterbrochener mäßiger Schneefall' }, '73' => { s => '1', icon => 'weather_snow', txtd => 'mäßiger Schneefall' }, '74' => { s => '0', icon => 'weather_snow_heavy', txtd => 'unterbrochener starker Schneefall' }, '75' => { s => '1', icon => 'weather_snow_heavy', txtd => 'starker Schneefall' }, '76' => { s => '0', icon => 'weather_frost', txtd => 'Eisnadeln (Polarschnee)' }, '77' => { s => '1', icon => 'weather_frost', txtd => 'Schneegriesel' }, '78' => { s => '0', icon => 'weather_frost', txtd => 'Schneekristalle' }, '79' => { s => '0', icon => 'weather_frost', txtd => 'Eiskörner (gefrorene Regentropfen)' }, '80' => { s => '1', icon => 'weather_rain_light', txtd => 'leichter Regenschauer' }, '81' => { s => '1', icon => 'weather_rain', txtd => 'mäßiger oder starkerRegenschauer' }, '82' => { s => '1', icon => 'weather_rain_heavy', txtd => 'sehr starker Regenschauer' }, '83' => { s => '0', icon => 'weather_snow', txtd => 'mäßiger oder starker Schneeregenschauer' }, '84' => { s => '0', icon => 'weather_snow_light', txtd => 'leichter Schneeschauer' }, '85' => { s => '1', icon => 'weather_snow_light', txtd => 'leichter Schneeschauer' }, '86' => { s => '1', icon => 'weather_snow_heavy', txtd => 'mäßiger oder starker Schneeschauer' }, '87' => { s => '0', icon => 'weather_snow_heavy', txtd => 'mäßiger oder starker Graupelschauer' }, '88' => { s => '0', icon => 'unknown', txtd => 'leichter Hagelschauer' }, '89' => { s => '0', icon => 'unknown', txtd => 'mäßiger oder starker Hagelschauer' }, '90' => { s => '0', icon => 'weather_thunderstorm', txtd => '' }, '91' => { s => '0', icon => 'weather_storm', txtd => '' }, '92' => { s => '0', icon => 'weather_thunderstorm', txtd => '' }, '93' => { s => '0', icon => 'weather_thunderstorm', txtd => '' }, '94' => { s => '0', icon => 'weather_thunderstorm', txtd => '' }, '95' => { s => '1', icon => 'weather_thunderstorm', txtd => 'leichtes oder mäßiges Gewitter ohne Graupel oder Hagel' }, '96' => { s => '1', icon => 'weather_storm', txtd => 'starkes Gewitter ohne Graupel oder Hagel,Gewitter mit Graupel oder Hagel' }, '97' => { s => '0', icon => 'weather_storm', txtd => 'starkes Gewitter mit Regen oder Schnee' }, '98' => { s => '0', icon => 'weather_storm', txtd => 'starkes Gewitter mit Sandsturm' }, '99' => { s => '1', icon => 'weather_storm', txtd => 'starkes Gewitter mit Graupel oder Hagel' }, ); my @chours = (5..21); # Stunden des Tages mit möglichen Korrekturwerten my $defpvme = 16.52; # default Wirkungsgrad Solarmodule my $definve = 98.3; # default Wirkungsgrad Wechselrichter my $kJtokWh = 0.00027778; # Umrechnungsfaktor kJ in kWh my $defmaxvar = 0.5; # max. Varianz pro Tagesberechnung Autokorrekturfaktor my $definterval = 70; # Standard Abfrageintervall my $pvhcache = $attr{global}{modpath}."/FHEM/FhemUtils/PVH_SolarForecast_"; # Filename-Fragment für PV History (wird mit Devicename ergänzt) ################################################################ # Init Fn ################################################################ sub Initialize { my ($hash) = @_; my $fwd = join(",",devspec2array("TYPE=FHEMWEB:FILTER=STATE=Initialized")); $hash->{DefFn} = \&Define; $hash->{GetFn} = \&Get; $hash->{SetFn} = \&Set; $hash->{DeleteFn} = \&Delete; $hash->{FW_summaryFn} = \&FwFn; $hash->{FW_detailFn} = \&FwFn; $hash->{ShutdownFn} = \&Shutdown; $hash->{AttrFn} = \&Attr; $hash->{NotifyFn} = \&Notify; $hash->{AttrList} = "autoRefresh:selectnumbers,120,0.2,1800,0,log10 ". "autoRefreshFW:$fwd ". "beamColor:colorpicker,RGB ". "beamColor2:colorpicker,RGB ". "beamHeight ". "beamWidth ". # "consumerList ". # "consumerLegend:none,icon_top,icon_bottom,text_top,text_bottom ". # "consumerAdviceIcon ". "disable:1,0 ". "forcePageRefresh:1,0 ". "headerAlignment:center,left,right ". "headerDetail:all,co,pv,pvco,statusLink ". "hourCount:slider,4,1,24 ". "hourStyle ". "htmlStart ". "htmlEnd ". "interval ". "layoutType:pv,co,pvco,diff ". "maxVariancePerDay ". "maxPV ". "showDiff:no,top,bottom ". "showHeader:1,0 ". "showLink:1,0 ". "showNight:1,0 ". "showWeather:1,0 ". "spaceSize ". "Wh/kWh:Wh,kWh ". "weatherColor:colorpicker,RGB ". "weatherColor_night:colorpicker,RGB ". $readingFnAttributes; $hash->{FW_hideDisplayName} = 1; # Forum 88667 # $hash->{FW_addDetailToSummary} = 1; # $hash->{FW_atPageEnd} = 1; # wenn 1 -> kein Longpoll ohne informid in HTML-Tag eval { FHEM::Meta::InitMod( __FILE__, $hash ) }; # für Meta.pm (https://forum.fhem.de/index.php/topic,97589.0.html) return; } ############################################################### # SolarForecast Define ############################################################### sub Define { my ($hash, $def) = @_; my @a = split(/\s+/x, $def); return "Error: Perl module ".$jsonabs." is missing. Install it on Debian with: sudo apt-get install libjson-perl" if($jsonabs); my $name = $hash->{NAME}; my $type = $hash->{TYPE}; $hash->{HELPER}{MODMETAABSENT} = 1 if($modMetaAbsent); # Modul Meta.pm nicht vorhanden my $params = { hash => $hash, notes => \%vNotesIntern, useAPI => 0, useSMUtils => 1, useErrCodes => 0 }; use version 0.77; our $VERSION = moduleVersion ($params); # Versionsinformationen setzen createNotifyDev ($hash); my $file = $pvhcache.$name; my ($error, @content) = FileRead ($file); # Cache File der PV History lesen wenn vorhanden if(!$error) { my $json = join "", @content; my $success = evaljson ($hash, $json); if($success) { $data{$type}{$name}{pvhist} = decode_json ($json); } else { Log3($name, 2, qq{$name - WARNING - the content of file "$file" is not readable and may be corrupt}); } } readingsSingleUpdate($hash, "state", "initialized", 1); centralTask ($hash); # Einstieg in Abfrage return; } ############################################################### # SolarForecast Set ############################################################### sub Set { my ($hash, @a) = @_; return "\"set X\" needs at least an argument" if ( @a < 2 ); my $name = shift @a; my $opt = shift @a; my $arg = join " ", map { my $p = $_; $p =~ s/\s//xg; $p; } @a; ## no critic 'Map blocks' my $prop = shift @a; my $prop1 = shift @a; my ($setlist,@fcdevs,@indevs,@medevs,@cfs); my ($fcd,$ind,$med,$cf) = ("","","",""); return if(IsDisabled($name)); @fcdevs = devspec2array("TYPE=DWD_OpenData"); $fcd = join ",", @fcdevs if(@fcdevs); for my $h (@chours) { push @cfs, "pvCorrectionFactor_".sprintf("%02d",$h); } $cf = join " ", @cfs if(@cfs); my $tilt = join ",", sort keys %htilt; $setlist = "Unknown argument $opt, choose one of ". "currentForecastDev:$fcd ". "currentInverterDev:textField-long ". "currentMeterDev:textField-long ". "inverterEfficiency ". "moduleArea ". "moduleEfficiency ". "moduleTiltAngle:$tilt ". "pvCorrectionFactor_Auto:on,off ". "reset:currentForecastDev,currentInverterDev,currentMeterDev ". $cf ; my $params = { hash => $hash, name => $name, opt => $opt, arg => $arg, prop => $prop, prop1 => $prop1 }; if($hset{$opt} && defined &{$hset{$opt}{fn}}) { my $ret = q{}; $ret = &{$hset{$opt}{fn}} ($params); return $ret; } return "$setlist"; } ################################################################ # Setter currentForecastDev ################################################################ sub _setcurrentForecastDev { ## no critic "not used" my $paref = shift; my $hash = $paref->{hash}; my $name = $paref->{name}; my $prop = $paref->{prop} // return qq{no PV forecast device specified}; if(!$defs{$prop} || $defs{$prop}{TYPE} ne "DWD_OpenData") { return qq{Forecast device "$prop" doesn't exist or has no TYPE "DWD_OpenData"}; #' :) } readingsSingleUpdate($hash, "currentForecastDev", $prop, 1); createNotifyDev ($hash); return; } ################################################################ # Setter currentInverterDev ################################################################ sub _setinverterDevice { ## no critic "not used" my $paref = shift; my $hash = $paref->{hash}; my $name = $paref->{name}; my $opt = $paref->{opt}; my $arg = $paref->{arg}; if(!$arg) { return qq{The command "$opt" needs an argument !}; } my ($a,$h) = parseParams ($arg); my $indev = $a->[0] // ""; if(!$indev || !$defs{$indev}) { return qq{The device "$indev" doesn't exist!}; } readingsSingleUpdate($hash, "currentInverterDev", $arg, 1); createNotifyDev ($hash); return; } ################################################################ # Setter currentMeterDev ################################################################ sub _setmeterDevice { ## no critic "not used" my $paref = shift; my $hash = $paref->{hash}; my $name = $paref->{name}; my $opt = $paref->{opt}; my $arg = $paref->{arg}; if(!$arg) { return qq{The command "$opt" needs an argument !}; } my ($a,$h) = parseParams ($arg); my $medev = $a->[0] // ""; if(!$medev || !$defs{$medev}) { return qq{The device "$medev" doesn't exist!}; } readingsSingleUpdate($hash, "currentMeterDev", $arg, 1); createNotifyDev ($hash); return; } ################################################################ # Setter moduleArea ################################################################ sub _setmoduleArea { ## no critic "not used" my $paref = shift; my $hash = $paref->{hash}; my $name = $paref->{name}; my $prop = $paref->{prop} // return qq{no PV module area specified}; if($prop !~ /[0-9,.]/x) { return qq{The module area must be specified by numbers and optionally with decimal places}; } $prop =~ s/,/./x; readingsSingleUpdate($hash, "moduleArea", $prop." qm", 1); return; } ################################################################ # Setter reset ################################################################ sub _setreset { ## no critic "not used" my $paref = shift; my $hash = $paref->{hash}; my $name = $paref->{name}; my $prop = $paref->{prop} // return qq{no reading to reset specified}; readingsDelete($hash, $prop); if($prop eq "currentMeterDev") { readingsDelete($hash, "Current_GridConsumption"); } if($prop eq "currentInverterDev") { readingsDelete ($hash, "Current_PV"); deleteReadingspec ($hash, ".*_PVreal" ); } createNotifyDev ($hash); return; } ################################################################ # Setter moduleEfficiency ################################################################ sub _setmoduleEfficiency { ## no critic "not used" my $paref = shift; my $hash = $paref->{hash}; my $name = $paref->{name}; my $prop = $paref->{prop} // return qq{no PV module efficiency specified}; if($prop !~ /[0-9,.]/x) { return qq{The module efficiency must be specified by numbers and optionally with decimal places}; } $prop =~ s/,/./x; readingsSingleUpdate($hash, "moduleEfficiency", $prop, 1); return; } ################################################################ # Setter moduleTiltAngle ################################################################ sub _setmoduleTiltAngle { ## no critic "not used" my $paref = shift; my $hash = $paref->{hash}; my $name = $paref->{name}; my $prop = $paref->{prop} // return qq{no tilt angle was provided}; if($prop !~ /[0-9]/x) { return qq{The tilt angle must be specified by numbers}; } readingsSingleUpdate($hash, "moduleTiltAngle", $prop, 1); return; } ################################################################ # Setter inverterEfficiency ################################################################ sub _setinverterEfficiency { ## no critic "not used" my $paref = shift; my $hash = $paref->{hash}; my $name = $paref->{name}; my $prop = $paref->{prop} // return qq{no inverter efficiency specified}; if($prop !~ /[0-9,.]/x) { return qq{The inverter efficiency must be specified by numbers and optionally with decimal places}; } $prop =~ s/,/./x; readingsSingleUpdate($hash, "inverterEfficiency", $prop, 1); return; } ################################################################ # Setter pvCorrectionFactor ################################################################ sub _setpvCorrectionFactor { ## no critic "not used" my $paref = shift; my $hash = $paref->{hash}; my $name = $paref->{name}; my $opt = $paref->{opt}; my $prop = $paref->{prop} // return qq{no correction value specified}; if($prop !~ /[0-9,.]/x) { return qq{The correction value must be specified by numbers and optionally with decimal places}; } $prop =~ s/,/./x; readingsSingleUpdate($hash, $opt, $prop." (manual)", 1); my @da; my $t = time; # aktuelle Unix-Zeit my $chour = strftime "%H", localtime($t); # aktuelle Stunde my $fcdev = ReadingsVal($name, "currentForecastDev", ""); # aktuelles Forecast Device my $params = { hash => $hash, name => $name, t => $t, chour => $chour, daref => \@da }; _transferDWDForecastValues ($params); if(@da) { push @da, "state:updated"; # Abschluß state createReadingsFromArray ($hash, \@da, 1); } return; } ################################################################ # Setter pvCorrectionFactor_Auto ################################################################ sub _setpvCorrectionFactorAuto { ## no critic "not used" my $paref = shift; my $hash = $paref->{hash}; my $opt = $paref->{opt}; my $prop = $paref->{prop} // return qq{no correction value specified}; readingsSingleUpdate($hash, "pvCorrectionFactor_Auto", $prop, 1); return; } ############################################################### # SolarForecast Get ############################################################### sub Get { my ($hash, @a) = @_; return "\"get X\" needs at least an argument" if ( @a < 2 ); my $name = shift @a; my $opt = shift @a; my $arg = join " ", map { my $p = $_; $p =~ s/\s//xg; $p; } @a; ## no critic 'Map blocks' my $getlist = "Unknown argument $opt, choose one of ". "data:noArg ". "html:noArg ". "pvHistory:noArg " ; return if(IsDisabled($name)); my $params = { hash => $hash, name => $name, opt => $opt, arg => $arg }; if($hget{$opt} && defined &{$hget{$opt}{fn}}) { my $ret = q{}; if (!$hash->{CREDENTIALS} && $hget{$opt}{needcred}) { return qq{Credentials of $name are not set."}; } $ret = &{$hget{$opt}{fn}} ($params); return $ret; } return $getlist; } ############################################################### # Getter data ############################################################### sub _getdata { my $paref = shift; my $hash = $paref->{hash}; return centralTask ($hash); } ############################################################### # Getter html ############################################################### sub _gethtml { my $paref = shift; my $hash = $paref->{hash}; return pageAsHtml ($hash); } ############################################################### # Getter ftui # ohne Eintrag in Get-Liste ############################################################### sub _getftui { my $paref = shift; my $hash = $paref->{hash}; return pageAsHtml ($hash,"ftui"); } ############################################################### # Getter listPVHistory ############################################################### sub _getlistPVHistory { my $paref = shift; my $hash = $paref->{hash}; my $ret = listPVHistory ($hash); return $ret; } ################################################################ sub Attr { my ($cmd,$name,$aName,$aVal) = @_; my $hash = $defs{$name}; my ($do,$val); # $cmd can be "del" or "set" # $name is device name # aName and aVal are Attribute name and value if($aName eq "disable") { if($cmd eq "set") { $do = ($aVal) ? 1 : 0; } $do = 0 if($cmd eq "del"); $val = ($do == 1 ? "disabled" : "initialized"); readingsSingleUpdate($hash, "state", $val, 1); if($do == 1) { my @allrds = keys%{$defs{$name}{READINGS}}; foreach my $key(@allrds) { delete($defs{$name}{READINGS}{$key}) if($key ne "state"); } } } if($aName eq "icon") { $_[2] = "consumerAdviceIcon"; } if ($cmd eq "set") { if ($aName eq "interval") { unless ($aVal =~ /^[0-9]+$/x) {return "The value for $aName is not valid. Use only figures 0-9 !";} InternalTimer(gettimeofday()+1.0, "FHEM::SolarForecast::centralTask", $hash, 0); } if ($aName eq "maxVariancePerDay") { unless ($aVal =~ /^[0-9.]+$/x) {return "The value for $aName is not valid. Use only numbers with optional decimal places !";} } } return; } ################################################################################### # Eventverarbeitung ################################################################################### sub Notify { # Es werden nur die Events von Geräten verarbeitet die im Hash $hash->{NOTIFYDEV} gelistet sind (wenn definiert). # Dadurch kann die Menge der Events verringert werden. In sub DbRep_Define angeben. my $myHash = shift; my $dev_hash = shift; my $myName = $myHash->{NAME}; # Name des eigenen Devices my $devName = $dev_hash->{NAME}; # Device welches Events erzeugt hat return if(IsDisabled($myName) || !$myHash->{NOTIFYDEV}); my $events = deviceEvents($dev_hash, 1); return if(!$events); return; } ################################################################ # Shutdown ################################################################ sub Shutdown { my $hash = shift; my $name = $hash->{NAME}; my $type = $hash->{TYPE}; if($data{$type}{$name}{pvhist}) { # Cache File für PV History schreiben my @pvh; my $json = encode_json ($data{$type}{$name}{pvhist}); push @pvh, $json; my $file = $pvhcache.$name; my $error = FileWrite($file, @pvh); if ($error) { Log3 ($name, 2, qq{$name - ERROR writing cache file "$file": $error}); } } return; } ################################################################# # Wenn ein Gerät in FHEM gelöscht wird, wird zuerst die Funktion # X_Undef aufgerufen um offene Verbindungen zu schließen, # anschließend wird die Funktion X_Delete aufgerufen. # Funktion: Aufräumen von dauerhaften Daten, welche durch das # Modul evtl. für dieses Gerät spezifisch erstellt worden sind. # Es geht hier also eher darum, alle Spuren sowohl im laufenden # FHEM-Prozess, als auch dauerhafte Daten bspw. im physikalischen # Gerät zu löschen die mit dieser Gerätedefinition zu tun haben. ################################################################# sub Delete { my $hash = shift; my $arg = shift; my $name = $hash->{NAME}; my $file = $pvhcache.$name; my $error = FileDelete($file); # Cache File der PV History löschen if ($error) { Log3 ($name, 2, qq{$name - ERROR deleting cache file "$file": $error}); } return; } ################################################################ # Zentraler Datenabruf ################################################################ sub centralTask { my $hash = shift; my $name = $hash->{NAME}; # Name des eigenen Devices RemoveInternalTimer($hash, "FHEM::SolarForecast::centralTask"); my $interval = controlParams ($name); if($init_done == 1) { if(!$interval) { $hash->{MODE} = "Manual"; } else { my $new = gettimeofday()+$interval; InternalTimer($new, "FHEM::SolarForecast::centralTask", $hash, 0); # Wiederholungsintervall $hash->{MODE} = "Automatic - next polltime: ".FmtTime($new); } return if(IsDisabled($name)); readingsSingleUpdate($hash, "state", "running", 1); my @da; my $t = time; # aktuelle Unix-Zeit my $chour = strftime "%H", localtime($t); # aktuelle Stunde my $params = { hash => $hash, name => $name, t => $t, chour => $chour, daref => \@da }; _transferDWDForecastValues ($params); # Forecast Werte übertragen _transWeatherValues ($params); # Wetterwerte übertragen _transferInverterValues ($params); # WR Werte übertragen _transferMeterValues ($params); if(@da) { createReadingsFromArray ($hash, \@da, 1); } sumNextHours ($hash, $chour, \@da); # Zusammenfassung nächste 4 Stunden erstellen calcVariance ($params); # Autokorrektur berechnen readingsSingleUpdate($hash, "state", "updated", 1); # Abschluß state } else { InternalTimer(gettimeofday()+5, "FHEM::SolarForecast::centralTask", $hash, 0); } return; } ################################################################ # Steuerparameter berechnen / festlegen ################################################################ sub controlParams { my $name = shift; my $interval = AttrVal($name, "interval", $definterval); # 0 wenn manuell gesteuert return $interval; } ################################################################ # Forecast Werte Device (DWD_OpenData) ermitteln und # übertragen ################################################################ sub _transferDWDForecastValues { my $paref = shift; my $hash = $paref->{hash}; my $name = $paref->{name}; my $t = $paref->{t}; my $chour = $paref->{chour}; my $daref = $paref->{daref}; my $fcname = ReadingsVal($name, "currentForecastDev", ""); # aktuelles Forecast Device return if(!$fcname || !$defs{$fcname}); my ($time_str,$epoche); # deleteReadingspec ($hash, "NextHour.*"); for my $num (0..47) { my $fh = $chour + $num; my $fd = int ($fh / 24) ; $fh = $fh - ($fd * 24); next if($fd > 1); my $v = ReadingsVal($fcname, "fc${fd}_${fh}_Rad1h", 0); Log3($name, 5, "$name - collect DWD forecast data: device=$fcname, rad=fc${fd}_${fh}_Rad1h, Val=$v"); if($num == 0) { $time_str = "ThisHour"; $epoche = $t; # Epoche Zeit } else { $time_str = "NextHour".sprintf "%02d", $num; $epoche = $t + (3600*$num); } my $calcpv = calcPVforecast ($name, $v, $fh); # Vorhersage gewichtet kalkulieren push @$daref, "${time_str}_PVforecast:".$calcpv." Wh"; push @$daref, "${time_str}_Time:" .TimeAdjust ($epoche); # Zeit fortschreiben $hash->{HELPER}{"fc${fd}_".sprintf("%02d",$fh)."_PVforecast"} = $v." Wh"; # original Vorhersagedaten zur Berechnung Auto-Korrekturfaktor in Helper speichern if($fd == 0 && int $calcpv > 0) { # Vorhersagedaten des aktuellen Tages zum manuellen Vergleich in Reading speichern push @$daref, "Today_Hour".sprintf("%02d",$fh)."_PVforecast:$calcpv Wh"; } if($fd == 0 && sprintf("%02d",$fh) eq $chour) { $paref->{calcpv} = $calcpv; setPVhistory ($paref); } } return; } ################################################################ # Wetter Werte aus dem angebenen Wetterdevice extrahieren ################################################################ sub _transWeatherValues { my $paref = shift; my $hash = $paref->{hash}; my $name = $paref->{name}; my $t = $paref->{t}; my $chour = $paref->{chour}; my $daref = $paref->{daref}; my $fcname = ReadingsVal($name, "currentForecastDev", ""); # aktuelles Forecast Device return if(!$fcname || !$defs{$fcname}); my ($time_str,$epoche); my $fc0_SunRise = ReadingsVal($fcname, "fc0_SunRise", "00:00"); # Sonnenaufgang heute my $fc0_SunSet = ReadingsVal($fcname, "fc0_SunSet", "00:00"); # Sonnenuntergang heute my $fc1_SunRise = ReadingsVal($fcname, "fc1_SunRise", "00:00"); # Sonnenaufgang morgen my $fc1_SunSet = ReadingsVal($fcname, "fc1_SunSet", "00:00"); # Sonnenuntergang morgen push @$daref, "Today_SunRise:". $fc0_SunRise; push @$daref, "Today_SunSet:". $fc0_SunSet; push @$daref, "Tomorrow_SunRise:".$fc1_SunRise; push @$daref, "Tomorrow_SunSet:". $fc1_SunSet; my $fc0_SunRise_round = (sprintf "%02d", (split ":", $fc0_SunRise)[0] - 1); my $fc0_SunSet_round = (sprintf "%02d", (split ":", $fc0_SunSet)[0] + 1); for my $num (0..47) { my $fh = $chour + $num; my $fd = int ($fh / 24) ; $fh = $fh - ($fd * 24); next if($fd > 1); if($num == 0) { $time_str = "ThisHour"; $epoche = $t; # Epoche Zeit } else { $time_str = "NextHour".sprintf "%02d", $num; $epoche = $t + (3600*$num); } my $wid = ReadingsNum($fcname, "fc${fd}_${fh}_ww", 99); # 55_DWD -> 0 .. 98 definiert , 99 ist nicht vorhanden # führende 0 einfügen wenn nötig my $fhstr = sprintf "%02d", $fh; if($fd == 0 && ($fhstr lt $fc0_SunRise_round || $fhstr gt $fc0_SunSet_round)) { # Zeit vor Sonnenaufgang oder nach Sonnenuntergang heute $wid += 100; # "1" der WeatherID voranstellen wenn Nacht } elsif ($fd == 1 && ($fhstr lt $fc0_SunRise_round || $fhstr gt $fc0_SunSet_round)) { # Zeit vor Sonnenaufgang oder nach Sonnenuntergang morgen $wid += 100; # "1" der WeatherID voranstellen wenn Nacht } my $txt = ReadingsVal($fcname, "fc${fd}_${fh}_wwd", ''); Log3($name, 5, "$name - collect Weather data: device=$fcname, wid=fc${fd}_${fh}_ww, val=$wid, txt=$txt"); $hash->{HELPER}{"${time_str}_WeatherId"} = $wid; $hash->{HELPER}{"${time_str}_WeatherTxt"} = $txt; } return; } ################################################################ # Werte Inverter Device ermitteln und übertragen ################################################################ sub _transferInverterValues { my $paref = shift; my $hash = $paref->{hash}; my $name = $paref->{name}; my $t = $paref->{t}; # aktuelle Unix-Zeit my $chour = $paref->{chour}; my $daref = $paref->{daref}; my $indev = ReadingsVal($name, "currentInverterDev", ""); my ($a,$h) = parseParams ($indev); $indev = $a->[0] // ""; return if(!$indev || !$defs{$indev}); my $tlim = "00|23"; # Stunde 00/23 -> bestimmte Aktionen if($chour =~ /^($tlim)$/x) { deleteReadingspec ($hash, "Today_Hour.*_PV.*"); } ## aktuelle PV-Erzeugung ######################### my ($pvread,$pvunit) = split ":", $h->{pv}; # Readingname/Unit für aktuelle PV Erzeugung my ($edread,$edunit) = split ":", $h->{etoday}; # Readingname/Unit für Tagesenergie Log3($name, 5, "$name - collect Inverter data: device=$indev, pv=$pvread ($pvunit), etoday=$edread ($edunit)"); my $pvuf = $pvunit =~ /^kW$/xi ? 1000 : 1; my $pv = ReadingsNum ($indev, $pvread, 0) * $pvuf; # aktuelle Erzeugung (W) push @$daref, "Current_PV:". $pv." W"; my $eduf = $edunit =~ /^kWh$/xi ? 1000 : 1; my $etoday = ReadingsNum ($indev, $edread, 0) * $eduf; # aktuelle Erzeugung (W) my $edaypast = 0; deleteReadingspec ($hash, "Today_Hour00_PVreal"); for my $h (0..int($chour)-1) { # alle bisherigen Erzeugungen des Tages summieren $edaypast += ReadingsNum ($name, "Today_Hour".sprintf("%02d",$h)."_PVreal", 0); } my $ethishour = int ($etoday - $edaypast); if($chour !~ /^($tlim)$/x) { # nicht setzen wenn Stunde 23 des Tages if($ethishour < 0) { $ethishour = 0; } push @$daref, "Today_Hour".sprintf("%02d",$chour)."_PVreal:".$ethishour." Wh"; $paref->{ethishour} = $ethishour; setPVhistory ($paref); } return; } ################################################################ # Werte Meter Device ermitteln und übertragen ################################################################ sub _transferMeterValues { my $paref = shift; my $hash = $paref->{hash}; my $name = $paref->{name}; my $t = $paref->{t}; my $chour = $paref->{chour}; my $daref = $paref->{daref}; my $medev = ReadingsVal($name, "currentMeterDev", ""); # aktuelles Meter device my ($a,$h) = parseParams ($medev); $medev = $a->[0] // ""; return if(!$medev || !$defs{$medev}); ## aktuelle Consumption ######################### my ($gc,$gcunit) = split ":", $h->{gcon}; # Readingname/Unit für aktuellen Netzbezug Log3($name, 5, "$name - collect Meter data: device=$medev, gcon=$gc ($gcunit)"); my $gcuf = $gcunit =~ /^kW$/xi ? 1000 : 1; my $co = ReadingsNum ($medev, $gc, 0) * $gcuf; # aktueller Bezug (-) oder Einspeisung push @$daref, "Current_GridConsumption:".$co." W"; return; } ################################################################ # FHEMWEB Fn ################################################################ sub FwFn { my ($FW_wname, $d, $room, $pageHash) = @_; # pageHash is set for summaryFn. my $hash = $defs{$d}; my $height; RemoveInternalTimer($hash, \&pageRefresh); $hash->{HELPER}{FW} = $FW_wname; my $link = forecastGraphic ($d); my $alias = AttrVal($d, "alias", $d); # Linktext als Aliasname oder Devicename setzen my $dlink = "$alias"; my $ret = ""; if(IsDisabled($d)) { $height = AttrNum($d, 'beamHeight', 200); $ret .= ""; $ret .= ""; $ret .= ""; $ret .= ""; $ret .= "
"; $ret .= "Solar forecast graphic device $d is disabled"; $ret .= "
"; } else { $ret .= "$dlink
" if(AttrVal($d,"showLink",0)); $ret .= $link; } # Autorefresh nur des aufrufenden FHEMWEB-Devices my $al = AttrVal($d, "autoRefresh", 0); if($al) { InternalTimer(gettimeofday()+$al, \&pageRefresh, $hash, 0); Log3($d, 5, "$d - next start of autoRefresh: ".FmtDateTime(gettimeofday()+$al)); } return $ret; } ################################################################ sub pageRefresh { my $hash = shift; my $d = $hash->{NAME}; # Seitenrefresh festgelegt durch SolarForecast-Attribut "autoRefresh" und "autoRefreshFW" my $rd = AttrVal($d, "autoRefreshFW", $hash->{HELPER}{FW}); { map { FW_directNotify("#FHEMWEB:$_", "location.reload('true')", "") } $rd } my $al = AttrVal($d, "autoRefresh", 0); if($al) { InternalTimer(gettimeofday()+$al, \&pageRefresh, $hash, 0); Log3($d, 5, "$d - next start of autoRefresh: ".FmtDateTime(gettimeofday()+$al)); } else { RemoveInternalTimer($hash, \&pageRefresh); } return; } ############################################################################################# # Versionierungen des Moduls setzen # Die Verwendung von Meta.pm und Packages wird berücksichtigt ############################################################################################# sub setVersionInfo { my ($hash) = @_; my $name = $hash->{NAME}; my $v = (sortTopicNum("desc",keys %vNotesIntern))[0]; my $type = $hash->{TYPE}; $hash->{HELPER}{PACKAGE} = __PACKAGE__; $hash->{HELPER}{VERSION} = $v; if($modules{$type}{META}{x_prereqs_src} && !$hash->{HELPER}{MODMETAABSENT}) { # META-Daten sind vorhanden $modules{$type}{META}{version} = "v".$v; # Version aus META.json überschreiben, Anzeige mit {Dumper $modules{SMAPortal}{META}} if($modules{$type}{META}{x_version}) { # {x_version} ( nur gesetzt wenn $Id: 76_SolarForecast.pm 21735 2020-04-20 20:53:24Z DS_Starter $ im Kopf komplett! vorhanden ) $modules{$type}{META}{x_version} =~ s/1\.1\.1/$v/g; } else { $modules{$type}{META}{x_version} = $v; } return $@ unless (FHEM::Meta::SetInternals($hash)); # FVERSION wird gesetzt ( nur gesetzt wenn $Id: 76_SolarForecast.pm 21735 2020-04-20 20:53:24Z DS_Starter $ im Kopf komplett! vorhanden ) if(__PACKAGE__ eq "FHEM::$type" || __PACKAGE__ eq $type) { # es wird mit Packages gearbeitet -> Perl übliche Modulversion setzen # mit {->VERSION()} im FHEMWEB kann Modulversion abgefragt werden use version 0.77; our $VERSION = FHEM::Meta::Get( $hash, 'version' ); } } else { # herkömmliche Modulstruktur $hash->{VERSION} = $v; } return; } ################################################################ # Grafik als HTML zurück liefern (z.B. für Widget) ################################################################ sub pageAsHtml { my $hash = shift; my $ftui = shift; my $name = $hash->{NAME}; my $height; my $link = forecastGraphic ($name, $ftui); my $alias = AttrVal($name, "alias", $name); # Linktext als Aliasname oder Devicename setzen my $dlink = "$alias"; my $ret = ""; if(IsDisabled($name)) { $height = AttrNum($name, 'beamHeight', 200); $ret .= ""; $ret .= ""; $ret .= ""; $ret .= ""; $ret .= "
"; $ret .= "SMA Portal graphic device $name is disabled"; $ret .= "
"; } else { $ret .= "$dlink
" if(AttrVal($name,"showLink",0)); $ret .= $link; } $ret .= ""; return $ret; } ############################################################################### # Subroutine für Vorhersagegrafik ############################################################################### sub forecastGraphic { ## no critic 'complexity' my $name = shift; my $ftui = shift // ""; my $hash = $defs{$name}; my $ret = ""; my ($val,$height); my ($z2,$z3,$z4); my $he; # Balkenhöhe my (%pv,%is,%t,%we,%we_txt,%di,%co); # statt zusätzlich %we_txt , we verwenden und umbauen ? my @pgCDev; ########################################################## # Kontext des SolarForecast-Devices speichern für Refresh $hash->{HELPER}{SPGDEV} = $name; # Name des aufrufenden SMAPortalSPG-Devices $hash->{HELPER}{SPGROOM} = $FW_room ? $FW_room : ""; # Raum aus dem das SMAPortalSPG-Device die Funktion aufrief $hash->{HELPER}{SPGDETAIL} = $FW_detail ? $FW_detail : ""; # Name des SMAPortalSPG-Devices (wenn Detailansicht) my $fcdev = ReadingsVal($name, "currentForecastDev", ""); # aktuelles Forecast Device my $indev = ReadingsVal($name, "currentInverterDev", ""); # aktuelles Inverter Device my ($a,$h) = parseParams ($indev); $indev = $a->[0] // ""; my $cclv = "L05"; my $pv0 = ReadingsNum ($name, "ThisHour_PVforecast", undef); my $ma = ReadingsNum ($name, "moduleArea", 0); # Solar Modulfläche (qm) if(!$fcdev || !$ma || !defined $pv0) { $height = AttrNum($name, 'beamHeight', 200); $ret .= ""; $ret .= ""; $ret .= ""; $ret .= ""; $ret .= "
"; if(!$fcdev) { $ret .= qq{Please select a Solar Forecast device of Type "DWD_OpenData" with "set $name currentForecastDev"}; } elsif(!$indev) { $ret .= qq{Please select an Inverter device with "set $name currentInverterDev"}; } elsif(!$ma) { $ret .= qq{Please specify the total module area with "set $name moduleArea"}; } elsif(!defined $pv0) { $ret .= qq{Awaiting data from selected Solar Forecast device ...}; } $ret .= "
"; return $ret; } @pgCDev = split(',',AttrVal($name,"consumerList","")); # definierte Verbraucher ermitteln my ($legend_style, $legend) = split('_',AttrVal($name,'consumerLegend','icon_top')); $legend = '' if(($legend_style eq 'none') || (!int(@pgCDev))); ################################### # Verbraucherlegende und Steuerung ################################### my $legend_txt; if ($legend) { for (@pgCDev) { my($txt,$im) = split(':',$_); # $txt ist der Verbrauchername my $cmdon = "\"FW_cmd('$FW_ME$FW_subdir?XHR=1&cmd=set $name $txt on')\""; my $cmdoff = "\"FW_cmd('$FW_ME$FW_subdir?XHR=1&cmd=set $name $txt off')\""; my $cmdauto = "\"FW_cmd('$FW_ME$FW_subdir?XHR=1&cmd=set $name $txt auto')\""; if ($ftui eq "ftui") { $cmdon = "\"ftui.setFhemStatus('set $name $txt on')\""; $cmdoff = "\"ftui.setFhemStatus('set $name $txt off')\""; $cmdauto = "\"ftui.setFhemStatus('set $name $txt auto')\""; } my $swstate = ReadingsVal($name,"${cclv}_".$txt."_Switch", "undef"); my $swicon = ""; if($swstate eq "off") { $swicon = ""; } elsif ($swstate eq "on") { $swicon = ""; } elsif ($swstate =~ /off.*automatic.*/ix) { $swicon = ""; } if ($legend_style eq 'icon') { # mögliche Umbruchstellen mit normalen Blanks vorsehen ! $legend_txt .= $txt.' '.FW_makeImage($im).' '.$swicon.'  '; } else { my (undef,$co) = split('\@',$im); $co = '#cccccc' if (!$co); # Farbe per default $legend_txt .= ''.$txt.' '.$swicon.'  '; # hier auch Umbruch erlauben } } } ################################### # Parameter f. Anzeige extrahieren ################################### my $maxhours = AttrNum ($name, 'hourCount', 24 ); my $hourstyle = AttrVal ($name, 'hourStyle', undef ); my $colorfc = AttrVal ($name, 'beamColor', undef ); my $colorc = AttrVal ($name, 'beamColor2', 'C4C4A7'); my $icon = AttrVal ($name, 'consumerAdviceIcon', undef ); my $html_start = AttrVal ($name, 'htmlStart', undef ); # beliebige HTML Strings die vor der Grafik ausgegeben werden my $html_end = AttrVal ($name, 'htmlEnd', undef ); # beliebige HTML Strings die nach der Grafik ausgegeben werden my $type = AttrVal ($name, 'layoutType', 'pv' ); my $kw = AttrVal ($name, 'Wh/kWh', 'Wh' ); $height = AttrNum ($name, 'beamHeight', 200 ); my $width = AttrNum ($name, 'beamWidth', 6 ); # zu klein ist nicht problematisch my $w = $width*$maxhours; # gesammte Breite der Ausgabe , WetterIcon braucht ca. 34px my $fsize = AttrNum ($name, 'spaceSize', 24 ); my $maxVal = AttrNum ($name, 'maxPV', 0 ); # dyn. Anpassung der Balkenhöhe oder statisch ? my $show_night = AttrNum ($name, 'showNight', 0 ); # alle Balken (Spalten) anzeigen ? my $show_diff = AttrVal ($name, 'showDiff', 'no' ); # zusätzliche Anzeige $di{} in allen Typen my $weather = AttrNum ($name, 'showWeather', 1 ); my $colorw = AttrVal ($name, 'weatherColor', undef ); # Wetter Icon Farbe my $colorwn = AttrVal ($name, 'weatherColor_night', $colorw ); # Wetter Icon Farbe Nacht my $wlalias = AttrVal ($name, 'alias', $name ); my $header = AttrNum ($name, 'showHeader', 1 ); my $hdrAlign = AttrVal ($name, 'headerAlignment', 'center' ); # ermöglicht per attr die Ausrichtung der Tabelle zu setzen my $hdrDetail = AttrVal ($name, 'headerDetail', 'all' ); # ermöglicht den Inhalt zu begrenzen, um bspw. passgenau in ftui einzubetten # Icon Erstellung, mit @ ergänzen falls einfärben # Beispiel mit Farbe: $icon = FW_makeImage('light_light_dim_100.svg@green'); $icon = FW_makeImage($icon) if (defined($icon)); my $co4h = ReadingsNum ($name,"Next04Hours_Consumption", 0); my $coRe = ReadingsNum ($name,"RestOfDay_Consumption", 0); my $coTo = ReadingsNum ($name,"Tomorrow_Consumption", 0); my $coCu = ReadingsNum ($name,"Current_GridConsumption", 0); my $pv4h = ReadingsNum ($name,"Next04Hours_PV", 0); my $pvRe = ReadingsNum ($name,"RestOfDay_PV", 0); my $pvTo = ReadingsNum ($name,"Tomorrow_PV", 0); my $pvCu = ReadingsNum ($name,"Current_PV", 0); my $pcfa = ReadingsVal ($name,"pvCorrectionFactor_Auto", "off"); if ($kw eq 'kWh') { $co4h = sprintf("%.1f" , $co4h/1000)." kWh"; $coRe = sprintf("%.1f" , $coRe/1000)." kWh"; $coTo = sprintf("%.1f" , $coTo/1000)." kWh"; $coCu = sprintf("%.1f" , $coCu/1000)." kW"; $pv4h = sprintf("%.1f" , $pv4h/1000)." kWh"; $pvRe = sprintf("%.1f" , $pvRe/1000)." kWh"; $pvTo = sprintf("%.1f" , $pvTo/1000)." kWh"; $pvCu = sprintf("%.1f" , $pvCu/1000)." kW"; } else { $co4h .= " Wh"; $coRe .= " Wh"; $coTo .= " Wh"; $coCu .= " W"; $pv4h .= " Wh"; $pvRe .= " Wh"; $pvTo .= " Wh"; $pvCu .= " W"; } ########################## # Headerzeile generieren ########################## if ($header) { my $lang = AttrVal ("global", "language", "EN" ); my $alias = AttrVal ($name, "alias", $name ); # Linktext als Aliasname my $dlink = "$alias"; my $lup = ReadingsTimestamp($name, "ThisHour_PVforecast", "0000-00-00 00:00:00"); # letzter Forecast Update my $lupt = "last update:"; my $autoct = "automatic correction:"; my $lblPv4h = "next 4h:"; my $lblPvRe = "remain today:"; my $lblPvTo = "tomorrow:"; my $lblPvCu = "actual"; if(AttrVal("global", "language", "EN") eq "DE") { # Header globales Sprachschema Deutsch $lupt = "Stand:"; $autoct = "automatische Korrektur:"; $lblPv4h = encode("utf8", "nächste 4h:"); $lblPvRe = "Rest heute:"; $lblPvTo = "morgen:"; $lblPvCu = "aktuell"; } $header = ""; ######################################### # Header Link + Status + Update Button if($hdrDetail eq "all" || $hdrDetail eq "statusLink") { my ($year, $month, $day, $time) = $lup =~ /(\d{4})-(\d{2})-(\d{2})\s+(.*)/x; if(AttrVal("global","language","EN") eq "DE") { $lup = "$day.$month.$year $time"; } else { $lup = "$year-$month-$day $time"; } my $cmdupdate = "\"FW_cmd('$FW_ME$FW_subdir?XHR=1&cmd=get $name data')\""; # Update Button generieren if ($ftui eq "ftui") { $cmdupdate = "\"ftui.setFhemStatus('get $name data')\""; } my $upstate = ReadingsVal($name, "state", ""); ## Update-Icon ############## my $upicon; if ($upstate =~ /updated/ix) { $upicon = ""; } elsif ($upstate =~ /running/ix) { $upicon = ""; } elsif ($upstate =~ /initialized/ix) { $upicon = ""; } else { $upicon = ""; } ## Autokorrektur-Icon ###################### my $acicon; if ($pcfa eq "on") { $acicon = ""; } elsif ($pcfa eq "off") { $acicon = "off"; } elsif ($pcfa =~ /standby/ix) { my ($rtime) = $pcfa =~ /for (.*?) hours/x; $acicon = " (Start in ".$rtime." h)"; } else { $acicon = ""; } ## erste Header-Zeilen ####################### $header .= ""; $header .= ""; } ######################## # Header Information pv if($hdrDetail eq "all" || $hdrDetail eq "pv" || $hdrDetail eq "pvco") { $header .= ""; $header .= ""; $header .= ""; $header .= ""; $header .= ""; $header .= ""; $header .= ""; } ######################## # Header Information co if($hdrDetail eq "all" || $hdrDetail eq "co" || $hdrDetail eq "pvco") { $header .= ""; $header .= ""; $header .= ""; $header .= ""; $header .= ""; $header .= ""; $header .= ""; } $header .= "
".$dlink."".$lupt. " ".$lup." ".$upicon."
".$autoct." " .$acicon."
PV =>$lblPvCu $pvCu$lblPv4h $pv4h$lblPvRe $pvRe$lblPvTo $pvTo
CO =>$lblPvCu $coCu$lblPv4h $co4h$lblPvRe $coRe$lblPvTo $coTo
"; } ########################## # Werte aktuelle Stunde ########################## $pv{0} = ReadingsNum($name, "ThisHour_PVforecast", 0); $co{0} = ReadingsNum($name, "ThisHour_Consumption", 0); $di{0} = $pv{0} - $co{0}; $is{0} = (ReadingsVal($name,"ThisHour_IsConsumptionRecommended",'no') eq 'yes' ) ? $icon : undef; $we{0} = $hash->{HELPER}{"ThisHour_WeatherId"} if($weather); # für Wettericons $we{0} //= 99; if(AttrVal("global","language","EN") eq "DE") { (undef,undef,undef,$t{0}) = ReadingsVal($name, "ThisHour_Time", '00.00.0000 24') =~ m/(\d{2}).(\d{2}).(\d{4})\s(\d{2})/x; $we_txt{0} = $hash->{HELPER}{"ThisHour_WeatherTxt"} if($weather); } else { (undef,undef,undef,$t{0}) = ReadingsVal($name, "ThisHour_Time", '0000-00-00 24') =~ m/(\d{4})-(\d{2})-(\d{2})\s(\d{2})/x; } $we_txt{0} //= ''; $t{0} = int($t{0}); # zum Rechnen Integer ohne führende Null ########################################################### # get consumer list and display it in portalGraphics ########################################################### for (@pgCDev) { my ($itemName, undef) = split(':',$_); $itemName =~ s/^\s+|\s+$//gx; #trim it, if blanks were used $_ =~ s/^\s+|\s+$//gx; #trim it, if blanks were used ################################## #check if listed device is planned if (ReadingsVal($name, $itemName."_Planned", "no") eq "yes") { #get start and end hour my ($start, $end); # werden auf Balken Pos 0 - 23 umgerechnet, nicht auf Stunde !!, Pos = 24 -> ungültige Pos = keine Anzeige if(AttrVal("global","language","EN") eq "DE") { (undef,undef,undef,$start) = ReadingsVal($name, $itemName."_PlannedOpTimeBegin", '00.00.0000 24') =~ m/(\d{2}).(\d{2}).(\d{4})\s(\d{2})/x; (undef,undef,undef,$end) = ReadingsVal($name, $itemName."_PlannedOpTimeEnd", '00.00.0000 24') =~ m/(\d{2}).(\d{2}).(\d{4})\s(\d{2})/x; } else { (undef,undef,undef,$start) = ReadingsVal($name, $itemName."_PlannedOpTimeBegin", '0000-00-00 24') =~ m/(\d{4})-(\d{2})-(\d{2})\s(\d{2})/x; (undef,undef,undef,$end) = ReadingsVal($name, $itemName."_PlannedOpTimeEnd", '0000-00-00 24') =~ m/(\d{4})-(\d{2})-(\d{2})\s(\d{2})/x; } $start = int($start); $end = int($end); my $flag = 0; # default kein Tagesverschieber ####################################### #correct the hour for accurate display if ($start < $t{0}) { # consumption seems to be tomorrow $start = 24-$t{0}+$start; $flag = 1; } else { $start -= $t{0}; } if ($flag) { # consumption seems to be tomorrow $end = 24-$t{0}+$end; } else { $end -= $t{0}; } $_ .= ":".$start.":".$end; } else { $_ .= ":24:24"; } Log3($name, 4, "$name - Consumer planned data: $_"); } $maxVal = !$maxVal ? $pv{0} : $maxVal; # Startwert wenn kein Wert bereits via attr vorgegeben ist my $maxCon = $co{0}; # für Typ co my $maxDif = $di{0}; # für Typ diff my $minDif = $di{0}; # für Typ diff for my $i (1..$maxhours-1) { $pv{$i} = ReadingsNum($name, "NextHour".sprintf("%02d",$i)."_PVforecast", 0); # Erzeugung $co{$i} = ReadingsNum($name, "NextHour".sprintf("%02d",$i)."_Consumption", 0); # Verbrauch $di{$i} = $pv{$i} - $co{$i}; $maxVal = $pv{$i} if ($pv{$i} > $maxVal); $maxCon = $co{$i} if ($co{$i} > $maxCon); $maxDif = $di{$i} if ($di{$i} > $maxDif); $minDif = $di{$i} if ($di{$i} < $minDif); $is{$i} = (ReadingsVal($name,"NextHour".sprintf("%02d",$i)."_IsConsumptionRecommended",'no') eq 'yes') ? $icon : undef; $we{$i} = $hash->{HELPER}{"NextHour". sprintf("%02d",$i)."_WeatherId"} if($weather); # für Wettericons $we{$i} //= 99; if(AttrVal("global","language","EN") eq "DE") { (undef,undef,undef,$t{$i}) = ReadingsVal($name,"NextHour".sprintf("%02d",$i)."_Time", '00.00.0000 24') =~ m/(\d{2}).(\d{2}).(\d{4})\s(\d{2})/x; $we_txt{$i} = $hash->{HELPER}{"NextHour". sprintf("%02d",$i)."_WeatherTxt"} if($weather); # für Wettericons } else { (undef,undef,undef,$t{$i}) = ReadingsVal($name,"NextHour".sprintf("%02d",$i)."_Time", '0000-00-00 24') =~ m/(\d{4})-(\d{2})-(\d{2})\s(\d{2})/x; } $we_txt{$i} //= ''; $t{$i} = int($t{$i}); # keine führende 0 } ###################################### # Tabellen Ausgabe erzeugen ###################################### # Wenn Table class=block alleine steht, zieht es bei manchen Styles die Ausgabe auf 100% Seitenbreite # lässt sich durch einbetten in eine zusätzliche Table roomoverview eindämmen # Die Tabelle ist recht schmal angelegt, aber nur so lassen sich Umbrüche erzwingen $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 .= ""; } if ($legend_txt && ($legend eq 'top')) { $ret .= ""; $ret .= ""; } if ($weather) { $ret .= ""; # freier Platz am Anfang for my $i (0..$maxhours-1) { # keine Anzeige bei Null Ertrag bzw. in der Nacht , Typ pcvo & diff haben aber immer Daten in der Nacht if ($pv{$i} || $show_night || ($type eq 'pvco') || ($type eq 'diff')) { # FHEM Wetter Icons (weather_xxx) , Skalierung und Farbe durch FHEM Bordmittel my $night = ($we{$i} > 99) ? 1 : 0; $we{$i} -= 100 if ($night); my ($icon_name, $title) = weather_icon($we{$i}); # unknown -> FHEM Icon Fragezeichen im Kreis wird als Ersatz Icon ausgegeben Log3($name, 3, "$name - unknown weather id: ".$we{$i}.", please inform the maintainer") if($icon_name eq 'unknown'); $icon_name .='@'.$colorw if (defined($colorw) && !$night); $icon_name .='@'.$colorwn if (defined($colorwn) && $night); $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 $we{$i} not found. Please check attribute "iconPath" of your FHEMWEB instance and/or update your FHEM software}); } $ret .= ""; # title -> Mouse Over Text } else { # Kein Ertrag oder show_night = 0 $ret .= ""; $we{$i} = undef; } # mit $we{$i} = undef kann man unten leicht feststellen ob für diese Spalte bereits ein Icon ausgegeben wurde oder nicht } $ret .= ""; # freier Platz am Ende der Icon Zeile } if($show_diff eq 'top') { # Zusätzliche Zeile Ertrag - Verbrauch $ret .= ""; # freier Platz am Anfang for my $i (0..$maxhours-1) { $val = formatVal6($di{$i},$kw,$we{$i}); $val = ($di{$i} < 0) ? ''.$val.'' : '+'.$val; # negative Zahlen in Fettschrift $ret .= ""; } $ret .= ""; # freier Platz am Ende } $ret .= ""; # Neue Zeile mit freiem Platz am Anfang for my $i (0..$maxhours-1) { # 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 if($type eq 'co') { $he = int(($maxCon-$co{$i})/$maxCon*$height) + $fsize; # he - freier der Raum über den Balken. $z3 = int($height + $fsize - $he); # Resthöhe } elsif($type eq 'pv') { $he = int(($maxVal-$pv{$i}) / $maxVal*$height) + $fsize; $z3 = int($height + $fsize - $he); } elsif($type 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 ? if ($pv{$i} > $co{$i}) { # pv oben , co unten $z2 = $pv{$i}; $z3 = $co{$i}; } else { # tauschen, Verbrauch ist größer als Ertrag $z3 = $pv{$i}; $z2 = $co{$i}; } $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; } } else { # 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 ($di{$i} >= 0) { # Zone 2 & 3 mit ihren direkten Werten vorbesetzen $z2 = $di{$i}; $z3 = abs($minDif); } else { $z2 = $maxDif; $z3 = abs($di{$i}); # Nur Betrag ohne Vorzeichen } # Alle vorbesetzen Werte umrechnen auf echte Ausgabe px $he = (!$px_pos) ? 0 : int(($maxDif-$z2)/$maxDif*$px_pos); # Teilung durch 0 vermeiden $z2 = ($px_pos - $he) ; $z4 = (!$px_neg) ? 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 .=""; # Stundenwerte ohne führende 0 } $ret .= ""; ################### # Legende unten if ($legend_txt && ($legend eq 'bottom')) { $ret .= ""; $ret .= ""; } $ret .= "
$header
$legend_txt
$val
$val
\n"; my $v; if (($type eq 'pv') || ($type eq 'co')) { $v = ($type eq 'co') ? $co{$i} : $pv{$i} ; $v = 0 if (($type eq 'co') && !$pv{$i} && !$show_night); # auch bei type co die Nacht ggf. unterdrücken $val = formatVal6($v,$kw,$we{$i}); $ret .=""; # mit width=100% etwas bessere Füllung der Balken $ret .=""; $ret .=""; if ($v || $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 .= ""; } } elsif ($type eq 'pvco') { my ($color1, $color2, $style1, $style2); $ret .="
".$val."
"; my $sicon = 1; $ret .= $is{$i} if (defined ($is{$i}) && $sicon); ################################## # inject the new icon if defined $ret .= consinject($hash,$i,@pgCDev) if($ret); $ret .= "
\n"; # mit width=100% etwas bessere Füllung der Balken if($he) { # der Freiraum oben kann beim größten Balken ganz entfallen $ret .=""; } if($pv{$i} > $co{$i}) { # wer ist oben, co pder pv ? Wert und Farbe für Zone 2 & 3 vorbesetzen $val = formatVal6($pv{$i},$kw,$we{$i}); $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($co{$i},$kw,$we{$i}); $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($co{$i},$kw,$we{$i}); $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($pv{$i},$kw,$we{$i}); $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 .= ""; if($z3) { # die Zone 3 lassen wir bei zu kleinen Werten auch ganz weg $ret .= ""; $ret .= ""; } } else { # Type diff my $style = "style=\"padding-bottom:0px; padding-top:1px; vertical-align:top; margin-left:auto; margin-right:auto;"; $ret .= "
$val"; $ret .= $is{$i} if (defined $is{$i}); ################################## # inject the new icon if defined $ret .= consinject($hash,$i,@pgCDev) if($ret); $ret .= "
$v
\n"; # Tipp : das nachfolgende border=0 auf 1 setzen hilft sehr Ausgabefehler zu endecken $val = ($di{$i} >= 0) ? formatVal6($di{$i},$kw,$we{$i}) : ''; $val = '   0  ' if ($di{$i} == 0); # Sonderfall , hier wird die 0 gebraucht ! if($val) { $ret .= ""; $ret .= ""; } if($di{$i} >= 0) { # mit Farbe 1 colorfc füllen $style .= defined $colorfc ? " background-color:#$colorfc\"" : '"'; $z2 = 1 if ($di{$i} == 0); # Sonderfall , 1px dünnen Strich ausgeben $ret .= ""; $ret .= ""; } else { # ohne Farbe $z2 = 2 if ($di{$i} == 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($di{$i} < 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 = ($di{$i} < 0) ? formatVal6($di{$i},$kw,$we{$i}) : ' '; $ret .= ""; $ret .= ""; } } if ($show_diff eq 'bottom') { # zusätzliche diff Anzeige $val = formatVal6($di{$i},$kw,$we{$i}); $val = ($di{$i} < 0) ? ''.$val.'' : '+'.$val; # Kommentar siehe oben bei show_diff eq top $ret .= ""; } $ret .= "
".$val."
"; $ret .= $is{$i} if (defined $is{$i}); $ret .= "
".$val."
$val
"; $t{$i} = $t{$i}.$hourstyle if(defined($hourstyle)); # z.B. 10:00 statt 10 $ret .= $t{$i}."
"; $ret .= "$legend_txt
"; $ret .= $html_end if (defined($html_end)); $ret .= ""; return $ret; } ################################################################ # Inject consumer icon ################################################################ sub consinject { my ($hash,$i,@pgCDev) = @_; my $name = $hash->{NAME}; my $ret = ""; for (@pgCDev) { if ($_) { my ($cons,$im,$start,$end) = split (':', $_); Log3($name, 4, "$name - Consumer to show -> $cons, relative to current time -> start: $start, end: $end") if($i<1); if ($im && ($i >= $start) && ($i <= $end)) { $ret .= FW_makeImage($im); } } } return $ret; } ############################################################################### # Balkenbreite normieren # # Die Balkenbreite wird bestimmt durch den Wert. # Damit alle Balken die gleiche Breite bekommen, müssen die Werte auf # 6 Ausgabezeichen angeglichen werden. # "align=center" gleicht gleicht es aus, alternativ könnte man sie auch # komplett rechtsbündig ausgeben. # Es ergibt bei fast allen Styles gute Ergebnisse, Ausnahme IOS12 & 6, da diese # beiden Styles einen recht großen Font benutzen. # Wird Wetter benutzt, wird die Balkenbreite durch das Icon bestimmt # ############################################################################### sub formatVal6 { my ($v,$kw,$w) = @_; my $n = ' '; # positive Zahl if($v < 0) { $n = '-'; # negatives Vorzeichen merken $v = abs($v); } if($kw eq 'kWh') { # bei Anzeige in kWh muss weniger aufgefüllt werden $v = sprintf('%.1f',($v/1000)); $v += 0; # keine 0.0 oder 6.0 etc return ($n eq '-') ? ($v*-1) : $v if defined($w) ; my $t = $v - int($v); # Nachkommstelle ? if(!$t) { # glatte Zahl ohne Nachkommastelle if(!$v) { return ' '; # 0 nicht anzeigen, passt eigentlich immer bis auf einen Fall im Typ diff } elsif ($v < 10) { return '  '.$n.$v.'  '; } else { return '  '.$n.$v.' '; } } else { # mit Nachkommastelle -> zwei Zeichen mehr .X if ($v < 10) { return ' '.$n.$v.' '; } else { return $n.$v.' '; } } } return ($n eq '-') ? ($v*-1) : $v if defined($w); # Werte bleiben in Watt if (!$v) { return ' '; } ## no critic "Cascading" # keine Anzeige bei Null elsif ($v < 10) { return '  '.$n.$v.'  '; } # z.B. 0 elsif ($v < 100) { return ' '.$n.$v.'  '; } elsif ($v < 1000) { return ' '.$n.$v.' '; } elsif ($v < 10000) { return $n.$v.' '; } else { return $n.$v; } # mehr als 10.000 W :) } ############################################################################### # Zuordungstabelle "WeatherId" angepasst auf FHEM Icons ############################################################################### sub weather_icon { my $id = shift; $id = int $id; if(defined $weather_ids{$id}) { return $weather_ids{$id}{icon}, encode("utf8", $weather_ids{$id}{txtd}); } return 'unknown',''; } ################################################################ # Timestamp berechnen ################################################################ sub TimeAdjust { my $epoch = shift; my ($lyear,$lmonth,$lday,$lhour) = (localtime($epoch))[5,4,3,2]; $lyear += 1900; # year is 1900 based $lmonth++; # month number is zero based if(AttrVal("global","language","EN") eq "DE") { return (sprintf("%02d.%02d.%04d %02d:%s", $lday,$lmonth,$lyear,$lhour,"00:00")); } else { return (sprintf("%04d-%02d-%02d %02d:%s", $lyear,$lmonth,$lday,$lhour,"00:00")); } } ################################################################################################## # PV Forecast Rad1h in kWh / Wh # Für die Umrechnung in einen kWh/Wh-Wert benötigt man einen entsprechenden Faktorwert: # # * Faktor für Umwandlung kJ in kWh: 0.00027778 # * Eigene Modulfläche in qm z.B.: 31,04 # * Wirkungsgrad der Module in % z.B.: 16,52 # * Wirkungsgrad WR in % z.B.: 98,3 # * Korrekturwerte wegen Ausrichtung/Verschattung: 83% wegen Ost/West und Schatten (Iteration) # # Die Formel wäre dann: # Ertrag in kWh = Rad1h * 0.00027778 * 31,04 qm * 16,52% * 98,3% * 100% # # Damit ergibt sich ein Umrechnungsfaktor von: 0,00140019 für kWh / 1,40019 für Wh # # Bei einem Rad1h-Wert von 500 ergibt dies bei mir also 0,700095 kWh / 700,095 Wh ################################################################################################## sub calcPVforecast { my $name = shift; my $rad = shift; # Nominale Strahlung aus DWD Device my $fh = shift; # Stunde des Tages my $ma = ReadingsNum ($name, "moduleArea", 0 ); # Solar Modulfläche (gesamt) my $ta = ReadingsNum ($name, "moduleTiltAngle", 45 ); # Neigungswinkel Solarmodule my $me = ReadingsNum ($name, "moduleEfficiency", $defpvme ); # Solar Modul Wirkungsgrad (%) my $ie = ReadingsNum ($name, "inverterEfficiency", $definve ); # Solar Inverter Wirkungsgrad (%) my $hc = ReadingsNum ($name, "pvCorrectionFactor_".sprintf("%02d",$fh), 1 ); # Korrekturfaktor für die Stunde des Tages $hc = 1 if(1*$hc == 0); my $pv = sprintf "%.1f", ($rad * $kJtokWh * $ma * $htilt{"$ta"} * $me/100 * $ie/100 * $hc * 1000); my $kw = AttrVal ($name, 'Wh/kWh', 'Wh'); if($kw eq "Wh") { $pv = int $pv; } Log3($name, 5, "$name - calcPVforecast - Hour: ".sprintf("%02d",$fh)." ,moduleTiltAngle factor: ".$htilt{"$ta"}.", pvCorrectionFactor: $hc"); return $pv; } ################################################################ # Abweichung PVreal / PVforecast berechnen ################################################################ sub calcVariance { my $paref = shift; my $hash = $paref->{hash}; my $name = $paref->{name}; my $chour = $paref->{chour}; calcFromHistory ($paref); my $dcauto = ReadingsVal ($name, "pvCorrectionFactor_Auto", "off"); # nur bei "on" automatische Varianzkalkulation if($dcauto =~ /^off/x) { Log3($name, 4, "$name - automatic Variance calculation is switched off."); return; } my $tlim = "00"; # Stunde 00 -> löschen aller Autocalc Statusreadings des Tages if($chour =~ /^($tlim)$/x) { deleteReadingspec ($hash, "pvCorrectionFactor_.*_autocalc"); } my $idts = ReadingsTimestamp($name, "currentInverterDev", ""); # Definitionstimestamp des Inverterdevice return if(!$idts); $idts = timestringToTimestamp ($hash, $idts); my $t = time; # aktuelle Unix-Zeit if($t - $idts < 86400) { my $rmh = sprintf "%.1f", ((86400 - ($t - $idts)) / 3600); Log3($name, 4, "$name - Variance calculation in standby. It starts in $rmh hours."); readingsSingleUpdate($hash, "pvCorrectionFactor_Auto", "on (remains in standby for $rmh hours)", 0); return; } else { readingsSingleUpdate($hash, "pvCorrectionFactor_Auto", "on", 0); } my $maxvar = AttrVal($name, "maxVariancePerDay", $defmaxvar); # max. Korrekturvarianz my @da; for my $h (1..23) { next if(!$chour || $h >= $chour); my $fcnum = ReadingsNum ($name, "Today_Hour".sprintf("%02d",$h)."_PVforecast", 0); next if(!$fcnum); my $pvval = ReadingsNum ($name, "Today_Hour".sprintf("%02d",$h)."_PVreal", 0); next if(!$pvval); my $cdone = ReadingsVal ($name, "pvCorrectionFactor_".sprintf("%02d",$h)."_autocalc", ""); if($cdone eq "done") { Log3($name, 5, "$name - pvCorrectionFactor Hour: ".sprintf("%02d",$h)); next; } my $oldfac = ReadingsNum ($name, "pvCorrectionFactor_".sprintf("%02d",$h), 1); # bisher definierter Korrekturfaktor $oldfac = 1 if(1*$oldfac == 0); my $factor = sprintf "%.2f", ($pvval / $fcnum); # Faktorberechnung: reale PV / Prognose Log3($name, 5, "$name - Hour: ".sprintf("%02d",$h).", Today PVreal: $pvval, PVforecast: $fcnum"); if(abs($factor - $oldfac) > $maxvar) { $factor = sprintf "%.2f", ($factor > $oldfac ? $oldfac + $maxvar : $oldfac - $maxvar); Log3($name, 3, "$name - new limited Variance factor: $factor for hour: $h"); } else { Log3($name, 3, "$name - new Variance factor: $factor for hour: $h calculated") if($factor != $oldfac); } push @da, "pvCorrectionFactor_".sprintf("%02d",$h).":".$factor." (automatic)"; push @da, "pvCorrectionFactor_".sprintf("%02d",$h)."_autocalc:done"; } createReadingsFromArray ($hash, \@da, 1); return; } ################################################################ # Berechne Durchschnitte aus Werten der PV History ################################################################ sub calcFromHistory { my $paref = shift; my $hash = $paref->{hash}; my $t = $paref->{t}; # aktuelle Unix-Zeit my $chour = $paref->{chour}; my $name = $hash->{NAME}; my $type = $hash->{TYPE}; my $day = strftime "%d", localtime($t); # aktueller Tag my $pvhh = $data{$type}{$name}{pvhist}; my $maxd = 31; my @k = sort {$a<=>$b} keys %{$pvhh}; my $ile = $#k; # Index letztes Arrayelement my ($idx) = grep {$k[$_] eq "$day"} (0..@k-1); # Index des aktuellen Tages my $below = $idx; # Anzahl aller Elemente im Array unter dem aktuellen Tag # Log3 ($name, 1, "$name - PV History Array: Index last element: $ile, Day $day has index $idx. All days: ".join " ",@k); return; } ################################################################ # PV und PV Forecast in History-Hash speichern zur # Berechnung des Korrekturfaktors über mehrere Tage ################################################################ sub setPVhistory { my $paref = shift; my $hash = $paref->{hash}; my $name = $paref->{name}; my $t = $paref->{t}; # aktuelle Unix-Zeit my $chour = $paref->{chour}; my $ethishour = $paref->{ethishour} // 0; my $calcpv = $paref->{calcpv} // 0; my $type = $hash->{TYPE}; my $day = strftime "%d", localtime($t); # aktueller Tag my $pvhh = $data{$type}{$name}{pvhist}; $pvhh->{$day}{$chour}{pvrl} = $ethishour if(defined $ethishour); # realer Energieertrag $pvhh->{$day}{$chour}{pvfc} = $calcpv if(defined $calcpv); # prognostizierter Energieertrag return; } ################################################################ # liefert aktuelle Einträge des PV Cache ################################################################ sub listPVHistory { my $hash = shift; my $name = $hash->{NAME}; my $type = $hash->{TYPE}; my $pvhh = $data{$type}{$name}{pvhist}; my $sub = sub { my $day = shift; my $ret; for my $key (sort{$a<=>$b} keys %{$pvhh->{$day}}) { my $pvrl = $pvhh->{$day}{$key}{pvrl} // 0; my $pvfc = $pvhh->{$day}{$key}{pvfc} // 0; $ret .= "\n " if($ret); $ret .= $key." => pvreal: $pvrl, pvforecast: $pvfc"; } return $ret; }; if (!keys %{$pvhh}) { return qq{PV cache is empty.}; } my $sq; for my $idx (sort{$a<=>$b} keys %{$pvhh}) { $sq .= $idx." => ".$sub->($idx)."\n"; } return $sq; } ################################################################ # Zusammenfassungen erstellen ################################################################ sub sumNextHours { my $hash = shift; my $chour = shift; # aktuelle Stunde my $daref = shift; my $name = $hash->{NAME}; my $next4HoursSum = { "PV" => 0, "Consumption" => 0, "Total" => 0, "ConsumpRcmd" => 0 }; my $restOfDaySum = { "PV" => 0, "Consumption" => 0, "Total" => 0, "ConsumpRcmd" => 0 }; my $tomorrowSum = { "PV" => 0, "Consumption" => 0, "Total" => 0, "ConsumpRcmd" => 0 }; my $rdh = 24 - $chour - 1; # verbleibende Anzahl Stunden am Tag beginnend mit 00 (abzüglich aktuelle Stunde) my $thforecast = ReadingsNum ($name, "ThisHour_PVforecast", 0); $next4HoursSum->{PV} = $thforecast; $restOfDaySum->{PV} = $thforecast; for my $h (1..47) { $next4HoursSum->{PV} += ReadingsNum ($name, "NextHour".(sprintf "%02d", $h)."_PVforecast", 0) if($h <= 3); $restOfDaySum->{PV} += ReadingsNum ($name, "NextHour".(sprintf "%02d", $h)."_PVforecast", 0) if($h <= $rdh); $tomorrowSum->{PV} += ReadingsNum ($name, "NextHour".(sprintf "%02d", $h)."_PVforecast", 0) if($h > $rdh); } push @$daref, "Next04Hours_PV:". (int $next4HoursSum->{PV})." Wh"; push @$daref, "RestOfDay_PV:". (int $restOfDaySum->{PV}). " Wh"; push @$daref, "Tomorrow_PV:". (int $tomorrowSum->{PV}). " Wh"; createReadingsFromArray ($hash, $daref, 1); return; } ################################################################ # einen Zeitstring YYYY-MM-TT hh:mm:ss in einen Unix # Timestamp umwandeln ################################################################ sub timestringToTimestamp { my $hash = shift; my $tstring = shift; my $name = $hash->{NAME}; my($y, $mo, $d, $h, $m, $s) = $tstring =~ /([0-9]{4})-([0-9]{2})-([0-9]{2})\s([0-9]{2}):([0-9]{2}):([0-9]{2})/xs; return if(!$mo || !$y); my $timestamp = fhemTimeLocal($s, $m, $h, $d, $mo-1, $y-1900); return $timestamp; } ################################################################ # Readings aus Array erstellen # $daref: Referenz zum Array der zu erstellenden Readings # muß Paare : enthalten # $doevt: 1-Events erstellen, 0-keine Events erstellen ################################################################ sub createReadingsFromArray { my $hash = shift; my $daref = shift; my $doevt = shift // 0; readingsBeginUpdate($hash); for my $elem (@$daref) { my ($rn,$rval) = split ":", $elem, 2; readingsBulkUpdate($hash, $rn, $rval); } readingsEndUpdate($hash, $doevt); return; } ################################################################ # alle Readings eines Devices oder nur Reaging-Regex # löschen ################################################################ sub deleteReadingspec { my $hash = shift; my $spec = shift // ".*"; my $readingspec = '^'.$spec.'$'; for my $reading ( grep { /$readingspec/ } keys %{$hash->{READINGS}} ) { readingsDelete($hash, $reading); } return; } ###################################################################################### # NOTIFYDEV erstellen ###################################################################################### sub createNotifyDev { my $hash = shift; my $name = $hash->{NAME}; RemoveInternalTimer($hash, "FHEM::SolarForecast::createNotifyDev"); if($init_done == 1) { my @nd; my ($a,$h); my $fcdev = ReadingsVal($name, "currentForecastDev", ""); # Forecast Device ($a,$h) = parseParams ($fcdev); $fcdev = $a->[0] // ""; my $indev = ReadingsVal($name, "currentInverterDev", ""); # Inverter Device ($a,$h) = parseParams ($indev); $indev = $a->[0] // ""; my $medev = ReadingsVal($name, "currentMeterDev", ""); # Meter Device ($a,$h) = parseParams ($medev); $medev = $a->[0] // ""; push @nd, $fcdev; push @nd, $indev; push @nd, $medev; if(@nd) { $hash->{NOTIFYDEV} = join ",", @nd; readingsSingleUpdate ($hash, ".associatedWith", join(" ",@nd), 0); } } else { InternalTimer(gettimeofday()+3, "FHEM::SolarForecast::createNotifyDev", $hash, 0); } return; } 1; =pod =item summary Visualization of solar predictions for PV systems =item summary_DE Visualisierung von solaren Vorhersagen für PV Anlagen =begin html =end html =begin html_DE

SolarForecast


Das Modul SolarForecast erstellt auf Grundlage der Werte aus generischen Quellendevices eine Vorhersage für den solaren Ertrag und weitere Informationen als Grundlage für abhängige Steuerungen.
Die Solargrafik kann ebenfalls in FHEM Tablet UI mit dem "SolarForecast Widget" integriert werden.

Die solare Vorhersage basiert auf der durch den Deutschen Wetterdienst (DWD) prognostizierten Globalstrahlung am Anlagenstandort. Im zugeordneten DWD_OpenData Device ist die passende Wetterstation mit dem Attribut "forecastStation" festzulegen um eine Prognose für diesen Standort zu erhalten.
Abhängig von der physikalischen Anlagengestaltung (Ausrichtung, Winkel, Aufteilung in mehrere Strings, u.a.) wird die verfügbare Globalstrahlung ganz spezifisch in elektrische Energie umgewandelt.
    Define

      Ein SolarForecast Device wird einfach erstellt mit:

        define <name> SolarForecast

      Nach der Definition des Devices ist zwingend ein Vorhersage-Device des Typs DWD_OpenData zuzuordnen sowie weitere anlagenspezifische Angaben mit dem entsprechenden set-Kommando vorzunehmen.
      Mit nachfolgenden set-Kommandos werden die Quellendevices und Quellenreadings für maßgebliche Informationen hinterlegt:

        currentForecastDev Device welches Strahlungsdaten liefert
        currentInverterDev Device welches PV Leistungsdaten liefert
        currentMeterDev Device welches aktuelle Netzbezugsdaten liefert

      Um eine Anpassung an die persönliche Anlage zu ermöglichen, können Korrekturfaktoren manuell (set <name> pvCorrectionFactor_XX) bzw. automatisiert (set <name> pvCorrectionFactor_Auto) eingefügt werden.

    Set
      • currentForecastDev
        Legt das Device (Typ DWD_OpenData) fest, welches die Daten der solaren Vorhersage liefert. Ist noch kein Device dieses Typs vorhanden, muß es manuell definiert werden (siehe DWD_OpenData Commandref).
        Im ausgewählten DWD_OpenData Device müssen mindestens diese Attribute gesetzt sein:

          forecastDays 1
          forecastProperties Rad1h,TTT,Neff,R600,ww,SunUp,SunRise,SunSet
          forecastResolution 1
          forecastStation <Stationscode der ausgewerteten DWD Station>
          Hinweis: Die ausgewählte forecastStation muß Strahlungswerte (Rad1h Readings) liefern.

      • currentInverterDev <Inverter Device Name> pv=<Reading aktuelle PV-Leistung>:<Einheit> etoday=<Reading Energieerzeugung aktueller Tag>:<Einheit>
        Legt ein beliebiges Device zur Lieferung der aktuellen PV Erzeugungswerte fest. Es ist anzugeben, welche Readings die aktuelle PV-Leistung und die erzeugte Energie des aktuellen Tages liefern sowie deren Einheit (W,kW,Wh,kWh).

          Beispiel:
          set <name> currentInverterDev STP5000 pv=total_pac:kW etoday=etoday:kWh
          # Device STP5000 liefert PV-Werte. Die aktuell erzeugte Leistung im Reading "total_pac" (kW) und die tägliche Energie im Reading "etoday" (kWh)

      • currentMeterDev <Meter Device Name> gcon=<Reading aktueller Netzbezug>:<Einheit>
        Legt ein beliebiges Device zur Messung des aktuellen Energiebezugs fest. Es ist das Reading anzugeben welches die aktuell aus dem Netz bezogene Leistung liefert sowie dessen Einheit (W,kW).

          Beispiel:
          set <name> currentMeterDev SMA_Energymeter gcon=Bezug_Wirkleistung:W
          # Device SMA_Energymeter liefert den aktuellen Netzbezug im Reading "Bezug_Wirkleistung" (W)

      • inverterEfficiency <Zahl>
        Wirkungsgrad des Wechselrichters (currentInverterDev) in %.
        (default: 98.3)

      • moduleArea <Zahl>
        Gesamte installierte Solarmodulfläche in qm.

      • moduleEfficiency <Zahl>
        Wirkungsgrad der Solarmodule in %.
        (default: 16.52)

      • moduleTiltAngle
        Neigungswinkel der Solarmodule (0 = waagerecht, 90 = senkrecht).
        (default: 45)

      • pvCorrectionFactor_Auto <on | off>
        Schaltet die automatische Vorhersagekorrektur ein / aus.
        Ist die Automatik eingeschaltet, wird nach einer Mindestlaufzeit von FHEM bzw. des Moduls von 24 Stunden für jede Stunde ein Korrekturfaktor der Solarvorhersage berechnet und auf die Erwartung des kommenden Tages angewendet. Dazu wird die tatsächliche Energierzeugung mit dem vorhergesagten Wert des aktuellen Tages und Stunde vergleichen und daraus eine Korrektur abgeleitet.
        (default: off)

      • pvCorrectionFactor_XX <Zahl>
        Manueller Korrekturfaktor für die Stunde XX des Tages zur Anpassung der Vorhersage an die individuelle Anlage.
        (default: 1.0)


    Get
      • html
        Die Solar Grafik wird als HTML-Code abgerufen und wiedergegeben.

      • data
        Startet die Datensammlung zur Bestimmung der solaren Vorhersage und anderer Werte.

      • pvHistory
        Listet die PV Werte der letzten Tage sortiert nach dem Tagesdatum und der Stunde des jeweiligen Tages auf. Dabei sind pvreal der reale und pvforecast der prognostizierte PV Ertrag.


    Attribute

      • alias
        In Verbindung mit "showLink" ein beliebiger Anzeigename.

      • autoRefresh
        Wenn gesetzt, werden aktive Browserseiten des FHEMWEB-Devices welches das SolarForecast-Device aufgerufen hat, nach der eingestellten Zeit (Sekunden) neu geladen. Sollen statt dessen Browserseiten eines bestimmten FHEMWEB-Devices neu geladen werden, kann dieses Device mit dem Attribut "autoRefreshFW" festgelegt werden.

      • autoRefreshFW
        Ist "autoRefresh" aktiviert, kann mit diesem Attribut das FHEMWEB-Device bestimmt werden dessen aktive Browserseiten regelmäßig neu geladen werden sollen.

      • beamColor
        Farbauswahl der primären Balken.

      • beamColor2
        Farbauswahl der sekundären Balken. Die zweite Farbe ist nur sinnvoll für den Anzeigedevice-Typ "Generation_Consumption" (pvco) und "Differential" (diff).

      • beamHeight <value>
        Höhe der Balken in px und damit Bestimmung der gesammten Höhe. In Verbindung mit "hourCount" lassen sich damit auch recht kleine Grafikausgaben erzeugen.
        (default: 200)

      • beamWidth <value>
        Breite der Balken in px.
        (default: 6 (auto))

      • consumerList <Verbraucher1>:<Icon>@<Farbe>,<Verbraucher2>:<Icon>@<Farbe>,...
        Komma getrennte Liste der am SMA Sunny Home Manager angeschlossenen Geräte.
        Sobald die Aktivierung einer der angegebenen Verbraucher geplant ist, wird der geplante Zeitraum in der Grafik angezeigt. Der Name des Verbrauchers muss dabei dem Namen im Reading "L3_<Verbrauchername>_Planned" entsprechen.

        Beispiel:
        attr <name> consumerList Trockner:scene_clothes_dryer@yellow,Waschmaschine:scene_washing_machine@lightgreen,Geschirrspueler:scene_dishwasher@orange

      • consumerLegend <none | icon_top | icon_bottom | text_top | text_bottom>
        Lage bzw. Art und Weise der angezeigten Verbraucherlegende.

      • disable
        Aktiviert/deaktiviert das Device.

      • forcePageRefresh
        Das Attribut wird durch das SMAPortal-Device ausgewertet.
        Wenn gesetzt, wird ein Reload aller Browserseiten mit aktiven FHEMWEB-Verbindungen nach dem Update des Eltern-SMAPortal-Devices erzwungen.

      • headerAlignment <center | left | right>
        Ausrichtung der Kopfzeilen.
        (default: center)

      • headerDetail <all | co | pv | pvco | statusLink>
        Detailiierungsgrad der Kopfzeilen.
        (default: all)
          all Anzeige Erzeugung (PV), Verbrauch (CO), Link zur Device Detailanzeige + Aktualisierungszeit (default)
          co nur Verbrauch (CO)
          pv nur Erzeugung (PV)
          pvco Erzeugung (PV) und Verbrauch (CO)
          statusLink Link zur Device Detailanzeige + Aktualisierungszeit

      • hourCount <4...24>
        Anzahl der Balken/Stunden.
        (default: 24)

      • hourStyle
        Format der Zeitangabe.

          nicht gesetzt - nur Stundenangabe ohne Minuten (default)
          :00 - Stunden sowie Minuten zweistellig, z.B. 10:00
          :0 - Stunden sowie Minuten einstellig, z.B. 8:0

      • interval <Sekunden>
        Zeitintervall der Datensammlung.
        Ist interval explizit auf "0" gesetzt, erfolgt keine automatische Datensammlung und muss mit "get <name> data" manuell erfolgen.
        (default: 70)

      • maxPV <0...val>
        Maximaler Ertrag in einer Stunde zur Berechnung der Balkenhöhe.
        (default: 0 -> dynamisch)

      • maxVariancePerDay <Zahl>
        Maximale Änderungsgröße des PV Vorhersagefaktors (Reading pvCorrectionFactor_XX) pro Tag.
        (default: 0.5)

      • htmlStart <HTML-String>
        Angabe eines beliebigen HTML-Strings der vor dem Grafik-Code ausgeführt wird.

      • htmlEnd <HTML-String>
        Angabe eines beliebigen HTML-Strings der nach dem Grafik-Code ausgeführt wird.

      • showDiff <no | top | bottom>
        Zusätzliche Anzeige der Differenz "Ertrag - Verbrauch" wie beim Anzeigetyp Differential (diff).
        (default: no)

      • showHeader
        Anzeige der Kopfzeile mit Prognosedaten, Rest des aktuellen Tages und des nächsten Tages
        (default: 1)

      • showLink
        Anzeige des Detail-Links über dem Grafik-Device
        (default: 1)

      • showNight
        Die Nachtstunden (ohne Ertragsprognose) werden mit angezeigt.
        (default: 0)

      • showWeather
        Wettericons anzeigen.
        (default: 1)

      • spaceSize <value>
        Legt fest wieviel Platz in px über oder unter den Balken (bei Anzeigetyp Differential (diff)) zur Anzeige der Werte freigehalten wird. Bei Styles mit große Fonts kann der default-Wert zu klein sein bzw. rutscht ein Balken u.U. über die Grundlinie. In diesen Fällen bitte den Wert erhöhen.
        (default: 24)

      • consumerAdviceIcon
        Setzt das Icon zur Darstellung der Zeiten mit Verbraucherempfehlung. Dazu kann ein beliebiges Icon mit Hilfe der Standard "Select Icon"-Funktion (links unten im FHEMWEB) direkt ausgewählt werden.

      • layoutType <pv | co | pvco | diff>
        Layout der Portalgrafik.
        (default: pv)

          pv - Erzeugung
          co - Verbrauch
          pvco - Erzeugung und Verbrauch
          diff - Differenz von Erzeugung und Verbrauch

      • Wh/kWh <Wh | kWh>
        Definiert die Anzeigeeinheit in Wh oder in kWh auf eine Nachkommastelle gerundet.
        (default: W)

      • weatherColor
        Farbe der Wetter-Icons.

      • weatherColor_night
        Farbe der Wetter-Icons für die Nachtstunden.

=end html_DE =for :application/json;q=META.json 76_SolarForecast.pm { "abstract": "Visualization of solar predictions for PV systems", "x_lang": { "de": { "abstract": "Visualisierung von solaren Vorhersagen für PV Anlagen" } }, "keywords": [ "sma", "photovoltaik", "electricity", "portal", "smaportal", "graphics", "longpoll", "refresh" ], "version": "v1.1.1", "release_status": "testing", "author": [ "Heiko Maaz " ], "x_fhem_maintainer": [ "DS_Starter" ], "x_fhem_maintainer_github": [ "nasseeder1" ], "prereqs": { "runtime": { "requires": { "FHEM": 5.00918799, "perl": 5.014, "Time::HiRes": 0 }, "recommends": { "FHEM::Meta": 0 }, "suggests": { } } }, "resources": { "repository": { "x_dev": { "type": "svn", "url": "https://svn.fhem.de/trac/browser/trunk/fhem/contrib/DS_Starter", "web": "https://svn.fhem.de/trac/browser/trunk/fhem/contrib/DS_Starter/76_SolarForecast.pm", "x_branch": "dev", "x_filepath": "fhem/contrib/", "x_raw": "https://svn.fhem.de/fhem/trunk/fhem/contrib/DS_Starter/76_SolarForecast.pm" } } } } =end :application/json;q=META.json =cut