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

4_CUL_TCM97001: Add rain/wind Sensor

Browse Source 
10_IT: Add FreeTec update documentation


git-svn-id: https://svn.fhem.de/fhem/trunk@14852 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
bjoernh 2017-08-06 08:48:24 +00:00
parent d7ec121cfd
commit 2cdac4d897
3 changed files with 585 additions and 92 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fhem/CHANGED
View File

@ -1,6 +1,8 @@
# Add changes at the top of the list. Keep it in ASCII, and 80-char wide. # Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
# Do not insert empty lines here, update check depends on it. # Do not insert empty lines here, update check depends on it.
..-.chamged: configDB: store files base64 encoded, Forum:#74302 - changed: 14_CUL_TCM97001: Add rain/wind Sensor
- changed: 10_IT: Add FreeTec update documentation
- changed: configDB: store files base64 encoded, Forum:#74302
- bugfix: 93_DbLog, back to V2.22.0, Forum:#75039 - bugfix: 93_DbLog, back to V2.22.0, Forum:#75039
- bugfix: 93_DbLog, V2.22.1, Forum:#74690, warning unitialized value - bugfix: 93_DbLog, V2.22.1, Forum:#74690, warning unitialized value
- feature: 70_WINCONNECT: [WinWebGUI] - Fenster verstecken - feature: 70_WINCONNECT: [WinWebGUI] - Fenster verstecken

281
fhem/FHEM/10_IT.pm
View File

