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

73_WaterCalculator: New set command to synchronize Counters

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@21391 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
Sailor 2020-03-09 09:37:07 +00:00
parent 0e3a190569
commit 1391b59030
1 changed files with 80 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

100
fhem/FHEM/73_WaterCalculator.pm
View File

@ -267,31 +267,41 @@ sub WaterCalculator_Get($@)
### If not enough arguments have been provided ### If not enough arguments have been provided
if ( @a < 2 ) if ( @a < 2 )
{ {
return "\"get WaterCalculator\" needs at least one argument"; return "\"set WaterCalculator\" needs at least one argument";
} }
my $WaterCalcName = shift @a; my $WaterCalcName = shift @a;
my $reading = shift @a; my $reading = shift @a;
my $value; my $value = join(" ", @a);
my $ReturnMessage; my $ReturnMessage;
my @cList;
if(!defined($hash->{helper}{gets}{$reading})) ### Create Log entries for debugging
{ Log3 $WaterCalcName, 5, $WaterCalcName. "_Get - reading : " . $reading;
my @cList = keys %{$hash->{helper}{gets}}; Log3 $WaterCalcName, 5, $WaterCalcName. "_Get - value : " . $value;
return "Unknown argument $reading, choose one of " . join(" ", @cList);
### Create Log entries for debugging
Log3 $WaterCalcName, 5, $WaterCalcName. " : WaterCalculator - get list: " . join(" ", @cList); if(defined($hash->{READINGS})) {
push(@cList, " ");
push(@cList, keys(%{$hash->{READINGS}}));
} }
else {
push(@cList, " ");
}
### Create Log entries for debugging
Log3 $WaterCalcName, 5, $WaterCalcName. " : WaterCalculator - set list: " . join(" ", @cList);
return "Unknown argument $reading, choose one of " . join(" ", @cList) if $reading eq '?';
if ( $reading ne "?") if ( $reading ne "?")
{ {
### Write current value ### Write current value
$value = ReadingsVal($WaterCalcName, $reading, undef); $value = ReadingsVal($WaterCalcName, $reading, undef);
### Create Log entries for debugging ### Create Log entries for debugging
Log3 $WaterCalcName, 5, $WaterCalcName. " : WaterCalculator - get " . $reading . " with value: " . $value; Log3 $WaterCalcName, 5, $WaterCalcName. " : WaterCalculator - get " . $reading . " with value: " . $value;
### Create ReturnMessage ### Create ReturnMessage
$ReturnMessage = $value; $ReturnMessage = $value;
} }
@ -315,17 +325,65 @@ sub WaterCalculator_Set($@)
my $reading = shift @a; my $reading = shift @a;
my $value = join(" ", @a); my $value = join(" ", @a);
my $ReturnMessage; my $ReturnMessage;
my @cList;
if(!defined($hash->{helper}{gets}{$reading})) ### Create Log entries for debugging
{ Log3 $WaterCalcName, 5, $WaterCalcName. "_Set - reading : " . $reading;
my @cList = keys %{$hash->{helper}{sets}}; Log3 $WaterCalcName, 5, $WaterCalcName. "_Set - value : " . $value;
return "Unknown argument $reading, choose one of " . join(" ", @cList);
### Create Log entries for debugging
Log3 $WaterCalcName, 5, $WaterCalcName. " : WaterCalculator - set list: " . join(" ", @cList);
}
if ( $reading ne "?") if(defined($hash->{READINGS})) {
push(@cList, "SyncCounter");
push(@cList, keys(%{$hash->{READINGS}}));
}
else {
push(@cList, "SyncCounter");
}
### Create Log entries for debugging
Log3 $WaterCalcName, 5, $WaterCalcName. " : WaterCalculator - set list: " . join(" ", @cList);
return "Unknown argument $reading, choose one of " . join(" ", @cList) if $reading eq '?';
### If the command supposed to synchronize the CounterValues between CounterModule and CalculatorModule
if ($reading eq "SyncCounter") {
### Create Log entries for debugging
Log3 $WaterCalcName, 5, $WaterCalcName. " - Syncing Counter with :" . $value;
### Sreach for the ReadingsName of the Current CounterValue
my @SearchResult = grep(/_CounterCurrent/, @cList);
### Get current CalculatorValue
my $CalculaterValueCurrent = ReadingsVal($WaterCalcName, $SearchResult[0], 0);
### Get current Offset from Attribute
my $CounterOffsetCurrent = AttrVal($WaterCalcName, "WaterCounterOffset", 0);
### Calculate CounterValue
my $CounterValueCurrent = $CalculaterValueCurrent - $CounterOffsetCurrent;
### Calculate new Offset
my $CounterOffsetNew = $value - $CounterValueCurrent;
### Calculate Ceck
# my $CounterValueNew = $CounterValueCurrent + $CounterOffsetNew;
### Create Log entries for debugging
Log3 $WaterCalcName, 5, $WaterCalcName. " - Search Result : " . Dumper(@SearchResult);
Log3 $WaterCalcName, 5, $WaterCalcName. " - CounterValueNew Given : " . $value;
Log3 $WaterCalcName, 5, $WaterCalcName. " - CounterValueCurrent Result : " . $CalculaterValueCurrent;
Log3 $WaterCalcName, 5, $WaterCalcName. " - CounterOffsetCurrent Result : " . $CounterOffsetCurrent;
Log3 $WaterCalcName, 5, $WaterCalcName. " - CounterValueCurrent Result : " . $CounterValueCurrent;
Log3 $WaterCalcName, 5, $WaterCalcName. " - CounterOffsetNew Result : " . $CounterOffsetNew;
# Log3 $WaterCalcName, 5, $WaterCalcName. " - CounterValueNew Check : " . $CounterValueNew;
### Set new Offset in Attributes
$attr{$WaterCalcName}{WaterCounterOffset} = $CounterOffsetNew;
### Create ReturnMessage
$ReturnMessage = $WaterCalcName . " - Successfully synchromized Counter and Calculator with : " . $value . " kWh";
}
elsif ($reading ne "?")
{ {
### Create Log entries for debugging ### Create Log entries for debugging
Log3 $WaterCalcName, 5, $WaterCalcName. " : WaterCalculator - set " . $reading . " with value: " . $value; Log3 $WaterCalcName, 5, $WaterCalcName. " : WaterCalculator - set " . $reading . " with value: " . $value;
@ -959,8 +1017,9 @@ sub WaterCalculator_Notify($$)
<tr><td> <tr><td>
<ul> <ul>
The set - function sets individual values for example to correct values after power loss etc.<BR> The set - function sets individual values for example to correct values after power loss etc.<BR>
The set - function works only for readings which have been stored in the CalculatorDevice.<BR> The set - function works for readings which have been stored in the CalculatorDevice and to update the Offset.<BR>
The Readings being stored in the Counter - Device need to be changed individially with the <code>set</code> - command.<BR> The Readings being stored in the Counter - Device need to be changed individially with the <code>set</code> - command.<BR>
The command "SyncCounter" will calculate and update the Offset. Just enter the value of your mechanical Reader.<BR>
</ul> </ul>
</td></tr> </td></tr>
</table> </table>
@ -1477,8 +1536,9 @@ sub WaterCalculator_Notify($$)
<tr><td> <tr><td>
<ul> <ul>
Die set - Funktion erlaubt individuelle Readings zu ver&auml;ndern um beispielsweise nach einem Stromausfall Werte zu korrigieren.<BR> Die set - Funktion erlaubt individuelle Readings zu ver&auml;ndern um beispielsweise nach einem Stromausfall Werte zu korrigieren.<BR>
Die set - Funktion funktioniert nur f&uumlr Readings welche im CalculatorDevice gespeichert wurden.<BR> Die set - Funktion funktioniert f&uumlr Readings welche im CalculatorDevice gespeichert wurden und zum update des Offsets zwischen den Z&aumlhlern.<BR>
Die Readings welche im Counter - Device gespeichert wurden, m&uumlssen individuell mit <code>set</code> - Befehl gesetzt werden.<BR> Die Readings welche im Counter - Device gespeichert wurden, m&uumlssen individuell mit <code>set</code> - Befehl gesetzt werden.<BR>
Der Befehl "SyncCounter" errechnet und update den Offset. Hierbei einfach den Wert des mechanischen Z&aumlhlers eingeben.<BR>
</ul> </ul>
</td></tr> </td></tr>
</table> </table>