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
> 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
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
> 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