Benötige Hilfe! Skript für Umstellung Bezug/Einspeisung Stromzähler

[dtp]

leider schreibt er keine werte.

In dem von dir gezeigten Screenshot werden auch keine Werte ausgegeben. Da wird nur geprüft, ob das Skript Fehler aufweist. Du musst es dazu schon unter "Programme & Zentralenverknüpfung" durch Klick auf den Button "Skript" ausführen.

[Tobisco]

Michael du hast recht ich verstehe nur Bahnhof

Stromzaeler_Bezug - Strom aktuell: 20168.313782
Stromzaeler_Bezug - Strom bisher: 20168.313599

Meitest du das so?

Das Programm habe ich manuell gestartet...

[Tobisco]

Hallo Michael

du hast recht ich verstehe nur Bahnhof, das Programm habe ich manuell gestartet.

Wenn ich das Skript teste kommt:

Stromzaeler_Bezug - Strom aktuell: 20168.330475
Stromzaeler_Bezug - Strom bisher: 20168.319672

Ich versuche nochmal meinen Plan zu erklären...

Mein IEC Energie-Zähler sendet alle 3 minuten Zählerstand: Einspeiung in kw/h, Bezug in kw/h und Leistung aktuell in Watt

Ich möche wenn sich der Zählerstand verändet eine Systemvariable umschalten auf bezug oder einspeisung.
Allso zählerstand einspeiung verandert, zählerstand bezug nicht dann Systemvariable auf Einspeisen. Das gleiche natürlich auch umgekehrt.

[MichaelN]

OK, wir nähern uns in kleinen Schritten an. Aber Du musst etwas mehr mitarbeiten.
Wenn ich sage "Debugging Tips durchlesen" meine ich damit: Link aufrufen, gucken wo das was zu Code Tags erklärt ist und dann anwenden.

Aber gut, ich sehe erstmal was ich wissen wollte. Die Datenpunkte liefern sinnvolle Ergebnisse. Also zumindest soweit ich das beurteilen kann.

Was ich aber immer noch nicht in meinen kleinen Kopf reinkriege - du schreibst:

Mein IEC Energie-Zähler sendet alle 3 minuten Zählerstand: Einspeiung in kw/h, Bezug in kw/h und Leistung aktuell in Watt

Ich schrieb:

Du hast einen HM-ES-TX-WM und der liefert 2 Zählerstände, einmal Einspeisung und einmal Bezug? Dann führ das obige Skript einmal für den einen Kanal, einmal für den andern aus.

Ich sehe in deinem Screenshot nur die Ergebnisse für einen Zählerstand. Anscheinend Bezug, wenn ich vom dem Namen ausgehe.
Gibt es sowas auch für Einspeisung?

[Tobisco]

Ja es gibt den selben noch für den Einspeisezählerstand.

Die beiden werte aktuell sind auch die jetztigen ist werte des Zählers.


Jetzt scheint die Sonne stark das ich von einer einspeisung ausgehen kann was auch zu den zählerständen passt

[MichaelN]

OK, dann mal die Ohren spitzen:

Du legst eine Systemvariable vom Typ Werteliste an. Diese muss folgende Werte bekommen:

Code: Alles auswählen

nur Bezug;Bezug größer Einspeisung;Einspeisung

Da mir immer noch nicht klar war, ob es auch die Konstellation geben kann, das eingespeist wird, aber die Einspeisung geringer als der aktuelle Netzbezug ist, habe ich 3 Stati erzeugt.

Wenn die SV existiert, passt Du im Skript die ersten 3 Zeilen an. Name der Zähler (wie bisher) und Name der SV eintragen (zwischen die "")
Dann mal in "Skript testen" laufen lassen und schauen ob es sinnvolle Ausgaben gibt.
Wenn ja, dann Programm anlegen, das auf Aktualisierung der Zähler reagiert (ver-ODER-t) und im DANN das Skript einfügen.

Zukünftig kannst Du dann auf den entsprechenden Status der SV in einem anderen Programm reagieren.

Code: Alles auswählen

string ZaehlerBezug = "Zaehlername:1";
string ZaehlerEinspeisung = "Zaehlername:1";
string NameStatusSV = "Status Zaehler"; ! Werteliste 0=nur Bezug 1=Bezug größer Einspeisung 2=Einspeisung

