10_EnOcean.pm Termokon SR04

[Guest]

Originally posted by: <email address deleted>

Hallo zusammen
ich habe komische Werten beim SR04 gelesen.
Ich habe die Beschreibung Funk-Telegramm von Termokon kontrollier:
http://www.thermokon.de/files/produktblatt-sr041319282511.pdf
Ich habe volgende (aus meine Sicht) verbessert

10_EnOcean.pm

Original

> } elsif($st eq "SR04") {
>       my ($fspeed, $temp, $present);
>       $fspeed = 3;
>       $fspeed = 2      if($db_3 >= 145);
>       $fspeed = 1      if($db_3 >= 165);
>       $fspeed = 0      if($db_3 >= 190);
>       $fspeed = "Auto" if($db_3 >= 210);
>       $temp   = sprintf("%0.1f", $db_1/6.375);      # 40..0
>       $present= $db_0&0x1 ? "no" : "yes";
>       push @event, "3:state:temperature $temp";
>       push @event, "3:set_point:$db_3";
>       push @event, "3:fan:$fspeed";
>
 
Changed

} elsif($st eq "SR04") {
>       my ($fspeed, $temp, $present);
>       $fspeed = 3;
>       $fspeed = 2      if($db_3 >= 145);
>       $fspeed = 1      if($db_3 >= 165);
>       $fspeed = 0      if($db_3 >= 190);
>       $fspeed = "Auto" if($db_3 >= 210);
>       $temp   = sprintf("%0.1f", 40- $db_1/6.375);      # 40..0
>       $present= $db_0&0x1 ? "no" : "yes";
>       push @event, "3:state:temperature $temp";
>       push @event, "3:set_point:$db_2";
>       push @event, "3:fan:$fspeed";
>

Ist_temp (status) funktioniert jetzt sehr gut

Noch etwas, ich erwarte dass auch das Soll_temp (set_point) nicht korrekt
ist.
Ich werder etwas so probieren, sobald nicht so warm ist
     
$temp_setpoint   = sprintf("%0.1f", $db_2/6.375);
push @event, "3:set_point:$temp_setpoint";
*
eure Meinung ist mir wichtig*
immi

--
To unsubscribe from this group, send email to
fhem-users+unsubscribe@googlegroups.com

[rudolfkoenig]

                                                   

> Ist_temp (status) funktioniert jetzt sehr gut

Habs eingecheckt. Btw das naechste diff gerne kleiner ausfallen
(40- $db_1/6.375 vs. $db_1/6.375).

--
To unsubscribe from this group, send email to
fhem-users+unsubscribe@googlegroups.com

[Guest]

Originally posted by: <email address deleted>

Hallo Rudolf
Ich wollte Dich nicht  *ärgern, aber ich  das diff ist grosser

***
>
>   } elsif($st eq "SR04") {
>       my ($fspeed, $temp, $present, $solltemp);
>       $fspeed = 3;
>       $fspeed = 2      if($db_3 >= 145);
>       $fspeed = 1      if($db_3 >= 165);
>       $fspeed = 0      if($db_3 >= 190);
>       $fspeed = "Auto" if($db_3 >= 210);
>       $temp   = sprintf("%0.1f", 40- $db_1/6.375);      # 40..0
>       $present= $db_0&0x1 ? "no" : "yes";
>       $solltemp= sprintf("%0.1f", $db_2/6.375);
>
>       push @event, "3:state:temperature $temp";
>       push @event, "3:set_point: $solltemp";
>       push @event, "3:fan:$fspeed";
>       push @event, "3:present:$present" if($present eq "yes");
>       push @event, "3:learnBtn:on" if(!($db_0&0x8));
>       push @event, "3:T:$temp SP:$solltemp  F: $fspeed P: $present";
>

p.s.
http://www.thermokon.de/files/produktblatt-sr041319282511.pdf
db_3 beschreibt $fspeed  
db_2 beschreibt set_point
db_1 beschreibt $temp
db_0 beschreibt $present und learnbit

p.s.2 ich mag setpoint in °C

immi

--
To unsubscribe from this group, send email to
fhem-users+unsubscribe@googlegroups.com

[rudolfkoenig]

                                                   

> Ich wollte Dich nicht  *ärgern, aber ich  das diff ist grosser

Hast recht, mit einem kleineren diff haette ich die solltemp Aenderung auch
gesehen, so habe ich es verpasst. Habs eingecheckt.

--
To unsubscribe from this group, send email to
fhem-users+unsubscribe@googlegroups.com