Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-01 20:20:10 +00:00
Code Issues Packages Projects Releases Wiki Activity

76_SolarForecast.pm: contrib 0.63.1

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@26065 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2022-05-20 14:41:28 +00:00
parent db67263f90
commit b6634a518c
1 changed files with 48 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

62
contrib/DS_Starter/76_SolarForecast.pm
View File

@ -2900,8 +2900,8 @@ sub _manageConsumerData {
__planSwitchTimes ($paref); # Consumer Switch Zeiten planen __planSwitchTimes ($paref); # Consumer Switch Zeiten planen
__switchConsumer ($paref); # Consumer schalten __switchConsumer ($paref); # Consumer schalten
## consumer Hash ergänzen, Reading generieren ## Consumer Schaltstatus und Schaltzeit ermitteln
############################################### ###################################################
# my $rswstate = ConsumerVal ($hash, $c, "rswstate", "state"); # Reading mit Schaltstatus # my $rswstate = ConsumerVal ($hash, $c, "rswstate", "state"); # Reading mit Schaltstatus
# my $costate = ReadingsVal ($consumer, $rswstate, ""); # Schaltstatus # my $costate = ReadingsVal ($consumer, $rswstate, ""); # Schaltstatus
my $costate = isConsumerOn ($hash, $c) ? "on" : my $costate = isConsumerOn ($hash, $c) ? "on" :
@ -2910,7 +2910,7 @@ sub _manageConsumerData {
$data{$type}{$name}{consumers}{$c}{state} = $costate; $data{$type}{$name}{consumers}{$c}{state} = $costate;
my ($pstate,$starttime,$stoptime) = __planningStateAndTimes ($paref); my ($pstate,$starttime,$stoptime) = __getPlanningStateAndTimes ($paref);
push @$daref, "consumer${c}<>" ."name='$alias' state='$costate' planningstate='$pstate' "; # Consumer Infos push @$daref, "consumer${c}<>" ."name='$alias' state='$costate' planningstate='$pstate' "; # Consumer Infos
push @$daref, "consumer${c}_planned_start<>"."$starttime" if($starttime); # Consumer Start geplant push @$daref, "consumer${c}_planned_start<>"."$starttime" if($starttime); # Consumer Start geplant
@ -3388,7 +3388,7 @@ sub __switchConsumer {
## Restlaufzeit Verbraucher ermitteln ## Restlaufzeit Verbraucher ermitteln
###################################### ######################################
my ($planstate,$startstr,$stoptstr) = __planningStateAndTimes ($paref); my ($planstate,$startstr,$stoptstr) = __getPlanningStateAndTimes ($paref);
my $isConsRecommended = ConsumerVal ($hash, $c, "isConsumptionRecommended", 0); my $isConsRecommended = ConsumerVal ($hash, $c, "isConsumptionRecommended", 0);
$data{$type}{$name}{consumers}{$c}{remainTime} = 0; $data{$type}{$name}{consumers}{$c}{remainTime} = 0;
@ -3552,24 +3552,36 @@ return $ena;
} }
################################################################### ###################################################################
# Consumer Planungsstatus mit Schaltzeiten liefern # Consumer Planstatus und Planzeit ermitteln
################################################################### ###################################################################
sub __planningStateAndTimes { sub __getPlanningStateAndTimes {
my $paref = shift; my $paref = shift;
my $hash = $paref->{hash}; my $hash = $paref->{hash};
my $c = $paref->{consumer}; my $c = $paref->{consumer};
my $pstate = ConsumerVal ($hash, $c, "planstate", ""); my $pstate = ConsumerVal ($hash, $c, "planstate", "");
$pstate = $pstate =~ /planned/xs ? "planned" : $pstate = $pstate =~ /planned/xs ? "planned" :
$pstate =~ /switched\son/xs ? "started" : $pstate =~ /switching\son/xs ? "starting" :
$pstate =~ /switched\soff/xs ? "finished" : $pstate =~ /switched\son/xs ? "started" :
$pstate =~ /priority/xs ? $pstate : $pstate =~ /switching\soff/xs ? "stopping" :
$pstate =~ /switched\soff/xs ? "finished" :
$pstate =~ /priority/xs ? $pstate :
"unknown"; "unknown";
my $startts = ConsumerVal ($hash, $c, "planswitchon", ""); my $startts = ConsumerVal ($hash, $c, "planswitchon", "");
my $stopts = ConsumerVal ($hash, $c, "planswitchoff", ""); my $stopts = ConsumerVal ($hash, $c, "planswitchoff", "");
#my $swtime = "";
#if ($pstate eq "started") {
# ($swtime, $startts) = lastConsumerSwitchtime ($hash, $c);
# Log3 ($hash->{NAME}, 1, "$hash->{NAME} - $c, swtime: $swtime, startts: $startts");
#}
#elsif ($pstate eq "finished") {
# ($swtime, $stopts) = lastConsumerSwitchtime ($hash, $c);
# Log3 ($hash->{NAME}, 1, "$hash->{NAME} - $c, swtime: $swtime, stopts:$stopts ");
#}
my $starttime = ''; my $starttime = '';
my $stoptime = ''; my $stoptime = '';
$starttime = timestampToTimestring ($startts) if($startts); $starttime = timestampToTimestring ($startts) if($startts);
@ -4929,7 +4941,7 @@ sub _graphicConsumerLegend {
$paref->{consumer} = $c; $paref->{consumer} = $c;
my ($planstate,$starttime,$stoptime) = __planningStateAndTimes ($paref); my ($planstate,$starttime,$stoptime) = __getPlanningStateAndTimes ($paref);
my $pstate = $caicon eq "times" ? $hqtxt{pstate}{$lang} : $htitles{pstate}{$lang}; my $pstate = $caicon eq "times" ? $hqtxt{pstate}{$lang} : $htitles{pstate}{$lang};
$pstate =~ s/<pstate>/$planstate/xs; $pstate =~ s/<pstate>/$planstate/xs;
@ -7217,9 +7229,9 @@ sub isConsumerOn {
return; return;
} }
my $reg = ConsumerVal ($hash, $c, "onreg", "on"); my $reg = ConsumerVal ($hash, $c, "onreg", "on");
my $rswstate = ConsumerVal ($hash, $c, "rswstate", "state"); # Reading mit Schaltstatus my $rswstate = ConsumerVal ($hash, $c, "rswstate", "state"); # Reading mit Schaltstatus
my $swstate = ReadingsVal ($cname, $rswstate, "undef"); my $swstate = ReadingsVal ($cname, $rswstate, "undef");
if ($swstate =~ m/^$reg$/x) { if ($swstate =~ m/^$reg$/x) {
return 1; return 1;
@ -7254,6 +7266,28 @@ sub isConsumerOff {
return; return;
} }
################################################################
# liefert die Zeit des letzten Schaltvorganges
################################################################
sub lastConsumerSwitchtime {
my $hash = shift;
my $c = shift;
my $name = $hash->{NAME};
my $cname = ConsumerVal ($hash, $c, "name", ""); # Devicename Customer
if(!$defs{$cname}) {
Log3($name, 1, qq{$name - the consumer device "$cname" is invalid, the last switching time can't be identified});
return;
}
my $rswstate = ConsumerVal ($hash, $c, "rswstate", "state"); # Reading mit Schaltstatus
my $swtime = ReadingsTimestamp ($cname, $rswstate, ""); # Zeitstempel im Format 2016-02-16 19:34:24
my $swtimets = timestringToTimestamp ($swtime) if($swtime); # Unix Timestamp Format erzeugen
return ($swtime, $swtimets);
}
################################################################ ################################################################
# Funktion liefert "1" wenn die zusätzliche Einschaltbedingung # Funktion liefert "1" wenn die zusätzliche Einschaltbedingung
# aus dem Schlüssel "swoncond" im Consumer Attribut wahr ist # aus dem Schlüssel "swoncond" im Consumer Attribut wahr ist