object SV = dom.GetObject(ID_SYSTEM_VARIABLES).Get(NameStatusSV);
object Bezug = dom.GetObject(ZaehlerBezug).DPByHssDP("IEC_ENERGY_COUNTER");
object Einspeisung = dom.GetObject(ZaehlerEinspeisung).DPByHssDP("IEC_ENERGY_COUNTER");
real altBez = 0; real neuBez = 0;
real altEin = 0; real neuEin = 0;
neuBez = Bezug.Value();
altBez = Bezug.LastValue();
WriteLine(ZaehlerBezug # " - aktuell: "# neuBez);
WriteLine(ZaehlerBezug # " - bisher: "# altBez);
neuEin = Einspeisung.Value();
altEin = Einspeisung.LastValue();
WriteLine(ZaehlerEinspeisung # " - aktuell: "# neuEin);
WriteLine(ZaehlerEinspeisung # " - bisher: "# altEin);
if ( (neuEin > altEin) && (neuBez == altBez) ) {
	! es wird eingespeist
    if (SV) {if (SV.State() != 2 ) {SV.State(2);}}
    WriteLine("es wird eingespeist");
}

if ( (neuEin > altEin) && (neuBez > altBez) ) {
	! Bezug größer Einspeisung
    if (SV) {if (SV.State() != 1 ) {SV.State(1);}}
    WriteLine("Bezug größer Einspeisung");
}

if ( (neuEin == altEin) && (neuBez > altBez) ) {
	! Bezug größer Einspeisung
    if (SV) {if (SV.State() != 0 ) {SV.State(0);}}
    WriteLine("Bezug");
}

if (SV) {
	WriteLine("Status: "#SV.State());
}

[Tobisco]

Danke schonmal soweit, mit den 3 Werten ist eine gute idee, es kann ja vorkommne das beide zähler stände sich verändern in der übgangszeit zwischen einspeisung und bezug.

Ich hoffe du siehst was ich falsch gemacht habe,

Code: Alles auswählen

string ZaehlerBezug = "Stromzaeler_Bezug";
string ZaehlerEinspeisung = "Stromzaeler_Einspeisung";
string NameStatusSV = "Strom_ueberschuss"; ! Werteliste 0=nur Bezug 1=Bezug größer Einspeisung 2=Einspeisung

object SV = dom.GetObject(ID_SYSTEM_VARIABLES).Get(NameStatusSV);
object Bezug = dom.GetObject(ZaehlerBezug).DPByHssDP("IEC_ENERGY_COUNTER");
object Einspeisung = dom.GetObject(ZaehlerEinspeisung).DPByHssDP("IEC_ENERGY_COUNTER");
real altBez = 0; real neuBez = 0;
real altEin = 0; real neuEin = 0;
neuBez = Bezug.Value();
altBez = Bezug.LastValue();
WriteLine(ZaehlerBezug # " - aktuell: "# neuBez);
WriteLine(ZaehlerBezug # " - bisher: "# altBez);
neuEin = Einspeisung.Value();
altEin = Einspeisung.LastValue();
WriteLine(ZaehlerEinspeisung # " - aktuell: "# neuEin);
WriteLine(ZaehlerEinspeisung # " - bisher: "# altEin);
if ( (neuEin > altEin) && (neuBez == altBez) ) {
	! es wird eingespeist
    if (SV) {if (SV.State() != 2 ) {SV.State(2);}}
    WriteLine("es wird eingespeist"};
}

if ( (neuEin > altEin) && (neuBez > altBez) ) {
	! Bezug größer Einspeisung
    if (SV) {if (SV.State() != 1 ) {SV.State(1);}}
    WriteLine("Bezug größer Einspeisung"};
}

if ( (neuEin == altEin) && (neuBez > altBez) ) {
	! Bezug größer Einspeisung
    if (SV) {if (SV.State() != 0 ) {SV.State(0);}}
    WriteLine("Bezug"};
}

if (SV) {
	WriteLine("Status: "#SV.State());
}

Auf ausführen kommt nichts, bei der fehlerprüfung kommt folgendes...

Code: Alles auswählen

Error 1 at row 21 col 54 near ^"};
}

[Baxxy]

Alles gut, du machst nichts falsch.

Micha hat bestimmt wieder am Handy gescripted und bei der Hitze kann man schon mal die falschen Klammern erwischen.
Hotfix-Version:

Code: Alles auswählen

string ZaehlerBezug = "Zaehlername:1";
string ZaehlerEinspeisung = "Zaehlername:1";
string NameStatusSV = "Status Zaehler"; ! Werteliste 0=nur Bezug 1=Bezug größer Einspeisung 2=Einspeisung

object SV = dom.GetObject(ID_SYSTEM_VARIABLES).Get(NameStatusSV);
object Bezug = dom.GetObject(ZaehlerBezug).DPByHssDP("IEC_ENERGY_COUNTER");
object Einspeisung = dom.GetObject(ZaehlerEinspeisung).DPByHssDP("IEC_ENERGY_COUNTER");
real altBez = 0; real neuBez = 0;
real altEin = 0; real neuEin = 0;
neuBez = Bezug.Value();
altBez = Bezug.LastValue();
WriteLine(ZaehlerBezug # " - aktuell: "# neuBez);
WriteLine(ZaehlerBezug # " - bisher: "# altBez);
neuEin = Einspeisung.Value();
altEin = Einspeisung.LastValue();
WriteLine(ZaehlerEinspeisung # " - aktuell: "# neuEin);
WriteLine(ZaehlerEinspeisung # " - bisher: "# altEin);
if ( (neuEin > altEin) && (neuBez == altBez) ) {
	! es wird eingespeist
    if (SV) {if (SV.State() != 2 ) {SV.State(2);}}
    WriteLine("es wird eingespeist");
}

if ( (neuEin > altEin) && (neuBez > altBez) ) {
	! Bezug größer Einspeisung
    if (SV) {if (SV.State() != 1 ) {SV.State(1);}}
    WriteLine("Bezug größer Einspeisung");
}

if ( (neuEin == altEin) && (neuBez > altBez) ) {
	! Bezug größer Einspeisung
    if (SV) {if (SV.State() != 0 ) {SV.State(0);}}
    WriteLine("Bezug");
}

if (SV) {
	WriteLine("Status: "#SV.State());
}

Achja, wurde zwar schon geschrieben... bitte Code in Codetags (</>) posten.

[MichaelN]

Ne, tatsächlich habe ich sogar den SDV benutzt, aber offline. Wo habe ich denn den Bug eingebaut?

Achja, wurde zwar schon geschrieben... bitte Code in Codetags (</>) posten

Das wird wohl nichts mehr.

[Baxxy]

Geschweifte Klammer an den WriteLines am Ende.