Script für PV Überschuss

[Henke]

Code: Alles auswählen

! Script für PV Überschuss

object oPvIn =  dom.GetObject( "BidCos-RF.UEQ2074627:1.IEC_POWER" );
object oPvOut = dom.GetObject("HmIP-RF.002EDF29AD2082:1.LEVEL");
real rWertIn =  oPvIn.Value();
! real rWertIn = -1000.0;
WriteLine (rWertIn );

! f(x) [V] = -5x / 1000 , x e [0, -2000]
real rWertOut = ((-5.0 *rWertIn)/1000.0).Round(0);
WriteLine (rWertOut);
! x e [0, -2000]
if ( rWertOut < 0.0 ) { rWertOut = 0.0;}
if ( rWertOut > 10.0 ) { rWertOut = 10.0;}

rWertOut = rWertOut/10.0; ! siehe Baxxy Hinweis
if ( oPvOut.Value() != rWertOut )
{
 	WriteLine ("Setze neuen Wert" );
	oPvOut.State(rWertOut);
}

[Bahni]

Die Ausgabe ist:

Code: Alles auswählen

513.000000
-3.000000

Wie gesagt es sind ja jetzt keine negativen Zählerwerte.

[Baxxy]

Ja, passt.

Verschiebe mal...

Code: Alles auswählen

WriteLine (rWertOut);

...hinter Baxxys Hinweis.

Code: Alles auswählen

rWertOut = rWertOut/10.0; ! siehe Baxxy Hinweis
WriteLine (rWertOut);

In der jetzigen Form erfolgt der Output auch in "10% Schritten", das wolltest du doch im anderen Thread nicht, oder?

[Bahni]

Ja, passt.

Verschiebe mal...

Code: Alles auswählen

WriteLine (rWertOut);

...hinter Baxxys Hinweis.

Code: Alles auswählen

rWertOut = rWertOut/10.0; ! siehe Baxxy Hinweis
WriteLine (rWertOut);

In der jetzigen Form erfolgt der Output auch in "10% Schritten", das wolltest du doch im anderen Thread nicht, oder?

Der Output in 1% Schritten währe schon besser, denke ich. Aber ob das praktisch der Duty Cycle mitmacht.

Code: Alles auswählen

! Script für PV Überschuss

object oPvIn =  dom.GetObject( "BidCos-RF.UEQ2074627:1.IEC_POWER" );
object oPvOut = dom.GetObject("HmIP-RF.002EDF29AD2082:1.LEVEL");
real rWertIn =  oPvIn.Value();
! real rWertIn = -1000.0;
WriteLine (rWertIn );

! f(x) [V] = -5x / 1000 , x e [0, -2000]
real rWertOut = ((-5.0 *rWertIn)/1000.0).Round(0);
! x e [0, -2000]
if ( rWertOut < 0.0 ) { rWertOut = 0.0;}
if ( rWertOut > 10.0 ) { rWertOut = 10.0;}

rWertOut = rWertOut/10.0; ! siehe Baxxy Hinweis
WriteLine (rWertOut);
if ( oPvOut.Value() != rWertOut )
{
 	WriteLine ("Setze neuen Wert" );
	oPvOut.State(rWertOut);
}

Ausgabe ist:

1396.000000
0.000000

[Baxxy]

Ja, passt.

Du kannst das "simulieren" indem du in folgender Zeile...

Code: Alles auswählen

! real rWertIn = -1000.0;

...das Ausrufezeichen entfernst und z.B. einen negativen Wert deiner Wahl einträgst.

Hunderter-Schritte bekommst du wenn du den Rundungsfaktor änderst, also aus...

Code: Alles auswählen

real rWertOut = ((-5.0 *rWertIn)/1000.0).Round(0);

...mache...

Code: Alles auswählen

real rWertOut = ((-5.0 *rWertIn)/1000.0).Round(1);

Was du letztlich machst ist deine Sache, das Thema DC wurde ja schon angesprochen.
Bei hunderter-Schritten wird im schlimmsten fall dein ELV-SH-WUA im Sendezyklus des HM-ES-TX-WM angesteuert.

[Bahni]

Ja, passt.

Du kannst das "simulieren" indem du in folgender Zeile...

Code: Alles auswählen

! real rWertIn = -1000.0;

...das Ausrufezeichen entfernst und z.B. einen negativen Wert deiner Wahl einträgst.

Erst einmal tausend Dank für eure Hilfe!!!
Wenn ich die Zeile:

Code: Alles auswählen

real rWertIn = -2000.0;

setze, müsste der Heizstab (zum Testen habe ich eine Glühbirne dran) angehen?
Macht er nicht...

[Baxxy]

Sollte, ja.

Ich hatte noch nie einen ELV-SH-WUA beim Wickel...

Kannst du den über die WebUI "hochfahren" und wenn ja, geht dir dann das Licht auf?

Edit:
Ach ich seh's schon, es wird der falsche Kanal genutzt, es muss Kanal:2 sein.

Code: Alles auswählen

object oPvOut = dom.GetObject("HmIP-RF.002EDF29AD2082:2.LEVEL");

[Bahni]

Code: Alles auswählen

! Script für PV Überschuss

object oPvIn =  dom.GetObject( "BidCos-RF.UEQ2074627:1.IEC_POWER" );
object oPvOut = dom.GetObject("HmIP-RF.002EDF29AD2082:1.LEVEL");
real rWertIn =  oPvIn.Value();
real rWertIn = -2000.0;
WriteLine (rWertIn );

! f(x) [V] = -5x / 1000 , x e [0, -2000]
real rWertOut = ((-5.0 *rWertIn)/1000.0).Round(0);
! x e [0, -2000]
if ( rWertOut < 0.0 ) { rWertOut = 0.0;}
if ( rWertOut > 10.0 ) { rWertOut = 10.0;}

rWertOut = rWertOut/10.0; ! siehe Baxxy Hinweis
WriteLine (rWertOut);
if ( oPvOut.Value() != rWertOut )
{
 	WriteLine ("Setze neuen Wert" );
	oPvOut.State(rWertOut);
}

Ausgabe:

Code: Alles auswählen

-2000.000000
1.000000
Setze neuen Wert

Ja im WebUI kann ich den ELV-SH-WUA regeln.

[Baxxy]

Siehe mein Edit im vorigen Post.

[Bahni]

Siehe mein Edit im vorigen Post.

Ja, das wars. Geht!
Habe gerade noch etwas bemerkt, was auch auf dem Datenblatt des nachgeschalteten 40A Thyristorstellers steht.
Der Thyristorsteller regelt erst ab 2Volt auf, also 2-10Volt.
Bei den Script sind die 2Volt bei 500 Watt erreicht. Wie es jetzt ist würde der Heizstab immer erst bei -500Watt angehen.
Kannst du das Bitte noch anpassen?