Leistungsmesser mit Systemvariable, Skript

[alchy]

Jetzt, da du weißt was Klickibunti ist, kannst du ja zur Seite eins zurück.
Wenn du dort was nicht verstehst musst du halt nachfragen.

Alchy

[bibo09]

Guten Morgen,

wie müsste dieses Skript angepasst werden, damit bei Zählerstand gestern und Zaehlerstand.letzter.Monat
das ganze auch in € errechnet wird?

Code: Alles auswählen

! akt. Zählerstand
real energy = dom.GetObject("BidCos-RF.LEQ0xxxxxx:2.ENERGY_COUNTER").Value();
! Zählerstand vorgestern einlesen
string last = dom.GetObject("Zaehlerstand.gestern").Value();
last = last.StrValueByIndex(" ",0);
! Verbrauch gestern
real verbrauch = energy - last.ToFloat();
dom.GetObject("Verbrauch.gestern").State(verbrauch.ToString(0)#" Wh");
! Zählerstand gestern speichern
dom.GetObject("Zaehlerstand.gestern").State(energy.ToString(0)#" Wh");

! Monatsverbrauch
integer tag = system.Date("%d").ToInteger();
if (tag == 1)
{ last = dom.GetObject("Zaehlerstand.letzter.Monat").Value();
  last = last.StrValueByIndex(" ",0);
  verbrauch = energy - last.ToFloat();
  dom.GetObject("Verbrauch.letzter.Monat").State(verbrauch.ToString(0)#" Wh");
  dom.GetObject("Zaehlerstand.letzter.Monat").State(energy.ToString(0)#" Wh");
}

Danke und Gruß
bibo

[Suenzihome]

Wenn der Tagesverbrauch interessiert, muss man den Zählerstand zu einer bestimmten Zeit speichern und vom aktuellen Zählerstand abziehen.
HM Script, ausgelöst täglich um 00:01 Uhr:

Code: Alles auswählen

! akt. Zählerstand
real energy = dom.GetObject("BidCos-RF.LEQ0xxxxxx:2.ENERGY_COUNTER").Value();
! Zählerstand vorgestern einlesen
string last = dom.GetObject("Zaehlerstand.gestern").Value();
last = last.StrValueByIndex(" ",0);
! Verbrauch gestern
real verbrauch = energy - last.ToFloat();
dom.GetObject("Verbrauch.gestern").State(verbrauch.ToString(0)#" Wh");
! Zählerstand gestern speichern
dom.GetObject("Zaehlerstand.gestern").State(energy.ToString(0)#" Wh");

! Monatsverbrauch
integer tag = system.Date("%d").ToInteger();
if (tag == 1)
{ last = dom.GetObject("Zaehlerstand.letzter.Monat").Value();
  last = last.StrValueByIndex(" ",0);
  verbrauch = energy - last.ToFloat();
  dom.GetObject("Verbrauch.letzter.Monat").State(verbrauch.ToString(0)#" Wh");
  dom.GetObject("Zaehlerstand.letzter.Monat").State(energy.ToString(0)#" Wh");
}

Eine Frage habe ich hierzu wieviele Variablen muss ich denn hier anlegen. ich blicke danicht so genau durch.

[alchy]

wieviele Variablen muss ich denn hier anlegen

für das gepostete Script brauchst du 4 Systemvariablen wenn ich mich nicht verzählt habe.

Alchy

[Suenzihome]

Ok vielen Dank und diese Variablen sind alle ohne Kanalzuordnung Oder?

[alchy]

Eine mögliche Kanalzuordnung der Systemvariablen spielt für das Script keine Rolle.
Ich würde sie verknüpfen um sie dann auch entsprechend bei Status und Bedienung an der richtigen Stelle zu sehen.
Allerdings ist das wie alles Geschmackssache und ich benutze eine solche Auswertung gar nicht.

Alchy

[Suenzihome]

Vielen Dank.
Habe die variablen mit dem Kanal2 verknüpft.
Und auch das Script im Programm eingefügt jedoch erhalte ich keine werte habe es jetzt schon zwei Tage laufen lassen habe ich irgednwas falsch gemacht?
Wäre nett wenn sich das jemand mal anschauen könnte

[alchy]

Nun, da deine Variablen z.B.: Server.Zaehlerstand.gestern heißen und du im Script den Namen: Zaehlerstand.gestern verwendest,
knallt dir das Script im besten Fall nur das >> Fehlerprotokoll << zu.
Du findest den Fehler nun bestimmt selber, oder?
Beseitige diesen und poste das >> Fehlerprotokoll <<
zur Ausführungszeit des Programms.

Alchy

[Suenzihome]

Ja ok werde ich machen. Das Script hatte ich zu dem Zeitpunkt angepasst.

Code: Alles auswählen

! akt. Zählerstand
real energy = dom.GetObject("BidCos-RF.OEQ0631125:2.ENERGY_COUNTER").Value();
! Zählerstand vorgestern einlesen
string last = dom.GetObject("Server.Zaehlerstand.gestern").Value();
last = last.StrValueByIndex(" ",0);
! Verbrauch gestern
real verbrauch = energy - last.ToFloat();
dom.GetObject("Server.Verbrauch.gestern").State(verbrauch.ToString(0)#" Wh");
! Zählerstand gestern speichern
dom.GetObject("Server.Zaehlerstand.gestern").State(energy.ToString(0)#" Wh");

! Monatsverbrauch
integer tag = system.Date("%d").ToInteger();
if (tag == 1)
{ last = dom.GetObject("Server.Zaehlerstand.letzter.Monat").Value();
  last = last.StrValueByIndex(" ",0);
  verbrauch = energy - last.ToFloat();
  dom.GetObject("Server.Verbrauch.letzter.Monat").State(verbrauch.ToString(0)#" Wh");
  dom.GetObject("Server.Zaehlerstand.letzter.Monat").State(energy.ToString(0)#" Wh");
}

Übrigens stand dies im Log:

Code: Alles auswählen

Homematic-Raspberrymatic local0.err ReGaHss: ERROR: ScriptRuntimeError: ! akt. Zählerstand real energy = dom.GetObject("BidCos-RF.OEQ0631125:2.ENERGY_COUNTER").Value(); ! Zählerstand vorgestern einlesen string last = dom.GetObject("Server.Zaehlerstand.gestern").Value(); last = last.StrValueByIndex(" ",0); ! Verbrauch gestern real verbrauch = energy - last.ToFloat(); dom.GetObject("Server.Verbrauch.gestern").State(verbrauch.ToString(0)#" Wh"); ! Zählerstand gestern speichern dom.GetObject("
erver.Zaehlerstand.gestern").State(energy.ToString(0)#" Wh");  ! Monatsverbrauch integer tag = system.Date("%d").ToInteger(); if (tag == 1) { last = dom.GetObject("Server.Zaehlerstand.letzter.Monat").Value();   last = last.StrValueByIndex(" ",0);   verbrauch = energy - last.ToFloat();   dom.GetObject("Server.Verbrauch.letzter.Monat").State(verbrauch.ToString(0)#" Wh");   dom.GetObject("Server.Zaehlerstand.letzter.Monat").State(energy.ToString(0)#" Wh"); } [ExecError():iseESPexec.cpp:12761]

Ich hoffe es hilft weiter Danke

[alchy]

Das Script hatte ich zu dem Zeitpunkt angepasst.

Tja, und das sollten die Helfer / ich dann wohl hier erraten?
Wie schwer kann es denn sein seinen Soll / Ist zustand so zu dokumentieren, das der Gegenüber auch was damit anfangen kann?


Alchy
Ich verliere immer wieder mehr die Lust hier überhaupt helfen zu wollen.