FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-28 11:01:59 +00:00
Code Issues Releases Wiki Activity

THZ: readings sHeatDHWDay and sHeatDHWTotal added

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@5772 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
immiimmi 2014-05-06 22:27:21 +00:00
parent c54bda5869
commit a3f2de084f
1 changed files with 38 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

65
fhem/FHEM/00_THZ.pm
View File

@ -1,8 +1,8 @@
############################################## ##############################################
# 00_THZ # 00_THZ
# $Id$ # $Id$
# by immi 04/2014 # by immi 05/2014
# v. 0.094 # v. 0.095
# 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/
@ -255,6 +255,8 @@ my %getsonly = (
"sFirmware" => {cmd2=>"FD"}, "sFirmware" => {cmd2=>"FD"},
"sHeatRecoveredDay" => {cmd2=>"0A03AE", cmd3=>"0A03AF", unit =>"Wh"}, "sHeatRecoveredDay" => {cmd2=>"0A03AE", cmd3=>"0A03AF", unit =>"Wh"},
"sHeatRecoveredTotal" => {cmd2=>"0A03B0", cmd3=>"0A03B1", unit =>"kWh"}, "sHeatRecoveredTotal" => {cmd2=>"0A03B0", cmd3=>"0A03B1", unit =>"kWh"},
"sHeatDHWDay" => {cmd2=>"0A092A", cmd3=>"0A092B", unit =>"Wh"},
"sHeatDHWTotal" => {cmd2=>"0A092C", cmd3=>"0A092D", unit =>"kWh"},
#"sAllE8" => {cmd2=>"E8"}, #"sAllE8" => {cmd2=>"E8"},
"party-time" => {cmd2=>"0A05D1"} # value 1Ch 28dec is 7 ; value 1Eh 30dec is 7:30 "party-time" => {cmd2=>"0A05D1"} # value 1Ch 28dec is 7 ; value 1Eh 30dec is 7:30
); );
@ -298,6 +300,8 @@ sub THZ_Initialize($)
."interval_sLast10errors:0,3600,7200,28800,43200,86400 " ."interval_sLast10errors:0,3600,7200,28800,43200,86400 "
."interval_sHeatRecoveredDay:0,1200,3600,7200,28800,43200,86400 " ."interval_sHeatRecoveredDay:0,1200,3600,7200,28800,43200,86400 "
."interval_sHeatRecoveredTotal:0,3600,7200,28800,43200,86400 " ."interval_sHeatRecoveredTotal:0,3600,7200,28800,43200,86400 "
."interval_sHeatDHWDay:0,1200,3600,7200,28800,43200,86400 "
."interval_sHeatDHWTotal:0,3600,7200,28800,43200,86400 "
. $readingFnAttributes; . $readingFnAttributes;
$data{FWEXT}{"/THZ_PrintcurveSVG"}{FUNC} = "THZ_PrintcurveSVG"; $data{FWEXT}{"/THZ_PrintcurveSVG"}{FUNC} = "THZ_PrintcurveSVG";
} }
@ -344,11 +348,12 @@ sub THZ_Define($$)
sub THZ_Refresh_all_gets($) { sub THZ_Refresh_all_gets($) {
my ($hash) = @_; my ($hash) = @_;
RemoveInternalTimer($hash); RemoveInternalTimer($hash);
my $timedelay= 5; my $timedelay= 5; #strart after 5 seconds
foreach my $cmdhash (keys %gets) { foreach my $cmdhash (keys %gets) {
my %par = ( command => $cmdhash, hash => $hash ); my %par = ( command => $cmdhash, hash => $hash );
RemoveInternalTimer(\%par); RemoveInternalTimer(\%par);
InternalTimer(gettimeofday() + ($timedelay++) , "THZ_GetRefresh", \%par, 0); InternalTimer(gettimeofday() + ($timedelay++) , "THZ_GetRefresh", \%par, 0); #increment 1.3s $timedelay++
$timedelay += 0.3;
} #refresh all registers; the register with interval_command ne 0 will keep on refreshing } #refresh all registers; the register with interval_command ne 0 will keep on refreshing
} }
@ -366,11 +371,11 @@ sub THZ_GetRefresh($) {
my $command=$par->{command}; my $command=$par->{command};
my $interval = AttrVal($hash->{NAME}, ("interval_".$command), 0); my $interval = AttrVal($hash->{NAME}, ("interval_".$command), 0);
my $replyc = ""; my $replyc = "";
if (!($hash->{STATE} eq "disconnected")) { if ($interval) {
if ($interval) {
$interval = 60 if ($interval < 60); #do not allow intervall <60 sec $interval = 60 if ($interval < 60); #do not allow intervall <60 sec
InternalTimer(gettimeofday()+ $interval, "THZ_GetRefresh", $par, 1) ; InternalTimer(gettimeofday()+ $interval, "THZ_GetRefresh", $par, 1) ;
} }
if (!($hash->{STATE} eq "disconnected")) {
$replyc = THZ_Get($hash, $hash->{NAME}, $command); $replyc = THZ_Get($hash, $hash->{NAME}, $command);
} }
return ($replyc); return ($replyc);
@ -837,7 +842,7 @@ sub THZ_Parse($) {
elsif ((substr($message,4,2) eq "1D") or (substr($message,4,2) eq "17")) {$message = quaters2time(substr($message, 8,2)) ."--". quaters2time(substr($message, 10,2))} #value 1Ch 28dec is 7 ; value 1Eh 30dec is 7:30 elsif ((substr($message,4,2) eq "1D") or (substr($message,4,2) eq "17")) {$message = quaters2time(substr($message, 8,2)) ."--". quaters2time(substr($message, 10,2))} #value 1Ch 28dec is 7 ; value 1Eh 30dec is 7:30
elsif (substr($message,4,4) eq "05D1") {$message = quaters2time(substr($message, 10,2)) ."--". quaters2time(substr($message, 8,2))} #like above but before stop then start !!!! elsif (substr($message,4,4) eq "05D1") {$message = quaters2time(substr($message, 10,2)) ."--". quaters2time(substr($message, 8,2))} #like above but before stop then start !!!!
elsif ((substr($message,4,4) eq "05D3") or (substr($message,4,4) eq "05D4")) {$message = quaters2time(substr($message, 10,2)) } #value 1Ch 28dec is 7 elsif ((substr($message,4,4) eq "05D3") or (substr($message,4,4) eq "05D4")) {$message = quaters2time(substr($message, 10,2)) } #value 1Ch 28dec is 7
elsif ((substr($message,4,3) eq "056") or (substr($message,4,4) eq "0570") or (substr($message,4,4) eq "0575") or (substr($message,4,4) eq "03AE") or (substr($message,4,4) eq "03AF") or (substr($message,4,4) eq "03B0") or (substr($message,4,4) eq "03B1") ) {$message = hex(substr($message, 8,4))} elsif ((substr($message,4,3) eq "056") or (substr($message,4,4) eq "0570") or (substr($message,4,4) eq "0575") or (substr($message,4,4) eq "03AE") or (substr($message,4,4) eq "03AF") or (substr($message,4,4) eq "03B0") or (substr($message,4,4) eq "03B1") or (substr($message,4,3) eq "092") ) {$message = hex(substr($message, 8,4))}
elsif ((substr($message,4,4) eq "0588") or (substr($message,4,4) eq "05A0") or (substr($message,4,4) eq "0571") or (substr($message,4,4) eq "0572") or (substr($message,4,4) eq "0573") or (substr($message,4,4) eq "0574")) {$message = hex(substr($message, 8,4)) ." min" } elsif ((substr($message,4,4) eq "0588") or (substr($message,4,4) eq "05A0") or (substr($message,4,4) eq "0571") or (substr($message,4,4) eq "0572") or (substr($message,4,4) eq "0573") or (substr($message,4,4) eq "0574")) {$message = hex(substr($message, 8,4)) ." min" }
elsif (substr($message,4,3) eq "057") {$message = hex(substr($message, 8,4)) ." m3/h" } elsif (substr($message,4,3) eq "057") {$message = hex(substr($message, 8,4)) ." m3/h" }
elsif (substr($message,4,4) eq "05A2") {$message = hex(substr($message, 8,4))/10 ." K" } elsif (substr($message,4,4) eq "05A2") {$message = hex(substr($message, 8,4))/10 ." K" }
@ -1163,6 +1168,10 @@ sub THZ_Undef($$) {
DevIo_CloseDev($hash); DevIo_CloseDev($hash);
return undef; return undef;
} }
##################################### #####################################
# sub THZ_PrintcurveSVG # sub THZ_PrintcurveSVG
# plots heat curve # plots heat curve
@ -1215,14 +1224,14 @@ polyline { stroke:black; fill:none; }
</defs> </defs>
<rect x="48" y="19.2" width="704" height="121.6" rx="8" ry="8" fill="none" class="border"/> <rect x="48" y="19.2" width="704" height="121.6" rx="8" ry="8" fill="none" class="border"/>
<text x="12" y="80" text-anchor="middle" class="ylabel" transform="rotate(270,12,80)">HC1 heat SetTemp °C</text> <text x="12" y="80" text-anchor="middle" class="ylabel" transform="rotate(270,12,80)">HC1 heat SetTemp °C</text>
<text x="399" y="163" class="xlabel" text-anchor="middle">outside temperature filtered °C</text> <text x="399" y="163.2" class="xlabel" text-anchor="middle">outside temperature filtered °C</text>
<text x="44" y="156.8" class="ylabel" text-anchor="middle">-15</text> <text x="44" y="155" class="ylabel" text-anchor="middle">-15</text>
<text x="165" y="156" class="ylabel" text-anchor="middle">-9</text> <polyline points="165,19.2 165,140.8" class="hgrid"/> <text x="165" y="155" class="ylabel" text-anchor="middle">-9</text> <polyline points="165,19.2 165,140.8" class="hgrid"/>
<text x="282" y="156" class="ylabel" text-anchor="middle">-3</text> <polyline points="282,19.2 282,140.8" class="hgrid"/> <text x="282" y="155" class="ylabel" text-anchor="middle">-3</text> <polyline points="282,19.2 282,140.8" class="hgrid"/>
<text x="399" y="156" class="ylabel" text-anchor="middle">3</text> <polyline points="399,19.2 399,140.8" class="hgrid"/> <text x="399" y="155" class="ylabel" text-anchor="middle">3</text> <polyline points="399,19.2 399,140.8" class="hgrid"/>
<text x="517" y="156" class="ylabel" text-anchor="middle">9</text> <polyline points="517,19.2 517,140.8" class="hgrid"/> <text x="517" y="155" class="ylabel" text-anchor="middle">9</text> <polyline points="517,19.2 517,140.8" class="hgrid"/>
<text x="634" y="156" class="ylabel" text-anchor="middle">15</text> <polyline points="634,19.2 634,140.8" class="hgrid"/> <text x="634" y="155" class="ylabel" text-anchor="middle">15</text> <polyline points="634,19.2 634,140.8" class="hgrid"/>
<text x="751" y="156" class="ylabel" text-anchor="middle">21</text> <polyline points="751,19.2 751,140.8" class="hgrid"/> <text x="751" y="155" class="ylabel" text-anchor="middle">21</text> <polyline points="751,19.2 751,140.8" class="hgrid"/>
<g> <g>
<polyline points="44,140 49,140"/> <text x="39.2" y="144" class="ylabel" text-anchor="end">15</text> <polyline points="44,140 49,140"/> <text x="39.2" y="144" class="ylabel" text-anchor="end">15</text>
<polyline points="44,110 49,110"/> <text x="39.2" y="114" class="ylabel" text-anchor="end">23</text> <polyline points="44,110 49,110"/> <text x="39.2" y="114" class="ylabel" text-anchor="end">23</text>
@ -1237,8 +1246,6 @@ polyline { stroke:black; fill:none; }
<polyline points="751,49 756,49"/> <text x="760.8" y="53" class="ylabel">39</text> <polyline points="751,49 756,49"/> <text x="760.8" y="53" class="ylabel">39</text>
<polyline points="751,19 756,19"/> <text x="760.8" y="23" class="ylabel">47</text> <polyline points="751,19 756,19"/> <text x="760.8" y="23" class="ylabel">47</text>
</g> </g>
<text line_id="line_0" x="100" y="105.2" class="l0">Actual working point</text>
<text line_id="line_1" x="100" y="121.2" class="l1">Heat curve</text>
END END
@ -1252,26 +1259,30 @@ my $b= -14 * $p13GradientHC1 / $roomSetTemp;
my $c= -1 * $p13GradientHC1 /75; my $c= -1 * $p13GradientHC1 /75;
my $Simul_heatSetTemp; my $Simul_heatSetTemp;
#labels ######################
$ret .= '<text line_id="line_1" x="70" y="105.2" class="l1"> --- heat curve</text>' ;
$ret .= '<text line_id="line_0" x="70" y="121.2" class="l0"> --- working point: outside_tempFiltered=';
$ret .= $outside_tempFiltered . ' heatSetTemp=' . $heatSetTemp . '</text>';
$ret .='<polyline id="line_0" title="Actual Working point" style="stroke-width:2" class="l0" points="'; #title ######################
$ret .= '<text id="svg_title" x="400" y="14.4" class="title" text-anchor="middle">';
$ret .= 'roomSetTemp=' . $roomSetTemp . ' p13GradientHC1=' . $p13GradientHC1 . ' p14LowEnDHC1= ' . $p14LowEnDHC1 . '</text>';
#point ######################
$ret .='<polyline id="line_0" style="stroke-width:2" class="l0" points="';
my ($px,$py) = ((($outside_tempFiltered+15)*(750-49)/(15+21)+49),(($heatSetTemp-47)*(140-19)/(15-47)+19)); my ($px,$py) = ((($outside_tempFiltered+15)*(750-49)/(15+21)+49),(($heatSetTemp-47)*(140-19)/(15-47)+19));
$ret.= ($px-3) . "," . ($py) ." "; $ret.= ($px-3) . "," . ($py) ." " . ($px) . "," . ($py-3) ." " . ($px+3) . "," . ($py) ." " . ($px) . "," . ($py+3) ." " . ($px-3) . "," . ($py) ." " . '"/>';
$ret.= ($px) . "," . ($py-3) ." ";
$ret.= ($px+3) . "," . ($py) ." ";
$ret.= ($px) . "," . ($py+3) ." ";
$ret.= ($px-3) . "," . ($py) ." ";
$ret .= '"/>';
#curve ######################
$ret .='<polyline id="line_1" title="Heat Curve" class="l1" points="'; $ret .='<polyline id="line_1" title="Heat Curve" class="l1" points="';
for(my $i = -15; $i < 22; $i++) { for(my $i = -15; $i < 22; $i++) {
$Simul_heatSetTemp = $i * $i * $c + $i * $b + $a; $Simul_heatSetTemp = $i * $i * $c + $i * $b + $a;
$ret.= (($i+15)*(750-49)/(15+21)+49) . "," . (($Simul_heatSetTemp-47)*(140-19)/(15-47)+19) ." "; $ret.= (($i+15)*(750-49)/(15+21)+49) . "," . (($Simul_heatSetTemp-47)*(140-19)/(15-47)+19) ." ";
} }
$ret .= '"/> </svg>'; $ret .= '"/> </svg>';
my $FW_RETTYPE = "image/svg+xml"; my $FW_RETTYPE = "image/svg+xml";
return ($FW_RETTYPE, $ret); return ($FW_RETTYPE, $ret);
#return $ret; #return $ret;