HmIP-ESI per Script auslesen - Versuch scheitert

[jemue]

Will das Thema mal wieder angehen und muss es noch einmal ansprechen:

Hat jemand hier im Forum eine Idee, wie man die Messdaten (Zählerstand und Verbrauchsdaten) vom HmIP-ESI-Gas in Variable schreiben und somit auslesen kann?
Würde mich über eine Lösung sehr freuen - vorab ein Danke ins Forum.

[Baxxy]

eine Idee

Ja, besser mitarbeiten.

Punkt 1 um weiterzukommen wäre erstmal die beiden zum Zähler gehörenden internen Programme zu suchen, zu öffnen und deren jeweilige Scripte zu zeigen.

Eins dürfte "counter" im Namen tragen, das andere "ValuesAtMidnight".

[Einigmamatic]

Hallo zusammen,

nage gerade an demselben Problem. Versuche über ein Script den Gaszählerstand auszulesen. Liefert aber leider "0" zurück. Die Idee ist einfach den Zählerstand an eine Systemvariable zu übergeben und dann im Programm damit weiter zu arbeiten.

Code: Alles auswählen

var srcobj = dom.GetObject("HmIP-RF.xxxxxxxxxxxx:2.GAS_VOLUME").Value();
var dstobj = dom.GetObject("Gaszaehler");
var srcval = srcobj.Value();
if (srcval != dstobj.Value()) {
  dstobj.State(srcval);
}

Hat jemand eine Idee was da klemmt? Danke vorab.

[Baxxy]

Hat jemand eine Idee was da klemmt?

Ja, deine Scriptfähigkeiten sind wohl etwas eingerostet.

Code: Alles auswählen

object srcobj = dom.GetObject("HmIP-RF.xxxxxxxxxxxx:2.GAS_VOLUME");
object dstobj = dom.GetObject (ID_SYSTEM_VARIABLES).Get ("Gaszaehler");
var srcval = srcobj.Value();
if (srcval != dstobj.Value()) {
dstobj.State(srcval);
}

Warum wollen alle immer den "Zählerstand" aus dem Gerät auslesen?
- der entspricht nie dem realen Zählerstand der Messstelle
- er ist flüchtig, beginnt also nach Batteriewechsel bei 0

Die zum Zähler gehörende systeminterne SysVar ist da doch viel besser geeignet.

[Xel66]

Warum wollen alle immer den "Zählerstand" aus dem Gerät auslesen?

Weil sie eben nichts von der Datenhaltung im Hintergund wissen, weil das System nur benutzt, aber nicht verstanden wird. Und weil die Daten beim Gerät dargestellt werden. Bei vielen Dingen kommt man mit "ich lese keine Anleitungen, ich drücke solange Knöpfe, bis es funktioniert" weiter. Bei Homematic kommt man mit dieser Einstellung nun mal schnell an Grenzen.

Gruß Xel66

[Einigmamatic]

Hallo Baxxy,

danke, das hilft weiter. Eingerostet nehme ich als Kompliment.
Blutiger Anfänger passt besser. Ich versuche mich gerade an das Thema heranzutasten.

[magnum1795]

möchte mich hier mal mit anhängen. Auch ich möchte gern die Werte "Verbrauch Heute, Verbrauch Gestern, Verbrauch 7 Tage und Verbrauch 30 Tage in SYstemvariablen schreiben lassen. Klappt aber bei mir auch nicht. Wie könnte ich die SV anlegen und was muss dann drin stehen? Vielen Dank schon mal.

Die SV sollten dann so heißen

GVerbrauchH
GVerbrauchG
GVerbrauch7
GVerbrauch30


Das interne Programm sieht so aus wie auf den Bild und das dazugehörige Script so

Code: Alles auswählen

object chn = dom.GetObject('46331');
object oEnergyCounter = chn.DPByControl('POWERMETER_PSM.GAS_VOLUME');
object oSysVarEnergyCounter = dom.GetObject('svEnergyCounter_46331_003FA2698AB51A:2');
object oSysVarEnergyCounterOldVal = dom.GetObject('svEnergyCounterOldVal_46331');
real devVal = oEnergyCounter.Value();
real devValMax = oEnergyCounter.ValueMax();
real oldDevVal = oSysVarEnergyCounterOldVal.Value();
real diffVal = 0.0;
real sysVarVal = oSysVarEnergyCounter.Value();
integer tmp_devVal = (devVal.ToString().ToFloat() * 1000).ToInteger();
integer tmp_oldDevVal = (oldDevVal.ToString().ToFloat() * 1000).ToInteger();
real energy0 = chn.MetaData('energy0').ToFloat();
if (tmp_oldDevVal > tmp_devVal) {
! An device overflow has occured
! diffVal = (devVal + devValMax) - oldDevVal;
} else {
diffVal = devVal - oldDevVal;
}
if (tmp_devVal != 0) {oSysVarEnergyCounterOldVal.State(devVal);
oSysVarEnergyCounter.State(sysVarVal + diffVal);
! Save todays energy consumption
chn.MetaData('energy0',energy0 + diffVal);
}

[Baxxy]