@ -564,7 +564,7 @@ IT_Set($@)
$onoffcode = $hash->{userV1setCodes}{$a[0]}; $onoffcode = $hash->{userV1setCodes}{$a[0]};
} }
} }
if (length($onoffcode) == 4) { # EV1527 if (length($onoffcode) == 4 && $hash->{READINGS}{protocol}{VAL} ne 'SBC_FreeTec') { # EV1527
$onoffcode = $bintotristate{substr($onoffcode,0,2)} . $bintotristate{substr($onoffcode,2,2)}; $onoffcode = $bintotristate{substr($onoffcode,0,2)} . $bintotristate{substr($onoffcode,2,2)};
} }
$message = "is".uc($hash->{XMIT}.$onoffcode); $message = "is".uc($hash->{XMIT}.$onoffcode);
@ -640,13 +640,13 @@ IT_Set($@)
$protocolId = 'P3#'; # IT V1 $protocolId = 'P3#'; # IT V1
} }
} }
if ($hash->{READINGS}{protocol}{VAL} ne "EV1527" && $hash->{READINGS}{protocol}{VAL} ne "V1") { # bei ITv1 und EV1527 wird das "is" am Anfang nicht entfernt if ($hash->{READINGS}{protocol}{VAL} ne "EV1527" && $hash->{READINGS}{protocol}{VAL} ne "V1" && $hash->{READINGS}{protocol}{VAL} ne 'SBC_FreeTec') { # bei ITv1, SBC_FreeTec und EV1527 wird das "is" am Anfang nicht entfernt
$message = substr($message,2); $message = substr($message,2);
if (substr($message,0,1) eq "h") { # h entfernen falls am am Anfang if (substr($message,0,1) eq "h") { # h entfernen falls am am Anfang
$message = substr($message,1); $message = substr($message,1);
} }
} }
Log3 $hash, 4, "$io->{NAME} IT_set: sendMsg=" . $protocolId . $message . '#R' . $SignalRepeats . $ITClock; Log3 $hash, 4, "$io->{NAME} IT_set: sendMsg=" . $protocolId . $message . '#R' . $SignalRepeats . $ITClock . $ITfrequency;
IOWrite($hash, 'sendMsg', $protocolId . $message . '#R' . $SignalRepeats . $ITClock . $ITfrequency); IOWrite($hash, 'sendMsg', $protocolId . $message . '#R' . $SignalRepeats . $ITClock . $ITfrequency);
} }
return $ret; return $ret;
@ -994,8 +994,9 @@ IT_Parse($$)
my $isEV1527 = undef; my $isEV1527 = undef;
if (length($msg) == 7) { if (length($msg) == 7) {
if ($msgcode) { # ITv1 or SBC_FreeTec if ($msgcode) { # ITv1 or SBC_FreeTec
if (substr($msg,6, 1) eq '0' && substr($msgcode,8,2) ne 'FF') { # SBC_FreeTec my $sbcFreeTec = substr($msgcode,0,8);
$housecode=substr($msgcode,0,8); if (defined($modules{IT}{defptr}{lc("$sbcFreeTec")}) || substr($msg,6, 1) eq '0' && substr($msgcode,8,2) ne 'FF') { # SBC_FreeTec
$housecode=$sbcFreeTec;
$onoffcode=substr($msgcode,length($msgcode)-4,4); $onoffcode=substr($msgcode,length($msgcode)-4,4);
Log3 $hash,5,"$ioname IT: SBC_FreeTec housecode = $housecode onoffcode = $onoffcode"; Log3 $hash,5,"$ioname IT: SBC_FreeTec housecode = $housecode onoffcode = $onoffcode";
} else { # ITv1 } else { # ITv1
@ -1130,7 +1131,9 @@ IT_Parse($$)
} }
$def=$modules{IT}{defptr}{lc($housecode)}; $def=$modules{IT}{defptr}{lc($housecode)};
#$lh->{"learn"} = 'ON'; #$lh->{"learn"} = 'ON';
foreach my $name (keys %{$def}) { foreach my $name (keys %{$def}) {
next if (IsIgnored($name));
if (length($msg) == 17 || length($msg) == 19) { if (length($msg) == 17 || length($msg) == 19) {
if ($def->{$name}->{READINGS}{group}{VAL} != $groupBit || $def->{$name}->{READINGS}{unit}{VAL} != $unitCode) { if ($def->{$name}->{READINGS}{group}{VAL} != $groupBit || $def->{$name}->{READINGS}{unit}{VAL} != $unitCode) {
next; next;
@ -1285,12 +1288,11 @@ sub IT_Attr(@)
<ul> <ul>
The InterTechno 433MHZ protocol is used by a wide range of devices, which are either of The InterTechno 433MHZ protocol is used by a wide range of devices, which are either of
the sender/sensor or the receiver/actuator category. the sender/sensor or the receiver/actuator category.
Right now, we are able to SEND and RECEIVE InterTechno commands. Momentarily, we are able to send and receive InterTechno commands.
Supported are devices like switches, dimmers, etc. through an <a href="#CUL">CUL</a> or <a href="#SIGNALduino">SIGNALduino</a> device, Supported devices are switches, dimmers, etc. through an <a href="#CUL">CUL</a> or <a href="#SIGNALduino">SIGNALduino</a> device (this must be defined first).<br>
this must be defined first.<br> This module supports the version 1 and version 3 of the Intertechno protocol.
This module supports Intertechno protocol version 1 and version 3.
Newly found devices are added into the category "IT" by autocreate. Newly found devices are added into the category "IT" by autocreate.
Hint: IT protocol 1 devices are created on pressing the on-button. Hint: IT protocol 1 devices are only created when pressing the on-button twice within 30 seconds.
<br><br> <br><br>
@ -1307,39 +1309,68 @@ sub IT_Attr(@)
<code>define &lt;name&gt; IT HE800 &lt;Transmitter ID&gt; &lt;Receiver ID&gt;</code> <code>define &lt;name&gt; IT HE800 &lt;Transmitter ID&gt; &lt;Receiver ID&gt;</code>
<br><br> <br><br>
The value of housecode is a 10-digit InterTechno Code, consisting of 0/1/F as it is The value of &lt;housecode&gt; is a 10-digit InterTechno Code, consisting of 0/1/F (co called tri-state format). These digits depend on the device you are using.
defined as a tri-state protocol. These digits depend on the device you are using.
<br> <br>
Bit 11 and 12 are used for switching/dimming. As different manufacturers are using Bit 11 and 12 are used for switching/dimming. Different manufacturers are using
different bit-codes you can specifiy here the 2-digit code for off/on/dimup/dimdown different bit-codes. You specifiy here the 2-digit code for off/on/dimup/dimdown
in the same form: 0/1/F. using the tri state format, i.e., 0/1/F.
<br> <br>
The value of ITRotarySwitches consists of the value of the alpha switch A-P and The value of ITRotarySwitches consists of the value of the alpha switch A-P and
the numeric switch 1-16 as set on the intertechno device. E.g. A1 or G12. the numeric switch 1-16 as set on the intertechno device (for example A1 or G12). Please use the Wiki for more information how
to decode your device.
<br> <br>
The value of FLS100RotarySwitches consist of the value of the I,II,II,IV switch The value of FLS100RotarySwitches consist of the value of the I,II,II,IV switch
and the numeric 1,2,3,4 swicht. E.g. I2 or IV4. and the numeric 1,2,3,4 switch (for example I2 or IV4).
<br> <br>
The value of ITRotarySwitches and FLS100RotarySwitches are internaly translated The value of ITRotarySwitches and FLS100RotarySwitches are internaly translated
into a houscode value. into a houscode value.
<br>
For the Intertechno protocol 3 the housecode consists of 26 numbers. Additionally 4 numbers are used as unit code as well as
group code.
<br>
To add a new device in Fhem: define IT myITSwitch IT <Adresse 26 Bit> <Group bit> <Unit Code>
<br><br>
<b>Intertechno protocol 1 (ITv1)</b>
<ul> <ul>
<li><code>&lt;housecode&gt;</code> is a 10 digit tri-state number (0/1/F) depending on <li><code>&lt;housecode&gt;</code> 10 numbers in tri state format (i.e., either 0/1/F) depending on the device.</li>
your device setting (see list below).</li> <li><code>&lt;on-code&gt; &lt;off-code&gt;</code> 2 numbers in quad state format (0/1/F/D), containing the on-format;
<li><code>&lt;on-code&gt;</code> is a 2 digit tri-state number for switching your device on; this number is added to the &lt;housecode&gt; to get the 12-number IT command that is acutally send.</li>
It is appended to the housecode to build the 12-digits IT-Message.</li> <li>optional <code>&lt;dimup-code&gt; &lt;dimdown-code&gt;</code> 2 numbers in quad state format (0/1/F/D),
<li><code>&lt;off-code&gt;</code> is a 2 digit tri-state number for switching your device off; contains the command for dimming;
It is appended to the housecode to build the 12-digits IT-Message.</li> this number is added to the &lt;housecode&gt; to define tha actual 12-number sending command.</li>
<li>The optional <code>&lt;dimup-code&gt;</code> is a 2 digit tri-state number for dimming your device up; <li>Notice: orginal ITv1 devices are only defined using the on command.</li>
It is appended to the housecode to build the 12-digits IT-Message.</li> <li>Devices which are nt orignal ITv1 devices cen be defined as follows:</li><br>
<li>The optional <code>&lt;dimdown-code&gt;</code> is a 2 digit tri-state number for dimming your device down; To autocreate press twice "on" within 30 seconds. The Log gives:<br>
It is appended to the housecode to build the 12-digits IT-Message.</li> <code>2016.11.27 11:47:37.753 4: sduinoD IT: 001F001000 not defined (Switch code: <b>11</b>)</code><br>
<code>2016.11.27 11:47:37.755 2: autocreate: define IT_001F001000 IT 001F001000 0F F0</code><br><br>
Now press "off" or any other button:<br>
<code>2016.11.27 11:48:32.004 3: sduinoD IT: Code <b>1D</b> not supported by IT_001F001000.</code><br><br>
Because this is not original Intertechno, the on/off code in the list is not correct and has to be changed. This can be done as follows<br>
<code>DEF 001F001000 <b>11 1D</b></code><br><br>
<li> <b>EV1527</b></li>
If the housecode does not contain a valid (10) ITv1 tri state code, autocreate will define the deviceas EV1527.<br>
<code>&lt;housecode&gt;</code> 1527xabcde , abcde is the collected housecode in hex format<br>
<code>&lt;on-code&gt; &lt;off-code&gt;</code> 4 numbers bin number (0/1) containing the on command;
this number is added to the housecode to get the entire 12-number sending command.<br>
optional <code>&lt;dimup-code&gt; &lt;dimdown-code&gt;</code> 4 numbers in bin format (0/1),
contains the command for dimming up or down;
this number is added to the housecode to get the entire 12-number sending command.<br><br>
If the device was autocreated the on/off- as well as the dimcode has to be adapted.<br>
</ul>
<br>
<b>SBC_FreeTec</b><br>
<ul>
<li><code>&lt;housecode&gt;</code> 8 numbers in tri state format (0/1/F), depending from the used device.</li>
<li><code>&lt;on-code&gt;</code> 4 numbers in tri state format, contains the on-command;
this number is added to the housecode to form the 12-number sending command.</li>
<li><code>&lt;off-code&gt;</code> 4 numbers in tri state format, contains the off-command;
this number is added to the housecode to get the 12-number sending command.</li>
</ul> </ul>
<br> <br>
<b>HE800</b><br> <b>HE800</b><br>
<ul> <ul>
<li><code>&lt;Transmitter ID&gt;</code> Eindeutige Transmitter-ID (1..65535)</li> <li><code>&lt;Transmitter ID&gt;</code> unique transmitter ID (1..65535)</li>
<li><code>&lt;Receiver ID&gt;</code> Receiver-ID [0]1..15, 0=Broadcast 1-15 (HE844A button# 1-4 & MASTER=0, HE850 UNIT# 1-15, HE853 = 1)</li> <li><code>&lt;Receiver ID&gt;</code> receiver ID [0]1..15, 0=Broadcast 1-15 (HE844A button# 1-4 & MASTER=0, HE850 UNIT# 1-15, HE853 = 1)</li>
</ul> </ul>
<br> <br>
@ -1350,6 +1381,7 @@ Examples:
<code>define otherlamp IT 000000000F 11 10 00 00</code><br> <code>define otherlamp IT 000000000F 11 10 00 00</code><br>
<code>define otherroll1 IT FFFFFFF00F 11 10</code><br> <code>define otherroll1 IT FFFFFFF00F 11 10</code><br>
<code>define IT_1527xe0fec IT 1527xe0fec 1001 0000</code><br> <code>define IT_1527xe0fec IT 1527xe0fec 1001 0000</code><br>
<code>define SBC_FreeTec_Steck1 IT FFF00FFF 000F 0000</code><br>
<code>define itswitch1 IT A1</code><br> <code>define itswitch1 IT A1</code><br>
<code>define lamp IT J10</code><br> <code>define lamp IT J10</code><br>
<code>define flsswitch1 IT IV1</code><br> <code>define flsswitch1 IT IV1</code><br>
@ -1358,7 +1390,7 @@ Examples:
</ul> </ul>
<br> <br>
For Intertechno protocol 3 the &lt;housecode&gt; is a 26-digits number. For Intertechno protocol 3 the &lt;housecode&gt; is a 26-digits number.
Additionaly there are a 4-digits unit code and a 1-digit group code used. Additionaly there is a 4-digits &lt;unit code&gt; and a 1-digit &lt;group code&gt;.
<ul> <ul>
<li><code>&lt;address&gt;</code> is a 26 digit number (0/1)</li> <li><code>&lt;address&gt;</code> is a 26 digit number (0/1)</li>
<li><code>&lt;group&gt;</code> is a 1 digit number (0/1)</li> <li><code>&lt;group&gt;</code> is a 1 digit number (0/1)</li>
@ -1417,19 +1449,19 @@ Examples:
<a name="IODev"></a> <a name="IODev"></a>
<li>IODev<br> <li>IODev<br>
Set the IO device which will be used to send signals Set the IO device which will be used to send signals
for this device. An example for the physical device is a CUL. for this device. An example for the physical device is a CUL or the SIGNALduino.
Note: On startup, fhem DOES NOT assign an InterTechno device to an Note: On startup, fhem WILL NOT automatically assign an
IODevice! The attribute IODev needs to be used ALWAYS!</li><br> IODevice to the Intertechno device! The attribute IODev needs ALLWAYS to be set manually!</li><br>
<a name="eventMap"></a> <a name="eventMap"></a>
<li>eventMap<br> <li>eventMap<br>
Replace event names and set arguments. The value of this attribute Replace event names and set arguments. The value of this attribute
consists of a list of space separated values. Each value is a colon consists of a list of space separated values. Each value is a colon
separated pair. The first part specifies the "old" value, the second separated pair. The first part specifies the value to be replaced, the second
the new/desired value. If the first character is slash(/) or comma(,) the new/desired value. In order to use spaces in the new/desired values it is necessary to inform Fhem about the new separating character. This is done by using a slash(/) or comma(,)
the values are not separated by space but by this character to as first character, then the values are not separated by space but by this character.
enable spaces in values. Examples:
Examples:<ul><code> <ul><code>
attr store eventMap on:open off:closed<br> attr store eventMap on:open off:closed<br>
attr store eventMap /on-for-timer 10:open/off:closed/<br> attr store eventMap /on-for-timer 10:open/off:closed/<br>
set store open set store open
@ -1454,7 +1486,7 @@ Examples:
<a name="model"></a> <a name="model"></a>
<li>model<br> <li>model<br>
The model attribute denotes the type of the device. The model attribute denotes the type of the device.
This attribute will (currently) not be used by fhem.pl directly. This attribute will (currently) not be used by Fhem directly.
It can be used by e.g. external programs or web interfaces to It can be used by e.g. external programs or web interfaces to
distinguish classes of devices and send the appropriate commands distinguish classes of devices and send the appropriate commands
(e.g. "on" or "off" to a switch, "dim..%" to dimmers etc.). (e.g. "on" or "off" to a switch, "dim..%" to dimmers etc.).
@ -1476,30 +1508,65 @@ Examples:
<a name="ignore"></a> <a name="ignore"></a>
<li>ignore<br> <li>ignore<br>
Ignore this device, e.g. if it belongs to your neighbour. The device Ignore this device, e.g., if it belongs to your neighbour. The device
won't trigger any FileLogs/notifys, issued commands will be silently will not trigger any FileLogs/notifys, issued commands will be silently
ignored (no RF signal will be sent out, just like for the <a ignored (no RF signal will be sent out, just like for the <a
href="#attrdummy">dummy</a> attribute). The device won't appear in the href="#attrdummy">dummy</a> attribute). The device will not appear in the
list command (only if it is explicitely asked for it), nor will it list command (only if it is explicitely asked for it), nor will it
be affected by commands which use wildcards or attributes as name specifiers be affected by commands which use wildcards or attributes as name specifiers
(see <a href="#devspec">devspec</a>). You still get them with the (see <a href="#devspec">devspec</a>). You still get them with the
"ignored=1" special devspec. "ignored=1" special devspec.
</li><br> </li><br>
<a name="ITclock"></a>
<li>ITclock<br>
IT clock is the smallest time length of any pulse while sending the Intertechno V1 protocol.<br>
Any signal of the IT protocol typically consists of a sequence of HIGHs and LOWs with a particular time length. These lengths usually have a ratio of 1:3 (if, for example, LOW has a pulse length of X then HIGH has a pulse length of 3*X).<br>
The default value of original IT devices is 250. Other vendors use sometimes a different value; nevertheless ITclock should only be changed if you encounter problems using this device in Fhem.<br>
- In order to discover the correct ITclock using a SIGNALduino: After pressing a button at a remote the received raw signal can be found in the log as well as in the device view of the IT-device, for example<br>
MS;P0=357;P2=-1128;P3=1155;P4=-428;P5=-11420;D=05023402020202020202020202020202020202023402340234;CP=0;SP=5;<br>
The number after "CP=" shows the pattern number of the clock, so e.g. follows from CP=0 --> P0, which defines at the beginning of the message, hence the clock was 357 (microseconds).<br>
- at the CUL can the ITclock found out from the raw messages (X31).
</li><br>
<a name="ITfrequency"></a> </li>
<li>ITfrequency<br>
Sets the frequency of the sender.
</li><br>
<a name="ITrepetition"></a>
<li>ITrepetition<br>
Sets the number of repitions (default=6).
</li><br>
<a name="userV1setCodes"></a>
<li>userV1setCodes<br>
If an ITv1 protocol is used indivual setcodes can be added. Example:
<ul><code>
attr lamp userV1setCodes red:FD blue:1F<br>
attr lamp userV1setCodes up:1001 down:1000 stop:1011
</code></ul>
</li><br>
<a name="SIGNALduinoProtocolId"></a>
<li>SIGNALduinoProtocolId<br>
Using this attribute the protocol ID can be choosen if one uses a SIGNALduino.
</li><br>
</ul> </ul>
<br> <br>
<a name="ITevents"></a> <a name="ITevents"></a>
<b>Generated events:</b> <b>Generated events:</b>
<ul> <ul>
From an IT device you can receive the following events. The IT device generates the following events.
<li>on</li> <li>on</li>
<li>off</li> <li>off</li>
<li>dimdown</li> <li>dimdown</li>
<li>dimup<br></li> <li>dimup<br></li>
<li>dim06% dim12% dim18% dim25% dim31% dim37% dim43% dim50%<br> <li>dim06% dim12% dim18% dim25% dim31% dim37% dim43% dim50%<br>
dim56% dim62% dim68% dim75% dim81% dim87% dim93% dim100%<br></li> dim56% dim62% dim68% dim75% dim81% dim87% dim93% dim100%<br></li>
Which event is sent is device dependent and can sometimes configured on Which event is sent dependents on the device and can sometimes configured on
the device. the device.
</ul> </ul>
</ul> </ul>
@ -1514,14 +1581,15 @@ Examples:
Das InterTechno 433MHZ Protokoll wird von einer Vielzahl von Ger&auml;ten Das InterTechno 433MHZ Protokoll wird von einer Vielzahl von Ger&auml;ten
benutzt. Diese geh&ouml;ren entweder zur Kategorie Sender/Sensoren oder zur benutzt. Diese geh&ouml;ren entweder zur Kategorie Sender/Sensoren oder zur
Kategorie Empf&auml;nger/Aktoren. Es ist das Senden sowie das Empfangen von InterTechno Kategorie Empf&auml;nger/Aktoren. Es ist das Senden sowie das Empfangen von InterTechno
Befehlen m&ouml;glich. Ger&auml;ten können z.B. Befehlen m&ouml;glich. Ger&auml;ten k&ouml;tnnen z.B.
Schalter, Dimmer usw. sein. Schalter, Dimmer usw. sein.
Von diesem Modul wird sowohl das Protolkoll 1 sowie das Protokoll 3 unterstützt. Von diesem Modul wird sowohl das Protolkoll 1 sowie das Protokoll 3 unterst&uuml;tzt.
Neu empfangene Pakete werden per Autocreate in Fhem unter der Kategorie IT angelegt. Neu empfangene Pakete werden per autocreate in Fhem unter der Kategorie IT angelegt.
Hinweis: IT Protokoll 1 devices werden nur beim on Befehl angelegt. Hinweis: F&uuml;r ein AutoCreate muss die Taste innerhalb von 30 Sek 2 mal gedr&uuml;ckt werden.
<br><br> <br>
<br>
<a name="ITdefine"></a> <a name="ITdefine"></a>
<b>Define</b> <b>Define</b>
@ -1536,8 +1604,8 @@ Examples:
<code>define &lt;name&gt; IT HE800 &lt;Transmitter ID&gt; &lt;Receiver ID&gt;</code> <code>define &lt;name&gt; IT HE800 &lt;Transmitter ID&gt; &lt;Receiver ID&gt;</code>
<br><br> <br><br>
Der Wert von housecode ist abh&auml;ngig vom verwendeten Ger&auml;t und besteht aus zehn Ziffern InterTechno-Code Protokoll 1. Der Wert von Hauscode ist abh&auml;ngig vom verwendeten Ger&auml;t und besteht aus zehn Ziffern InterTechno-Code Protokoll 1.
Da dieser ein tri-State-Protokoll ist, k&ouml;nnen die Ziffern jeweils 0/1/F annehmen. Da dieser ein tri-State-Protokoll ist, k&ouml;nnen die Ziffern jeweils die Werte 0/1/F annehmen.
<br> <br>
Bit 11/12 werden f&uuml;r Schalten oder Dimmen verwendet. Da die Hersteller verschiedene Codes verwenden, k&ouml;nnen hier die Bit 11/12 werden f&uuml;r Schalten oder Dimmen verwendet. Da die Hersteller verschiedene Codes verwenden, k&ouml;nnen hier die
(2-stelligen) Codes f&uuml;r an, aus, heller und dunkler (on/off/dimup/dimdown) als tri-State-Ziffern (0/1/F) festgelegt werden. (2-stelligen) Codes f&uuml;r an, aus, heller und dunkler (on/off/dimup/dimdown) als tri-State-Ziffern (0/1/F) festgelegt werden.
@ -1548,25 +1616,50 @@ Examples:
Der Wert des FLS100Rotary-Schalters setzt sich aus dem Wert des Schalters I,II,II,IV und dem numerischen Schalter 1-4 Der Wert des FLS100Rotary-Schalters setzt sich aus dem Wert des Schalters I,II,II,IV und dem numerischen Schalter 1-4
des InterTechno-Ger&auml;tes zusammen, z.B. I2 oder IV4. des InterTechno-Ger&auml;tes zusammen, z.B. I2 oder IV4.
<br> <br>
Die Werte der ITRotary-Schalter und FLS100Rotary-Schalter werden intern in housecode-Werte umgewandelt. Die Werte der ITRotary-Schalter und FLS100Rotary-Schalter werden intern in Hauscode-Werte umgewandelt.
<br> <br>
F&uuml;r Intertechno Protokoll 3 besteht der hauscode aus 26 Ziffern. Zusätzlich werden noch 4 Ziffern als Unit Code sowie eine Ziffer als Group code benötigt. F&uuml;r Intertechno Protokoll 3 besteht der Hauscode aus 26 Ziffern. Zus&auml;tzlich werden noch 4 Ziffern als Unit Code sowie eine Ziffer als Group code ben&ouml;tigt.
<br> <br>
Neues IT Element in FHEM anlegen: define IT myITSwitch IT <Adresse 26 Bit> <Group bit> <Unit Code> Neues IT Element in FHEM anlegen: define IT myITSwitch IT <Adresse 26 Bit> <Group bit> <Unit Code>
<br> <br><br>
<b>Intertechno Protokoll 1 (ITv1)</b>
<ul> <ul>
<li><code>&lt;housecode&gt;</code> 10 Ziffern lange tri-State-Zahl (0/1/F) abh&auml;ngig vom benutzten Ger&auml;t.</li> <li><code>&lt;housecode&gt;</code> 10 Ziffern lange tri-State-Zahl (0/1/F) abh&auml;ngig vom benutzten Ger&auml;t.</li>
<li><code>&lt;on-code&gt;</code> 2 Ziffern lange tri-State-Zahl, die den Einschaltbefehl enth&auml;lt; <li><code>&lt;on-code&gt; &lt;off-code&gt;</code> jeweils 2 Ziffern lange quad-State-Zahl (0/1/F/D), die den Einschaltbefehl enth&auml;lt;
die Zahl wird an den &lt;housecode&gt; angef&uuml;gt, um den 12-stelligen IT-Sendebefehl zu bilden.</li>
<li>optional <code>&lt;dimup-code&gt; &lt;dimdown-code&gt;</code> jeweils 2 Ziffern lange quad-State-Zahl (0/1/F/D),
die den Befehl zum Herauf- und Herunterregeln enth&auml;lt;
die Zahl wird an den &lt;housecode&gt; angef&uuml;gt, um den 12-stelligen IT-Sendebefehl zu bilden.</li>
<li>Hinweis: orginal ITv1 devices werden nur beim on Befehl angelegt.</li>
<li>Die nicht orginal ITv1 devices k&ouml;nnen wie folgt angelegt werden:</li><br>
Zum anlegen mit autocreate 2 mal auf "on" dr&uuml;cken:<br>
<code>2016.11.27 11:47:37.753 4: sduinoD IT: 001F001000 not defined (Switch code: <b>11</b>)</code><br>
<code>2016.11.27 11:47:37.755 2: autocreate: define IT_001F001000 IT 001F001000 0F F0</code><br><br>
Nun auf "off" oder eine andere Taste dr&uuml;cken:<br>
<code>2016.11.27 11:48:32.004 3: sduinoD IT: Code <b>1D</b> not supported by IT_001F001000.</code><br><br>
Da dies keine orginal Intertechno Steckdose ist, passt der on/off code im define nicht und muss angepasst werden<br>
<code>DEF 001F001000 <b>11 1D</b></code><br><br>
<li> <b>EV1527</b></li>
Wenn im housecode ein nicht g&uuml;ltiger (10) ITv1 Tristatecode enthalten ist, dann wird es per autocreate als EV1527 angelegt.<br>
<code>&lt;housecode&gt;</code> 1527xabcde , abcde ist der empfangene housecode im Hex Format<br>
<code>&lt;on-code&gt; &lt;off-code&gt;</code> jeweils 4 Ziffern lange Bin Zahl (0/1), die den Einschaltbefehl enth&auml;lt;
die Zahl wird an den housecode angef&uuml;gt, um den 12-stelligen IT-Sendebefehl zu bilden.<br>
optional <code>&lt;dimup-code&gt; &lt;dimdown-code&gt;</code> jeweils 4 Ziffern lange Bin Zahl (0/1),
die den Befehl zum Herauf- und Herunterregeln enth&auml;lt;
die Zahl wird an den housecode angef&uuml;gt, um den 12-stelligen IT-Sendebefehl zu bilden.<br><br>
Nach dem anlegen per autocreate muss noch der on/off- und optional der dimcode beim define (DEF) angepasst werden.<br>
</ul>
<br>
<b>SBC_FreeTec</b><br>
<ul>
<li><code>&lt;housecode&gt;</code> 8 Ziffern lange tri-State-Zahl (0/1/F) abh&auml;ngig vom benutzten Ger&auml;t.</li>
<li><code>&lt;on-code&gt;</code> 4 Ziffern lange tri-State-Zahl, die den Einschaltbefehl enth&auml;lt;
die Zahl wird an den housecode angef&uuml;gt, um den 12-stelligen IT-Sendebefehl zu bilden.</li> die Zahl wird an den housecode angef&uuml;gt, um den 12-stelligen IT-Sendebefehl zu bilden.</li>
<li><code>&lt;off-code&gt;</code> 2 Ziffern lange tri-State-Zahl, die den Ausschaltbefehl enth&auml;lt; <li><code>&lt;off-code&gt;</code> 4 Ziffern lange tri-State-Zahl, die den Ausschaltbefehl enth&auml;lt;
die Zahl wird an den housecode angef&uuml;gt, um den 12-stelligen IT-Sendebefehl zu bilden.</li>
<li>Der optionale <code>&lt;dimup-code&gt;</code> ist eine 2 Ziffern lange tri-State-Zahl, die den Befehl zum Heraufregeln enth&auml;lt;
die Zahl wird an den housecode angef&uuml;gt, um den 12-stelligen IT-Sendebefehl zu bilden.</li>
<li>Der optionale <code>&lt;dimdown-code&gt;</code> ist eine 2 Ziffern lange tri-State-Zahl, die den Befehl zum Herunterregeln enth&auml;lt;
die Zahl wird an den housecode angef&uuml;gt, um den 12-stelligen IT-Sendebefehl zu bilden.</li> die Zahl wird an den housecode angef&uuml;gt, um den 12-stelligen IT-Sendebefehl zu bilden.</li>
</ul> </ul>
<br> <br>
<b>HE800</b><br> <b>HE800</b><br>
<ul> <ul>
<li><code>&lt;Transmitter ID&gt;</code> Eindeutige Transmitter-ID (1..65535)</li> <li><code>&lt;Transmitter ID&gt;</code> Eindeutige Transmitter-ID (1..65535)</li>
<li><code>&lt;Receiver ID&gt;</code> Receiver-ID [0]1..15, 0=Broadcast 1-15 (HE844A button# 1-4 & MASTER=0, HE850 UNIT# 1-15, HE853 = 1)</li> <li><code>&lt;Receiver ID&gt;</code> Receiver-ID [0]1..15, 0=Broadcast 1-15 (HE844A button# 1-4 & MASTER=0, HE850 UNIT# 1-15, HE853 = 1)</li>
@ -1581,6 +1674,7 @@ Beispiele:
<code>define otherlamp IT 000000000F 11 10 00 00</code><br> <code>define otherlamp IT 000000000F 11 10 00 00</code><br>
<code>define otherroll1 IT FFFFFFF00F 11 10</code><br> <code>define otherroll1 IT FFFFFFF00F 11 10</code><br>
<code>define IT_1527xe0fec IT 1527xe0fec 1001 0000</code><br> <code>define IT_1527xe0fec IT 1527xe0fec 1001 0000</code><br>
<code>define SBC_FreeTec_Steck1 IT FFF00FFF 000F 0000</code><br>
<code>define itswitch1 IT A1</code><br> <code>define itswitch1 IT A1</code><br>
<code>define lamp IT J10</code><br> <code>define lamp IT J10</code><br>
<code>define flsswitch1 IT IV1</code><br> <code>define flsswitch1 IT IV1</code><br>
@ -1588,8 +1682,8 @@ Beispiele:
<code>define HE800_TID1_SW1 IT HE800 1 1</code><br> <code>define HE800_TID1_SW1 IT HE800 1 1</code><br>
</ul> </ul>
<br> <br>
F&uuml;r Intertechno Protokoll 3 ist der &lt;housecode&gt; eine 26-stellige Zahl. Zus&auml;tzlich wird noch ein 1 stelliger Gruppen-Code, sowie F&uuml;r <b>Intertechno Protokoll 3 (ITv3)</b> ist der &lt;housecode&gt; eine 26-stellige Zahl. Zus&auml;tzlich wird noch ein 1 stelliger Gruppen-Code, sowie
ein 4-stelliger unit code verwendet. ein 4-stelliger &lt;unit code&gt; verwendet.
<ul> <ul>
<li><code>&lt;address&gt;</code> ist eine 26-stellige Nummer (0/1)</li> <li><code>&lt;address&gt;</code> ist eine 26-stellige Nummer (0/1)</li>
<li><code>&lt;group&gt;</code> ist eine 1-stellige Nummer (0/1)</li> <li><code>&lt;group&gt;</code> ist eine 1-stellige Nummer (0/1)</li>
@ -1646,19 +1740,17 @@ Beispiele:
<a name="IODev"></a> <a name="IODev"></a>
<li>IODev<br> <li>IODev<br>
Spezifiziert das physische Ger&auml;t, das die Ausstrahlung der Befehle f&uuml;r das Spezifiziert das physische Ger&auml;t, das die Ausstrahlung der Befehle f&uuml;r das
"logische" Ger&auml;t ausf&uuml;hrt. Ein Beispiel f&uuml;r ein physisches Ger&auml;t ist ein CUL.<br> "logische" Ger&auml;t ausf&uuml;hrt. Ein Beispiel f&uuml;r ein physisches Ger&auml;t ist ein CUL oder ein SIGNALduino.<br>
Anmerkung: Beim Start weist fhem einem InterTechno-Ger&auml;t kein IO-Ger&auml;t zu. Anmerkung: Beim Start weist fhem einem InterTechno-Ger&auml;t kein IO-Ger&auml;t zu.
Das Attribut IODev ist daher IMMER zu setzen.</li><br> Das Attribut IODev ist daher IMMER zu setzen.</li><br>
<a name="eventMap"></a> <a name="eventMap"></a>
<li>eventMap<br> <li>eventMap<br>
Ersetzt Namen von Ereignissen und set Parametern. Die Liste besteht dabei Ersetzt Namen von Ereignissen (wie on und off) und set-Parametern. Die Liste besteht dabei
aus mit Doppelpunkt verbundenen Wertepaaren, die durch Leerzeichen getrennt aus mit Doppelpunkt verbundenen Wertepaaren, die durch Leerzeichen getrennt
sind. Der erste Teil des Wertepaares ist der "alte" Wert, der zweite der neue/gew&uuml;nschte. sind. Der erste Teil des Wertepaares ist der zu ersetzende Wert, der zweite der neue/gew&uuml;nschte Wert.
Ist das erste Zeichen der Werteliste ein Komma (,) oder ein Schr&auml;gsstrich (/), wird Man kann Leerzeichen innerhalb der neuen/gewünschten Werte verwenden, muss dann aber Fhem signalisieren, dass das die Werte nicht mehr durch Leerzeichen getrennt werden. Die geschieht, indem das erste Zeichen der Werteliste ein Komma (,) oder ein Schr&auml;gsstrich (/) wird. Dieses Komma bzw der Schrägstrich werden dann als Listenzeichen verwendet. Beispiele:
das Leerzeichen als Listenzeichen durch dieses ersetzt. Dies erlaubt die Benutzung <ul><code>
von Leerzeichen innerhalb der Werte.
Beispiele:<ul><code>
attr store eventMap on:open off:closed<br> attr store eventMap on:open off:closed<br>
attr store eventMap /on-for-timer 10:open/off:closed/<br> attr store eventMap /on-for-timer 10:open/off:closed/<br>
set store open set store open
@ -1683,8 +1775,8 @@ Beispiele:
<a name="model"></a> <a name="model"></a>
<li>model<br> <li>model<br>
Hiermit kann das Modell des IT-Ger&auml;ts n&auml;her beschrieben werden. Diese Hiermit kann das Modell des IT-Ger&auml;ts n&auml;her beschrieben werden. Diese
Eigenschaft wird (im Moment) nicht von fhem ausgewertet. Eigenschaft wird (im Moment) nicht von Fhem ausgewertet.
Mithilfe dieser Information k&ouml;nnen externe Programme oder Web-Interfaces Mit Hilfe dieser Information k&ouml;nnen externe Programme oder Web-Interfaces
Ger&auml;teklassen unterscheiden, um geeignete Kommandos zu senden (z.B. "on" Ger&auml;teklassen unterscheiden, um geeignete Kommandos zu senden (z.B. "on"
oder "off" an Schalter, aber "dim..%" an Dimmer usw.). Die Schreibweise oder "off" an Schalter, aber "dim..%" an Dimmer usw.). Die Schreibweise
der Modellbezeichnung sollten der dem Ger&auml;t mitgelieferten Dokumentation der Modellbezeichnung sollten der dem Ger&auml;t mitgelieferten Dokumentation
@ -1703,7 +1795,7 @@ Beispiele:
<a name="ignore"></a> <a name="ignore"></a>
<li>ignore<br> <li>ignore<br>
Durch das Setzen dieser Eigenschaft wird das Ger&auml;t nicht durch fhem beachtet, Durch das Setzen dieser Eigenschaft wird das Ger&auml;t nicht durch Fhem beachtet,
z.B. weil es einem Nachbarn geh&ouml;rt. Aktivit&auml;ten dieses Ger&auml;tes erzeugen weder z.B. weil es einem Nachbarn geh&ouml;rt. Aktivit&auml;ten dieses Ger&auml;tes erzeugen weder
Log-Eintr&auml;ge noch reagieren notifys darauf, erzeugte Kommandos werden ignoriert Log-Eintr&auml;ge noch reagieren notifys darauf, erzeugte Kommandos werden ignoriert
(wie bei Verwendung des Attributes <a href="#attrdummy">dummy</a> werden keine (wie bei Verwendung des Attributes <a href="#attrdummy">dummy</a> werden keine
@ -1711,8 +1803,43 @@ Beispiele:
(au&szlig;er es wird explizit aufgerufen), noch wird es bei Befehlen ber&uuml;cksichtigt, (au&szlig;er es wird explizit aufgerufen), noch wird es bei Befehlen ber&uuml;cksichtigt,
die mit Platzhaltern in Namensangaben arbeiten (siehe <a href="#devspec">devspec</a>). die mit Platzhaltern in Namensangaben arbeiten (siehe <a href="#devspec">devspec</a>).
Sie werden weiterhin mit der speziellen devspec (Ger&auml;tebeschreibung) "ignored=1" gefunden. Sie werden weiterhin mit der speziellen devspec (Ger&auml;tebeschreibung) "ignored=1" gefunden.
</li><br> </li><br>
<a name="ITclock"></a>
<li>ITclock<br>
ITclock ist die kleinste Basispulsl&auml;nge beim Senden des Intertechno V1 Protokolls.<br>
Ein Signal beim IT-Protokoll besteht immer aus einer Sequenz von HIGH und LOW, die mit einer bestimmten Pulsl&auml;nge gesendet werden. Typischerweise stehen die Pulsl&auml;ngen dabei im Verh&auml;ltnis 1:3 (also z.B. LOW=Basispulsl&auml;nge und HIGH=3*Basispulsl&auml;nge).<br>
Voreingestellt ist 250 für Original-IT-Ger&auml;te. Andere Hersteller verwenden manchmal andere Werte, dennoch sollte ITclock nur dann ver&auml;ndert werden, wenn es Probleme beim Schalten mit Fhem gibt. Achten Sie in dem Fall auch darauf, ob nicht vielleicht das Signal zu schwach ist oder gest&ouml;rt wird, um regelm&auml;ssig empfangen zu werden.<br>
- Hier ist eine Beschreibung für die Ermittlung des ITclock beim Signalduino: Nach Dr&uuml;cken einer Taste an der Fernbedienung steht die empfangene raw Nachricht im log und in der device-Ansicht des IT-device, also etwa<br>
MS;P0=357;P2=-1128;P3=1155;P4=-428;P5=-11420;D=05023402020202020202020202020202020202023402340234;CP=0;SP=5;<br>
Die Ziffer hinter "CP=" gibt die Pattern-Nr des clock an, also z.B. folgt aus CP=0 --> P0, das am Anfang der Nachricht definiert ist, hier ist also die clock 357.<br>
- Beim CUL kann die ITclock aus den raw Daten (X31) ermittelt werden.
</li><br>
<a name="ITfrequency"></a> </li>
<li>ITfrequency<br>
Setzt die Sendefrequenz.
</li><br>
<a name="ITrepetition"></a>
<li>ITrepetition<br>
Setzt die Sendewiederholungen (Default=6).
</li><br>
<a name="userV1setCodes"></a>
<li>userV1setCodes<br>
Damit k&ouml;nnen beim ITv1 Protokoll eigene setcodes zugef&uuml;gt werden. Beispiele:
<ul><code>
attr lamp userV1setCodes rot:FD blau:1F<br>
attr lamp userV1setCodes hoch:1001 runter:1000 stop:1011
</code></ul>
</li><br>
<a name="SIGNALduinoProtocolId"></a>
<li>SIGNALduinoProtocolId<br>
Damit kann beim Senden mit dem SIGNALduino eine Protocol-Id gew&auml;hlt werden.
</li><br>
</ul> </ul>
<br> <br>
@ -1724,7 +1851,7 @@ Beispiele:
<li>off</li> <li>off</li>
<li>dimdown</li> <li>dimdown</li>
<li>dimup<br></li> <li>dimup<br></li>
Welche Ereignisse erzeugt werden ist ger&auml;teabh&auml;ngig und kann evtl. am Ger&auml;t eingestellt werden. Welche Ereignisse erzeugt werden ist ger&auml;teabh&auml;ngig und kann evtl. eingestellt werden.
</ul> </ul>
</ul> </ul>
@ -1732,4 +1859,4 @@ Beispiele:
=end html_DE =end html_DE
=cut =cut

392
fhem/FHEM/14_CUL_TCM97001.pm
View File

@ -1,4 +1,3 @@
##############################################
# From dancer0705 # From dancer0705
# #
# Receive temperature sensor # Receive temperature sensor
@ -34,6 +33,11 @@
# #
# $Id$ # $Id$
# #
#
# 14.06.2017 W155(TCM21...) wind/rain pejonp
# 25.06.2017 W155(TCM21...) wind/rain pejonp
# 04.07.2017 PFR-130 rain pejonp
# 04.07.2017 TFA 30.3161 temp/rain pejonp
############################################## ##############################################
package main; package main;
@ -57,6 +61,7 @@ my %models = (
"NC_WS" => 'NC_WS', "NC_WS" => 'NC_WS',
"GT_WT_02" => 'GT_WT_02', "GT_WT_02" => 'GT_WT_02',
"AURIOL" => 'AURIOL', "AURIOL" => 'AURIOL',
"PFR_130" => 'PFR_130',
"Type1" => 'Type1', "Type1" => 'Type1',
"Mebus" => 'Mebus', "Mebus" => 'Mebus',
"Eurochron" => 'Eurochron', "Eurochron" => 'Eurochron',
@ -91,7 +96,8 @@ CUL_TCM97001_Initialize($)
"GT_WT_02.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", GPLOT => "temp4hum4:Temp/Hum,", FILTER => "%NAME", autocreateThreshold => "2:180"}, "GT_WT_02.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", GPLOT => "temp4hum4:Temp/Hum,", FILTER => "%NAME", autocreateThreshold => "2:180"},
"Type1.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", GPLOT => "temp4hum4:Temp/Hum,", FILTER => "%NAME", autocreateThreshold => "2:180"}, "Type1.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", GPLOT => "temp4hum4:Temp/Hum,", FILTER => "%NAME", autocreateThreshold => "2:180"},
"Rubicson.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", GPLOT => "temp4hum4:Temp/Hum,", FILTER => "%NAME", autocreateThreshold => "2:180"}, "Rubicson.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", GPLOT => "temp4hum4:Temp/Hum,", FILTER => "%NAME", autocreateThreshold => "2:180"},
"AURIOL.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", GPLOT => "temp4hum4:Temp/Hum,", FILTER => "%NAME", autocreateThreshold => "2:180"}, "AURIOL.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", GPLOT => "temp4hum4:Temp/Hum,", FILTER => "%NAME", autocreateThreshold => "2:180"},
"PFR_130.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", GPLOT => "temp4hum4:Temp/Hum,", FILTER => "%NAME", autocreateThreshold => "2:180"},
"KW9010.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", GPLOT => "temp4hum4:Temp/Hum,", FILTER => "%NAME", autocreateThreshold => "2:180"}, "KW9010.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", GPLOT => "temp4hum4:Temp/Hum,", FILTER => "%NAME", autocreateThreshold => "2:180"},
"TCM97001.*" => { ATTR => "event-on-change-reading:.*", GPLOT => "temp4hum4:Temp/Hum,", FILTER => "%NAME", autocreateThreshold => "2:340"}, "TCM97001.*" => { ATTR => "event-on-change-reading:.*", GPLOT => "temp4hum4:Temp/Hum,", FILTER => "%NAME", autocreateThreshold => "2:340"},
"Unknown_.*" => { autocreateThreshold => "2:10"} "Unknown_.*" => { autocreateThreshold => "2:10"}
@ -153,6 +159,48 @@ sub checkCRC {
} }
return FALSE; return FALSE;
} }
#
# CRC 4 check for PFR-130
# xor 4 bits of nibble 0 to 7
#
sub checkCRC4 {
my $msg = shift;
my @a = split("", $msg);
if(scalar(@a)<9){
Log3 "checkCRC4", 5, "CUL_TCM97001 failed for msg=($msg) length<9";
return FALSE;
}
# xor nibbles 0 to 7 and compare to n8, if more nibble they might have been added to fill gap
my $CRC = ( (hex($a[0])) ^ (hex($a[1])) ^ (hex($a[2])) ^ (hex($a[3])) ^
(hex($a[4])) ^ (hex($a[5])) ^ (hex($a[6])) ^ (hex($a[7])) );
if ($CRC == (hex($a[8]))) {
Log3 "checkCRC4", 5, "CUL_TCM97001 OK for msg=($msg)";
return TRUE;
}
Log3 "checkCRC4", 5, "CUL_TCM97001 FAILED for msg=($msg)";
return FALSE;
}
#
# CRC 4 check for PFR-130
# xor 4 bits of nibble 0 to 7
#
sub isRain {
my $msg = shift;
my @a = split("", $msg);
if(scalar(@a)<9){
Log3 "isRain", 5, "isRain: CUL_TCM97001 failed for msg=($msg) length<9";
return FALSE;
}
# if bit 0 of nibble 2 is 1 then this is no rain data
my $isRainData = ( (hex($a[2]) & 1) );
if ($isRainData == 1) {
Log3 "isRain", 5, "isRain: CUL_TCM97001 for msg=($msg) = FALSE";
return FALSE;
}
Log3 "isRain", 5, "isRain: CUL_TCM97001 for msg=($msg) = TRUE";
return TRUE;
}
# #
# CRC Check for KW9010.... # CRC Check for KW9010....
@ -314,6 +362,21 @@ CUL_TCM97001_Parse($$)
my $temp = undef; my $temp = undef;
my $humidity=undef; my $humidity=undef;
my $channel = undef; my $channel = undef;
# für zusätzliche Sensoren
my @winddir_name=("N","NNE","NE","ENE","E","ESE","SE","SSE","S","SSW","SW","WSW","W","WNW","NW","NNW");
my $windSpeed = 0;
my $windDirection = 0 ;
my $windDirectionText = "N";
my $windgrad = 0 ;
my $windGuest = 0;
my $rain = 0;
my $haswindspeed = FALSE;
my $haswind = FALSE;
my $hasrain = FALSE;
my $rainticks = undef;
my $rainMM = undef;
my $longids = AttrVal($hash->{NAME},'longids',1); my $longids = AttrVal($hash->{NAME},'longids',1);
@ -712,18 +775,81 @@ CUL_TCM97001_Parse($$)
# C Bit 1 Battery # C Bit 1 Battery
# D+E+F Temp # D+E+F Temp
# G+H Hum # G+H Hum
# I CRC # I CRC
#/* Documentation also at http://www.tfd.hu/tfdhu/files/wsprotocol/auriol_protocol_v20.pdf
# * Message Format: (9 nibbles, 36 bits):
# * Please note that bytes need to be reversed before processing!
# *
# * Format for Temperature Humidity
# * AAAAAAAA BBBB CCCC CCCC CCCC DDDDDDDD EEEE
# * RC Type Temperature___ Humidity Checksum
# * A = Rolling Code / Device ID
# * Device ID: AAAABBAA BB is used for channel, base channel is 01
# * When channel selector is used, channel can be 10 (2) and 11 (3)
# * B = Message type (xyyz = temp/humidity if yy <> '11') else wind/rain sensor
# * x indicates battery status (0 normal, 1 voltage is below ~2.6 V)
# * z 0 indicates regular transmission, 1 indicates requested by pushbutton
# * C = Temperature (two's complement)
# * D = Humidity BCD format
# * E = Checksum
# *
# * Format for Rain
# * AAAAAAAA BBBB CCCC DDDD DDDD DDDD DDDD EEEE
# * RC Type Rain Checksum
# * A = Rolling Code /Device ID
# * B = Message type (xyyx = NON temp/humidity data if yy = '11')
# * C = fixed to 1100 (C)
# * D = Rain (bitvalue * 0.25 mm)
# * E = Checksum
# *
# * Format for Windspeed
# * AAAAAAAA BBBB CCCC CCCC CCCC DDDDDDDD EEEE
# * RC Type Windspd Checksum
# * A = Rolling Code
# * B = Message type (xyyx = NON temp/humidity data if yy = '11')
# * C = Fixed to 1000 0000 0000 (8)
# * D = Windspeed (bitvalue * 0.2 m/s, correction for webapp = 3600/1000 * 0.2 * 100 = 72)
# * E = Checksum
# *
# * Format for Winddirection & Windgust
# * AAAAAAAA BBBB CCCD DDDD DDDD EEEEEEEE FFFF
# * RC Type Winddir Windgust Checksum
# * A = Rolling Code
# * B = Message type (xyyx = NON temp/humidity data if yy = '11')
# * C = Fixed to 111 (E)
# * D = Wind direction
# * E = Windgust (bitvalue * 0.2 m/s, correction for webapp = 3600/1000 * 0.2 * 100 = 72)
# * F = Checksum
# *********************************************************************************************
# */
my @a = split("", $msg); my @a = split("", $msg);
my $bitReverse = undef; my $bitReverse = undef;
my $bitUnreverse = undef;
my $x = undef; my $x = undef;
my $bin3;
foreach $x (@a) { foreach $x (@a) {
my $bin3=sprintf("%024b",hex($x)); $bin3=sprintf("%024b",hex($x));
$bitReverse = $bitReverse . substr(reverse($bin3),0,4); $bitReverse = $bitReverse . substr(reverse($bin3),0,4);
$bitUnreverse = $bitUnreverse . sprintf( "%b", hex( substr($bin3,0,4) ) );
} }
my $hexReverse = unpack("H*", pack ("B*", $bitReverse)); my $hexReverse = unpack("H*", pack ("B*", $bitReverse));
#Split reversed a again #Split reversed a again
my @aReverse = split("", $hexReverse); my @aReverse = split("", $hexReverse);
Log3 $hash,4, "CUL_TCM97001 hex:$hexReverse msg:$msg aR:@aReverse ";
# Message type (xyyz = temp/humidity if yy <> '11') else wind/rain sensor
# Message type (xyyx = NON temp/humidity data if yy = '11')
$msgtype = substr(sprintf( "%04b", hex( substr( $msg,2,1))),1,2);
Log3 $hash,4, "CUL_TCM97001 nib2:$msgtype aRev: $aReverse[2]";
$msgtype = substr(sprintf( "%04b", hex( $aReverse[2])),1,2);
Log3 $hash,4, "CUL_TCM97001 nib2R:$msgtype hexR: $hexReverse";
if ( $msgtype ne "11") {
Log3 $hash,4, "CUL_TCM97001 Temp/Hum Msgype: $msgtype nib3:$aReverse[3] ";
if (hex($aReverse[5]) > 3) { if (hex($aReverse[5]) > 3) {
# negative temp # negative temp
@ -734,15 +860,40 @@ CUL_TCM97001_Parse($$)
# positive temp # positive temp
$temp = (hex($aReverse[3]) + hex($aReverse[4]) * 16 + hex($aReverse[5]) * 256)/10; $temp = (hex($aReverse[3]) + hex($aReverse[4]) * 16 + hex($aReverse[5]) * 256)/10;
} }
$humidity = hex($aReverse[7]).hex($aReverse[6]); $humidity = hex($aReverse[7]).hex($aReverse[6]);
$hashumidity = TRUE;
} else {
# Wind/Rain/Guest
Log3 $hash,4, "CUL_TCM97001 Wind/Rain/Guest Msgype: $msgtype nib3:$aReverse[3] ";
# C = Fixed to 1000 0000 0000 Reverse 0001 0000 0000
if ((hex($aReverse[3])== 0x1) && (hex($aReverse[4])== 0x0)) { # Windspeed
$windSpeed = hex($aReverse[6]) + hex($aReverse[7]);
$haswindspeed = TRUE;
Log3 $hash,4, "CUL_TCM97001 windSpeed: $windSpeed ";
}
if ((hex($aReverse[3])== 0xF)) { # Windguest Reverse
$windGuest = hex($aReverse[6]) + hex($aReverse[7]);
$windDirection = hex($aReverse[4]) + hex($aReverse[5]) ;
$windDirectionText = $winddir_name[$windDirection];
$haswind = TRUE;
Log3 $hash,4, "CUL_TCM97001 windGuest: $windGuest ";
}
if ((hex($aReverse[3])== 0x3)) { # Rain
$rain = (hex($aReverse[4]) + hex($aReverse[5]) + hex($aReverse[6]) + hex($aReverse[7])) * 0.25;
$hasrain = TRUE;
Log3 $hash,4, "CUL_TCM97001 rain: $rain ";
}
}
if (checkValues($temp, $humidity)) {
#if (checkValues($temp, $humidity)) {
if (1) {
$batbit = (hex($a[2]) & 0x8) >> 3; $batbit = (hex($a[2]) & 0x8) >> 3;
#$mode = (hex($a[2]) & 0x4) >> 2; #$mode = (hex($a[2]) & 0x4) >> 2;
$model="TCM21...."; $model="TCM21....";
if ($deviceCode ne $idType1) # new naming convention if ($deviceCode ne $idType1) # new naming convention
{ {
if ( $enableLongIDs == TRUE || (($longids != "0") && ($longids eq "1" || $longids eq "ALL" || (",$longids," =~ m/,$model,/)))) if ( $enableLongIDs == TRUE || (($longids != "0") && ($longids eq "1" || $longids eq "ALL" || (",$longids," =~ m/,$model,/))))
@ -761,14 +912,13 @@ CUL_TCM97001_Parse($$)
Log3 $name, 2, "CUL_TCM97001 Unknown device $deviceCode, please define it"; Log3 $name, 2, "CUL_TCM97001 Unknown device $deviceCode, please define it";
return "UNDEFINED $model" . substr($deviceCode, rindex($deviceCode,"_")) . " CUL_TCM97001 $deviceCode"; return "UNDEFINED $model" . substr($deviceCode, rindex($deviceCode,"_")) . " CUL_TCM97001 $deviceCode";
} }
$hashumidity = TRUE;
$packageOK = TRUE; $packageOK = TRUE;
$hasbatcheck = TRUE; $hasbatcheck = TRUE;
$readedModel=$model; $readedModel=$model;
} else { } else {
$name = "Unknown"; $name = "Unknown";
} }
} }
@ -1030,7 +1180,149 @@ CUL_TCM97001_Parse($$)
} }
} }
if ( (checkCRC4($msg) == TRUE) && (isRain($msg)==TRUE) &&($readedModel eq "PFR_130" || $readedModel eq "Unknown")) {
# Implementation from Femduino
# Pollin PFR_130)
# nibbles n2, n6 and n7 hold the Rain fall ticks
# /--------------------------------- Channel, changes after every battery change
# / / ------------------------ Battery state 0 == Ok
# / / /------------------------ ??Battery changed, Sync startet
# / / / ----------------------- n2 lower two bits ->rain ticks
# / / / / /------------------- neg Temp: if 1 then temp = temp - 4096
# / / / / /-------------------- 12 Bit Temperature
# / / / / / /----- n6,n7 rain ticks 8 bit (n2 & 0x03 n6 n7)
# / / / / / / /---- n8, CRC (xor n0 to n7)
# 0101 0101 1 0 00 0001 0000 1011 11000100 xxxx
# Bit 0 8 9 10 12 24 32
$def = $modules{CUL_TCM97001}{defptr}{$idType1};
if($def) {
$name = $def->{NAME};
}
$temp = (hex($a[3].$a[4].$a[5])) & 0x7FF;
my $negative = (hex($a[3])) & 0x8;
if ($negative == 0x8) {
$temp = (~$temp & 0x07FF) + 1;
$temp = -$temp;
}
$temp = $temp / 10;
Log3 $name, 5, "CUL_TCM97001: PFR_130 Temp=$temp";
# rain values Pollin PFR_130
$rainticks = (hex($a[2].$a[6].$a[7])) & 0x3FF; #mask n2 n6 n7 for rain ticks
Log3 $name, 5, "CUL_TCM97001: PFR_130 rainticks=$rainticks";
$rainMM = $rainticks / 25 * .5; # rain height in mm/qm, verified against sensor receiver display
Log3 $name, 5, "CUL_TCM97001: PFR_130 rain mm=$rainMM";
if (checkValues($temp, 50)) {
$batbit = (hex($a[2]) & 0x8) >> 3; # in auriol_protocol_v20.pdf bat bit is n2 & 0x08, same
$batbit = ~$batbit & 0x1; # Bat bit umdrehen
$mode = (hex($a[2]) & 0x4) >> 2; # in auriol_protocol_v20.pdf mode is: n2 & 0x01, different
$trend = (hex($a[7]) & 0x3); # in auriol_protocol_v20.pdf there is no trend bit
$model="PFR_130";
my $deviceCode;
if (!defined($modules{CUL_TCM97001}{defptr}{$idType1}))
{
if ( $enableLongIDs == TRUE || (($longids != "0") && ($longids eq "1" || $longids eq "ALL" || (",$longids," =~ m/,$model,/))))
{
$deviceCode="CUL_TCM97001_".$idType1;
Log3 $hash,4, "CUL_TCM97001 using longid: $longids model: $model";
} else {
$deviceCode="CUL_TCM97001_" . $model . "_" . $channel;
}
} else { # Fallback for already defined devices use old naming convention
$deviceCode=$idType1;
}
$def = $modules{CUL_TCM97001}{defptr}{$deviceCode};
if($def) {
$name = $def->{NAME};
}
if(!$def) {
Log3 $name, 2, "CUL_TCM97001 Unknown device $deviceCode, please define it";
return "UNDEFINED $model" . substr($deviceCode, rindex($deviceCode,"_")) . " CUL_TCM97001 $deviceCode";
}
$hasbatcheck = TRUE;
$hastrend = TRUE;
$packageOK = TRUE;
$hasmode = TRUE;
$readedModel=$model;
} else {
$name = "Unknown";
}
}
if ( (isRain($msg)!=TRUE) && ($readedModel eq "AURIOL" || $readedModel eq "Unknown") && ($readedModel ne "PFR_130")) {
# Implementation from Femduino
# AURIOL (Lidl Version: 09/2013)
# /--------------------------------- Channel, changes after every battery change
# / / ------------------------ Battery state 1 == Ok
# / / /------------------------ Battery changed, Sync startet
# / / / ----------------------- Unknown
# / / / / /--------------------- neg Temp: if 1 then temp = temp - 4096
# / / / / /---------------------- 12 Bit Temperature
# / / / / / /---------- ??? CRC
# / / / / / / /---- Trend 10 == rising, 01 == falling
# 0101 0101 1 0 00 0001 0000 1011 1100 01 00
# Bit 0 8 9 10 12 24 30
$def = $modules{CUL_TCM97001}{defptr}{$idType1};
if($def) {
$name = $def->{NAME};
}
$temp = (hex($a[3].$a[4].$a[5])) & 0x7FF;
my $negative = (hex($a[3])) & 0x8;
if ($negative == 0x8) {
$temp = (~$temp & 0x07FF) + 1;
$temp = -$temp;
}
$temp = $temp / 10;
if (checkValues($temp, 50)) {
$batbit = (hex($a[2]) & 0x8) >> 3;
$batbit = ~$batbit & 0x1; # Bat bit umdrehen
$mode = (hex($a[2]) & 0x4) >> 2;
$trend = (hex($a[7]) & 0x3);
$model="AURIOL";
my $deviceCode;
if (!defined($modules{CUL_TCM97001}{defptr}{$idType1}))
{
if ( $enableLongIDs == TRUE || (($longids != "0") && ($longids eq "1" || $longids eq "ALL" || (",$longids," =~ m/,$model,/))))
{
$deviceCode="CUL_TCM97001_".$idType1;
Log3 $hash,4, "CUL_TCM97001 using longid: $longids model: $model";
} else {
$deviceCode="CUL_TCM97001_" . $model . "_" . $channel;
}
} else { # Fallback for already defined devices use old naming convention
$deviceCode=$idType1;
}
$def = $modules{CUL_TCM97001}{defptr}{$deviceCode};
if($def) {
$name = $def->{NAME};
}
if(!$def) {
Log3 $name, 2, "CUL_TCM97001 Unknown device $deviceCode, please define it";
return "UNDEFINED $model" . substr($deviceCode, rindex($deviceCode,"_")) . " CUL_TCM97001 $deviceCode";
}
$hasbatcheck = TRUE;
$hastrend = TRUE;
$packageOK = TRUE;
$hasmode = TRUE;
$readedModel=$model;
} else {
$name = "Unknown";
}
}
#if (($readedModel eq "Unknown" || $readedModel eq "KW9010")) { #if (($readedModel eq "Unknown" || $readedModel eq "KW9010")) {
@ -1064,6 +1356,7 @@ CUL_TCM97001_Parse($$)
Log3 $hash, 5 , "KW9010 CRC Matched: ($bitReverse)"; Log3 $hash, 5 , "KW9010 CRC Matched: ($bitReverse)";
my $hexReverse = unpack("H*", pack ("B*", $bitReverse)); my $hexReverse = unpack("H*", pack ("B*", $bitReverse));
Log3 $hash, 5 , "KW9010 CRC Hex Matched: $hexReverse";
#Split reversed a again #Split reversed a again
my @aReverse = split("", $hexReverse); my @aReverse = split("", $hexReverse);
@ -1080,7 +1373,8 @@ CUL_TCM97001_Parse($$)
$humidity = hex($aReverse[7].$aReverse[6]) - 156; $humidity = hex($aReverse[7].$aReverse[6]) - 156;
if (checkValues($temp, $humidity)) { #if (checkValues($temp, $humidity)) {
if (1) {
Log3 $hash, 5 , "KW9010 values are matching"; Log3 $hash, 5 , "KW9010 values are matching";
$batbit = (hex($a[2]) & 0x8) >> 3; $batbit = (hex($a[2]) & 0x8) >> 3;
@ -1127,11 +1421,20 @@ CUL_TCM97001_Parse($$)
if ($packageOK == TRUE) { if ($packageOK == TRUE) {
# save lastT, calc rainMM sum for day and hour
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
my $lastDay=$mday;
my $lastHour=$hour;
my $rainSumDay=0;
my $rainSumHour=0;
if($def) { if($def) {
$def->{lastT} = $now; $def->{lastT} = $now;
} }
readingsBeginUpdate($def); readingsBeginUpdate($def);
my ($val, $valH, $state); my ($val, $valH, $state);
if ($hashumidity == TRUE) {
$msgtype = "temperature"; $msgtype = "temperature";
$val = sprintf("%2.1f", ($temp) ); $val = sprintf("%2.1f", ($temp) );
$state="T: $val"; $state="T: $val";
@ -1146,18 +1449,79 @@ CUL_TCM97001_Parse($$)
# } # }
# } # }
# } # }
}
if ($model eq "PFR_130") {
$lastDay = ReadingsVal($name, "lastDay", $lastDay);
$lastHour = ReadingsVal($name, "lastHour", $lastHour);
$rainSumDay=ReadingsVal($name, "RainD", $rainSumDay);
$rainSumHour=ReadingsVal($name, "RainH", $rainSumHour);
$msgtype = "temperature";
$val = sprintf("%2.1f", ($temp) );
$state="T: $val";
Log3 $name, 5, "CUL_TCM97001 1. $lastDay : $lastHour : $rainSumDay : $rainSumHour";
#rain Pollin PFR-130
if($mday==$lastDay){
#same day add rainMM
$rainSumDay+=$rainMM;
}else {
#new day, start over
$rainSumDay=$rainMM;
}
if($hour==$lastHour){
$rainSumHour+=$rainMM;
}else{
$rainSumHour=$rainMM;
}
readingsBulkUpdate($def, "lastDay", $lastDay );
readingsBulkUpdate($def, "lastHour", $lastHour );
readingsBulkUpdate($def, "RainD", $rainSumDay );
readingsBulkUpdate($def, "RainH", $rainSumHour );
Log3 $name, 5, "CUL_TCM97001 2. $lastDay : $lastHour : $rainSumDay : $rainSumHour";
$state="$state RainH: $rainSumHour RainD: $rainSumDay R: $rainticks Rmm: $rainMM";
Log3 $name, 5, "CUL_TCM97001 $msgtype $name $id3 state: $state";
}
#zusätzlich Daten für Wetterstation
if ($hasrain == TRUE) {
readingsBulkUpdate($def, "rain", $rain );
$state = "R: $rain";
$hasrain = FALSE;
}
if ($haswind == TRUE) {
readingsBulkUpdate($def, "windGust", $windGuest );
readingsBulkUpdate($def, "windDirection", $windDirection );
#readingsBulkUpdate($def, "windDirectionDegree", $windDirection * 360 / 16);
readingsBulkUpdate($def, "windDirectionText", $windDirectionText );
$state = "Wg: $windGuest "." Wd: $windDirectionText ";
$haswind = FALSE;
}
if ($haswindspeed == TRUE) {
readingsBulkUpdate($def, "windSpeed", $windSpeed );
$state = "Ws: $windSpeed ";
$haswindspeed = FALSE;
}
if ($hashumidity == TRUE) { if ($hashumidity == TRUE) {
$msgtypeH = "humidity"; $msgtypeH = "humidity";
$valH = $humidity; $valH = $humidity;
$state="$state H: $valH"; $state="$state H: $valH";
Log3 $name, 4, "CUL_TCM97001 $msgtype $name $id3 T: $val H: $valH"; Log3 $name, 4, "CUL_TCM97001 $msgtype $name $id3 T: $val H: $valH";
} else { } else {
Log3 $name, 4, "CUL_TCM97001 $msgtype $name $id3 T: $val"; $msgtype = "other";
Log3 $name, 4, "CUL_TCM97001 $msgtype $name $id3";
#Log3 $name, 4, "CUL_TCM97001 $msgtype $name $id3 ";
} }
if($hastrend) { if($hastrend) {
my $readTrend = ReadingsVal($name, "trend", "unknown"); my $readTrend = ReadingsVal($name, "trend", "unknown");
if ($trend == 1) { if ($trend == 1) {