HM-ES-TX-WM/Strom-Script01

Thomas hat 3 Scripte geschrieben, die den heutigen und gestrigen Verbrauch in eine SysVar schreiben.
Ausserdem werden die Kosten aus dem entsprechenden Strompreis Eintrag in der Systemsteuerung der CCU berechnet.

http://homematic-forum.de/forum/viewtopic.php?f=27&t=23104#p198925_http://homematic-forum.de/forum/viewtopic.php?f=27&t=23104#p198925

Es werden folgende Systemvariablen für Script 1 und Script 2 benötigt:

eCountToday	Zahl Einheit kWh
eCountYesterday	Zahl Einheit kWh
eCostToday	Zahl Einheit: EUR
eCostYesterday	Zahl Einheit: EUR
eEXMemory	Zeichenkette Einheit : WH (Einheit is egal is nur Show)

Hinweis: Bei Nutzung vom mehreren Energierzählern müssen die Variablen für jeden Zähler eindeutig sein. In den Scripten lässt sich das sehr einfach mit einem Texteditor ändern, indem die Funktion Suchen / Ersetzen benutzt wird.
Beispiel: eCountToday -> eCountToday01 oder gasCountToday

var serialCounter
"XXXXX"; in jedem der Scripts mit der Seriennummer des eigenen Aktors füllen

Script 1 darf nur einmal am Tag (um 0 Uhr zweckmässigerweise) laufen und ermittelt den gestrigen Verbrauch und speichert den Zählerstand.

Universal für Strom und Gas sowie Einsatz von CuxD Exec. Bitte Hinweise am Anfang des Scrips beachten!!

!! Energy Costs Part 1

!! Berechnet die verbrauchten kWh seit dem letzten Aufruf + Preis

!! sollte einmal tgl. um 0 Uhr laufen

!! 02/15

!! (c) by thkl

!! Benötigte SystemVariablen:

!! Name : eCountYesterday Typ: Zahl Einheit kWh/m3

!! Name : eCostYesterday Typ: Zahl Einheit : EUR

!! Name : eEXMemory Typ: Zeichenkette

!! Verbrauchte Energie wird nach Scriptlauf in eCountYesterday in kWh/m3 gespeichert Kosten in eCostYesterday

!! serialCounter mit Seriennummer des HM Zählers füllen

!! useAsGasCounter = 0 ; Elektroenergie wird gezählt =1 Gas wird gezählt

!! cuxddevice wenn mit Seriennummer eines CuxD Exec Gerätes gefüllt wird das sonst system.exec verwendet

var serialCounter = "";

var useAsGasCounter = 0;

var cuxddevice = "";

var dpname = "ENERGY_COUNTER";

if (useAsGasCounter==1) {

dpname = "GAS_ENERGY_COUNTER";

}

string stdout;string stderr;

string cmd = "/bin/sh -c 'cat /etc/config/energyPrice|sed -r \"s/\\"//g\"'";

var eEXMemory = dom.GetObject("eEXMemory");

var svCountYesterday = dom.GetObject("eCountYesterday");

var svCostYesterday = dom.GetObject("eCostYesterday");

