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

RollCheck: temperatur draussen mit offset

Browse Source
This commit is contained in:
Marc Hoppe
2017-07-16 22:18:28 +02:00
parent f0a2d4fa2f
commit 8617ead8e1
1 changed files with 8 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
fhem/FHEM/99_MyUtils.pm
View File

@@ -83,6 +83,9 @@ my @blocktime=localtime;
my $blocktimerRunning=0;
my $delaySec=11;
my $tempIn_offset=0;
my $tempOut_offset=+1;
#------------------------------------------
sub myfhem($) {
@@ -317,10 +320,10 @@ sub checkTemps($$$)
my($temp, $tempOut, $tempSoll)=@_;
my $tempH=0; my $tempOH=0; my $tempL=0; my$tempOL=0;
if ($temp > $tempSoll-0) { $tempH =1; }
if ($temp < $tempSoll-1) { $tempL =1; }
if ($tempOut > $tempSoll-2) { $tempOH=1; }
if ($tempOut < $tempSoll-3) { $tempOL=1; }
if ($temp > $tempSoll+$tempIn_offset+0.5) { $tempH =1; }
if ($temp < $tempSoll+$tempIn_offset-0.5) { $tempL =1; }
if ($tempOut > $tempSoll+$tempOut_offset+0.5) { $tempOH=1; }
if ($tempOut < $tempSoll+$tempOut_offset-0.5) { $tempOL=1; }
return($tempH, $tempOH, $tempL, $tempOL);
}
@@ -366,7 +369,7 @@ sub checkSkip($$$)
sub RollCheck() {
my $r;
my $ndelay =0;
my $ndelay =1;
my $tempOut=ReadingsVal("myWH1080", "Temp-outside", 99);
my $twil =Value("twil");
my $light =ReadingsVal("twil", "light", 0);