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

76_SolarForecast.pm: contrib 0.64.0

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@26119 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2022-06-05 08:36:20 +00:00
parent 7900cf9b66
commit 24bfe8a933
1 changed files with 46 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2914,17 +2914,17 @@ sub _manageConsumerData {
$paref->{consumer} = $c; $paref->{consumer} = $c;
__calcEnergyPieces ($paref); # Energieverbrauch auf einzelne Stunden für Planungsgrundlage aufteilen __calcEnergyPieces ($paref); # Energieverbrauch auf einzelne Stunden für Planungsgrundlage aufteilen
__planSwitchTimes ($paref); # Consumer Switch Zeiten planen __planSwitchTimes ($paref); # Consumer Switch Zeiten planen
__switchConsumer ($paref); # Consumer schalten __setTimeframeState ($paref); # Timeframe Status ermitteln
__setConsRcmdState ($paref); # Consumption Recommended Status setzen
__switchConsumer ($paref); # Consumer schalten
## Consumer Schaltstatus und Schaltzeit für Readings ermitteln ## Consumer Schaltstatus und Schaltzeit für Readings ermitteln
################################################################ ################################################################
# my $rswstate = ConsumerVal ($hash, $c, "rswstate", "state"); # Reading mit Schaltstatus my $costate = isConsumerPhysOn ($hash, $c) ? "on" :
# my $costate = ReadingsVal ($consumer, $rswstate, ""); # Schaltstatus isConsumerPhysOff ($hash, $c) ? "off" :
my $costate = isConsumerPhysOn ($hash, $c) ? "on" : "unknown";
isConsumerPhysOff ($hash, $c) ? "off" :
"unknown";
$data{$type}{$name}{consumers}{$c}{state} = $costate; $data{$type}{$name}{consumers}{$c}{state} = $costate;
@ -3389,21 +3389,17 @@ return $starttime;
} }
################################################################ ################################################################
# Planungsdaten Consumer prüfen und ggf. starten/stoppen # Timeframe Status ermitteln
################################################################ ################################################################
sub __switchConsumer { sub __setTimeframeState {
my $paref = shift; my $paref = shift;
my $hash = $paref->{hash}; my $hash = $paref->{hash};
my $name = $paref->{name}; my $name = $paref->{name};
my $c = $paref->{consumer}; my $c = $paref->{consumer};
my $t = $paref->{t}; # aktueller Unixtimestamp my $t = $paref->{t}; # aktueller Unixtimestamp
my $state = $paref->{state};
my $daref = $paref->{daref};
my $type = $hash->{TYPE}; my $type = $hash->{TYPE};
## Timeframe Status ermitteln
###############################
my $startts = ConsumerVal ($hash, $c, "planswitchon", undef); # geplante Unix Startzeit my $startts = ConsumerVal ($hash, $c, "planswitchon", undef); # geplante Unix Startzeit
my $stopts = ConsumerVal ($hash, $c, "planswitchoff", undef); # geplante Unix Stopzeit my $stopts = ConsumerVal ($hash, $c, "planswitchoff", undef); # geplante Unix Stopzeit
@ -3414,8 +3410,21 @@ sub __switchConsumer {
$data{$type}{$name}{consumers}{$c}{isIntimeframe} = 0; $data{$type}{$name}{consumers}{$c}{isIntimeframe} = 0;
} }
## Consumption Recommended Status setzen return;
########################################## }
################################################################
# Consumption Recommended Status setzen
################################################################
sub __setConsRcmdState {
my $paref = shift;
my $hash = $paref->{hash};
my $name = $paref->{name};
my $c = $paref->{consumer}; # aktueller Unixtimestamp
my $daref = $paref->{daref};
my $type = $hash->{TYPE};
my $surplus = CurrentVal ($hash, "surplus", 0); # aktueller Energieüberschuß my $surplus = CurrentVal ($hash, "surplus", 0); # aktueller Energieüberschuß
my $power = ConsumerVal ($hash, $c, "power", 0); # Consumer nominale Leistungsaufnahme (W) my $power = ConsumerVal ($hash, $c, "power", 0); # Consumer nominale Leistungsaufnahme (W)
my $ccr = AttrVal ($name, 'createConsumptionRecReadings', ''); # Liste der Consumer für die ConsumptionRecommended-Readings erstellt werden sollen my $ccr = AttrVal ($name, 'createConsumptionRecReadings', ''); # Liste der Consumer für die ConsumptionRecommended-Readings erstellt werden sollen
@ -3431,14 +3440,31 @@ sub __switchConsumer {
push @$daref, "consumer${c}_ConsumptionRecommended<>". ConsumerVal ($hash, $c, 'isConsumptionRecommended', 0); push @$daref, "consumer${c}_ConsumptionRecommended<>". ConsumerVal ($hash, $c, 'isConsumptionRecommended', 0);
} }
$state = ___switchConsumerOn ($paref); # Verbraucher Einschaltbedingung prüfen + auslösen return;
}
$state = ___switchConsumerOff ($paref); # Verbraucher Ausschaltbedingung prüfen + auslösen ################################################################
# Planungsdaten Consumer prüfen und ggf. starten/stoppen
################################################################
sub __switchConsumer {
my $paref = shift;
my $hash = $paref->{hash};
my $name = $paref->{name};
my $c = $paref->{consumer};
my $t = $paref->{t}; # aktueller Unixtimestamp
my $state = $paref->{state};
my $type = $hash->{TYPE};
$state = ___switchConsumerOn ($paref); # Verbraucher Einschaltbedingung prüfen + auslösen
$state = ___switchConsumerOff ($paref); # Verbraucher Ausschaltbedingung prüfen + auslösen
## Restlaufzeit Verbraucher ermitteln ## Restlaufzeit Verbraucher ermitteln
###################################### ######################################
my ($planstate,$startstr,$stoptstr) = __getPlanningStateAndTimes ($paref); my ($planstate,$startstr,$stoptstr) = __getPlanningStateAndTimes ($paref);
my $isIntimeframe = ConsumerVal ($hash, $c, "isIntimeframe", 0); my $isIntimeframe = ConsumerVal ($hash, $c, "isIntimeframe", 0);
my $stopts = ConsumerVal ($hash, $c, "planswitchoff", undef); # geplante Unix Stopzeit
$data{$type}{$name}{consumers}{$c}{remainTime} = 0; $data{$type}{$name}{consumers}{$c}{remainTime} = 0;