Hi Leute...
vielleicht stell ich mich auch nur doof an.. aber irgendwie funktioniert das hier nicht so wie gewünscht..
Ich hab einen Pelletskessel, dessen Status ich über die UVR1611 auf den Bus bringe... jetzt würd ich gern die Zeiten (gesamt) die er "An" war speichern. Da das ganze bei einem Neustart nicht gelöscht werden soll, wollte ich das per writeflash lösen...
Eigentlich dacht ich .. kann nicht so schwer sein.. aber irgendwie passt das Ergebnis nicht zu dem was ich erwartet hab.
könnt ihr da mal kurz drüberschauen und mir einen Tip geben.. ??
Gruß Martin
[highlight=epc] if systemstart() then readflash (Kesselalt, 1u16) endif
if event("Anforderung Kessel-1/3/0") and "Anforderung Kessel-1/3/0" then Kesselstart=(hour()*60)+minute() endif
if change("Anforderung Kessel-1/3/0") then Kesselstopp=(hour()*60)+minute() endif
if change("Anforderung Kessel-1/3/0") then Kesseldiv = Kesselstopp-Kesselstart endif
if change("Anforderung Kessel-1/3/0") then Kesselonline= Kesseldiv+Kesselalt endif
if htime(23,59,00) then writeflash (Kesselonline, 1u16) endif
if cycle(00,10) then display(24,Kesselonline, INFO, INACTIVE, GREEN) endif [/highlight]
vielleicht stell ich mich auch nur doof an.. aber irgendwie funktioniert das hier nicht so wie gewünscht..
Ich hab einen Pelletskessel, dessen Status ich über die UVR1611 auf den Bus bringe... jetzt würd ich gern die Zeiten (gesamt) die er "An" war speichern. Da das ganze bei einem Neustart nicht gelöscht werden soll, wollte ich das per writeflash lösen...
Eigentlich dacht ich .. kann nicht so schwer sein.. aber irgendwie passt das Ergebnis nicht zu dem was ich erwartet hab.
könnt ihr da mal kurz drüberschauen und mir einen Tip geben.. ??
Gruß Martin
[highlight=epc] if systemstart() then readflash (Kesselalt, 1u16) endif
if event("Anforderung Kessel-1/3/0") and "Anforderung Kessel-1/3/0" then Kesselstart=(hour()*60)+minute() endif
if change("Anforderung Kessel-1/3/0") then Kesselstopp=(hour()*60)+minute() endif
if change("Anforderung Kessel-1/3/0") then Kesseldiv = Kesselstopp-Kesselstart endif
if change("Anforderung Kessel-1/3/0") then Kesselonline= Kesseldiv+Kesselalt endif
if htime(23,59,00) then writeflash (Kesselonline, 1u16) endif
if cycle(00,10) then display(24,Kesselonline, INFO, INACTIVE, GREEN) endif [/highlight]
Kommentar