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

THZ: bugfix summermode

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@5425 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
immiimmi 2014-04-03 17:27:17 +00:00
parent 91cb828245
commit 933cfe7da0
1 changed files with 23 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
fhem/FHEM/00_THZ.pm
View File

@ -1,7 +1,7 @@
############################################## ##############################################
# 00_THZ # 00_THZ
# by immi 04/2014 # by immi 04/2014
# v. 0.080 # v. 0.081
# this code is based on the hard work of Robert; I just tried to port it # this code is based on the hard work of Robert; I just tried to port it
# http://robert.penz.name/heat-pump-lwz/ # http://robert.penz.name/heat-pump-lwz/
# http://heatpumpmonitor.penz.name/heatpumpmonitorwiki/ # http://heatpumpmonitor.penz.name/heatpumpmonitorwiki/
@ -960,7 +960,7 @@ sub THZ_Parse($) {
when ("F4") { #allF4 when ("F4") { #allF4
my %SomWinMode = ( "02" =>"winter", "01" => "summer"); my %SomWinMode = ( "01" =>"winter", "02" => "summer");
$message = $message =
"outside_temp: " . hex2int(substr($message, 4,4))/10 . " " . "outside_temp: " . hex2int(substr($message, 4,4))/10 . " " .
"x08: " . hex2int(substr($message, 8,4))/10 . " " . "x08: " . hex2int(substr($message, 8,4))/10 . " " .
@ -969,22 +969,23 @@ sub THZ_Parse($) {
"flow_temp: " . hex2int(substr($message,20,4))/10 . " " . "flow_temp: " . hex2int(substr($message,20,4))/10 . " " .
"heat-set_temp: " . hex2int(substr($message,24,4))/10 . " " . #soll HC1 "heat-set_temp: " . hex2int(substr($message,24,4))/10 . " " . #soll HC1
"heat_temp: " . hex2int(substr($message,28,4))/10 . " " . #ist "heat_temp: " . hex2int(substr($message,28,4))/10 . " " . #ist
"x32: " . hex2int(substr($message,32,4))/10 . " " . # "x32: " . hex2int(substr($message,32,4))/10 . " " .
"x36: " . hex2int(substr($message,36,4))/10 . " " . "mode: " . $SomWinMode{(substr($message,38,2))} . " " .
"x40: " . hex2int(substr($message,40,4))/10 . " " . # "x40: " . hex2int(substr($message,40,4))/10 . " " .
"integral_switch: " . hex2int(substr($message,44,4)) . " " . "integral_switch: " . hex2int(substr($message,44,4)) . " " .
"mode: " . $SomWinMode{(substr($message,48,2))} . " " . # "x48: " . hex2int(substr($message,40,4))/10 . " " .
"x52: " . hex2int(substr($message,52,4))/10 . " " . # "x52: " . hex2int(substr($message,52,4))/10 . " " .
"room-set-temp: " . hex2int(substr($message,56,4))/10 . " " . "room-set-temp: " . hex2int(substr($message,56,4))/10 ;
"x60: " . hex2int(substr($message,60,4)) . " " . # "x60: " . hex2int(substr($message,60,4)) . " " .
"x64: " . hex2int(substr($message,64,4)) . " " . # "x64: " . hex2int(substr($message,64,4)) . " " .
"x68: " . hex2int(substr($message,68,4)) . " " . # "x68: " . hex2int(substr($message,68,4)) . " " .
"x72: " . hex2int(substr($message,72,4)) . " " . # "x72: " . hex2int(substr($message,72,4)) . " " .
"x76: " . hex2int(substr($message,76,4)) . " " . # "x76: " . hex2int(substr($message,76,4)) . " " .
"x80: " . hex2int(substr($message,80,4)) ; # "x80: " . hex2int(substr($message,80,4))
;
} }
when ("F5") { #allF5 when ("F5") { #allF5
my %SomWinMode = ( "02" =>"winter", "01" => "summer"); my %SomWinMode = ( "01" =>"winter", "02" => "summer");
$message = $message =
"outside_temp: " . hex2int(substr($message, 4,4))/10 . " " . "outside_temp: " . hex2int(substr($message, 4,4))/10 . " " .
"return_temp: " . hex2int(substr($message, 8,4))/10 . " " . "return_temp: " . hex2int(substr($message, 8,4))/10 . " " .
@ -992,13 +993,13 @@ sub THZ_Parse($) {
"heat_temp: " . hex2int(substr($message,16,4))/10 . " " . "heat_temp: " . hex2int(substr($message,16,4))/10 . " " .
"heat-set_temp: " . hex2int(substr($message,20,4))/10 . " " . "heat-set_temp: " . hex2int(substr($message,20,4))/10 . " " .
"stellgroesse: " . hex2int(substr($message,24,4))/10 . " " . "stellgroesse: " . hex2int(substr($message,24,4))/10 . " " .
"mode: " . $SomWinMode{(substr($message,30,2))} . " " . "mode: " . $SomWinMode{(substr($message,30,2))} ;
"x32: " . hex2int(substr($message,32,4)) . " " . # "x32: " . hex2int(substr($message,32,4)) . " " .
"x36: " . hex2int(substr($message,36,4)) . " " . # "x36: " . hex2int(substr($message,36,4)) . " " .
"x40: " . hex2int(substr($message,40,4)) . " " . # "x40: " . hex2int(substr($message,40,4)) . " " .
"x44: " . hex2int(substr($message,44,4)) . " " . # "x44: " . hex2int(substr($message,44,4)) . " " .
"x48: " . hex2int(substr($message,48,4)) . " " . # "x48: " . hex2int(substr($message,48,4)) . " " .
"x52: " . hex2int(substr($message,52,4)); # "x52: " . hex2int(substr($message,52,4))
} }