Anpassungen am Ladetaions-Verbraucher Bugfixes wenn ladung nciht mehr startete
This commit is contained in:
292
Puffer_Speicher/module.php
Normal file
292
Puffer_Speicher/module.php
Normal file
@@ -0,0 +1,292 @@
|
||||
<?php
|
||||
|
||||
class Puffer_Speicher extends IPSModule
|
||||
{
|
||||
private array $leistungArray = [];
|
||||
|
||||
public function Create()
|
||||
{
|
||||
parent::Create();
|
||||
|
||||
|
||||
$this->RegisterPropertyString("LeistungsStufen", json_encode([])); // Bezeichnung der Liste
|
||||
$this->RegisterPropertyInteger("ZeitKonstante", 120);
|
||||
$this->RegisterPropertyInteger("Pufferfuehler_PT1", 0);
|
||||
$this->RegisterPropertyInteger("Aussentemp", 20);
|
||||
$this->RegisterPropertyInteger("MinVT_Temp", 20);
|
||||
$this->RegisterPropertyInteger("MaxVT_Temp", 80);
|
||||
$this->RegisterPropertyInteger("MaxAT_Temp", 20);
|
||||
$this->RegisterPropertyInteger("MinAT_Temp", 0);
|
||||
$this->RegisterPropertyBoolean("Puffertemperatur_glätten", false);
|
||||
$this->RegisterPropertyString("Zeitplan", "");
|
||||
$this->RegisterPropertyInteger("Interval", 5); // Recheninterval
|
||||
|
||||
|
||||
// Puffer spezifische Variablen
|
||||
$this->RegisterVariableInteger("Steigung","Steigung","",0);
|
||||
$this->RegisterVariableInteger("Maximaltemperatur"," Berechnete Maximaltemperatur VT","",60);
|
||||
$this->RegisterVariableInteger("Puffertemperatur", "Puffertemperatur", "", 40);
|
||||
$this->RegisterVariableInteger("Aussentemperatur", "Aussentemperatur", "", 15);
|
||||
$this->RegisterVariableBoolean("Hysterese", "Hysterese","",false);
|
||||
|
||||
|
||||
// Variabeln für Kommunkation mit Manager
|
||||
$this->RegisterVariableInteger("Sperre_Prio", "Sperre_Prio");
|
||||
$this->RegisterVariableInteger("PV_Prio", "PV_Prio");
|
||||
$this->RegisterVariableBoolean("Idle", "Idle", "", 0);
|
||||
$this->RegisterVariableInteger("Aktuelle_Leistung", "Aktuelle_Leistung", "", 0);
|
||||
$this->RegisterVariableFloat("Bezogene_Energie", "Bezogene_Energie", "", 0);
|
||||
$this->RegisterVariableString("PowerSteps", "PowerSteps");
|
||||
$this->RegisterVariableInteger("Power", "Power", '', 0);
|
||||
$this->RegisterVariableBoolean("Is_Peak_Shaving", "Is_Peak_Shaving", "", true);
|
||||
$this->RegisterVariableInteger("Leistung_Delta", "Leistung_Delta", "", 0);
|
||||
|
||||
// Hilfsvariabeln für Idle zustand
|
||||
$this->RegisterPropertyInteger("IdleCounterMax", 2);
|
||||
$this->RegisterVariableInteger("IdleCounter", "IdleCounter", "", 0);
|
||||
$this->SetValue("IdleCounter", 0);
|
||||
|
||||
// Initialisiere Idle
|
||||
$this->SetValue("Idle", true);
|
||||
|
||||
$this->RegisterTimer("Timer_Do_UserCalc_Boiler",$this->ReadPropertyInteger("Interval")*1000,"IPS_RequestAction(" .$this->InstanceID .', "Do_UserCalc", "");');
|
||||
|
||||
}
|
||||
|
||||
public function ApplyChanges()
|
||||
{
|
||||
parent::ApplyChanges();
|
||||
$this->SetTimerInterval("Timer_Do_UserCalc_Boiler",$this->ReadPropertyInteger("Interval")*1000);
|
||||
|
||||
}
|
||||
|
||||
private function LadeUndSortiereLeistungen()
|
||||
{
|
||||
// Array initialisieren, immer mit 0
|
||||
$this->leistungArray = [0];
|
||||
|
||||
// JSON aus der Property auslesen
|
||||
$json = $this->ReadPropertyString("LeistungsStufen");
|
||||
$leistungsStufen = json_decode($json, true);
|
||||
|
||||
if (is_array($leistungsStufen)) {
|
||||
foreach ($leistungsStufen as $stufe) {
|
||||
$this->leistungArray[] = $stufe['Leistung'] ?? 0;
|
||||
}
|
||||
}
|
||||
|
||||
// Array sortieren (Bubble Sort)
|
||||
$len = count($this->leistungArray);
|
||||
for ($i = 0; $i < $len - 1; $i++) {
|
||||
for ($j = 0; $j < $len - $i - 1; $j++) {
|
||||
if ($this->leistungArray[$j] > $this->leistungArray[$j + 1]) {
|
||||
$temp = $this->leistungArray[$j];
|
||||
$this->leistungArray[$j] = $this->leistungArray[$j + 1];
|
||||
$this->leistungArray[$j + 1] = $temp;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
public function RequestAction($Ident, $Value)
|
||||
{
|
||||
switch ($Ident) {
|
||||
case "SetAktuelle_Leistung":
|
||||
$this->SetValue("Power", (int)$Value);
|
||||
break;
|
||||
|
||||
case "GetCurrentData":
|
||||
$this->SetValue("Is_Peak_Shaving", (bool)$Value);
|
||||
break;
|
||||
|
||||
case "Do_UserCalc":
|
||||
$this->SetAktuelle_Leistung($this->GetValue("Power"));
|
||||
$this->GetCurrentData($this->GetValue("Is_Peak_Shaving"));
|
||||
break;
|
||||
default:
|
||||
throw new Exception("Invalid Ident");
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
|
||||
// Methode zum Setzen des aktuellen Stromverbrauchs
|
||||
public function SetAktuelle_Leistung(int $power)
|
||||
{
|
||||
// Lade sicherheitshalber das aktuelle LeistungArray
|
||||
$this->LadeUndSortiereLeistungen();
|
||||
|
||||
// Schleife über alle Leistungsstufen
|
||||
foreach ($this->leistungArray as $leistung) {
|
||||
$kontaktID = $this->GetKontaktIDZuLeistung($leistung);
|
||||
|
||||
// Prüfen, ob Variable existiert und gültige ID
|
||||
if ($kontaktID > 0 && IPS_VariableExists($kontaktID)) {
|
||||
// Setze TRUE für die aktuelle Leistungsstufe, FALSE für alle anderen
|
||||
SetValue($kontaktID, ($leistung === $power));
|
||||
} else {
|
||||
if ($kontaktID > 0) {
|
||||
IPS_LogMessage("ERROR", "KontaktID $kontaktID existiert nicht oder ist ungültig!");
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
// Prüfe auf Änderung der Power im Vergleich zur letzten Einstellung
|
||||
$lastPower = GetValue($this->GetIDForIdent("Aktuelle_Leistung"));
|
||||
if ($power != $lastPower) {
|
||||
$this->SetValue("Idle", false);
|
||||
$this->SetValue(
|
||||
"IdleCounter",
|
||||
$this->ReadPropertyInteger("IdleCounterMax")
|
||||
);
|
||||
}
|
||||
// Setze die neue Aktuelle_Leistung
|
||||
$this->SetValue("Aktuelle_Leistung", $power);
|
||||
$this->SetValue("Bezogene_Energie", ($this->GetValue("Bezogene_Energie") + ($this->GetValue("Aktuelle_Leistung")*($this->ReadPropertyInteger("Interval")/3600))));
|
||||
// IdleCounter verarbeiten
|
||||
$this->ProcessIdleCounter();
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
private function GetKontaktIDZuLeistung(int $leistung): int
|
||||
{
|
||||
$json = $this->ReadPropertyString("LeistungsStufen");
|
||||
$leistungsStufen = json_decode($json, true);
|
||||
|
||||
if (is_array($leistungsStufen)) {
|
||||
foreach ($leistungsStufen as $stufe) {
|
||||
if (($stufe['Leistung'] ?? 0) == $leistung) {
|
||||
return $stufe['Schaltkontakt_Stufe'] ?? 0;
|
||||
}
|
||||
}
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
// Methode zum Abrufen der aktuellen Daten
|
||||
public function GetCurrentData(bool $Peak)
|
||||
{
|
||||
|
||||
$this->LadeUndSortiereLeistungen();
|
||||
$boilertemperatur_glätten = $this->ReadPropertyBoolean("Puffertemperatur_glätten");
|
||||
if ($boilertemperatur_glätten) {
|
||||
// Wenn Glättung aktiviert ist, führe das Glätten durch
|
||||
$boilerFuehlerPT1ID = $this->ReadPropertyInteger("Pufferfuehler_PT1");
|
||||
|
||||
if (IPS_VariableExists($boilerFuehlerPT1ID)) {
|
||||
$boilerPT1 = GetValue($boilerFuehlerPT1ID);
|
||||
} else {
|
||||
$boilerPT1 = 0.0; // Standardwert
|
||||
}
|
||||
|
||||
$boilerTempID = $this->GetIDForIdent("Boilertemperatur");
|
||||
if (IPS_VariableExists($boilerTempID)) {
|
||||
$boilerTemp = $this->GetValue("Boilertemperatur");
|
||||
} else {
|
||||
$boilerTemp = 0.0; // Standardwert
|
||||
}
|
||||
|
||||
// PT
|
||||
$time_constant= $this->ReadPropertyInteger("ZeitKonstante");
|
||||
$delta_t = 5; // Zeitdifferenz zwischen den Messungen (30 Sekunden)
|
||||
$alpha = $delta_t / ($time_constant + $delta_t);
|
||||
$newBoilerTemp = $boilerTemp + $alpha * ($boilerPT1 - $boilerTemp);
|
||||
$this->SetValue("Puffertemperatur", $newBoilerTemp);
|
||||
} else {
|
||||
// Wenn Glättung nicht aktiviert ist, setze die Boilertemperatur direkt auf den Wert des Boilerfühlers
|
||||
$boilerFuehlerPT1ID = $this->ReadPropertyInteger("Pufferfuehler_PT1");
|
||||
|
||||
if (IPS_VariableExists($boilerFuehlerPT1ID)) {
|
||||
$boilerPT1 = GetValue($boilerFuehlerPT1ID);
|
||||
} else {
|
||||
$boilerPT1 = 0.0; // Standardwert
|
||||
}
|
||||
// Setze Boilertemperatur direkt auf den Wert des Boilerfühlers
|
||||
$this->SetValue("Puffertemperatur", $boilerPT1);
|
||||
}
|
||||
|
||||
|
||||
$at = GetValue($this->ReadPropertyInteger("Aussentemp"));
|
||||
$this->SetValue("Aussentemperatur", $at);
|
||||
$m = $this->GetValue("Steigung");
|
||||
$minVT = $this->ReadPropertyInteger("MinVT_Temp"); // z.B. 20
|
||||
$maxVT = $this->ReadPropertyInteger("MaxVT_Temp"); // z.B. 80
|
||||
$maxAT = $this->ReadPropertyInteger("MaxAT_Temp"); // z.B. 20
|
||||
$minAT = $this->ReadPropertyInteger("MinAT_Temp"); // z.B. 0
|
||||
$m = ($maxVT - $minVT) / ($minAT - $maxAT);
|
||||
$this->SetValue("Steigung", $m);
|
||||
if ($at < $minAT){
|
||||
$VT = $maxVT;
|
||||
} elseif ($at > $maxAT){
|
||||
$VT = $minVT;
|
||||
} else {
|
||||
$VT = $m * $at + $maxVT;
|
||||
}
|
||||
$this->SetValue("Maximaltemperatur", $VT );
|
||||
$boilerTemp = $this->GetValue("Puffertemperatur");
|
||||
$hyst = $this->GetValue("Hysterese");
|
||||
|
||||
if($VT < $boilerTemp){
|
||||
$this->SetValue("Hysterese", false );
|
||||
}elseif($VT-5 >= $boilerTemp){
|
||||
$this->SetValue("Hysterese", true);
|
||||
}
|
||||
|
||||
IPS_LogMessage("LeistungArray_Get", json_encode($this->leistungArray));
|
||||
|
||||
if ($Peak) {
|
||||
$this->SetValue( "PowerSteps", json_encode([0]) );
|
||||
} else {
|
||||
if ($boilerTemp < $VT && $hyst== true) {
|
||||
$this->SetValue("PowerSteps", json_encode($this->leistungArray));
|
||||
} elseif ($boilerTemp > $VT - 5 && $hyst== false) {
|
||||
$this->SetValue("PowerSteps", json_encode([0]));
|
||||
} else {
|
||||
$this->SetValue("PowerSteps", json_encode([0]));
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
private function ProcessIdleCounter()
|
||||
{
|
||||
// IdleCounter auslesen und verarbeiten
|
||||
$idleCounter = $this->GetValue("IdleCounter");
|
||||
if ($idleCounter > 0) {
|
||||
$this->SetValue("Idle", false);
|
||||
$this->SetValue("IdleCounter", $idleCounter - 1);
|
||||
} else {
|
||||
$this->SetValue("Idle", true);
|
||||
}
|
||||
}
|
||||
|
||||
private function CheckIdle($power)
|
||||
{
|
||||
$lastpower = GetValue("Aktuelle_Leistung");
|
||||
if ($lastpower != GetValue("Aktuelle_Leistung")) {
|
||||
$this->SetValue("Idle", false);
|
||||
$this->SetValue(
|
||||
"IdleCounter",
|
||||
$this->ReadPropertyInteger("IdleCounterMax")
|
||||
);
|
||||
}
|
||||
// IdleCounter auslesen und verarbeiten
|
||||
$idleCounter = $this->GetValue("IdleCounter");
|
||||
if ($idleCounter > 0) {
|
||||
$this->SetValue("Idle", false);
|
||||
$this->SetValue("IdleCounter", $idleCounter - 1);
|
||||
} else {
|
||||
$this->SetValue("Idle", true);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
}
|
||||
|
||||
?>
|
||||
Reference in New Issue
Block a user