Das interne Programm sieht so aus wie auf den Bild und das dazugehörige Script so

Damit kann ich arbeiten, danke.

Eine Idee habe ich schon, wenn's fertig ist gebe ich bescheid.

[Baxxy]

Entwurf fertig, siehe:
viewtopic.php?f=31&t=82352

[magnum1795]

@ Baxxy
erstmal einen großen Dank für deine Mühen. Habe mal meine Scripts so angepasst wie du geschrieben hast in der HoTo. Leider werden aber die SV (noch) nicht beschrieben.

mein Script sieht jetzt so aus

Code: Alles auswählen

object chn = dom.GetObject('46331');
object oEnergyCounter = chn.DPByControl('POWERMETER_PSM.GAS_VOLUME');
object oSysVarEnergyCounter = dom.GetObject('svEnergyCounter_46331_003FA2698AB51A:2');
object oSysVarEnergyCounterOldVal = dom.GetObject('svEnergyCounterOldVal_46331');
real devVal = oEnergyCounter.Value();
real devValMax = oEnergyCounter.ValueMax();
real oldDevVal = oSysVarEnergyCounterOldVal.Value();
real diffVal = 0.0;
real sysVarVal = oSysVarEnergyCounter.Value();
integer tmp_devVal = (devVal.ToString().ToFloat() * 1000).ToInteger();
integer tmp_oldDevVal = (oldDevVal.ToString().ToFloat() * 1000).ToInteger();
real energy0 = chn.MetaData('energy0').ToFloat();
if (tmp_oldDevVal > tmp_devVal) {
! An device overflow has occured
! diffVal = (devVal + devValMax) - oldDevVal;
} else {
diffVal = devVal - oldDevVal;
}
if (tmp_devVal != 0) {oSysVarEnergyCounterOldVal.State(devVal);
oSysVarEnergyCounter.State(sysVarVal + diffVal);
! Save todays energy consumption
chn.MetaData('energy0',energy0 + diffVal);
object oOwnZaehlerstand_SysVar = dom.GetObject ('46331').Get ("Gaszähler - Zählerstand");
object oOwnVerbrauchHeuteSysVar = dom.GetObject ('46331').Get ("Gaszähler - Verbrauch heute");
 if (oOwnZaehlerstand_SysVar) { oOwnZaehlerstand_SysVar.State(sysVarVal + diffVal); }
 if (oOwnVerbrauchHeuteSysVar) { oOwnVerbrauchHeuteSysVar.State(energy0 + diffVal); } 
}

Code: Alles auswählen

integer loop = 0;
string last30Days = '';
string val;
real energy7 = 0.0;
real energy30 = 0.0;
object chn = dom.GetObject('46331');
! Retrieve energyCounter30Days
string energyCounter30Days = chn.MetaData('energyCounter30Days');
! Retrieve todays value
real energy0 = chn.MetaData('energy0').ToFloat();
! Move the values of the array energyCounter30Days one position to the right
foreach (val, energyCounter30Days.Split(',')) {
if (loop <= 28 ) {
last30Days = last30Days + val + ',';
} else {
if (loop == 29) {
last30Days = last30Days + val;
}
}
loop = loop + 1;
}
! Set the first position of the array energyCounter30Days to todays value.
last30Days = energy0.ToString(1) + ',' + last30Days;
!Store energyCounter30Days as meta data
chn.MetaData('energyCounter30Days', last30Days);
! Set the meta data of energy1 (yesterday), energy7 (week) and energy30 (months)
loop = 0;
foreach (val, last30Days.Split(',')) {
val = val.ToFloat();
if (loop == 0) {chn.MetaData('energy1', val);}
if (loop <= 6) {
energy7 = energy7 + val;
}
energy30 = energy30 + val;
loop = loop +1;
}
object oOwnVerbrauchHeuteSysVar = dom.GetObject ('46331').Get ("Gaszähler - Verbrauch heute");
object oOwnVerbrauchGesternSysVar = dom.GetObject ('46331').Get ("Gaszähler - Verbrauch gestern");
object oOwnVerbrauchLetzte7SysVar = dom.GetObject ('46331').Get ("Gaszähler - Verbrauch letzte 7 Tage");
object oOwnVerbrauchLetzte30SysVar = dom.GetObject ('46331').Get ("Gaszähler - Verbrauch letzte 30 Tage");
if (oOwnVerbrauchLetzte7SysVar) { oOwnVerbrauchLetzte7SysVar.State(energy7); }
if (oOwnVerbrauchLetzte30SysVar) { oOwnVerbrauchLetzte30SysVar.State(energy30); }
if (oOwnVerbrauchGesternSysVar) { oOwnVerbrauchGesternSysVar.State(energy0); }
if (oOwnVerbrauchHeuteSysVar) { oOwnVerbrauchHeuteSysVar.State(0.0); }
chn.MetaData('energy7', energy7);
chn.MetaData('energy30', energy30);
! Reset energy0 (today) - a new day begins
chn.MetaData('energy0', 0.0);
 

müssen denn die Gänzefüße mit rein oder nicht? ('46331') und Sorry für meine Dummen Fragen, verstehe aber nichts vom Scripten