mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-04-22 08:11:44 +00:00
36_Vallox: Added Bus Version Handling. Misc Bugfixes.
git-svn-id: https://svn.fhem.de/fhem/trunk@14590 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
Skjall
parent
865e45e379
commit
96977a11b2
@ -1,5 +1,6 @@
|
|||||||
# Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
|
# Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
|
||||||
# Do not insert empty lines here, update check depends on it.
|
# Do not insert empty lines here, update check depends on it.
|
||||||
|
- bugfix: 36_Vallox: Added Bus Version Handling. Misc Bugfixes.
|
||||||
- bugfix: 32_withings: temporary fix of login function before rewrite
|
- bugfix: 32_withings: temporary fix of login function before rewrite
|
||||||
- bugfix: 93_DbRep: V5.2.1, bugfix in sqlCmd to support PRAGMA, UTF8
|
- bugfix: 93_DbRep: V5.2.1, bugfix in sqlCmd to support PRAGMA, UTF8
|
||||||
- feature: 93_DbLog: V2.17.1, optional UTF-8 support for MySQL database
|
- feature: 93_DbLog: V2.17.1, optional UTF-8 support for MySQL database
|
||||||
|
|||||||
@ -5,7 +5,7 @@
|
|||||||
#
|
#
|
||||||
# @Author Skjall
|
# @Author Skjall
|
||||||
# @Created 21.07.2016 10:18:23
|
# @Created 21.07.2016 10:18:23
|
||||||
# @Version 1.3.0
|
# @Version 1.4.0
|
||||||
#
|
#
|
||||||
# The modul reads and writes parameters via RS485 from and to a Vallox
|
# The modul reads and writes parameters via RS485 from and to a Vallox
|
||||||
# ventilation bus.
|
# ventilation bus.
|
||||||
@ -42,10 +42,13 @@ use warnings;
|
|||||||
# Global Variables
|
# Global Variables
|
||||||
##############################################
|
##############################################
|
||||||
|
|
||||||
|
my %Vallox_datatypes;
|
||||||
|
my %Vallox_datatypesReverse;
|
||||||
|
|
||||||
##################################
|
##################################
|
||||||
# List of Datatyps of the Vallox bus
|
# List of Datatyps of the Vallox bus
|
||||||
##################################
|
##################################
|
||||||
my %Vallox_datatypes = (
|
my %Vallox_datatypes_base = (
|
||||||
"06" => "FanSpeed-Relays",
|
"06" => "FanSpeed-Relays",
|
||||||
"07" => "MultiPurpose1",
|
"07" => "MultiPurpose1",
|
||||||
"08" => "MultiPurpose2",
|
"08" => "MultiPurpose2",
|
||||||
@ -92,9 +95,9 @@ my %Vallox_datatypes = (
|
|||||||
"A9" => "FanSpeedMin",
|
"A9" => "FanSpeedMin",
|
||||||
"AA" => "Program",
|
"AA" => "Program",
|
||||||
"AB" => "MaintencanceCountdownMonths",
|
"AB" => "MaintencanceCountdownMonths",
|
||||||
|
|
||||||
"AE" => "BasicHumidityLevel",
|
"AE" => "BasicHumidityLevel",
|
||||||
"AF" => "HeatRecoveryCellBypassSetpointTemperature",
|
"AF" => "HeatRecoveryCellBypassSetpointTemperature",
|
||||||
|
|
||||||
"B0" => "DCFanInputAdjustment",
|
"B0" => "DCFanInputAdjustment",
|
||||||
"B1" => "DCFanOutputAdjustment",
|
"B1" => "DCFanOutputAdjustment",
|
||||||
"B2" => "CellDefrostingSetpointTemperature",
|
"B2" => "CellDefrostingSetpointTemperature",
|
||||||
@ -108,12 +111,26 @@ my %Vallox_datatypes = (
|
|||||||
"C8" => "Initial4",
|
"C8" => "Initial4",
|
||||||
"C9" => "Initial5",
|
"C9" => "Initial5",
|
||||||
);
|
);
|
||||||
my %Vallox_datatypesReverse = reverse %Vallox_datatypes;
|
my %Vallox_datatypesReverse_base = reverse %Vallox_datatypes_base;
|
||||||
|
|
||||||
|
|
||||||
|
my %Vallox_datatypes_legacy1 = (
|
||||||
|
"49" => "Legacy49", # Unknown legacy Reading
|
||||||
|
"4A" => "Legacy4A", # Unknown legacy Reading
|
||||||
|
"4C" => "Legacy4C", # Unknown legacy Reading
|
||||||
|
"53" => "Legacy53", # Unknown legacy Reading
|
||||||
|
"54" => "Legacy54", # Unknown legacy Reading
|
||||||
|
"58" => "Legacy58", # Unknown legacy Reading
|
||||||
|
"5A" => "Legacy5A", # Unknown legacy Reading
|
||||||
|
"5B" => "Legacy5B", # Unknown legacy Reading
|
||||||
|
"5C" => "Legacy5C", # Unknown legacy Reading
|
||||||
|
);
|
||||||
|
my %Vallox_datatypesReverse_legacy1 = reverse %Vallox_datatypes_legacy1;
|
||||||
|
|
||||||
##################################
|
##################################
|
||||||
# Mapping of the fan speeds
|
# Mapping of the fan speeds
|
||||||
##################################
|
##################################
|
||||||
my %Vallox_fanSpeedTable = (
|
my %Vallox_levelTable = (
|
||||||
"01" => "1",
|
"01" => "1",
|
||||||
"03" => "2",
|
"03" => "2",
|
||||||
"07" => "3",
|
"07" => "3",
|
||||||
@ -123,7 +140,7 @@ my %Vallox_fanSpeedTable = (
|
|||||||
"7F" => "7",
|
"7F" => "7",
|
||||||
"FF" => "8",
|
"FF" => "8",
|
||||||
);
|
);
|
||||||
my %Vallox_fanSpeedTableReverse = reverse %Vallox_fanSpeedTable;
|
my %Vallox_levelTableReverse = reverse %Vallox_levelTable;
|
||||||
|
|
||||||
##################################
|
##################################
|
||||||
# Mapping of the temperatures
|
# Mapping of the temperatures
|
||||||
@ -366,7 +383,7 @@ sub Vallox_ReplaceBit ($@) {
|
|||||||
##############################################
|
##############################################
|
||||||
# Update reading bulk for binary reading
|
# Update reading bulk for binary reading
|
||||||
##############################################
|
##############################################
|
||||||
sub Vallox_readingsBulkUpdateMultiReading($@) {
|
sub Vallox_ReadingsBulkUpdateMultiReading($@) {
|
||||||
my ($hash, $rawReadingType, $readingname, $bitnumber,) = @_;
|
my ($hash, $rawReadingType, $readingname, $bitnumber,) = @_;
|
||||||
|
|
||||||
readingsBulkUpdate($hash, $readingname, substr($hash->{"MR_".$Vallox_datatypes{$rawReadingType}},8-$bitnumber-1,1)); # if (ReadingsVal($hash->{NAME},$readingname,"unknown") ne substr($hash->{"MR_".$Vallox_datatypes{$rawReadingType}},8-$bitnumber-1,1));
|
readingsBulkUpdate($hash, $readingname, substr($hash->{"MR_".$Vallox_datatypes{$rawReadingType}},8-$bitnumber-1,1)); # if (ReadingsVal($hash->{NAME},$readingname,"unknown") ne substr($hash->{"MR_".$Vallox_datatypes{$rawReadingType}},8-$bitnumber-1,1));
|
||||||
@ -374,6 +391,386 @@ sub Vallox_readingsBulkUpdateMultiReading($@) {
|
|||||||
|
|
||||||
}
|
}
|
||||||
|
|
||||||
|
##############################################
|
||||||
|
# Interpret datagram and handle it
|
||||||
|
##############################################
|
||||||
|
sub Vallox_InterpretAndUpdate(@) {
|
||||||
|
|
||||||
|
my ($hash,$datagram) = @_;
|
||||||
|
|
||||||
|
my $name = $hash->{NAME};
|
||||||
|
|
||||||
|
my $rawReadingType;
|
||||||
|
my $rawReadingValue;
|
||||||
|
my $rawReadingChecksum;
|
||||||
|
my $singlereading = 1;
|
||||||
|
my $fineReadingValue = 1;
|
||||||
|
|
||||||
|
$datagram = uc($datagram);
|
||||||
|
|
||||||
|
# get the type of the datagram
|
||||||
|
$rawReadingType = substr($datagram,6,2);
|
||||||
|
|
||||||
|
# get the value of the datagram
|
||||||
|
$rawReadingValue = substr($datagram,8,2);
|
||||||
|
|
||||||
|
# get the value of the datagram
|
||||||
|
$rawReadingChecksum = substr($datagram,10,2);
|
||||||
|
|
||||||
|
if ($rawReadingType ne "00") {
|
||||||
|
|
||||||
|
# Decoding for the final readings.
|
||||||
|
# - rawReading... is the original information from the datagram
|
||||||
|
# - fineReading... is the human readable information
|
||||||
|
|
||||||
|
# Starting with the "One information in one datagram"-Section
|
||||||
|
|
||||||
|
# Convert FanSpeeds by the Vallox_levelTable
|
||||||
|
if ($rawReadingType eq "29" || $rawReadingType eq "A5" || $rawReadingType eq "A9") {
|
||||||
|
$fineReadingValue = $Vallox_levelTable{$rawReadingValue};
|
||||||
|
Log3 ($name, 4, "Vallox: Incoming Status-Info (FanSpeed): $datagram (Level $fineReadingValue)");
|
||||||
|
|
||||||
|
# Convert Temperatures by the Vallox_temperatureTable
|
||||||
|
} elsif ($rawReadingType eq "32" || $rawReadingType eq "33" || $rawReadingType eq "34" || $rawReadingType eq "35" || $rawReadingType eq "A4" || $rawReadingType eq "A7" || $rawReadingType eq "A8" || $rawReadingType eq "AF") {
|
||||||
|
|
||||||
|
if ( $rawReadingType eq "A4" && $hash->{BusVersion} eq "1") {
|
||||||
|
$fineReadingValue = $Vallox_levelTable{$rawReadingValue};
|
||||||
|
|
||||||
|
Log3 ($name, 4, "Vallox: Incoming Status-Info (HeatingSetPoint): $datagram (Level $fineReadingValue)");
|
||||||
|
return;
|
||||||
|
} else {
|
||||||
|
$fineReadingValue = $Vallox_temperatureTable{$rawReadingValue};
|
||||||
|
}
|
||||||
|
|
||||||
|
if (($rawReadingType eq "32" || $rawReadingType eq "33" || $rawReadingType eq "34" || $rawReadingType eq "35") && $fineReadingValue < -40) {
|
||||||
|
Log3 ($name, 4, "Vallox: Incoming Status-Info (Temperature) invalid: $datagram ($fineReadingValue deg.)");
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
Log3 ($name, 4, "Vallox: Incoming Status-Info (Temperature): $datagram ($fineReadingValue deg.)");
|
||||||
|
|
||||||
|
# Convert Percentages by the Vallox_percentageTable
|
||||||
|
} elsif ($rawReadingType eq "AE") {
|
||||||
|
$fineReadingValue = $Vallox_percentageTable{$rawReadingValue};
|
||||||
|
Log3 ($name, 4, "Vallox: Incoming Status-Info (Percentage): $datagram ($fineReadingValue pct.)");
|
||||||
|
|
||||||
|
# Convert Faults by the Vallox_faultTable
|
||||||
|
} elsif ($rawReadingType eq "36") {
|
||||||
|
$fineReadingValue = $Vallox_faultTable{$rawReadingValue};
|
||||||
|
Log3 ($name, 4, "Vallox: Incoming Status-Info (Fault): $datagram ($fineReadingValue)");
|
||||||
|
|
||||||
|
# Convert Decimal Values
|
||||||
|
} elsif ($rawReadingType eq "2B" || $rawReadingType eq "2C" || $rawReadingType eq "2E" || $rawReadingType eq "57" || $rawReadingType eq "A6" || $rawReadingType eq "79" || $rawReadingType eq "8F" || $rawReadingType eq "91" || $rawReadingType eq "AB" || $rawReadingType eq "B0" || $rawReadingType eq "B1" || $rawReadingType eq "B3" || $rawReadingType eq "B4") {
|
||||||
|
$fineReadingValue = sprintf("%d", hex "0x".$rawReadingValue);
|
||||||
|
Log3 ($name, 4, "Vallox: Incoming Status-Info (Decimal): $datagram ($fineReadingValue)");
|
||||||
|
|
||||||
|
# Convert PostHeating Time Values
|
||||||
|
} elsif ($rawReadingType eq "55" || $rawReadingType eq "56") {
|
||||||
|
$fineReadingValue = sprintf("%d", hex "0x".$rawReadingValue)/2.5;
|
||||||
|
Log3 ($name, 4, "Vallox: Incoming Status-Info (PostHeatingCounter): $datagram ($fineReadingValue)");
|
||||||
|
|
||||||
|
# Convert CellDefrostingSetpointTemperature Values
|
||||||
|
} elsif ($rawReadingType eq "B2") {
|
||||||
|
$fineReadingValue = sprintf("%d", hex "0x".$rawReadingValue)/3;
|
||||||
|
Log3 ($name, 4, "Vallox: Incoming Status-Info (CellDefrostingSetpointTemperature): $datagram ($fineReadingValue)");
|
||||||
|
|
||||||
|
# Convert measured humidity by formula (if it is negative then you don't have a humidity sensor)
|
||||||
|
} elsif ($rawReadingType eq "2A" || $rawReadingType eq "2F" || $rawReadingType eq "30") {
|
||||||
|
$fineReadingValue = (sprintf("%d", hex "0x".$rawReadingValue)-51)/2.04;
|
||||||
|
|
||||||
|
# Negative Humidity impossible: No Sensor attatched
|
||||||
|
if ($fineReadingValue < 0) {
|
||||||
|
Log3 ($name, 4, "Vallox: Incoming Status-Info (Humidity) invalid: $datagram ($fineReadingValue Perc. rH)");
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
Log3 ($name, 4, "Vallox: Incoming Status-Info (Humidity): $datagram ($fineReadingValue pct. rH)");
|
||||||
|
|
||||||
|
# Starting with the "Up to eight informations in one datagram"-Section
|
||||||
|
# Disabled lines are unused.
|
||||||
|
|
||||||
|
# FanSpeed-Relays
|
||||||
|
} elsif ($rawReadingType eq "06") {
|
||||||
|
|
||||||
|
$hash->{"MR_".$Vallox_datatypes{$rawReadingType}} = sprintf('%08b', hex("0x".$rawReadingValue));
|
||||||
|
|
||||||
|
$singlereading = 0;
|
||||||
|
readingsBeginUpdate($hash);
|
||||||
|
Vallox_ReadingsBulkUpdateMultiReading($hash, $rawReadingType, "Speed1", 0); #RO
|
||||||
|
Vallox_ReadingsBulkUpdateMultiReading($hash, $rawReadingType, "Speed2", 1); #RO
|
||||||
|
Vallox_ReadingsBulkUpdateMultiReading($hash, $rawReadingType, "Speed3", 2); #RO
|
||||||
|
Vallox_ReadingsBulkUpdateMultiReading($hash, $rawReadingType, "Speed4", 3); #RO
|
||||||
|
Vallox_ReadingsBulkUpdateMultiReading($hash, $rawReadingType, "Speed5", 4); #RO
|
||||||
|
Vallox_ReadingsBulkUpdateMultiReading($hash, $rawReadingType, "Speed6", 5); #RO
|
||||||
|
Vallox_ReadingsBulkUpdateMultiReading($hash, $rawReadingType, "Speed7", 6); #RO
|
||||||
|
Vallox_ReadingsBulkUpdateMultiReading($hash, $rawReadingType, "Speed8", 7); #RO
|
||||||
|
readingsEndUpdate($hash, 1);
|
||||||
|
|
||||||
|
Log3 ($name, 4, "Vallox: Incoming Status-Info (FanSpeed-Relays): $datagram (Bits ".$hash->{"MR_".$Vallox_datatypes{$rawReadingType}}.")");
|
||||||
|
|
||||||
|
# MultiPurpose1
|
||||||
|
} elsif ($rawReadingType eq "07") {
|
||||||
|
|
||||||
|
$hash->{"MR_".$Vallox_datatypes{$rawReadingType}} = sprintf('%08b', hex("0x".$rawReadingValue));
|
||||||
|
|
||||||
|
$singlereading = 0;
|
||||||
|
readingsBeginUpdate($hash);
|
||||||
|
Vallox_ReadingsBulkUpdateMultiReading($hash, $rawReadingType, "PostHeating", 5); # RO
|
||||||
|
readingsEndUpdate($hash, 1);
|
||||||
|
|
||||||
|
Log3 ($name, 4, "Vallox: Incoming Status-Info (MultiPurpose1): $datagram (Bits ".$hash->{"MR_".$Vallox_datatypes{$rawReadingType}}.")");
|
||||||
|
|
||||||
|
#MultiPurpose2
|
||||||
|
} elsif ($rawReadingType eq "08") {
|
||||||
|
|
||||||
|
$hash->{"MR_".$Vallox_datatypes{$rawReadingType}} = sprintf('%08b', hex("0x".$rawReadingValue));
|
||||||
|
|
||||||
|
$singlereading = 0;
|
||||||
|
readingsBeginUpdate($hash);
|
||||||
|
Vallox_ReadingsBulkUpdateMultiReading($hash, $rawReadingType, "DamperMotorPosition", 1); #RO
|
||||||
|
Vallox_ReadingsBulkUpdateMultiReading($hash, $rawReadingType, "FaultSignalRelay", 2); #RO
|
||||||
|
Vallox_ReadingsBulkUpdateMultiReading($hash, $rawReadingType, "SupplyFan", 3);
|
||||||
|
Vallox_ReadingsBulkUpdateMultiReading($hash, $rawReadingType, "PreHeating", 4); #RO
|
||||||
|
Vallox_ReadingsBulkUpdateMultiReading($hash, $rawReadingType, "ExhaustFan", 5);
|
||||||
|
Vallox_ReadingsBulkUpdateMultiReading($hash, $rawReadingType, "FireplaceBooster", 6); #RO
|
||||||
|
readingsEndUpdate($hash, 1);
|
||||||
|
|
||||||
|
Log3 ($name, 4, "Vallox: Incoming Status-Info (MultiPurpose2): $datagram (Bits ".$hash->{"MR_".$Vallox_datatypes{$rawReadingType}}.")");
|
||||||
|
|
||||||
|
#MachineInstalledCO2Sensor
|
||||||
|
} elsif ($rawReadingType eq "2D") {
|
||||||
|
|
||||||
|
$hash->{"MR_".$Vallox_datatypes{$rawReadingType}} = sprintf('%08b', hex("0x".$rawReadingValue));
|
||||||
|
|
||||||
|
$singlereading = 0;
|
||||||
|
readingsBeginUpdate($hash);
|
||||||
|
Vallox_ReadingsBulkUpdateMultiReading($hash, $rawReadingType, "CO2Sensor1", 1); #RO
|
||||||
|
Vallox_ReadingsBulkUpdateMultiReading($hash, $rawReadingType, "CO2Sensor2", 2); #RO
|
||||||
|
Vallox_ReadingsBulkUpdateMultiReading($hash, $rawReadingType, "CO2Sensor3", 3); #RO
|
||||||
|
Vallox_ReadingsBulkUpdateMultiReading($hash, $rawReadingType, "CO2Sensor4", 4); #RO
|
||||||
|
Vallox_ReadingsBulkUpdateMultiReading($hash, $rawReadingType, "CO2Sensor5", 5); #RO
|
||||||
|
readingsEndUpdate($hash, 1);
|
||||||
|
|
||||||
|
Log3 ($name, 4, "Vallox: Incoming Status-Info (MultiPurpose2): $datagram (Bits ".$hash->{"MR_".$Vallox_datatypes{$rawReadingType}}.")");
|
||||||
|
|
||||||
|
#Flags2
|
||||||
|
} elsif ($rawReadingType eq "6D") {
|
||||||
|
|
||||||
|
$hash->{"MR_".$Vallox_datatypes{$rawReadingType}} = sprintf('%08b', hex("0x".$rawReadingValue));
|
||||||
|
|
||||||
|
$singlereading = 0;
|
||||||
|
readingsBeginUpdate($hash);
|
||||||
|
Vallox_ReadingsBulkUpdateMultiReading($hash, $rawReadingType, "CO2HigherSpeedRequest", 0);
|
||||||
|
Vallox_ReadingsBulkUpdateMultiReading($hash, $rawReadingType, "CO2LowerRatePublicInvitation", 1);
|
||||||
|
Vallox_ReadingsBulkUpdateMultiReading($hash, $rawReadingType, "HumidityLowerRatePublicInvitation", 2);
|
||||||
|
Vallox_ReadingsBulkUpdateMultiReading($hash, $rawReadingType, "SwitchLowerSpeedRequest", 3);
|
||||||
|
Vallox_ReadingsBulkUpdateMultiReading($hash, $rawReadingType, "CO2Alarm", 6);
|
||||||
|
Vallox_ReadingsBulkUpdateMultiReading($hash, $rawReadingType, "FrostAlarmSensor", 7);
|
||||||
|
readingsEndUpdate($hash, 1);
|
||||||
|
|
||||||
|
Log3 ($name, 4, "Vallox: Incoming Status-Info (Flags2): $datagram (Bits ".$hash->{"MR_".$Vallox_datatypes{$rawReadingType}}.")");
|
||||||
|
|
||||||
|
#Flags4
|
||||||
|
} elsif ($rawReadingType eq "6F") {
|
||||||
|
|
||||||
|
$hash->{"MR_".$Vallox_datatypes{$rawReadingType}} = sprintf('%08b', hex("0x".$rawReadingValue));
|
||||||
|
|
||||||
|
$singlereading = 0;
|
||||||
|
readingsBeginUpdate($hash);
|
||||||
|
Vallox_ReadingsBulkUpdateMultiReading($hash, $rawReadingType, "FrostAlarmWaterRadiator", 4);
|
||||||
|
Vallox_ReadingsBulkUpdateMultiReading($hash, $rawReadingType, "MasterSlaveSelection", 7);
|
||||||
|
readingsEndUpdate($hash, 1);
|
||||||
|
|
||||||
|
Log3 ($name, 4, "Vallox: Incoming Status-Info (Flags4): $datagram (Bits ".$hash->{"MR_".$Vallox_datatypes{$rawReadingType}}.")");
|
||||||
|
|
||||||
|
#Flags5
|
||||||
|
} elsif ($rawReadingType eq "70") {
|
||||||
|
|
||||||
|
$hash->{"MR_".$Vallox_datatypes{$rawReadingType}} = sprintf('%08b', hex("0x".$rawReadingValue));
|
||||||
|
|
||||||
|
$singlereading = 0;
|
||||||
|
readingsBeginUpdate($hash);
|
||||||
|
Vallox_ReadingsBulkUpdateMultiReading($hash, $rawReadingType, "PreHeatingStatus", 7);
|
||||||
|
readingsEndUpdate($hash, 1);
|
||||||
|
|
||||||
|
Log3 ($name, 4, "Vallox: Incoming Status-Info (Flags5): $datagram (Bits ".$hash->{"MR_".$Vallox_datatypes{$rawReadingType}}.")");
|
||||||
|
|
||||||
|
#Flags6
|
||||||
|
} elsif ($rawReadingType eq "71") {
|
||||||
|
|
||||||
|
$hash->{"MR_".$Vallox_datatypes{$rawReadingType}} = sprintf('%08b', hex("0x".$rawReadingValue));
|
||||||
|
|
||||||
|
$singlereading = 0;
|
||||||
|
readingsBeginUpdate($hash);
|
||||||
|
Vallox_ReadingsBulkUpdateMultiReading($hash, $rawReadingType, "RemoteMonitoringControl", 4); #RO
|
||||||
|
Vallox_ReadingsBulkUpdateMultiReading($hash, $rawReadingType, "FireplaceSwitchActivation", 5);
|
||||||
|
Vallox_ReadingsBulkUpdateMultiReading($hash, $rawReadingType, "FireplaceBoosterStatus", 6); #RO
|
||||||
|
readingsEndUpdate($hash, 1);
|
||||||
|
|
||||||
|
Log3 ($name, 4, "Vallox: Incoming Status-Info (Flags6): $datagram (Bits ".$hash->{"MR_".$Vallox_datatypes{$rawReadingType}}.")");
|
||||||
|
|
||||||
|
# Select
|
||||||
|
} elsif ($rawReadingType eq "A3") {
|
||||||
|
|
||||||
|
$hash->{"MR_".$Vallox_datatypes{$rawReadingType}} = sprintf('%08b', hex("0x".$rawReadingValue));
|
||||||
|
|
||||||
|
$singlereading = 0;
|
||||||
|
readingsBeginUpdate($hash);
|
||||||
|
|
||||||
|
Vallox_ReadingsBulkUpdateMultiReading($hash, $rawReadingType, "PowerState", 0);
|
||||||
|
Vallox_ReadingsBulkUpdateMultiReading($hash, $rawReadingType, "CO2AdjustState", 1);
|
||||||
|
Vallox_ReadingsBulkUpdateMultiReading($hash, $rawReadingType, "RHAdjustState", 2);
|
||||||
|
Vallox_ReadingsBulkUpdateMultiReading($hash, $rawReadingType, "HeatingState", 3);
|
||||||
|
Vallox_ReadingsBulkUpdateMultiReading($hash, $rawReadingType, "FilterGuardIndicator", 4); #RO
|
||||||
|
Vallox_ReadingsBulkUpdateMultiReading($hash, $rawReadingType, "HeatingIndicator", 5); #RO
|
||||||
|
Vallox_ReadingsBulkUpdateMultiReading($hash, $rawReadingType, "FaultIndicator", 6); #RO
|
||||||
|
Vallox_ReadingsBulkUpdateMultiReading($hash, $rawReadingType, "ServiceReminderIndicator", 7);
|
||||||
|
|
||||||
|
readingsEndUpdate($hash, 1);
|
||||||
|
|
||||||
|
Log3 ($name, 4, "Vallox: Incoming Status-Info (Select): $datagram (Bits ".$hash->{"MR_".$Vallox_datatypes{$rawReadingType}}.")");
|
||||||
|
|
||||||
|
# Program
|
||||||
|
} elsif ($rawReadingType eq "AA") {
|
||||||
|
|
||||||
|
$hash->{"MR_".$Vallox_datatypes{$rawReadingType}} = sprintf('%08b', hex("0x".$rawReadingValue));
|
||||||
|
|
||||||
|
$singlereading = 0;
|
||||||
|
readingsBeginUpdate($hash);
|
||||||
|
# ----xxxx - Nibble is one value // # TODO: Adopt Function
|
||||||
|
readingsBulkUpdate($hash, "HumidityCO2AdjustmentInterval", oct("0b"."0000".substr($hash->{"MR_".$Vallox_datatypes{$rawReadingType}},4,4))) if (ReadingsVal($name,"HumidityCO2AdjustmentInterval","unknown") ne oct("0b"."0000".substr($hash->{"MR_".$Vallox_datatypes{$rawReadingType}},4,4)));
|
||||||
|
|
||||||
|
Vallox_ReadingsBulkUpdateMultiReading($hash, $rawReadingType, "AutomaticHumidityBasicLevelSeekerState", 4);
|
||||||
|
Vallox_ReadingsBulkUpdateMultiReading($hash, $rawReadingType, "BoostSwitchMode", 5);
|
||||||
|
Vallox_ReadingsBulkUpdateMultiReading($hash, $rawReadingType, "RadiatorType", 6);
|
||||||
|
Vallox_ReadingsBulkUpdateMultiReading($hash, $rawReadingType, "CascadeAdjust", 7);
|
||||||
|
readingsEndUpdate($hash, 1);
|
||||||
|
|
||||||
|
Log3 ($name, 4, "Vallox: Incoming Status-Info (Program): $datagram (Bits ".$hash->{"MR_".$Vallox_datatypes{$rawReadingType}}.")");
|
||||||
|
|
||||||
|
# Program2
|
||||||
|
} elsif ($rawReadingType eq "B5") {
|
||||||
|
|
||||||
|
$hash->{"MR_".$Vallox_datatypes{$rawReadingType}} = sprintf('%08b', hex("0x".$rawReadingValue));
|
||||||
|
|
||||||
|
$singlereading = 0;
|
||||||
|
readingsBeginUpdate($hash);
|
||||||
|
Vallox_ReadingsBulkUpdateMultiReading($hash, $rawReadingType, "MaxSpeedLimitFunction", 0);
|
||||||
|
readingsEndUpdate($hash, 1);
|
||||||
|
|
||||||
|
Log3 ($name, 4, "Vallox: Incoming Status-Info (Program2): $datagram (Bits ".$hash->{"MR_".$Vallox_datatypes{$rawReadingType}}.")");
|
||||||
|
|
||||||
|
# Convert Unused Binarys to bits (Just not to have Hex Readings)
|
||||||
|
} elsif ($rawReadingType eq "6C" || $rawReadingType eq "6E") {
|
||||||
|
|
||||||
|
$fineReadingValue = sprintf('%08b', hex("0x".$rawReadingValue));
|
||||||
|
|
||||||
|
Log3 ($name, 4, "Vallox: Incoming Status-Info (Unused Binary): $datagram (Bits $fineReadingValue)");
|
||||||
|
|
||||||
|
|
||||||
|
# Everything else
|
||||||
|
# All Readings shall be handled before
|
||||||
|
} else {
|
||||||
|
$fineReadingValue = $rawReadingValue;
|
||||||
|
$singlereading = 1;
|
||||||
|
|
||||||
|
Log3 ($name, 2, "Vallox: Incoming unhandled datagram: $datagram");
|
||||||
|
}
|
||||||
|
|
||||||
|
if($Vallox_datatypes{$rawReadingType}) {
|
||||||
|
if ($singlereading == 1) {
|
||||||
|
Log3 ($name, 5, "Vallox: Update Reading: $fineReadingValue");
|
||||||
|
|
||||||
|
readingsSingleUpdate($hash,$Vallox_datatypes{$rawReadingType}, $fineReadingValue, 1);
|
||||||
|
|
||||||
|
# Efficiency Calculation
|
||||||
|
# Is this Reading a Temp?
|
||||||
|
if (substr($Vallox_datatypes{$rawReadingType},0,4) eq "Temp") {
|
||||||
|
|
||||||
|
# If HRC is in Bypass - Efficiency is 0
|
||||||
|
if (ReadingsVal($name,"DamperMotorPosition",1) == 1) {
|
||||||
|
readingsSingleUpdate($hash,"EfficiencyIn", 0, 1);
|
||||||
|
readingsSingleUpdate($hash,"EfficiencyOut", 0, 1);
|
||||||
|
readingsSingleUpdate($hash,"EfficiencyAverage", 0, 1);
|
||||||
|
Log3 ($name, 5, "Vallox: Efficiency Override: HRC Bypass");
|
||||||
|
|
||||||
|
} else {
|
||||||
|
|
||||||
|
my ($EfficiencyIn,$EfficiencyOut,$TempIncoming,$TempOutside,$TempInside,$TempExhaust) = 0;
|
||||||
|
|
||||||
|
# Efficiency on Keep Temp Inside
|
||||||
|
# Do we have all nessecary Readings?
|
||||||
|
if (ReadingsVal($name,"TempIncoming","unknown") ne "unknown" &&
|
||||||
|
ReadingsVal($name,"TempOutside","unknown") ne "unknown" &&
|
||||||
|
ReadingsVal($name,"TempInside","unknown") ne "unknown") {
|
||||||
|
|
||||||
|
|
||||||
|
$TempIncoming = ReadingsVal($name,"TempIncoming",-100);
|
||||||
|
$TempOutside = ReadingsVal($name,"TempOutside",-100);
|
||||||
|
$TempInside = ReadingsVal($name,"TempInside",-100);
|
||||||
|
|
||||||
|
|
||||||
|
# Prevent DIV/0 (if Inside=Outside the HRC does nothing = 100% Efficient)
|
||||||
|
if ($TempInside-$TempOutside != 0) {
|
||||||
|
$EfficiencyIn = ($TempIncoming-$TempOutside)/($TempInside-$TempOutside)*100;
|
||||||
|
|
||||||
|
$EfficiencyIn = 100 if ($EfficiencyIn > 100);
|
||||||
|
|
||||||
|
Log3 ($name, 5, "Vallox: Efficiency Inside: (".$TempIncoming."-".$TempIncoming.")/(".$TempInside."-".$TempOutside.")*100 = ".$EfficiencyIn);
|
||||||
|
readingsSingleUpdate($hash,"EfficiencyIn", $EfficiencyIn, 1);
|
||||||
|
} else {
|
||||||
|
Log3 ($name, 5, "Vallox: Efficiency Inside (DIV/0 Prevention): (".$TempIncoming."-".$TempIncoming.")/(".$TempInside."-".$TempOutside.")*100 = 100");
|
||||||
|
readingsSingleUpdate($hash,"EfficiencyIn", 100, 1);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
# Efficiency on Keep Temp Outside
|
||||||
|
# Do we have all nessecary Readings?
|
||||||
|
if (ReadingsVal($name,"TempOutside","unknown") ne "unknown" &&
|
||||||
|
ReadingsVal($name,"TempIncoming","unknown") ne "unknown" &&
|
||||||
|
ReadingsVal($name,"TempExhaust","unknown") ne "unknown") {
|
||||||
|
|
||||||
|
$TempOutside = ReadingsVal($name,"TempOutside",-100);
|
||||||
|
$TempIncoming = ReadingsVal($name,"TempIncoming",-100);
|
||||||
|
$TempExhaust = ReadingsVal($name,"TempExhaust",-100);
|
||||||
|
|
||||||
|
# Prevent DIV/0 (if Inside=Outside the HRC does nothing = 100% Efficient)
|
||||||
|
if ($TempOutside-$TempIncoming != 0) {
|
||||||
|
$EfficiencyOut = ($TempExhaust-$TempIncoming)/($TempOutside-$TempIncoming)*100;
|
||||||
|
$EfficiencyOut = 100 if ($EfficiencyOut > 100);
|
||||||
|
Log3 ($name, 5, "Vallox: Efficiency Outside: (".$TempExhaust."-".$TempIncoming.")/(".$TempOutside."-".$TempIncoming.")*100 = ".$EfficiencyOut);
|
||||||
|
readingsSingleUpdate($hash,"EfficiencyOut", $EfficiencyOut, 1);
|
||||||
|
} else {
|
||||||
|
Log3 ($name, 5, "Vallox: Efficiency Outside (DIV/0 Protection): (".$TempExhaust."-".$TempIncoming.")/(".$TempOutside."-".$TempIncoming.")*100 = 100");
|
||||||
|
readingsSingleUpdate($hash,"EfficiencyOut", 100, 1);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
# Average Efficiency
|
||||||
|
if (ReadingsVal($name,"EfficiencyIn","unknown") ne "unknown" &&
|
||||||
|
ReadingsVal($name,"EfficiencyOut","unknown") ne "unknown") {
|
||||||
|
$EfficiencyIn = ReadingsVal($name,"EfficiencyIn",-100);
|
||||||
|
$EfficiencyOut = ReadingsVal($name,"EfficiencyOut",-100);
|
||||||
|
|
||||||
|
my $EfficiencyAverage = ($EfficiencyIn+$EfficiencyOut) / 2;
|
||||||
|
Log3 ($name, 5, "Vallox: Efficiency Average: (".$EfficiencyIn."+".$EfficiencyOut.")/2 = ".$EfficiencyAverage);
|
||||||
|
|
||||||
|
readingsSingleUpdate($hash,"EfficiencyAverage", $EfficiencyAverage, 1);
|
||||||
|
} else {
|
||||||
|
Log3 ($name, 5, "Vallox: Efficiency Average unknown: (".ReadingsVal($name,"EfficiencyIn","unknown")."+".ReadingsVal($name,"EfficiencyOut","unknown").")/2");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
} else {
|
||||||
|
Log3 ($name, 4, "Vallox: Datagram not in Datatypes-Table: ".$datagram);
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
Log3 ($name, 5, "Vallox: Incoming Status-Request: $datagram");
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
##############################################
|
##############################################
|
||||||
# Default Functions
|
# Default Functions
|
||||||
##############################################
|
##############################################
|
||||||
@ -397,7 +794,8 @@ Vallox_Initialize($)
|
|||||||
# $hash->{ReadyFn} = "Vallox_Ready";
|
# $hash->{ReadyFn} = "Vallox_Ready";
|
||||||
$hash->{ShutdownFn} = "Vallox_Shutdown";
|
$hash->{ShutdownFn} = "Vallox_Shutdown";
|
||||||
|
|
||||||
$hash->{AttrList} = "ValloxBufferDebug:0,1 ValloxForceBroadcast:0,1 ValloxIDDomain ValloxIDFHEM ValloxIDCentral ".$readingFnAttributes;
|
$hash->{AttrList} = "ValloxBufferDebug:0,1 ValloxForceBroadcast:0,1 ValloxProcessOwnCommands:0,1 ValloxIDDomain ValloxIDFHEM ValloxIDCentral ".$readingFnAttributes;
|
||||||
|
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|
||||||
@ -406,18 +804,36 @@ sub Vallox_Define($) {
|
|||||||
|
|
||||||
my ($hash, $def) = @_;
|
my ($hash, $def) = @_;
|
||||||
my @a = split("[ \t][ \t]*", $def);
|
my @a = split("[ \t][ \t]*", $def);
|
||||||
if(@a != 3) {
|
if(@a != 3 && @a != 4) {
|
||||||
my $msg = "wrong syntax: define <name> Vallox devicename[\@baudrate] ";
|
my $msg = "wrong syntax: define <name> Vallox devicename[\@baudrate] [busversion]";
|
||||||
Log3 undef, 2, "Vallox: ".$msg;
|
Log3 undef, 2, "Vallox: ".$msg;
|
||||||
return $msg;
|
return $msg;
|
||||||
}
|
}
|
||||||
DevIo_CloseDev($hash);
|
DevIo_CloseDev($hash);
|
||||||
my $name = $a[0];
|
my $name = $a[0];
|
||||||
my $dev = $a[2];
|
my $dev = $a[2];
|
||||||
|
$hash-> {BusVersion} = "2";
|
||||||
|
|
||||||
|
|
||||||
$dev .= "\@9600" if( $dev !~ m/\@/ && $def !~ m/:/ );
|
$dev .= "\@9600" if( $dev !~ m/\@/ && $def !~ m/:/ );
|
||||||
$hash-> {DeviceName} = $dev;
|
$hash-> {DeviceName} = $dev;
|
||||||
|
|
||||||
|
if(@a == 4) {
|
||||||
|
$hash-> {BusVersion} = $a[3];
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
if ($hash->{BusVersion} eq "1") {
|
||||||
|
|
||||||
|
%Vallox_datatypes = (%Vallox_datatypes_legacy1, %Vallox_datatypes_base);
|
||||||
|
%Vallox_datatypesReverse = (%Vallox_datatypesReverse_legacy1, %Vallox_datatypesReverse_base);
|
||||||
|
} else {
|
||||||
|
|
||||||
|
%Vallox_datatypes = %Vallox_datatypes_base;
|
||||||
|
%Vallox_datatypesReverse = %Vallox_datatypesReverse_base;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
my $ret = DevIo_OpenDev($hash, 0, undef);
|
my $ret = DevIo_OpenDev($hash, 0, undef);
|
||||||
return $ret;
|
return $ret;
|
||||||
}
|
}
|
||||||
@ -533,7 +949,7 @@ sub Vallox_Set($@)
|
|||||||
}
|
}
|
||||||
|
|
||||||
# MR: Prepare Values and Command for datagram
|
# MR: Prepare Values and Command for datagram
|
||||||
if (exists($Vallox_multiReadingTable_realcmd{$cmd})) {
|
if (exists($Vallox_multiReadingTable_realcmd{$cmd}) && exists($hash->{"MR_".$cmd})) {
|
||||||
# TODO: Integrate get before set;
|
# TODO: Integrate get before set;
|
||||||
return "Vallox: Internal ".$Vallox_multiReadingTable_realcmd{$cmd}." empty (".$hash->{"MR_".$cmd}."). Read ".$Vallox_multiReadingTable_realcmd{$cmd}." first!" if ($hash->{"MR_".$Vallox_multiReadingTable_realcmd{$cmd}} eq "");
|
return "Vallox: Internal ".$Vallox_multiReadingTable_realcmd{$cmd}." empty (".$hash->{"MR_".$cmd}."). Read ".$Vallox_multiReadingTable_realcmd{$cmd}." first!" if ($hash->{"MR_".$Vallox_multiReadingTable_realcmd{$cmd}} eq "");
|
||||||
|
|
||||||
@ -547,7 +963,7 @@ sub Vallox_Set($@)
|
|||||||
$datatype = hex "0x".$Vallox_datatypesReverse{$cmd};
|
$datatype = hex "0x".$Vallox_datatypesReverse{$cmd};
|
||||||
|
|
||||||
if ($datatype == 0x29) {
|
if ($datatype == 0x29) {
|
||||||
$datavalue = hex "0x".$Vallox_fanSpeedTableReverse{$arg};
|
$datavalue = hex "0x".$Vallox_levelTableReverse{$arg};
|
||||||
} elsif ($datatype == 0xae) {
|
} elsif ($datatype == 0xae) {
|
||||||
$datavalue = hex "0x".$Vallox_percentageTableReverse{$arg};
|
$datavalue = hex "0x".$Vallox_percentageTableReverse{$arg};
|
||||||
} elsif ($datatype == 0xaf) {
|
} elsif ($datatype == 0xaf) {
|
||||||
@ -572,19 +988,25 @@ sub Vallox_Set($@)
|
|||||||
DevIo_SimpleWrite ($hash,$msg,1);
|
DevIo_SimpleWrite ($hash,$msg,1);
|
||||||
Log3 ($name, 3, "Vallox: Command ".$msg." has been sent.");
|
Log3 ($name, 3, "Vallox: Command ".$msg." has been sent.");
|
||||||
|
|
||||||
if (AttrVal($hash->{NAME}, "ValloxForceBroadcast", "0") == 1) {
|
if (AttrVal($hash->{NAME}, "ValloxProcessOwnCommands", "0") == 1 || $hash->{BusVersion} eq "1") {
|
||||||
|
|
||||||
|
Vallox_InterpretAndUpdate($hash,$msg);
|
||||||
|
Log3 ($name, 3, "Vallox: Command ".$msg." has been internal processed.");
|
||||||
|
|
||||||
|
}
|
||||||
|
if (AttrVal($hash->{NAME}, "ValloxForceBroadcast", "0") == 1 || $hash->{BusVersion} eq "1") {
|
||||||
$checksum = ($domain + $sender + 0x10 + $datatype + $datavalue) % 0x100;
|
$checksum = ($domain + $sender + 0x10 + $datatype + $datavalue) % 0x100;
|
||||||
$msg = lc(sprintf("%02x", $domain).sprintf("%02x", $sender). 10 .sprintf("%02x", $datatype).sprintf("%02x", $datavalue).sprintf("%02x", $checksum));
|
$msg = lc(sprintf("%02x", $domain).sprintf("%02x", $sender). 10 .sprintf("%02x", $datatype).sprintf("%02x", $datavalue).sprintf("%02x", $checksum));
|
||||||
|
|
||||||
DevIo_SimpleWrite ($hash,$msg,1);
|
DevIo_SimpleWrite ($hash,$msg,1);
|
||||||
Log3 ($name, 3, "Vallox: Broadcast-Command ".$msg." has been sent.");
|
Log3 ($name, 3, "Vallox: Broadcast-Command ".$msg." has been sent.");
|
||||||
|
|
||||||
$checksum = ($domain + $sender + 0x20 + $datatype + $datavalue) % 0x100;
|
$checksum = ($domain + $sender + 0x20 + $datatype + $datavalue) % 0x100;
|
||||||
$msg = lc(sprintf("%02x", $domain).sprintf("%02x", $sender). 20 .sprintf("%02x", $datatype).sprintf("%02x", $datavalue).sprintf("%02x", $checksum));
|
$msg = lc(sprintf("%02x", $domain).sprintf("%02x", $sender). 20 .sprintf("%02x", $datatype).sprintf("%02x", $datavalue).sprintf("%02x", $checksum));
|
||||||
|
|
||||||
DevIo_SimpleWrite ($hash,$msg,1);
|
DevIo_SimpleWrite ($hash,$msg,1);
|
||||||
Log3 ($name, 3, "Vallox: Broadcast-Command ".$msg." has been sent.");
|
Log3 ($name, 3, "Vallox: Broadcast-Command ".$msg." has been sent.");
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
return undef;
|
return undef;
|
||||||
|
|
||||||
}
|
}
|
||||||
@ -607,6 +1029,7 @@ sub Vallox_Attr(@)
|
|||||||
return undef;
|
return undef;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
sub Vallox_Read($)
|
sub Vallox_Read($)
|
||||||
{
|
{
|
||||||
my ($hash) = @_;
|
my ($hash) = @_;
|
||||||
@ -643,7 +1066,12 @@ sub Vallox_Read($)
|
|||||||
|
|
||||||
$bufferRead .= substr($bufferDevIO,0,$bufferReadSpace);
|
$bufferRead .= substr($bufferDevIO,0,$bufferReadSpace);
|
||||||
|
|
||||||
$bufferDevIO = substr($bufferDevIO,$bufferReadSpace);
|
# If the bufferDevIO buffer is shorter than the filling, set it to empty to avoid error
|
||||||
|
if (length($bufferDevIO) >= $bufferReadSpace) {
|
||||||
|
$bufferDevIO = substr($bufferDevIO,$bufferReadSpace);
|
||||||
|
} else {
|
||||||
|
$bufferDevIO = "";
|
||||||
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
#$hash->{"BufferDevIOLength"} = length($bufferDevIO);
|
#$hash->{"BufferDevIOLength"} = length($bufferDevIO);
|
||||||
@ -659,357 +1087,8 @@ sub Vallox_Read($)
|
|||||||
Log3 ($name, 5, "Vallox: Buffer: ".$bufferRead);
|
Log3 ($name, 5, "Vallox: Buffer: ".$bufferRead);
|
||||||
my $datagram = uc($bufferRead);
|
my $datagram = uc($bufferRead);
|
||||||
|
|
||||||
# get the type of the datagram
|
Vallox_InterpretAndUpdate($hash,$datagram);
|
||||||
$rawReadingType = substr($datagram,6,2);
|
|
||||||
|
|
||||||
# get the value of the datagram
|
|
||||||
$rawReadingValue = substr($datagram,8,2);
|
|
||||||
|
|
||||||
# get the value of the datagram
|
|
||||||
$rawReadingChecksum = substr($datagram,10,2);
|
|
||||||
|
|
||||||
if ($rawReadingType ne "00") {
|
|
||||||
|
|
||||||
# Decoding for the final readings.
|
|
||||||
# - rawReading... is the original information from the datagram
|
|
||||||
# - fineReading... is the human readable information
|
|
||||||
|
|
||||||
# Starting with the "One information in one datagram"-Section
|
|
||||||
|
|
||||||
# Convert FanSpeeds by the Vallox_fanSpeedTable
|
|
||||||
if ($rawReadingType eq "29" || $rawReadingType eq "A5" || $rawReadingType eq "A9") {
|
|
||||||
$fineReadingValue = $Vallox_fanSpeedTable{$rawReadingValue};
|
|
||||||
Log3 ($name, 4, "Vallox: Incoming Status-Info (FanSpeed): $datagram (Level $fineReadingValue)");
|
|
||||||
|
|
||||||
# Convert Temperatures by the Vallox_temperatureTable
|
|
||||||
} elsif ($rawReadingType eq "32" || $rawReadingType eq "33" || $rawReadingType eq "34" || $rawReadingType eq "35" || $rawReadingType eq "A4" || $rawReadingType eq "A7" || $rawReadingType eq "A8" || $rawReadingType eq "AF") {
|
|
||||||
$fineReadingValue = $Vallox_temperatureTable{$rawReadingValue};
|
|
||||||
if (($rawReadingType eq "32" || $rawReadingType eq "33" || $rawReadingType eq "34" || $rawReadingType eq "35") && $fineReadingValue < -40) {
|
|
||||||
Log3 ($name, 4, "Vallox: Incoming Status-Info (Temperature) invalid: $datagram ($fineReadingValue deg.)");
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
Log3 ($name, 4, "Vallox: Incoming Status-Info (Temperature): $datagram ($fineReadingValue deg.)");
|
|
||||||
|
|
||||||
# Convert Percentages by the Vallox_percentageTable
|
|
||||||
} elsif ($rawReadingType eq "AE") {
|
|
||||||
$fineReadingValue = $Vallox_percentageTable{$rawReadingValue};
|
|
||||||
Log3 ($name, 4, "Vallox: Incoming Status-Info (Percentage): $datagram ($fineReadingValue pct.)");
|
|
||||||
|
|
||||||
# Convert Faults by the Vallox_faultTable
|
|
||||||
} elsif ($rawReadingType eq "36") {
|
|
||||||
$fineReadingValue = $Vallox_faultTable{$rawReadingValue};
|
|
||||||
Log3 ($name, 4, "Vallox: Incoming Status-Info (Fault): $datagram ($fineReadingValue)");
|
|
||||||
|
|
||||||
# Convert Decimal Values
|
|
||||||
} elsif ($rawReadingType eq "2B" || $rawReadingType eq "2C" || $rawReadingType eq "2E" || $rawReadingType eq "57" || $rawReadingType eq "A6" || $rawReadingType eq "79" || $rawReadingType eq "8F" || $rawReadingType eq "91" || $rawReadingType eq "AB" || $rawReadingType eq "B0" || $rawReadingType eq "B1" || $rawReadingType eq "B3" || $rawReadingType eq "B4") {
|
|
||||||
$fineReadingValue = sprintf("%d", hex "0x".$rawReadingValue);
|
|
||||||
Log3 ($name, 4, "Vallox: Incoming Status-Info (Decimal): $datagram ($fineReadingValue)");
|
|
||||||
|
|
||||||
# Convert PostHeating Time Values
|
|
||||||
} elsif ($rawReadingType eq "55" || $rawReadingType eq "56") {
|
|
||||||
$fineReadingValue = sprintf("%d", hex "0x".$rawReadingValue)/2.5;
|
|
||||||
Log3 ($name, 4, "Vallox: Incoming Status-Info (PostHeatingCounter): $datagram ($fineReadingValue)");
|
|
||||||
|
|
||||||
# Convert CellDefrostingSetpointTemperature Values
|
|
||||||
} elsif ($rawReadingType eq "B2") {
|
|
||||||
$fineReadingValue = sprintf("%d", hex "0x".$rawReadingValue)/3;
|
|
||||||
Log3 ($name, 4, "Vallox: Incoming Status-Info (CellDefrostingSetpointTemperature): $datagram ($fineReadingValue)");
|
|
||||||
|
|
||||||
# Convert measured humidity by formula (if it is negative then you don't have a humidity sensor)
|
|
||||||
} elsif ($rawReadingType eq "2A" || $rawReadingType eq "2F" || $rawReadingType eq "30") {
|
|
||||||
$fineReadingValue = (sprintf("%d", hex "0x".$rawReadingValue)-51)/2.04;
|
|
||||||
|
|
||||||
# Negative Humidity impossible: No Sensor attatched
|
|
||||||
if ($fineReadingValue < 0) {
|
|
||||||
Log3 ($name, 4, "Vallox: Incoming Status-Info (Humidity) invalid: $datagram ($fineReadingValue Perc. rH)");
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
|
|
||||||
Log3 ($name, 4, "Vallox: Incoming Status-Info (Humidity): $datagram ($fineReadingValue pct. rH)");
|
|
||||||
|
|
||||||
# Starting with the "Up to eight informations in one datagram"-Section
|
|
||||||
# Disabled lines are unused.
|
|
||||||
|
|
||||||
# FanSpeed-Relays
|
|
||||||
} elsif ($rawReadingType eq "06") {
|
|
||||||
|
|
||||||
$hash->{"MR_".$Vallox_datatypes{$rawReadingType}} = sprintf('%08b', hex("0x".$rawReadingValue));
|
|
||||||
|
|
||||||
$singlereading = 0;
|
|
||||||
readingsBeginUpdate($hash);
|
|
||||||
Vallox_readingsBulkUpdateMultiReading($hash, $rawReadingType, "Speed1", 0); #RO
|
|
||||||
Vallox_readingsBulkUpdateMultiReading($hash, $rawReadingType, "Speed2", 1); #RO
|
|
||||||
Vallox_readingsBulkUpdateMultiReading($hash, $rawReadingType, "Speed3", 2); #RO
|
|
||||||
Vallox_readingsBulkUpdateMultiReading($hash, $rawReadingType, "Speed4", 3); #RO
|
|
||||||
Vallox_readingsBulkUpdateMultiReading($hash, $rawReadingType, "Speed5", 4); #RO
|
|
||||||
Vallox_readingsBulkUpdateMultiReading($hash, $rawReadingType, "Speed6", 5); #RO
|
|
||||||
Vallox_readingsBulkUpdateMultiReading($hash, $rawReadingType, "Speed7", 6); #RO
|
|
||||||
Vallox_readingsBulkUpdateMultiReading($hash, $rawReadingType, "Speed8", 7); #RO
|
|
||||||
readingsEndUpdate($hash, 1);
|
|
||||||
|
|
||||||
Log3 ($name, 4, "Vallox: Incoming Status-Info (FanSpeed-Relays): $datagram (Bits ".$hash->{"MR_".$Vallox_datatypes{$rawReadingType}}.")");
|
|
||||||
|
|
||||||
# MultiPurpose1
|
|
||||||
} elsif ($rawReadingType eq "07") {
|
|
||||||
|
|
||||||
$hash->{"MR_".$Vallox_datatypes{$rawReadingType}} = sprintf('%08b', hex("0x".$rawReadingValue));
|
|
||||||
|
|
||||||
$singlereading = 0;
|
|
||||||
readingsBeginUpdate($hash);
|
|
||||||
Vallox_readingsBulkUpdateMultiReading($hash, $rawReadingType, "PostHeating", 5); # RO
|
|
||||||
readingsEndUpdate($hash, 1);
|
|
||||||
|
|
||||||
Log3 ($name, 4, "Vallox: Incoming Status-Info (MultiPurpose1): $datagram (Bits ".$hash->{"MR_".$Vallox_datatypes{$rawReadingType}}.")");
|
|
||||||
|
|
||||||
#MultiPurpose2
|
|
||||||
} elsif ($rawReadingType eq "08") {
|
|
||||||
|
|
||||||
$hash->{"MR_".$Vallox_datatypes{$rawReadingType}} = sprintf('%08b', hex("0x".$rawReadingValue));
|
|
||||||
|
|
||||||
$singlereading = 0;
|
|
||||||
readingsBeginUpdate($hash);
|
|
||||||
Vallox_readingsBulkUpdateMultiReading($hash, $rawReadingType, "DamperMotorPosition", 1); #RO
|
|
||||||
Vallox_readingsBulkUpdateMultiReading($hash, $rawReadingType, "FaultSignalRelay", 2); #RO
|
|
||||||
Vallox_readingsBulkUpdateMultiReading($hash, $rawReadingType, "SupplyFan", 3);
|
|
||||||
Vallox_readingsBulkUpdateMultiReading($hash, $rawReadingType, "PreHeating", 4); #RO
|
|
||||||
Vallox_readingsBulkUpdateMultiReading($hash, $rawReadingType, "ExhaustFan", 5);
|
|
||||||
Vallox_readingsBulkUpdateMultiReading($hash, $rawReadingType, "FireplaceBooster", 6); #RO
|
|
||||||
readingsEndUpdate($hash, 1);
|
|
||||||
|
|
||||||
Log3 ($name, 4, "Vallox: Incoming Status-Info (MultiPurpose2): $datagram (Bits ".$hash->{"MR_".$Vallox_datatypes{$rawReadingType}}.")");
|
|
||||||
|
|
||||||
#MachineInstalledCO2Sensor
|
|
||||||
} elsif ($rawReadingType eq "2D") {
|
|
||||||
|
|
||||||
$hash->{"MR_".$Vallox_datatypes{$rawReadingType}} = sprintf('%08b', hex("0x".$rawReadingValue));
|
|
||||||
|
|
||||||
$singlereading = 0;
|
|
||||||
readingsBeginUpdate($hash);
|
|
||||||
Vallox_readingsBulkUpdateMultiReading($hash, $rawReadingType, "CO2Sensor1", 1); #RO
|
|
||||||
Vallox_readingsBulkUpdateMultiReading($hash, $rawReadingType, "CO2Sensor2", 2); #RO
|
|
||||||
Vallox_readingsBulkUpdateMultiReading($hash, $rawReadingType, "CO2Sensor3", 3); #RO
|
|
||||||
Vallox_readingsBulkUpdateMultiReading($hash, $rawReadingType, "CO2Sensor4", 4); #RO
|
|
||||||
Vallox_readingsBulkUpdateMultiReading($hash, $rawReadingType, "CO2Sensor5", 5); #RO
|
|
||||||
readingsEndUpdate($hash, 1);
|
|
||||||
|
|
||||||
Log3 ($name, 4, "Vallox: Incoming Status-Info (MultiPurpose2): $datagram (Bits ".$hash->{"MR_".$Vallox_datatypes{$rawReadingType}}.")");
|
|
||||||
|
|
||||||
#Flags2
|
|
||||||
} elsif ($rawReadingType eq "6D") {
|
|
||||||
|
|
||||||
$hash->{"MR_".$Vallox_datatypes{$rawReadingType}} = sprintf('%08b', hex("0x".$rawReadingValue));
|
|
||||||
|
|
||||||
$singlereading = 0;
|
|
||||||
readingsBeginUpdate($hash);
|
|
||||||
Vallox_readingsBulkUpdateMultiReading($hash, $rawReadingType, "CO2HigherSpeedRequest", 0);
|
|
||||||
Vallox_readingsBulkUpdateMultiReading($hash, $rawReadingType, "CO2LowerRatePublicInvitation", 1);
|
|
||||||
Vallox_readingsBulkUpdateMultiReading($hash, $rawReadingType, "HumidityLowerRatePublicInvitation", 2);
|
|
||||||
Vallox_readingsBulkUpdateMultiReading($hash, $rawReadingType, "SwitchLowerSpeedRequest", 3);
|
|
||||||
Vallox_readingsBulkUpdateMultiReading($hash, $rawReadingType, "CO2Alarm", 6);
|
|
||||||
Vallox_readingsBulkUpdateMultiReading($hash, $rawReadingType, "FrostAlarmSensor", 7);
|
|
||||||
readingsEndUpdate($hash, 1);
|
|
||||||
|
|
||||||
Log3 ($name, 4, "Vallox: Incoming Status-Info (Flags2): $datagram (Bits ".$hash->{"MR_".$Vallox_datatypes{$rawReadingType}}.")");
|
|
||||||
|
|
||||||
#Flags4
|
|
||||||
} elsif ($rawReadingType eq "6F") {
|
|
||||||
|
|
||||||
$hash->{"MR_".$Vallox_datatypes{$rawReadingType}} = sprintf('%08b', hex("0x".$rawReadingValue));
|
|
||||||
|
|
||||||
$singlereading = 0;
|
|
||||||
readingsBeginUpdate($hash);
|
|
||||||
Vallox_readingsBulkUpdateMultiReading($hash, $rawReadingType, "FrostAlarmWaterRadiator", 4);
|
|
||||||
Vallox_readingsBulkUpdateMultiReading($hash, $rawReadingType, "MasterSlaveSelection", 7);
|
|
||||||
readingsEndUpdate($hash, 1);
|
|
||||||
|
|
||||||
Log3 ($name, 4, "Vallox: Incoming Status-Info (Flags4): $datagram (Bits ".$hash->{"MR_".$Vallox_datatypes{$rawReadingType}}.")");
|
|
||||||
|
|
||||||
#Flags5
|
|
||||||
} elsif ($rawReadingType eq "70") {
|
|
||||||
|
|
||||||
$hash->{"MR_".$Vallox_datatypes{$rawReadingType}} = sprintf('%08b', hex("0x".$rawReadingValue));
|
|
||||||
|
|
||||||
$singlereading = 0;
|
|
||||||
readingsBeginUpdate($hash);
|
|
||||||
Vallox_readingsBulkUpdateMultiReading($hash, $rawReadingType, "PreHeatingStatus", 7);
|
|
||||||
readingsEndUpdate($hash, 1);
|
|
||||||
|
|
||||||
Log3 ($name, 4, "Vallox: Incoming Status-Info (Flags5): $datagram (Bits ".$hash->{"MR_".$Vallox_datatypes{$rawReadingType}}.")");
|
|
||||||
|
|
||||||
#Flags6
|
|
||||||
} elsif ($rawReadingType eq "71") {
|
|
||||||
|
|
||||||
$hash->{"MR_".$Vallox_datatypes{$rawReadingType}} = sprintf('%08b', hex("0x".$rawReadingValue));
|
|
||||||
|
|
||||||
$singlereading = 0;
|
|
||||||
readingsBeginUpdate($hash);
|
|
||||||
Vallox_readingsBulkUpdateMultiReading($hash, $rawReadingType, "RemoteMonitoringControl", 4); #RO
|
|
||||||
Vallox_readingsBulkUpdateMultiReading($hash, $rawReadingType, "FireplaceSwitchActivation", 5);
|
|
||||||
Vallox_readingsBulkUpdateMultiReading($hash, $rawReadingType, "FireplaceBoosterStatus", 6); #RO
|
|
||||||
readingsEndUpdate($hash, 1);
|
|
||||||
|
|
||||||
Log3 ($name, 4, "Vallox: Incoming Status-Info (Flags6): $datagram (Bits ".$hash->{"MR_".$Vallox_datatypes{$rawReadingType}}.")");
|
|
||||||
|
|
||||||
# Select
|
|
||||||
} elsif ($rawReadingType eq "A3") {
|
|
||||||
|
|
||||||
$hash->{"MR_".$Vallox_datatypes{$rawReadingType}} = sprintf('%08b', hex("0x".$rawReadingValue));
|
|
||||||
|
|
||||||
$singlereading = 0;
|
|
||||||
readingsBeginUpdate($hash);
|
|
||||||
|
|
||||||
Vallox_readingsBulkUpdateMultiReading($hash, $rawReadingType, "PowerState", 0);
|
|
||||||
Vallox_readingsBulkUpdateMultiReading($hash, $rawReadingType, "CO2AdjustState", 1);
|
|
||||||
Vallox_readingsBulkUpdateMultiReading($hash, $rawReadingType, "RHAdjustState", 2);
|
|
||||||
Vallox_readingsBulkUpdateMultiReading($hash, $rawReadingType, "HeatingState", 3);
|
|
||||||
Vallox_readingsBulkUpdateMultiReading($hash, $rawReadingType, "FilterGuardIndicator", 4); #RO
|
|
||||||
Vallox_readingsBulkUpdateMultiReading($hash, $rawReadingType, "HeatingIndicator", 5); #RO
|
|
||||||
Vallox_readingsBulkUpdateMultiReading($hash, $rawReadingType, "FaultIndicator", 6); #RO
|
|
||||||
Vallox_readingsBulkUpdateMultiReading($hash, $rawReadingType, "ServiceReminderIndicator", 7);
|
|
||||||
|
|
||||||
readingsEndUpdate($hash, 1);
|
|
||||||
|
|
||||||
Log3 ($name, 4, "Vallox: Incoming Status-Info (Select): $datagram (Bits ".$hash->{"MR_".$Vallox_datatypes{$rawReadingType}}.")");
|
|
||||||
|
|
||||||
# Program
|
|
||||||
} elsif ($rawReadingType eq "AA") {
|
|
||||||
|
|
||||||
$hash->{"MR_".$Vallox_datatypes{$rawReadingType}} = sprintf('%08b', hex("0x".$rawReadingValue));
|
|
||||||
|
|
||||||
$singlereading = 0;
|
|
||||||
readingsBeginUpdate($hash);
|
|
||||||
# ----xxxx - Nibble is one value // # TODO: Adopt Function
|
|
||||||
readingsBulkUpdate($hash, "HumidityCO2AdjustmentInterval", oct("0b"."0000".substr($hash->{"MR_".$Vallox_datatypes{$rawReadingType}},4,4))) if (ReadingsVal($name,"HumidityCO2AdjustmentInterval","unknown") ne oct("0b"."0000".substr($hash->{"MR_".$Vallox_datatypes{$rawReadingType}},4,4)));
|
|
||||||
|
|
||||||
Vallox_readingsBulkUpdateMultiReading($hash, $rawReadingType, "AutomaticHumidityBasicLevelSeekerState", 4);
|
|
||||||
Vallox_readingsBulkUpdateMultiReading($hash, $rawReadingType, "BoostSwitchMode", 5);
|
|
||||||
Vallox_readingsBulkUpdateMultiReading($hash, $rawReadingType, "RadiatorType", 6);
|
|
||||||
Vallox_readingsBulkUpdateMultiReading($hash, $rawReadingType, "CascadeAdjust", 7);
|
|
||||||
readingsEndUpdate($hash, 1);
|
|
||||||
|
|
||||||
Log3 ($name, 4, "Vallox: Incoming Status-Info (Program): $datagram (Bits ".$hash->{"MR_".$Vallox_datatypes{$rawReadingType}}.")");
|
|
||||||
|
|
||||||
# Program2
|
|
||||||
} elsif ($rawReadingType eq "B5") {
|
|
||||||
|
|
||||||
$hash->{"MR_".$Vallox_datatypes{$rawReadingType}} = sprintf('%08b', hex("0x".$rawReadingValue));
|
|
||||||
|
|
||||||
$singlereading = 0;
|
|
||||||
readingsBeginUpdate($hash);
|
|
||||||
Vallox_readingsBulkUpdateMultiReading($hash, $rawReadingType, "MaxSpeedLimitFunction", 0);
|
|
||||||
readingsEndUpdate($hash, 1);
|
|
||||||
|
|
||||||
Log3 ($name, 4, "Vallox: Incoming Status-Info (Program2): $datagram (Bits ".$hash->{"MR_".$Vallox_datatypes{$rawReadingType}}.")");
|
|
||||||
|
|
||||||
# Convert Unused Binarys to bits (Just not to have Hex Readings)
|
|
||||||
} elsif ($rawReadingType eq "6C" || $rawReadingType eq "6E") {
|
|
||||||
|
|
||||||
$fineReadingValue = sprintf('%08b', hex("0x".$rawReadingValue));
|
|
||||||
|
|
||||||
Log3 ($name, 4, "Vallox: Incoming Status-Info (Unused Binary): $datagram (Bits $fineReadingValue)");
|
|
||||||
|
|
||||||
|
|
||||||
# Everything else
|
|
||||||
# All Readings shall be handled before
|
|
||||||
} else {
|
|
||||||
$fineReadingValue = $rawReadingValue;
|
|
||||||
$singlereading = 1;
|
|
||||||
|
|
||||||
Log3 ($name, 2, "Vallox: Incoming unhandled datagram: $datagram");
|
|
||||||
}
|
|
||||||
|
|
||||||
if($Vallox_datatypes{$rawReadingType}) {
|
|
||||||
if ($singlereading == 1) {
|
|
||||||
Log3 ($name, 5, "Vallox: Update Reading: $fineReadingValue");
|
|
||||||
|
|
||||||
readingsSingleUpdate($hash,$Vallox_datatypes{$rawReadingType}, $fineReadingValue, 1);
|
|
||||||
|
|
||||||
# Efficiency Calculation
|
|
||||||
# Is this Reading a Temp?
|
|
||||||
if (substr($Vallox_datatypes{$rawReadingType},0,4) eq "Temp") {
|
|
||||||
|
|
||||||
# If HRC is in Bypass - Efficiency is 0
|
|
||||||
if (ReadingsVal($name,"DamperMotorPosition",1) == 1) {
|
|
||||||
readingsSingleUpdate($hash,"EfficiencyIn", 0, 1);
|
|
||||||
readingsSingleUpdate($hash,"EfficiencyOut", 0, 1);
|
|
||||||
readingsSingleUpdate($hash,"EfficiencyAverage", 0, 1);
|
|
||||||
Log3 ($name, 5, "Vallox: Efficiency Override: HRC Bypass");
|
|
||||||
|
|
||||||
} else {
|
|
||||||
|
|
||||||
my ($EfficiencyIn,$EfficiencyOut,$TempIncoming,$TempOutside,$TempInside,$TempExhaust) = 0;
|
|
||||||
|
|
||||||
# Efficiency on Keep Temp Inside
|
|
||||||
# Do we have all nessecary Readings?
|
|
||||||
if (ReadingsVal($name,"TempIncoming","unknown") ne "unknown" &&
|
|
||||||
ReadingsVal($name,"TempOutside","unknown") ne "unknown" &&
|
|
||||||
ReadingsVal($name,"TempInside","unknown") ne "unknown") {
|
|
||||||
|
|
||||||
|
|
||||||
$TempIncoming = ReadingsVal($name,"TempIncoming",-100);
|
|
||||||
$TempOutside = ReadingsVal($name,"TempOutside",-100);
|
|
||||||
$TempInside = ReadingsVal($name,"TempInside",-100);
|
|
||||||
|
|
||||||
|
|
||||||
# Prevent DIV/0 (if Inside=Outside the HRC does nothing = 100% Efficient)
|
|
||||||
if ($TempInside-$TempOutside != 0) {
|
|
||||||
$EfficiencyIn = ($TempIncoming-$TempOutside)/($TempInside-$TempOutside)*100;
|
|
||||||
|
|
||||||
$EfficiencyIn = 100 if ($EfficiencyIn > 100);
|
|
||||||
|
|
||||||
Log3 ($name, 5, "Vallox: Efficiency Inside: (".$TempIncoming."-".$TempIncoming.")/(".$TempInside."-".$TempOutside.")*100 = ".$EfficiencyIn);
|
|
||||||
readingsSingleUpdate($hash,"EfficiencyIn", $EfficiencyIn, 1);
|
|
||||||
} else {
|
|
||||||
Log3 ($name, 5, "Vallox: Efficiency Inside (DIV/0 Prevention): (".$TempIncoming."-".$TempIncoming.")/(".$TempInside."-".$TempOutside.")*100 = 100");
|
|
||||||
readingsSingleUpdate($hash,"EfficiencyIn", 100, 1);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
# Efficiency on Keep Temp Outside
|
|
||||||
# Do we have all nessecary Readings?
|
|
||||||
if (ReadingsVal($name,"TempOutside","unknown") ne "unknown" &&
|
|
||||||
ReadingsVal($name,"TempIncoming","unknown") ne "unknown" &&
|
|
||||||
ReadingsVal($name,"TempExhaust","unknown") ne "unknown") {
|
|
||||||
|
|
||||||
$TempOutside = ReadingsVal($name,"TempOutside",-100);
|
|
||||||
$TempIncoming = ReadingsVal($name,"TempIncoming",-100);
|
|
||||||
$TempExhaust = ReadingsVal($name,"TempExhaust",-100);
|
|
||||||
|
|
||||||
# Prevent DIV/0 (if Inside=Outside the HRC does nothing = 100% Efficient)
|
|
||||||
if ($TempOutside-$TempIncoming != 0) {
|
|
||||||
$EfficiencyOut = ($TempExhaust-$TempIncoming)/($TempOutside-$TempIncoming)*100;
|
|
||||||
$EfficiencyOut = 100 if ($EfficiencyOut > 100);
|
|
||||||
Log3 ($name, 5, "Vallox: Efficiency Outside: (".$TempExhaust."-".$TempIncoming.")/(".$TempOutside."-".$TempIncoming.")*100 = ".$EfficiencyOut);
|
|
||||||
readingsSingleUpdate($hash,"EfficiencyOut", $EfficiencyOut, 1);
|
|
||||||
} else {
|
|
||||||
Log3 ($name, 5, "Vallox: Efficiency Outside (DIV/0 Protection): (".$TempExhaust."-".$TempIncoming.")/(".$TempOutside."-".$TempIncoming.")*100 = 100");
|
|
||||||
readingsSingleUpdate($hash,"EfficiencyOut", 100, 1);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
# Average Efficiency
|
|
||||||
if (ReadingsVal($name,"EfficiencyIn","unknown") ne "unknown" &&
|
|
||||||
ReadingsVal($name,"EfficiencyOut","unknown") ne "unknown") {
|
|
||||||
$EfficiencyIn = ReadingsVal($name,"EfficiencyIn",-100);
|
|
||||||
$EfficiencyOut = ReadingsVal($name,"EfficiencyOut",-100);
|
|
||||||
|
|
||||||
my $EfficiencyAverage = ($EfficiencyIn+$EfficiencyOut) / 2;
|
|
||||||
Log3 ($name, 5, "Vallox: Efficiency Average: (".$EfficiencyIn."+".$EfficiencyOut.")/2 = ".$EfficiencyAverage);
|
|
||||||
|
|
||||||
readingsSingleUpdate($hash,"EfficiencyAverage", $EfficiencyAverage, 1);
|
|
||||||
} else {
|
|
||||||
Log3 ($name, 5, "Vallox: Efficiency Average unknown: (".ReadingsVal($name,"EfficiencyIn","unknown")."+".ReadingsVal($name,"EfficiencyOut","unknown").")/2");
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
} else {
|
|
||||||
Log3 ($name, 4, "Vallox: Datagram not in Datatypes-Table: ".$datagram);
|
|
||||||
}
|
|
||||||
} else {
|
|
||||||
Log3 ($name, 5, "Vallox: Incoming Status-Request: $datagram");
|
|
||||||
}
|
|
||||||
} elsif (Vallox_ValidateStream($hash) == 2) {
|
} elsif (Vallox_ValidateStream($hash) == 2) {
|
||||||
Log3 ($name, 4, "Vallox: Invalid Status-Request: $bufferRead");
|
Log3 ($name, 4, "Vallox: Invalid Status-Request: $bufferRead");
|
||||||
}
|
}
|
||||||
@ -1051,8 +1130,9 @@ sub Vallox_Shutdown($)
|
|||||||
<a name="Valloxdefine"></a>
|
<a name="Valloxdefine"></a>
|
||||||
<b>Define</b>
|
<b>Define</b>
|
||||||
<ul>
|
<ul>
|
||||||
<code>define <name> Vallox <RS485-Device[@baud]></code><br>
|
<code>define <name> Vallox <RS485-Device[@baud]> [BusVersion]</code><br>
|
||||||
If the baudrate is omitted, it is set to 9600 (default Vallox baudrate).
|
If the baudrate is omitted, it is set to 9600 (default Vallox baudrate).<br>
|
||||||
|
The BusVersion can be set to 1 for older systems. (Default: 2).<br>
|
||||||
<br>
|
<br>
|
||||||
Example: <code>define Ventilation Vallox /dev/ttyUSB1</code>
|
Example: <code>define Ventilation Vallox /dev/ttyUSB1</code>
|
||||||
</ul>
|
</ul>
|
||||||
@ -1122,7 +1202,11 @@ sub Vallox_Shutdown($)
|
|||||||
</li><br>
|
</li><br>
|
||||||
<li><code>ValloxForceBroadcast < 0/1 ></code>
|
<li><code>ValloxForceBroadcast < 0/1 ></code>
|
||||||
<br>
|
<br>
|
||||||
When 1, modul sends commands not only to the central ventilation unit (11) but to all possible addresses by broadcast (10/20). This is sometimes nessecary for older systems. (0 by default).
|
When 1, modul sends commands not only to the central ventilation unit (11) but to all possible addresses by broadcast (10/20). This is sometimes nessecary for older systems. (0 by default; Function always on on BusVersion 1).
|
||||||
|
</li><br>
|
||||||
|
<li><code>ValloxProcessOwnCommands < 0/1 ></code>
|
||||||
|
<br>
|
||||||
|
When 1, modul sends commands not only to the bus but processes it as a received reading. This is sometimes nessecary for older systems. (0 by default; Function always on on BusVersion 1).
|
||||||
</li><br>
|
</li><br>
|
||||||
<li><a href="#readingFnAttributes">readingFnAttributes</a></li>
|
<li><a href="#readingFnAttributes">readingFnAttributes</a></li>
|
||||||
</ul>
|
</ul>
|
||||||
@ -1149,8 +1233,9 @@ sub Vallox_Shutdown($)
|
|||||||
<a name="Valloxdefine"></a>
|
<a name="Valloxdefine"></a>
|
||||||
<b>Define</b>
|
<b>Define</b>
|
||||||
<ul>
|
<ul>
|
||||||
<code>define <name> Vallox <RS485-Device[@baud]></code><br>
|
<code>define <name> Vallox <RS485-Device[@baud]> [BusVersion]</code><br>
|
||||||
Wird die Baudrate weggelassen wird mit 9600 baud kommuniziert. (Standardrate des Vallox-Busses).
|
Wird die Baudrate weggelassen wird mit 9600 baud kommuniziert. (Standardrate des Vallox-Busses).<br>
|
||||||
|
Die BusVersion kann bei älteren Anlagen auf 1 gesetzt werden. (Standard: 2).<br>
|
||||||
<br>
|
<br>
|
||||||
Beispiel: <code>define Ventilation Vallox /dev/ttyUSB1</code>
|
Beispiel: <code>define Ventilation Vallox /dev/ttyUSB1</code>
|
||||||
</ul>
|
</ul>
|
||||||
@ -1221,7 +1306,11 @@ sub Vallox_Shutdown($)
|
|||||||
</li><br>
|
</li><br>
|
||||||
<li><code>ValloxForceBroadcast < 0/1 ></code>
|
<li><code>ValloxForceBroadcast < 0/1 ></code>
|
||||||
<br>
|
<br>
|
||||||
Wenn 1, sendet das Modul die Befehle nicht nur an die zentrale Ventilationseinheit (11), sondern auch an alle Broadcast-Adressen (10/20). Dies ist manchmal bei älteren Anlagen notwendig, wenn sich die Anzeige auf den Kontrollterminals nicht mit aktualisiert. (Standard: 0).
|
Wenn 1, sendet das Modul die Befehle nicht nur an die zentrale Ventilationseinheit (11), sondern auch an alle Broadcast-Adressen (10/20). Dies ist manchmal bei älteren Anlagen notwendig, wenn sich die Anzeige auf den Kontrollterminals nicht mit aktualisiert. (Standard: 0; Funktion immer an bei BusVersion 1).
|
||||||
|
</li><br>
|
||||||
|
<li><code>ValloxProcessOwnCommands < 0/1 ></code>
|
||||||
|
<br>
|
||||||
|
Wenn 1, behandelt das Modul die eigenen Befehle auch als Empfangene Befehle und verarbeitet sie intern weiter. Dies ist manchmal bei älteren Anlagen notwendig. (Standard: 0; Funktion immer an bei BusVersion 1).
|
||||||
</li><br>
|
</li><br>
|
||||||
<li><a href="#readingFnAttributes">readingFnAttributes</a></li>
|
<li><a href="#readingFnAttributes">readingFnAttributes</a></li>
|
||||||
</ul>
|
</ul>
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user