FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-02-25 09:55:38 +00:00
Code Issues Releases Wiki Activity

10_EnOcean: profil manufProfile / manufID 002 changed

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@26598 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
klaus.schauer 2022-10-27 04:34:42 +00:00
parent 44c2b03ef0
commit 17fb8f27ab
1 changed files with 101 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

100
fhem/FHEM/10_EnOcean.pm
View File

@ -453,6 +453,7 @@ my %EnO_eepConfig = (
"G5.3F.7F" => {attr => {subType => "manufProfile", eep => "A5-3F-7F", manufID => "00D", webCmd => "opens:stop:closes"}}, "G5.3F.7F" => {attr => {subType => "manufProfile", eep => "A5-3F-7F", manufID => "00D", webCmd => "opens:stop:closes"}},
"H5.3F.7F" => {attr => {subType => "manufProfile", comMode => "confirm", eep => "A5-3F-7F", manufID => "00D", model => "Eltako_TF", sensorMode => 'pushbutton', settingAccuracy => "high", teachMethod => "confirm", webCmd => "opens:stop:closes"}}, "H5.3F.7F" => {attr => {subType => "manufProfile", comMode => "confirm", eep => "A5-3F-7F", manufID => "00D", model => "Eltako_TF", sensorMode => 'pushbutton', settingAccuracy => "high", teachMethod => "confirm", webCmd => "opens:stop:closes"}},
"I5.3F.7F" => {attr => {subType => "manufProfile", comMode => "confirm", eep => "A5-3F-7F", manufID => "00D", model => "Eltako_FRM60", sensorMode => 'pushbutton', teachMethod => "confirm", webCmd => "opens:stop:closes:position"}}, "I5.3F.7F" => {attr => {subType => "manufProfile", comMode => "confirm", eep => "A5-3F-7F", manufID => "00D", model => "Eltako_FRM60", sensorMode => 'pushbutton', teachMethod => "confirm", webCmd => "opens:stop:closes:position"}},
"J5.3F.7F" => {attr => {subType => "manufProfile", eep => "A5-3F-7F", manufID => "002"}},
"M5.38.08" => {attr => {subType => "gateway", eep => "A5-38-08", gwCmd => "switching", manufID => "00D", webCmd => "on:off"}}, "M5.38.08" => {attr => {subType => "gateway", eep => "A5-38-08", gwCmd => "switching", manufID => "00D", webCmd => "on:off"}},
"N5.38.08" => {attr => {subType => "gateway", comMode => "confirm", eep => "A5-38-08", gwCmd => "switching", manufID => "00D", model => "Eltako_TF", teachMethod => "confirm", webCmd => "on:off"}}, "N5.38.08" => {attr => {subType => "gateway", comMode => "confirm", eep => "A5-38-08", gwCmd => "switching", manufID => "00D", model => "Eltako_TF", teachMethod => "confirm", webCmd => "on:off"}},
"O5.38.08" => {attr => {subType => "gateway", comMode => "confirm", eep => "A5-38-08", gwCmd => "switching", manufID => "00D", model => "Eltako_FSR14", teachMethod => "confirm", webCmd => "on:off"}}, "O5.38.08" => {attr => {subType => "gateway", comMode => "confirm", eep => "A5-38-08", gwCmd => "switching", manufID => "00D", model => "Eltako_FSR14", teachMethod => "confirm", webCmd => "on:off"}},
@ -4900,6 +4901,73 @@ sub EnOcean_Set($@) {
} }
Log3 $name, 3, "EnOcean set $name $cmd"; Log3 $name, 3, "EnOcean set $name $cmd";
} }
} elsif ($manufID eq "002") {
# [Thermokon SR65 3AI, untested]
# $db[3] is the input 3 where 0x00 = 0 V ... 0xFF = 10 V
# $db[2] is the input 2 where 0x00 = 0 V ... 0xFF = 10 V
# $db[1] is the input 1 where 0x00 = 0 V ... 0xFF = 10 V
$rorg = "A5";
if($cmd eq "teach") {
# teach-in EEP A5-3F-7F, Manufacturer "Thermokon"
$data = "FFF80280";
$attr{$name}{eep} = "A5-3F-7F";
CommandDeleteReading(undef, "$name .*");
readingsSingleUpdate($hash, "teach", "4BS teach-in sent", 1);
$updateState = 0;
} elsif ($cmd =~ m/^input([123])$/) {
my $channel = $1;
return "Usage: numeric argument missing" if (!defined($a[1]));
return "Usage: $a[1] is not numeric or out of range" if ($a[1] !~ m/^\d+(\.\d+)?$/ || $a[1] > 10);
my @input;
for (my $i = 1; $i < 4; $i ++) {
$input[$i] = $channel == $i ? $a[1] : ReadingsVal($name, "input" . $i, 0);
}
$data = sprintf "%02X%02X%02X08", int($input[3] / 10 * 255), int($input[2] / 10 * 255), int($input[1] / 10 * 255);
readingsBeginUpdate($hash);
readingsBulkUpdateIfChanged($hash, $cmd, $a[1]);
my $setpointScaled = EnOcean_ReadingScaled($hash, $a[1], 0, 10);
readingsBulkUpdateIfChanged($hash, $cmd . "Scaled", $setpointScaled) if (defined $setpointScaled);
readingsBulkUpdateIfChanged($hash, 'state', "I1: $input[1] I2: $input[2] I3: $input[3]");
readingsEndUpdate($hash, 1);
shift @a;
$updateState = 0;
} elsif ($cmd =~ m/^input([123])Scaled$/) {
my $channel = $1;
return "Usage: numeric argument missing" if (!defined($a[1]));
my $scaleMin = AttrVal($name, "scaleMin", undef);
my $scaleMax = AttrVal($name, "scaleMax", undef);
my ($rangeMin, $rangeMax);
if (defined $scaleMax && defined $scaleMin &&
$scaleMax =~ m/^[+-]?\d+(\.\d+)?$/ && $scaleMin =~ m/^[+-]?\d+(\.\d+)?$/) {
if ($scaleMin > $scaleMax) {
($rangeMin, $rangeMax) = ($scaleMax, $scaleMin);
} else {
($rangeMin, $rangeMax) = ($scaleMin, $scaleMax);
}
} else {
return "Usage: Attributes scaleMin and/or scaleMax not defined or not numeric.";
}
my @input;
if ($a[1] =~ m/^[+-]?\d+(\.\d+)?$/ && $a[1] >= $rangeMin && $a[1] <= $rangeMax) {
$input[$channel] = 10 * $scaleMin / ($scaleMin - $scaleMax) - 10 / ($scaleMin - $scaleMax) * $a[1];
for (my $i = 1; $i < 4; $i ++) {
$input[$i] = $channel == $i ? $input[$i] : ReadingsVal($name, "input" . $i, 0);
}
$data = sprintf "%02X%02X%02X08", int($input[3] / 10 * 255), int($input[2] / 10 * 255), int($input[1] / 10 * 255);
readingsBeginUpdate($hash);
readingsBulkUpdateIfChanged($hash, "input" . $channel, $input[$channel]);
readingsBulkUpdateIfChanged($hash, $cmd, $a[1]);
readingsBulkUpdateIfChanged($hash, 'state', "I1: $input[1] I2: $input[2] I3: $input[3]");
readingsEndUpdate($hash, 1);
shift @a;
$updateState = 0;
} else {
return "Usage: $a[1] is not numeric or out of range";
}
} else {
return "Unknown argument " . $cmd . ", choose one of " . $cmdList . "input1:slider,0,0.5,10 input1Scaled input2:slider,0,0.5,10 input2Scaled input3:slider,0,0.5,10 input3Scaled teach:noArg"
}
Log3 $name, 3, "EnOcean set $name $cmd";
} }
} elsif ($st eq "actuator.01") { } elsif ($st eq "actuator.01") {
@ -19075,6 +19143,7 @@ sub EnOcean_Delete($$) {
<li>G5-3F-7F Shutter [Eltako FSB]<br></li> <li>G5-3F-7F Shutter [Eltako FSB]<br></li>
<li>H5-3F-7F Shutter [Eltako TF61J]<br></li> <li>H5-3F-7F Shutter [Eltako TF61J]<br></li>
<li>I5-3F-7F Shutter [Eltako FRM60] - MSC teach-in supported<br></li> <li>I5-3F-7F Shutter [Eltako FRM60] - MSC teach-in supported<br></li>
<li>J5-3F-7F Wireless Analog Input Module [Thermokon SR65 3AI]<br></li>
<li>G6-02-01 Pushbutton with controllable LEDs [Eltako F4CT55] - MSC teach-in supported<br></li> <li>G6-02-01 Pushbutton with controllable LEDs [Eltako F4CT55] - MSC teach-in supported<br></li>
<li>L6-02-01 Smoke Detector [Eltako FRW]<br></li> <li>L6-02-01 Smoke Detector [Eltako FRW]<br></li>
<li>G5-ZZ-ZZ Light and Presence Sensor [Omnio Ratio eagle-PM101]<br></li> <li>G5-ZZ-ZZ Light and Presence Sensor [Omnio Ratio eagle-PM101]<br></li>
@ -20243,6 +20312,37 @@ sub EnOcean_Delete($$) {
</li> </li>
<br><br> <br><br>
<li>Manufacturer Specific Applications (EEP A5-3F-7F)<br><br>
Wireless Analog Input Module<br>
[Thermokon SR65 3AI, untested]<br>
<ul>
<code>set &lt;name&gt; &lt;value&gt;</code>
<br><br>
where <code>value</code> is
<li>input1 U/V<br>
set input1 (Range: U = 0 V ... 10 V)</li>
<li>input1Scaled [&lt;floating-point number&gt;]<br>
set input1Scaled</li>
<li>input2 U/V<br>
set input2 (Range: U = 0 V ... 10 V)</li>
<li>input2Scaled [&lt;floating-point number&gt;]<br>
set input2Scaled</li>
<li>input3 U/V<br>
set input3 (Range: U = 0 V ... 10 V)</li>
<li>input3Scaled [&lt;floating-point number&gt;]<br>
set input3Scaled</li>
<li>teach<br>
initiate teach-in</li>
</ul><br>
The input value can be scaled device-specifically. Set the attributes
<a href="#EnOcean-attr-scaleMax">scaleMax</a>, <a href="#EnOcean-attr-scaleMin">scaleMin</a> and
<a href="#EnOcean-attr-scaleDecimals">scaleDecimals</a> for the additional scaled setting
input&lt;channel&gt;Scaled.<br>
The attr subType must be manufProfile and attr manufID must be 002
for Thermokon Devices. This is done manually via the Inofficial EEP J5-3F-7F.
</li>
<br><br>
<li>Electronic switches and dimmers with Energy Measurement and Local Control (D2-01-00 - D2-01-14)<br> <li>Electronic switches and dimmers with Energy Measurement and Local Control (D2-01-00 - D2-01-14)<br>
[Telefunken Funktionsstecker, PEHA Easyclick, AWAG Elektrotechnik AG Omnio UPS 230/xx,UPD 230/xx, REGS12/08M, NodOn in-wall module, smart plug]<br> [Telefunken Funktionsstecker, PEHA Easyclick, AWAG Elektrotechnik AG Omnio UPS 230/xx,UPD 230/xx, REGS12/08M, NodOn in-wall module, smart plug]<br>
<ul> <ul>