FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-10 09:16:53 +00:00
Code Issues Releases Wiki Activity

70_PylonLowVoltage: contrib V0.1.2

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@27869 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2023-08-21 14:48:42 +00:00
parent e4fa529477
commit 8ba8a49bde
1 changed files with 39 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -57,6 +57,7 @@ use IO::Socket::INET;
use Errno qw(ETIMEDOUT EWOULDBLOCK);
use Scalar::Util qw(looks_like_number);
use Carp qw(croak carp);
use utf8;
eval "use FHEM::Meta;1" or my $modMetaAbsent = 1; ## no critic 'eval'
eval "use IO::Socket::Timeout;1" or my $iostAbsent = 1; ## no critic 'eval'
@ -143,7 +144,7 @@ my %hrtnc = ( # RTN Codes
'06' => { desc => 'invalid data' },
'90' => { desc => 'ADR error' },
'91' => { desc => 'Communication error between Master and Slave Pack' },
'99' => { desc => 'unknown error code, data are discarded' },
'99' => { desc => 'invalid data received, data are discarded' },
);
##################################################################################################################################################################
@ -561,6 +562,8 @@ sub _callSerialNumber {
return $rtnerr;
}
__resultLog ($hash, $res);
my $sernum = substr ($res, 15, 32);
$readings->{serialNumber} = pack ("H*", $sernum);
@ -588,6 +591,8 @@ sub _callManufacturerInfo {
return $rtnerr;
}
__resultLog ($hash, $res);
my $BatteryHex = substr ($res, 13, 20);
$readings->{batteryType} = pack ("H*", $BatteryHex);
$readings->{softwareVersion} = 'V'.hex (substr ($res, 33, 2)).'.'.hex (substr ($res, 35, 2)); #
@ -618,6 +623,8 @@ sub _callProtocolVersion {
return $rtnerr;
}
__resultLog ($hash, $res);
$readings->{protocolVersion} = 'V'.hex (substr ($res, 1, 1)).'.'.hex (substr ($res, 2, 1));
return;
@ -644,6 +651,8 @@ sub _callSoftwareVersion {
return $rtnerr;
}
__resultLog ($hash, $res);
$readings->{moduleSoftwareVersion_manufacture} = 'V'.hex (substr ($res, 15, 2)).'.'.hex (substr ($res, 17, 2));
$readings->{moduleSoftwareVersion_mainline} = 'V'.hex (substr ($res, 19, 2)).'.'.hex (substr ($res, 21, 2)).'.'.hex (substr ($res, 23, 2));
@ -671,6 +680,8 @@ sub _callSystemParameters {
return $rtnerr;
}
__resultLog ($hash, $res);
$readings->{paramCellHighVoltLimit} = sprintf "%.3f", (hex substr ($res, 15, 4)) / 1000;
$readings->{paramCellLowVoltLimit} = sprintf "%.3f", (hex substr ($res, 19, 4)) / 1000; # Alarm Limit
$readings->{paramCellUnderVoltLimit} = sprintf "%.3f", (hex substr ($res, 23, 4)) / 1000; # Schutz Limit
@ -708,6 +719,8 @@ sub _callAlarmInfo {
return $rtnerr;
}
__resultLog ($hash, $res);
$readings->{packCellcount} = hex (substr($res, 17, 2));
if (substr($res, 19, 30) eq "000000000000000000000000000000" &&
@ -744,6 +757,8 @@ sub _callChargeManagmentInfo {
return $rtnerr;
}
__resultLog ($hash, $res);
$readings->{chargeVoltageLimit} = sprintf "%.3f", hex (substr ($res, 15, 4)) / 1000; # Genauigkeit 3
$readings->{dischargeVoltageLimit} = sprintf "%.3f", hex (substr ($res, 19, 4)) / 1000; # Genauigkeit 3
$readings->{chargeCurrentLimit} = sprintf "%.1f", hex (substr ($res, 23, 4)) / 10; # Genauigkeit 1
@ -783,6 +798,8 @@ sub _callAnalogValue {
return $rtnerr;
}
__resultLog ($hash, $res);
$readings->{packCellcount} = hex (substr($res, 17, 2));
$readings->{cellVoltage_01} = sprintf "%.3f", hex(substr($res,19,4)) / 1000;
$readings->{cellVoltage_02} = sprintf "%.3f", hex(substr($res,23,4)) / 1000;
@ -838,6 +855,21 @@ sub _callAnalogValue {
return;
}
###############################################################
# Logausgabe Result
###############################################################
sub __resultLog {
my $hash = shift;
my $res = shift;
my $name = $hash->{NAME};
Log3 ($name, 5, "$name - data returned raw: ".$res);
Log3 ($name, 5, "$name - data returned:\n" .Hexdump ($res));
return;
}
###############################################################
# PylonLowVoltage Request
###############################################################
@ -866,7 +898,6 @@ sub Reread {
my $socket = shift;
my $singlechar;
my $name = $hash->{NAME};
my $res = q{};
do {
@ -880,9 +911,6 @@ sub Reread {
} while (length($res) == 0 || ord($singlechar) != 13);
Log3 ($name, 5, "$name - data returned raw: ".$res);
Log3 ($name, 5, "$name - data returned:\n" .Hexdump ($res));
return $res;
}
@ -922,13 +950,14 @@ return $result;
sub respStat {
my $res = shift;
my $rst = substr($res,7,2);
my $rtn = q{_};
$rtn = substr($res,7,2) if($res && length($res) >= 10);
my $rtnerr = $hrtnc{99}{desc};
my $tail = (split "~", $res)[1];
return $rtnerr if(!$res || $res !~ /^[~A-Z0-9\r]+$/xs);
if(defined $hrtnc{$rst}{desc} && substr($res,0,1) eq '~' && $tail =~ /[[:xdigit:]]/g) {
$rtnerr = $hrtnc{$rst}{desc};
if(defined $hrtnc{$rtn}{desc} && substr($res, 0, 1) eq '~') {
$rtnerr = $hrtnc{$rtn}{desc};
return if($rtnerr eq 'normal');
}