mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

min, max, last, avg available

Browse Source 
git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@1758 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
bentele
2012-07-23 18:45:18 +00:00
parent 350e1f26b5
commit c11e09f2fb
1 changed files with 29 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

44
fhem/contrib/70_SML.pm
View File

@@ -20,15 +20,17 @@
# #
# get <name> <key> # get <name> <key>
# #
# where <key> is one of currentPower, intervalPower # where <key> is one of minPower, maxPower, lastPower, avgPower
############################################################################## ##############################################################################
package main; package main;
use IO::Socket::INET; use IO::Socket::INET;
my @gets = ('currentPower', # value now my @gets = ('minPower', # min value
'intervalPower'); # value in the interval 'maxPower', # max value
'lastPower', # last value
'avgPower'); # avagare value in interval
sub sub
SML_Initialize($) SML_Initialize($)
@@ -66,6 +68,10 @@ energy_Define($$)
$hash->{UseSVTime} = ''; # use the SV time as timestamp (else: TimeNow()) $hash->{UseSVTime} = ''; # use the SV time as timestamp (else: TimeNow())
$hash->{STATE} = 'Initializing'; $hash->{STATE} = 'Initializing';
# $hash->{DAYPOWER} = '0';
# $hash->{WEEKPOWER} = '0';
# $hash->{MONTHPOWER} = '0';
# $hash->{YEARPOWER} = '0';
my $timenow = TimeNow(); my $timenow = TimeNow();
@@ -108,8 +114,11 @@ energy_Update($)
my $socket ; my $socket ;
my $buf ; my $buf ;
my $message ; my $message ;
my $tmp;
my @array; my @array;
my $last;
my $avg;
my $min = 20000;
my $max = 0;
Log 4, "$url"; Log 4, "$url";
@@ -140,9 +149,11 @@ if (defined ($socket) and $socket and $socket->connected())
if ( $_ =~ /<v>(.*)<\/v>/ ) if ( $_ =~ /<v>(.*)<\/v>/ )
{ {
Log 5, "$hash->{NAME} got fresh values from $ip ($1)"; Log 5, "$hash->{NAME} got fresh values from $ip ($1)";
$tmp = $1; $last = $1;
$counts++ ; $counts++ ;
$summary += $1; $summary += $1;
if ($last < $min) {$min = $last};
if ($last > $max) {$max = $last};
} }
if ( $_ =~ /<error>(.*)<\/error>/ ) if ( $_ =~ /<error>(.*)<\/error>/ )
{ {
@@ -160,19 +171,22 @@ if (defined ($socket) and $socket and $socket->connected())
} }
Log 5, "reading done."; Log 5, "reading done.";
if ( $success == 0 and $summary >= 0) if ( $success == 0 and $summary > 0 and $counts > 0)
{ {
$hash->{READINGS}{$gets[0]}{VAL} = $tmp; $avg = $summary/$counts;
$avg =sprintf("%.2f",$avg);
$hash->{READINGS}{$gets[0]}{VAL} = $min;
$hash->{READINGS}{$gets[0]}{TIME} = $timenow; $hash->{READINGS}{$gets[0]}{TIME} = $timenow;
push @{$hash->{CHANGED}}, "currentPower: $tmp W"; $hash->{READINGS}{$gets[1]}{VAL} = $max;
$tmp = $summary/$counts; $hash->{READINGS}{$gets[1]}{TIME} = $timenow;
$tmp =sprintf("%.2f",$tmp); $hash->{READINGS}{$gets[2]}{VAL} = $last;
$hash->{READINGS}{$gets[1]}{VAL} = $tmp; $hash->{READINGS}{$gets[2]}{TIME} = $timenow;
$hash->{READINGS}{$gets[1]}{TIME} = $timenow; $hash->{READINGS}{$gets[3]}{VAL} = $avg;
push @{$hash->{CHANGED}}, "intervalPower: $tmp W"; $hash->{READINGS}{$gets[3]}{TIME} = $timenow;
push @{$hash->{CHANGED}}, "min: $min max: $max last: $last avg: $avg";
DoTrigger($hash->{NAME}, undef) if ($init_done); DoTrigger($hash->{NAME}, undef) if ($init_done);
$hash->{STATE} = $hash->{READINGS}{currentPower}{VAL}.' W, '.$hash->{READINGS}{intervalPower}{VAL}.' W'; $hash->{STATE} = $hash->{READINGS}{minPower}{VAL}.' W, '.$hash->{READINGS}{maxPower}{VAL}.' W ' .$hash->{READINGS}{lastPower}{VAL}.' W '.$hash->{READINGS}{avgPower}{VAL}.' W';
}else{ }else{
Log 3, "$hash->{NAME} can't update - device send a error"; Log 3, "$hash->{NAME} can't update - device send a error";
} }