FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-01-31 12:49:34 +00:00
Code Issues Releases Wiki Activity

add optional diff-temp to dewpoint fan

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@1877 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
wherzig 2012-09-19 20:19:00 +00:00
parent c52f1f27b6
commit e23cd23950
2 changed files with 19 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
fhem/FHEM/98_dewpoint.pm
View File

@ -73,15 +73,20 @@ dewpoint_Define($$)
} }
} elsif ($cmd_type eq "fan") { } elsif ($cmd_type eq "fan") {
# define <name> dewpoint fan devicename-regex devicename-outside min_temp # define <name> dewpoint fan devicename-regex devicename-outside min_temp
if(@a == 6) { if (@a == 6 || @a == 7) {
$hash->{DEVNAME_OUT} = $a[4]; $hash->{DEVNAME_OUT} = $a[4];
$hash->{MIN_TEMP} = $a[5]; $hash->{MIN_TEMP} = $a[5];
if (@a == 6) {
$hash->{DIFF_TEMP} = 0;
} else {
$hash->{DIFF_TEMP} = $a[6];
}
} else { } else {
return "wrong syntax: define <name> dewpoint fan devicename-regex devicename-outside min_temp" return "wrong syntax: define <name> dewpoint fan devicename-regex devicename-outside min_temp [diff_temp]"
} }
} elsif ($cmd_type eq "alarm") { } elsif ($cmd_type eq "alarm") {
# define <name> dewpoint alarm devicename-regex devicename-reference diff_temp # define <name> dewpoint alarm devicename-regex devicename-reference diff_temp
if(@a == 6) { if (@a == 6) {
$hash->{DEVNAME_REF} = $a[4]; $hash->{DEVNAME_REF} = $a[4];
$hash->{DIFF_TEMP} = $a[5]; $hash->{DIFF_TEMP} = $a[5];
} else { } else {
@ -147,7 +152,8 @@ dewpoint_Notify($$)
} }
$devname_out = $hash->{DEVNAME_OUT}; $devname_out = $hash->{DEVNAME_OUT};
$min_temp = $hash->{MIN_TEMP}; $min_temp = $hash->{MIN_TEMP};
Log 1, "dewpoint_notify: cmd_type=$cmd_type devname=$devName dewname=$hashName, dev=$devName, dev_regex=$re, devname_out=$devname_out, min_temp=$min_temp" if ($dewpoint_debug == 1); $diff_temp = $hash->{DIFF_TEMP};
Log 1, "dewpoint_notify: cmd_type=$cmd_type devname=$devName dewname=$hashName, dev=$devName, dev_regex=$re, devname_out=$devname_out, min_temp=$min_temp, diff_temp=$diff_temp" if ($dewpoint_debug == 1);
} elsif ($cmd_type eq "alarm") { } elsif ($cmd_type eq "alarm") {
if (!defined($hash->{DEVNAME_REF}) || !defined($hash->{DIFF_TEMP})) { if (!defined($hash->{DEVNAME_REF}) || !defined($hash->{DIFF_TEMP})) {
@ -251,16 +257,16 @@ dewpoint_Notify($$)
Log 1, "dewpoint_notify: current=$current" if ($dewpoint_debug == 1); Log 1, "dewpoint_notify: current=$current" if ($dewpoint_debug == 1);
} elsif ($cmd_type eq "fan") { } elsif ($cmd_type eq "fan") {
# >define <name> dewpoint fan devicename devicename-outside min-temp # >define <name> dewpoint fan devicename devicename-outside min-temp [diff-temp]
# #
# This define may be used to turn an fan on or off if the outside air has less # This define may be used to turn an fan on or off if the outside air has less
# water # water
# #
# - Generate reading/event "fan: on" if dewpoint of <devicename-outside> is lower # - Generate reading/event "fan: on" if (dewpoint of <devicename-outside>) + diff_temp is lower
# than dewpoint of <devicename> and temperature of <devicename-outside> is >= min-temp # than dewpoint of <devicename> and temperature of <devicename-outside> is >= min-temp
# and reading "fan" was not already "on". # and reading "fan" was not already "on".
# - Generate reading/event "fan: off": else and if reading "fan" was not already "off". # - Generate reading/event "fan: off": else and if reading "fan" was not already "off".
Log 1, "dewpoint_notify: fan devname_out=$devname_out, min_temp=$min_temp" if ($dewpoint_debug == 1); Log 1, "dewpoint_notify: fan devname_out=$devname_out, min_temp=$min_temp, diff_temp=$diff_temp" if ($dewpoint_debug == 1);
my $sensor; my $sensor;
my $current; my $current;
if (exists $defs{$devname_out}{READINGS}{temperature}{VAL} && exists $defs{$devname_out}{READINGS}{humidity}{VAL}) { if (exists $defs{$devname_out}{READINGS}{temperature}{VAL} && exists $defs{$devname_out}{READINGS}{humidity}{VAL}) {
@ -268,7 +274,7 @@ dewpoint_Notify($$)
my $humidity_out = $defs{$devname_out}{READINGS}{humidity}{VAL}; my $humidity_out = $defs{$devname_out}{READINGS}{humidity}{VAL};
my $dewpoint_out = sprintf("%.1f", dewpoint_dewpoint($temperature_out,$humidity_out));; my $dewpoint_out = sprintf("%.1f", dewpoint_dewpoint($temperature_out,$humidity_out));;
Log 1, "dewpoint_notify: fan dewpoint_out=$dewpoint_out" if ($dewpoint_debug == 1); Log 1, "dewpoint_notify: fan dewpoint_out=$dewpoint_out" if ($dewpoint_debug == 1);
if ($dewpoint_out < $dewpoint && $temperature_out >= $min_temp) { if (($dewpoint_out + $diff_temp) < $dewpoint && $temperature_out >= $min_temp) {
$current = "on"; $current = "on";
Log 1, "dewpoint_notify: fan ON" if ($dewpoint_debug == 1); Log 1, "dewpoint_notify: fan ON" if ($dewpoint_debug == 1);
} else { } else {

8
fhem/docs/commandref.html
View File

@ -1442,6 +1442,7 @@ A line ending with \ will be concatenated with the next one, so long lines
&lt;regexp&gt;.<br><br> &lt;regexp&gt;.<br><br>
</ul> </ul>
<br> <br>
<a name="Calendarattr"></a> <a name="Calendarattr"></a>
@ -6962,6 +6963,7 @@ The one byte hex string is generated by the Oregon sensor when is it powered on.
<a name="OREGONset"></a> <a name="OREGONset"></a>
<b>Set</b> <ul>N/A</ul><br> <b>Set</b> <ul>N/A</ul><br>
<a name="OREGONget"></a> <a name="OREGONget"></a>
<b>Get</b> <ul>N/A</ul><br> <b>Get</b> <ul>N/A</ul><br>
@ -10184,15 +10186,15 @@ KlikAanKlikUit, NEXA, CHACON, HomeEasy UK. <br> You need to define an RFXtrx433
</ul> </ul>
<ul> <ul>
<code>define &lt;name&gt; dewpoint fan &lt;devicename-regex&gt; &lt;devicename-outside&gt; &lt;min-temp&gt;</code><br> <code>define &lt;name&gt; dewpoint fan &lt;devicename-regex&gt; &lt;devicename-outside&gt; &lt;min-temp&gt; [&lt;diff_temp&gt;]</code><br>
<br> <br>
<ul> <ul>
May be used to turn an fan on or off if the outside air has less water. May be used to turn an fan on or off if the outside air has less water.
<ul> <ul>
<li> <li>
Generate event "fan: on" if dewpoint of &lt;devicename-outside&gt; is lower Generate event "fan: on" if (dewpoint of &lt;devicename-outside&gt;) + &lt;diff_temp&gt; is lower
than dewpoint of &lt;devicename&gt; and temperature of &lt;devicename-outside&gt; is &gt;= min-temp than dewpoint of &lt;devicename&gt; and temperature of &lt;devicename-outside&gt; is &gt;= min-temp
and reading "fan" was not already "on". The event will be generated for &lt;devicename&gt;.</li> and reading "fan" was not already "on". The event will be generated for &lt;devicename&gt;. Parameter &lt;diff-temp&gt; is optional</li>
<li>Generate event "fan: off": else and if reading "fan" was not already "off".</li> <li>Generate event "fan: off": else and if reading "fan" was not already "off".</li>
</ul> </ul>
</ul> </ul>