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

[MichaelN]

Ich brauch ne neue Brille. Und dann kommt noch Copy&Paste dazu...
Dann bin ich mal gespannt, ob es denn funktioniert.
btw: in meinem Original-Beitrag auch korrigiert.

[NickHM]

Kurze Zwischenfrage an die Profis ....

Diese WriteLines sind jetzt zum Testen, damit man den WErt der einzelnen Variablen sieht.
Im eigentlichen Programm kann man die Zeilen auskommentieren.

Was passiert, wenn man (aus Versehen) die WriteLines nicht auskommentiert? Stört das die Script Abarbeitung oder gibt das Fehler im Log?

[MichaelN]

Ja, die WriteLines sind nur zum Debugging und nein, die stören nicht.
Also einfach so lassen wie es ist.

Aber die Ausgabe würde mich schon interessieren. Will wenigstens mal sehen, ob es funktioniert wie ich mir das gedacht habe.

[Tobisco]

Als allererstes schon vielen vielen danke an alle die mir hier mit geholfen haben ich weiß das ich keinen Plan habe in leider eine lange leitung habe Sorry dafür.

Zum eigentlichen thema.

Es scheint zu funktieren.

Da die Sonne nicht mehr scheint kann ich nicht sagen ob die umstellung funktioniert, die Systemvariable steht wie sie es auch soll auf "nur bezug".

Ich gebe morgen eine Weitere Rückmeldung.

Nochmal Danke

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());
}

[Tobisco]

Hallo zusammen,

abschließende Rückmeldung. Das Skript macht was es soll funktioniert tadellos.

Nachmal danke an alle die geholfen haben.