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

Pest, Tue Apr 10 20:31:22 MEST 2007

Browse Source 
em1010.pl:
  - Introduced new double-word function (dw)
  - getDevStatus: energy values kWh/h, kWh/d, total.


git-svn-id: https://svn.fhem.de/fhem/trunk@46 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
pest 2007-04-10 18:32:42 +00:00
parent 1836fc175f
commit 4c7783fec7
2 changed files with 30 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
fhem/HISTORY
View File

@ -74,3 +74,8 @@
- setTime: Without argument, now the current time of the PC is used. - setTime: Without argument, now the current time of the PC is used.
- setRperKW: Factor of 10 required, 75 U/kWh -> 750. - setRperKW: Factor of 10 required, 75 U/kWh -> 750.
- Pest, Tue Apr 10 20:31:22 MEST 2007
em1010.pl:
- Introduced new double-word function (dw)
- getDevStatus: energy values kWh/h, kWh/d, total.

30
fhem/contrib/em1010.pl
View File

@ -83,6 +83,14 @@ w($$)
return b($t,$p+1)*256 + b($t,$p); return b($t,$p+1)*256 + b($t,$p);
} }
#########################
sub
dw($$)
{
my ($t,$p) = @_;
return w($t,$p+2)*65536 + w($t,$p);
}
######################### #########################
sub sub
docrc($$) docrc($$)
@ -246,26 +254,38 @@ getDevStatus()
my $ec=w($d,49) / 10; my $ec=w($d,49) / 10;
my $cur_energy=0; my $cur_energy=0;
my $cur_power=0; my $cur_power=0;
my $sum_h_energy=0;
my $sum_d_energy=0;
my $total_energy=0;
my $iec=0;
printf(" Readings (off 02): %d\n", w($d,2)); printf(" Readings (off 02): %d\n", w($d,2));
printf(" Nr devs (off 05): %d\n", b($d,6)); printf(" Nr devs (off 05): %d\n", b($d,6));
printf(" puls/5min (off 13): %d\n", $pulses); printf(" puls/5min (off 13): %d\n", $pulses);
printf(" Startblk (off 18): %d\n", b($d,18)+13); printf(" Startblk (off 18): %d\n", b($d,18)+13);
#for (my $lauf = 19; $lauf < 45; $lauf += 2) {
# printf(" t wert (off $lauf): %d\n", w($d,$lauf));
#}
# The data must interpreted depending on the sensor type. # The data must interpreted depending on the sensor type.
# Currently we use the EC value to quess the sensor type. # Currently we use the EC value to quess the sensor type.
if ($ec eq 0) { if ($ec eq 0) {
# Sensor 5.. # Sensor 5..
$cur_energy = w($d,33)/ 1000; $iec = 1000;
$cur_power = $pulses / 100; $cur_power = $pulses / 100;
printf(" cur.energy(off ): %.3f kWh/h\n", $cur_energy);
printf(" cur.power (off ): %.3f kW avr.\n", $cur_power);
} else { } else {
# Sensor 1..4 # Sensor 1..4
$iec = $ec;
$cur_energy = $pulses / $ec; # ec = U/kWh $cur_energy = $pulses / $ec; # ec = U/kWh
$cur_power = w($d,33) / 50; #### Still wrong. $cur_power = $cur_energy / 5 * 60; # 5minute interval scaled to 1h
printf(" cur.energy(off ): %.3f kWh\n", $cur_energy); printf(" cur.energy(off ): %.3f kWh\n", $cur_energy);
printf(" cur.power (off ): %.3f kW avr.\n", $cur_power);
} }
$sum_h_energy= dw($d,33) / $iec; # 33= pulses this our
$sum_d_energy= dw($d,37) / $iec; # 37= pulses today
$total_energy= dw($d,41) / $iec; # 41= pulses total
printf(" cur.power (off ): %.3f kW avr.\n", $cur_power);
printf(" energy(off 33): %.3f kWh/h\n", $sum_h_energy);
printf(" energy(off 37): %.3f kWh/d\n", $sum_d_energy);
printf(" ttl energy(off 41): %.3f kWh (total)\n", $total_energy);
printf(" Alarm PA (off 45): %d W\n", w($d,45)); printf(" Alarm PA (off 45): %d W\n", w($d,45));
printf(" Price CF (off 47): %0.2f (EUR/KWH)\n", w($d,47)/10000); printf(" Price CF (off 47): %0.2f (EUR/KWH)\n", w($d,47)/10000);
printf(" R/KW EC (off 49): %d\n", $ec); printf(" R/KW EC (off 49): %d\n", $ec);