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

rain_diff removed, was buggy

Browse Source 
git-svn-id: https://fhem.svn.sourceforge.net/svnroot/fhem/trunk/fhem@486 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig
2009-11-25 10:47:14 +00:00
parent fb9b2760cb
commit 1f18ca3559
1 changed files with 5 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
FHEM/13_KS300.pm
View File

@@ -91,11 +91,11 @@ KS300_Parse($$)
my @v; my @v;
my @txt = ( "rain_raw", "rain", "wind", "humidity", "temperature", my @txt = ( "rain_raw", "rain", "wind", "humidity", "temperature",
"israining", "unknown1", "unknown2", "unknown3","rain_now"); "israining", "unknown1", "unknown2", "unknown3");
my @sfx = ( "(counter)", "(l/m2)", "(km/h)", "", "", my @sfx = ( "(counter)", "(l/m2)", "(km/h)", "(%)", "(Celsius)",
"(yes/no)", "","","",""); "(yes/no)", "","","");
my %repchanged = ("rain"=>1, "wind"=>1, "humidity"=>1, "temperature"=>1, my %repchanged = ("rain"=>1, "wind"=>1, "humidity"=>1, "temperature"=>1,
"israining"=>1, "rain_diff" =>1); "israining"=>1);
# counter for the change hash # counter for the change hash
my $n= 1; # 0 is STATE and will b explicitely set my $n= 1; # 0 is STATE and will b explicitely set
@@ -218,13 +218,6 @@ KS300_Parse($$)
$v[6] = $a[29]; $v[6] = $a[29];
$v[7] = $a[16]; $v[7] = $a[16];
$v[8] = $a[17]; $v[8] = $a[17];
if($v[1]){ # rain diff
my $rain_old = $def->{READINGS}{'rain'}{VAL};
$rain_old =~ s/[^0123456789.]//g;
$v[9] = $v[1] - $rain_old;
} else {
$v[9] = 0;
}
# Negative temp # Negative temp
$v[4] = -$v[4] if($v[8] & 8); $v[4] = -$v[4] if($v[8] & 8);
@@ -279,6 +272,7 @@ KS300_Parse($$)
$difft = $sec - $ssec; $difft = $sec - $ssec;
$difft += 86400 if($d[2] != $sd[2]); # Sec since last reading $difft += 86400 if($d[2] != $sd[2]); # Sec since last reading
$difft = 1 if(!$difft); # Don't want illegal division.
$t /= $difft; $h /= $difft; $w /= $difft; $e = $v[1] - $cv[9]; $t /= $difft; $h /= $difft; $w /= $difft; $e = $v[1] - $cv[9];
$r->{avg_day}{VAL} = $r->{avg_day}{VAL} =
sprintf("T: %.1f H: %d W: %.1f R: %.1f", $t, $h, $w, $e); sprintf("T: %.1f H: %d W: %.1f R: %.1f", $t, $h, $w, $e);