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

76_SMAInverter.pm: contrib 2.15.0

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@24633 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2021-06-14 15:28:57 +00:00
parent 0d20e2e7ed
commit b31665a435
1 changed files with 22 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
fhem/contrib/DS_Starter/76_SMAInverter.pm
View File

@ -1372,23 +1372,6 @@ sub SMAInverter_SMAcommand($$$$$) {
return (1,$inv_SPOT_UAC1,$inv_SPOT_UAC2,$inv_SPOT_UAC3,$inv_SPOT_IAC1,$inv_SPOT_IAC2,$inv_SPOT_IAC3,$inv_susyid,$inv_serial);
}
if($data_ID eq 0x491E) {
$inv_BAT_CYCLES = unpack("V*", substr $data, 62, 4);
$inv_BAT_TEMP = unpack("V*", substr $data, 90, 4) / 10;
$inv_BAT_UDC = unpack("V*", substr $data, 118, 4) / 100;
$inv_BAT_IDC = unpack("l*", substr $data, 146, 4);
if($inv_BAT_IDC eq -2147483648) { # Catch 0x80000000 as 0 value
$inv_BAT_IDC = 0;
}
else {
$inv_BAT_IDC = $inv_BAT_IDC / 1000;
}
Log3 $name, 5, "$name - Found Data BAT_CYCLES=$inv_BAT_CYCLES and BAT_TEMP=$inv_BAT_TEMP and BAT_UDC=$inv_BAT_UDC and BAT_IDC=$inv_BAT_IDC";
return (1,$inv_BAT_CYCLES,$inv_BAT_TEMP,$inv_BAT_UDC,$inv_BAT_IDC,$inv_susyid,$inv_serial);
}
if($data_ID eq 0x495B) {
$inv_BAT_TEMP = unpack("V*", substr $data, 62, 4) / 10;
$inv_BAT_TEMP_A = unpack("V*", substr $data, 66, 4) / 10;
@ -1408,14 +1391,31 @@ sub SMAInverter_SMAcommand($$$$$) {
}
if($data_ID eq 0x495D) {
$inv_BAT_IDC = unpack("V*", substr $data, 62, 4) / 100;
$inv_BAT_IDC_A = unpack("V*", substr $data, 66, 4) / 100;
$inv_BAT_IDC_B = unpack("V*", substr $data, 70, 4) / 100;
$inv_BAT_IDC_C = unpack("V*", substr $data, 74, 4) / 100;
$inv_BAT_IDC = unpack("l*", substr $data, 62, 4) / 1000;
$inv_BAT_IDC_A = unpack("l*", substr $data, 66, 4) / 1000;
$inv_BAT_IDC_B = unpack("l*", substr $data, 70, 4) / 1000;
$inv_BAT_IDC_C = unpack("l*", substr $data, 74, 4) / 1000;
Log3 $name, 5, "$name - Found Data and BAT_IDC=$inv_BAT_IDC and BAT_IDC_A=$inv_BAT_IDC_A and BAT_IDC_B=$inv_BAT_IDC_B and BAT_IDC_C=$inv_BAT_IDC_C";
return (1,$inv_BAT_IDC,$inv_BAT_IDC_A,$inv_BAT_IDC_B,$inv_BAT_IDC_C,$inv_susyid,$inv_serial);
}
if($data_ID eq 0x491E) {
$inv_BAT_CYCLES = unpack("V*", substr $data, 62, 4);
$inv_BAT_TEMP = unpack("V*", substr $data, 90, 4) / 10;
$inv_BAT_UDC = unpack("V*", substr $data, 118, 4) / 100;
$inv_BAT_IDC = unpack("l*", substr $data, 146, 4);
if($inv_BAT_IDC eq -2147483648) { # Catch 0x80000000 as 0 value
$inv_BAT_IDC = 0;
}
else {
$inv_BAT_IDC = $inv_BAT_IDC / 1000;
}
Log3 $name, 5, "$name - Found Data BAT_CYCLES=$inv_BAT_CYCLES and BAT_TEMP=$inv_BAT_TEMP and BAT_UDC=$inv_BAT_UDC and BAT_IDC=$inv_BAT_IDC";
return (1,$inv_BAT_CYCLES,$inv_BAT_TEMP,$inv_BAT_UDC,$inv_BAT_IDC,$inv_susyid,$inv_serial);
}
if($data_ID eq 0x495F) {
$inv_BAT_CYCLES = unpack("V*", substr $data, 62, 4);
$inv_BAT_TEMP = unpack("V*", substr $data, 90, 4) / 10;