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

70_PylonLowVoltage: contrib 0.2.5

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@28737 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2024-04-02 16:18:20 +00:00
parent ff324a0e1e
commit a83163de26
1 changed files with 12 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
fhem/contrib/DS_Starter/70_PylonLowVoltage.pm
View File

@ -122,7 +122,8 @@ BEGIN {
# Versions History intern (Versions history by Heiko Maaz) # Versions History intern (Versions history by Heiko Maaz)
my %vNotesIntern = ( my %vNotesIntern = (
"0.2.5" => "01.04.2024 _callAnalogValue: more than 5 temperature positions (US5000) ", "0.2.5" => "02.04.2024 _callAnalogValue / _callAlarmInfo: integrate a Cell and Temperature Position counter ".
"more specific Alarm readings ",
"0.2.4" => "29.03.2024 avoid possible Illegal division by zero at line 1438 ", "0.2.4" => "29.03.2024 avoid possible Illegal division by zero at line 1438 ",
"0.2.3" => "19.03.2024 edit commandref ", "0.2.3" => "19.03.2024 edit commandref ",
"0.2.2" => "20.02.2024 correct commandref ", "0.2.2" => "20.02.2024 correct commandref ",
@ -1186,8 +1187,8 @@ sub _callAlarmInfo {
for my $cnt (1..$readings->{packCellcount}) { # Start Pos. 19 for my $cnt (1..$readings->{packCellcount}) { # Start Pos. 19
$cnt = sprintf "%02d", $cnt; $cnt = sprintf "%02d", $cnt;
$readings->{'AlmCellVoltage_'.$cnt} = substr ($res, $bpos, 2); $readings->{'almCellVoltage_'.$cnt} = substr ($res, $bpos, 2);
$alm = 1 if(int $readings->{'AlmCellVoltage_'.$cnt}); $alm = 1 if(int $readings->{'almCellVoltage_'.$cnt});
$bpos += 2; $bpos += 2;
} }
@ -1196,8 +1197,8 @@ sub _callAlarmInfo {
for my $nt (1..$ntp) { # Start Pos. 51 bei 15 Zellen for my $nt (1..$ntp) { # Start Pos. 51 bei 15 Zellen
$nt = sprintf "%02d", $nt; $nt = sprintf "%02d", $nt;
$readings->{'AlmTemperature_'.$nt} = substr ($res, $bpos, 2); $readings->{'almTemperature_'.$nt} = substr ($res, $bpos, 2);
$alm = 1 if(int $readings->{'AlmTemperature_'.$nt}); $alm = 1 if(int $readings->{'almTemperature_'.$nt});
$bpos += 2; $bpos += 2;
} }
@ -1227,9 +1228,9 @@ sub _callAlarmInfo {
my $stat5alm = substr ($res, $bpos, 2); # Pos. 75 b. 15 Zellen u. 5 Temp.positionen my $stat5alm = substr ($res, $bpos, 2); # Pos. 75 b. 15 Zellen u. 5 Temp.positionen
$readings->{AlmChargeCurrent} = $chcurralm; $readings->{almChargeCurrent} = $chcurralm;
$readings->{AlmModuleVoltage} = $modvoltalm; $readings->{almModuleVoltage} = $modvoltalm;
$readings->{AlmDischargeCurrent} = $dchcurralm; $readings->{almDischargeCurrent} = $dchcurralm;
if (!$alm) { if (!$alm) {
$readings->{packAlarmInfo} = "ok"; $readings->{packAlarmInfo} = "ok";
@ -1238,16 +1239,6 @@ sub _callAlarmInfo {
$readings->{packAlarmInfo} = "failure"; $readings->{packAlarmInfo} = "failure";
} }
# if (substr($res, 19, 30) eq "000000000000000000000000000000" &&
# substr($res, 51, 10) eq "0000000000" &&
# substr($res, 67, 2) eq "00" &&
# substr($res, 73, 4) eq "0000") {
# $readings->{packAlarmInfo} = "ok";
# }
# else {
# $readings->{packAlarmInfo} = "failure";
# }
my $name = $hash->{NAME}; my $name = $hash->{NAME};
if (AttrVal ($name, 'verbose', 3) > 4) { if (AttrVal ($name, 'verbose', 3) > 4) {
@ -1255,7 +1246,7 @@ sub _callAlarmInfo {
Log3 ($name, 5, "$name - Alarminfo - Status 2 Info: $stat2alm"); Log3 ($name, 5, "$name - Alarminfo - Status 2 Info: $stat2alm");
Log3 ($name, 5, "$name - Alarminfo - Status 3 Info: $stat3alm"); Log3 ($name, 5, "$name - Alarminfo - Status 3 Info: $stat3alm");
Log3 ($name, 5, "$name - Alarminfo - Status 4 alarm: $stat4alm"); Log3 ($name, 5, "$name - Alarminfo - Status 4 alarm: $stat4alm");
Log3 ($name, 5, "$name - Alarminfo - Status 5 alarm: $stat5alm"); Log3 ($name, 5, "$name - Alarminfo - Status 5 alarm: $stat5alm \n");
} }
return; return;
} }
@ -1457,7 +1448,7 @@ sub pseudoHexToText {
my $charcode; my $charcode;
my $text = ''; my $text = '';
for (my $i = 0; $i < length($string); $i = $i + 2) { for (my $i = 0; $i < length($string); $i += 2) {
$charcode = hex substr ($string, $i, 2); # charcode = aquivalente Dezimalzahl der angegebenen Hexadezimalzahl $charcode = hex substr ($string, $i, 2); # charcode = aquivalente Dezimalzahl der angegebenen Hexadezimalzahl
next if($charcode == 45); # Hyphen '-' ausblenden next if($charcode == 45); # Hyphen '-' ausblenden