object devEnergyDP = dom.GetObject("BidCos-RF."#serialCounter#":1."#dpname);

string tmpSVal = eEXMemory.State();

real devcount = devEnergyDP.State();

real statelast = tmpSVal.ToFloat();

real cnyday = devcount-statelast;

if (cuxddevice!="") {

dom.GetObject("CUxD."#cuxddevice#":1.CMD_SETS").State(cmd);

dom.GetObject("CUxD."#cuxddevice#":1.CMD_QUERY_RET").State(1);

stdout = dom.GetObject("CUxD."#cuxddevice#":1.CMD_RETS").State();

} else {

system.Exec(cmd, &stdout, &stderr);

}

string sep = "\n";

string part;

string strCur;

real pricekwh=0;

real condvalue=0;

real heatvalue=0;

foreach(part,stdout.Split(sep)) {

string key = part.StrValueByIndex(":",0);

string val = part.StrValueByIndex(":",1);

if (useAsGasCounter==1) {

if (key=="gasHeatingValue"){

heatvalue = val.ToFloat();

}

if (key=="gasConditionNumber"){

condvalue = val.ToFloat();

}

if (key=="gasPrice"){

pricekwh = val.ToFloat();

}

} else {

if (key=="curPrice"){

pricekwh = val.ToFloat();

}

if (key=="currency") {

strCur=val;

}

eEXMemory.State(devcount.ToString());

if (useAsGasCounter==1) {

real consumtion = 0;

consumtion = heatvalue * condvalue * cnyday;

real costyed = pricekwh * consumtion;

svCountYesterday.State((cnyday));

svCostYesterday.State(costyed);

} else {

real costyed = pricekwh * (cnyday/1000);

svCountYesterday.State((cnyday/1000));

svCostYesterday.State(costyed);

}

Script 2 kann beliebig oft laufen und ermittelt den Vebrauch des aktuellen Tages

Universal für Strom und Gas sowie Einsatz von CuxD Exec. Bitte Hinweise am Anfang des Scrips beachten!!

!! Energy Costs Part 2

!! Berechnet die verbrauchten kWh seit dem letzten Aufruf von Script 1 also im Idealfall

!! den Verbrauch seit Mitternacht

!! kann beliebig oft laufen

!! funktioniert nur in Zusammenhang mit Script 1 richtig

!! 02/15

!! (c) by thkl

!! Benötigte SystemVariablen:

!! Name : eCountToday Typ: Zahl Einheit kWh

!! Name : eCostToday Typ: Zahl Einheit: EUR

!! Name : eEXMemory Typ: Zeichenkette

!! Verbrauchte Energie wird nach Scriptlauf in eCountToday in kWh gespeichert Kosten in eCostToday

!! serialCounter mit Seriennummer des HM Zählers füllen

!! useAsGasCounter true = Gaszähler ; false = Elektro

string serialCounter = "";

boolean useAsGasCounter = false;

string cuxddevice = "";

var dpname = "ENERGY_COUNTER";

if (useAsGasCounter==true) {

dpname = "GAS_ENERGY_COUNTER";

}

string stdout;string stderr;

string cmd = "/bin/sh -c 'cat /etc/config/energyPrice|sed -r \"s/\\"//g\"'";

var eEXMemory = dom.GetObject("eEXMemory");

var svCountToday = dom.GetObject("eCountToday");

var svCostToday = dom.GetObject("eCostToday");

object devEnergyDP = dom.GetObject("BidCos-RF."#serialCounter#":1."#dpname);

string tmpSVal = eEXMemory.State();

real devcount = devEnergyDP.State();

real statelast = tmpSVal.ToFloat();

real cntoday = devcount-statelast;

if (cuxddevice!="") {

dom.GetObject("CUxD."#cuxddevice#":1.CMD_SETS").State(cmd);

dom.GetObject("CUxD."#cuxddevice#":1.CMD_QUERY_RET").State(1);

stdout = dom.GetObject("CUxD."#cuxddevice#":1.CMD_RETS").State();

} else {

system.Exec(cmd, &stdout, &stderr);

}

string sep = "\n";

string part;

string strCur;

real pricekwh=0.0;

real condvalue=0.0;

real heatvalue=0.0;

foreach(part,stdout.Split(sep)) {

string key = part.StrValueByIndex(":",0);

string val = part.StrValueByIndex(":",1);

if (useAsGasCounter==true) {

if (key=="gasHeatingValue"){heatvalue = val.ToFloat();}

if (key=="gasConditionNumber"){condvalue = val.ToFloat();}

if (key=="gasPrice"){pricekwh = val.ToFloat();}

} else {

if (key=="curPrice"){pricekwh = val.ToFloat();}

}

if (useAsGasCounter==true) {

real consumtion = heatvalue * condvalue * cntoday;

real costtoday = pricekwh * consumtion;

svCountToday.State(cntoday);

svCostToday.State(costtoday);

} else {

real costtoday = pricekwh * (cntoday/1000);

svCountToday.State((cntoday/1000));

svCostToday.State(costtoday);

}

Script 2a ist eine Kombination aus Script 1 + 2

(Werte für heute, gestern, universell Strom / Gas und CuxD) Bitte Hinweise am Anfang des Scrips beachten!!

!! Energy Costs Part 2a

!! Berechnet die verbrauchten kWh/m3 und den Preis für Gas/Strom für den aktuellen Tag

!! Der erste Aufruf des Tages speichert den Verbrauch des Vortages

!! kann beliebig oft laufen sollte aber günstigerweise mindestens einmal jeden Tag um 0 Uhr laufen

!! 02/15

!! (c) by thkl

!! Benötigte SystemVariablen:

!! Name : eCountToday Typ: Zahl Einheit kWh / m3

!! Name : eCostToday Typ: Zahl Einheit: EUR

!! Name : eCountYesterday Typ: Zahl Einheit kWh / m3

!! Name : eCostYesterday Typ: Zahl Einheit: EUR

!! Name : eEXMemory Typ: Zeichenkette

!! serialCounter mit Seriennummer des HM Zählers füllen

!! useAsGasCounter = true -> Gaszähler ; false -> Elektrozähler

!! cuxddevice = Seriennummer des CuxD Exec Devices (optional - sonst wird system.exe genutzt)

string serialCounter = "";

boolean useAsGasCounter = false;

string cuxddevice = "";

!! ================== do not change anything below ==========

var dpname = "ENERGY_COUNTER";

if (useAsGasCounter==true) {dpname = "GAS_ENERGY_COUNTER";}

string stdout;string stderr;

string cmd = "/bin/sh -c 'cat /etc/config/energyPrice|sed -r \"s/\\"//g\"'";

object devEnergyDP = dom.GetObject("BidCos-RF."#serialCounter#":1."#dpname);

var eEXMemory = dom.GetObject("eEXMemory");

!! integer lastSetMemory = eEXMemory.Timestamp().ToInteger();
integer day = system.Date("%j").ToInteger();
integer year = system.Date("%Y");
integer lastSetDay = eEXMemory.Timestamp().Yearday();
integer lastSetYear = eEXMemory.Timestamp().Year();
boolean braveNewDay = false;
if ((day>lastSetDay) || (year > lastSetYear)) {
braveNewDay = true;
}

string tmpSVal = eEXMemory.State();

real devcount = devEnergyDP.State();

real statelast = tmpSVal.ToFloat();

real cnyday = devcount-statelast;

if (cuxddevice!="") {

dom.GetObject("CUxD."#cuxddevice#":1.CMD_SETS").State(cmd);

dom.GetObject("CUxD."#cuxddevice#":1.CMD_QUERY_RET").State(1);

stdout = dom.GetObject("CUxD."#cuxddevice#":1.CMD_RETS").State();

} else {

system.Exec(cmd, &stdout, &stderr);

}

string sep = "\n";

string part;

string strCur;

real pricekwh=0.0;

real condvalue=0.0;

real heatvalue=0.0;

foreach(part,stdout.Split(sep)) {

string key = part.StrValueByIndex(":",0);

string val = part.StrValueByIndex(":",1);

if (useAsGasCounter==true) {

if (key=="gasHeatingValue"){heatvalue = val.ToFloat();}

if (key=="gasConditionNumber"){condvalue = val.ToFloat();}

if (key=="gasPrice"){pricekwh = val.ToFloat();}

} else {

if (key=="curPrice"){pricekwh = val.ToFloat();}

}

if (braveNewDay==true) {

eEXMemory.State(devcount.ToString());

}

real enerycost = 0.0;

real enerycount = 0.0;

if (useAsGasCounter==true) {

real consumtion = 0;

consumtion = heatvalue * condvalue * cnyday;

enerycost = pricekwh * consumtion;

enerycount = cnyday;

} else {

enerycount = (cnyday/1000);

enerycost = pricekwh * enerycount;

}

if (braveNewDay==true) {

dom.GetObject("eCountYesterday").State(enerycount);

dom.GetObject("eCostYesterday").State(enerycost);

} else {

dom.GetObject("eCountToday").State(enerycount);

dom.GetObject("eCostToday").State(enerycost);

}

===

Script 3 für die Berrechnung der jährlichen Energiekosten Strom oder Gas universell.

Hier wird schon zwischen Elektro und Gas Zähler unterschieden. Auch kann optional ein CuxD Exec Device statt system.exec verwendet werden. Siehe Kommentare im Script

Folgende Variablen:

eLastInvoice	Zahl	hier den Zählerstand der letzten Energieabrechnung in kWh oder m3 eintragen
eStart	Zeichenkette	hier den aktuellen Zählerstand und den Zählerstand des Energiemessgerätes in ganzen kWh oder m3 eintragen und zwar wie folgt:
		Zählerstand EZähler\|Zählerstand HM Zähler (Beispiel 17456\|5 ; wenn der Schwarze Kasten im E-Verteiler 17456 zeigt und gleichzeitig das HM Gerät 5) Achtung das HM Gerät zählt in WattStunden also / 1000
		Die Variable eStart dient der Differenzrechnung um bei jedem Scriptaufruf auf den aktuellen Zählerstand des richtigen EZählers berechnen zu können
eUsedEnergyCost	Zahl	Einheit :EUR - Energiekosten
eUsedEnergyCount	Zahl	Einheit :kWh oder m3 - Verbrauchte kWh oder m3
eTotalEnergyCount	Zahl	Einheit :kWh oder m3 - aktueller Stand des Zählers

		Folgende Variablen am Anfang des Scriptes anpassen:
useAsGasCounter		useAsGasCounter = 0 - E Zähler ; = 1 Gas Zähler
cuxddevice		cuxddevice = Seriennummer des CuxD Exec Devices. Wenn nicht vorhanden leer lassen dann wird system.exec genommen
var serialCounter		"XXXXX"; -> hier wieder Seriennummer anpassen

!! Energy Costs Part 3                                                       
!!
!! Berechnet die verbrauchten kWh/m3 seit der letzten Abrechnung des Energielieferanten
!!
!! kann beliebig oft laufen
!!
!! 02/15                                                 
!! (c) by thkl
!!
!! Benötigte SystemVariablen:
!! Name : eLastInvoice Typ:Zahl -> hier den Zählerstand der letzten Energieabrechnung in kWh oder m3 eintragen.
!! Name : eStart Typ: Zeichenkette -> hier den aktuellen Zählerstand und den Zählerstand des Energiemessgerätes in ganzen kWh eintragen und zwar wie folgt:
!! Zählerstand EZähler|Zählerstand HM Zähler (Beispiel 17456|5 ; wenn der Schwarze Kasten im E-Verteiler 17456 zeigt und gleichzeitig das HM Gerät 5) Achtung das HM Gerät zählt in WattStunden (alternativ natürlich die Gaszählerwerte)
!! also / 1000
!! Name : eUsedEnergyCost Typ: Zahl Einheit :EUR 
!! Name : eUsedEnergyCount Typ: Zahl Einheit :kWh oder m3
!! Name : eTotalEnergyCount Typ: Zahl Einheit :kWh oder m3
!! Energiekosten werden nach Scriptlauf in eUsedEnergyCost gespeichert
!! Verbrauchte KwH werden nach Scriptlauf in eUsedEnergyCount gespeichert
!! aktueller Stand des Stromzählers wird in eTotalEnergyCount gespeichert

!!

!! serialCounter = "" - Hier die Seriennummer des HM Zählregrätes eintragen

!! useAsGasCounter = 0 - E Zähler ; = 1 Gas Zähler

!! cuxddevice = Seriennummer des CuxD Exec Devices. Wenn nicht vorhanden leer lassen dann wird system.exec genommen

var serialCounter = "";

var useAsGasCounter = 0;

var cuxddevice = "";

!! ================ ab hier nichts mehr aendern

var dpname = "ENERGY_COUNTER";

if (useAsGasCounter==1) {

dpname = "GAS_ENERGY_COUNTER";

}

var svLastInvoice = dom.GetObject("eLastInvoice");

var svMemory = dom.GetObject("eStart");

var svUsedEnergyCost = dom.GetObject("eUsedEnergyCost");

var svUsedEnergyCount = dom.GetObject("eUsedEnergyCount");

var svTotalEnergyCount = dom.GetObject("eTotalEnergyCount");

var memory = svMemory.State();

var countLastIncoice = svLastInvoice.State();

object devEnergyDP = dom.GetObject("BidCos-RF."#serialCounter#":1."#dpname);

real oec = memory.StrValueByIndex("|",0).ToFloat();

real shc = memory.StrValueByIndex("|",1).ToFloat();

real chc = devEnergyDP.State();

string stdout;string stderr;

string cmd = "/bin/sh -c 'cat /etc/config/energyPrice|sed -r \"s/\\"//g\"'";

if (cuxddevice!="") {

dom.GetObject("CUxD."#cuxddevice#":1.CMD_SETS").State(cmd);

dom.GetObject("CUxD."#cuxddevice#":1.CMD_QUERY_RET").State(1);

stdout = dom.GetObject("CUxD."#cuxddevice#":1.CMD_RETS").State();

} else {

system.Exec(cmd, &stdout, &stderr);

}

string sep = "\n";

string part;

string strCur;

real pricekwh=0;

real condvalue=0;

real heatvalue=0;

foreach(part,stdout.Split(sep)) {

string key = part.StrValueByIndex(":",0);

string val = part.StrValueByIndex(":",1);

if (useAsGasCounter==1) {

if (key=="gasHeatingValue"){

heatvalue = val.ToFloat();

}

if (key=="gasConditionNumber"){

condvalue = val.ToFloat();

}

if (key=="gasPrice"){

pricekwh = val.ToFloat();

}

} else {

if (key=="curPrice"){

pricekwh = val.ToFloat();

}

if (key=="currency") {

strCur=val;

}

if (useAsGasCounter==1) {

real cec = (chc - shc)+oec;

real uec = cec-countLastIncoice;

real consumtion = heatvalue * condvalue * uec;

real costyear = pricekwh * consumtion;

svUsedEnergyCost.State(costyear);

svUsedEnergyCount.State(uec);

svTotalEnergyCount.State(cec);

} else {

real cec = ((chc/1000) - shc)+oec;

real uec = cec-countLastIncoice;

real costyear = pricekwh * (uec);

svUsedEnergyCost.State(costyear);

svUsedEnergyCount.State(uec);

svTotalEnergyCount.State(cec);

}

Script 4 setzt die CCU interne Zähl-Variable auf den aktuellen Zählerstand

Beispiel für Strom Zähler:

dom.GetObject("svEnergyCounter_XXXXX_XXXXXXXXXX:1").State(dom.GetObject("BidCos-RF.SERIENNUMMER:1.ENERGY_COUNTER").State()+12345);

Wobei 12345 der Stand des richtigen Zählers bei 0 Stellung des HM Zählers ist. Bei Bedarf kann man natürlich den HM Zähler durch Batterie raus wieder auf 0 setzen.

Wichtig: Der Eintrag svEnergyCounter_XXXXX_XXXXXXXXXX:1 ist auf jeder CCU bei jedem Zählgerät unterschiedlich. Du kannst diesen Namen wie folgt ermitteln:

Rufe im WebUI die Programme auf und blende die Systeminternen Programme mit ein. Du wirst ein Programm finden welches prgEnergyCounter_XXXXXX_XXXXXXXXX:1 heisst.

Wobei die ersten 5 Stellen die interne Objektnummer und die nächsten Stellen die Seriennummer des Zählgerätes sind. Diesen Teil kopiere und ersetze im Script oben.

2 Beispiele für GAS Zähler (anderer Datenpunkt !!)

object oSysVarEnergyCounter = dom.GetObject('svEnergyCounterGas_4678_MEQ0025494:1');
oSysVarEnergyCounter.State(45939.34);

dom.GetObject("svEnergyCounter_4678_MEQ0025494:1").State(dom.GetObject("BidCos-RF.MEQ0025494:1.GAS_ENERGY_COUNTER").State()+45939,34);

Script 5 berechnet den Verbrauch für GAS m3/Std fortlaufend

Es gibt beim Energiezähler einen Datenpunkt "GAS_POWER" , der bei der FW 1.0 unbrauchbar ist. Er soll den momentanen Verbrauch darstellen, geht aber z.B. nicht auf Null, wenn der Gaszähler nicht läuft-. Auch nicht nach mehreren Stunden.

In der WebUI der CCU gibt es unter Programme (nach dem die systeminternen Programme eingeblendet wurden) für jeden Energiezähler ein Programm, das getriggert wird, wenn sich der Datenpunkt "GAS_ENERGY_COUNTER" aktualisiert. In diesem Programm fügen wir im DANN Bereich ein zweites Script hinzu, das den Verbrauch / Std berechnet.

Gebraucht wird nur eine SystemVariable vom Typ Zahl "gas_m3_Std"
Diese SysVar kann dann mit beliebigen externen Tools aufgezeichnet werden um Diagramme zu erstellen.

    ! Durchfluss in m³/h berechnen für Gas Zähler
    ! Datenpunkt des auslösenden Zählwertes
    object zdp = dom.GetObject("$src$");
    if (zdp)
    {
      integer now = zdp.Timestamp().ToInteger();
      integer last = zdp.LastTimestamp().ToInteger();
      integer diffTime = now - last;
      real val = zdp.Value();
      real lastval = zdp.LastValue();
      real diffVal = val - lastval;
      real durchfluss = 3600.0 * diffVal / diffTime;
      dom.GetObject("gas_m3_Std").State(durchfluss);
    }

HM-ES-TX-WM/Strom-Script01

Script 1 darf nur einmal am Tag (um 0 Uhr zweckmässigerweise) laufen und ermittelt den gestrigen Verbrauch und speichert den Zählerstand.

Script 2 kann beliebig oft laufen und ermittelt den Vebrauch des aktuellen Tages

Script 2a ist eine Kombination aus Script 1 + 2

Script 3 für die Berrechnung der jährlichen Energiekosten Strom oder Gas universell.

Script 4 setzt die CCU interne Zähl-Variable auf den aktuellen Zählerstand

Script 5 berechnet den Verbrauch für GAS m3/Std fortlaufend

Wikimatic