notify Erweitern

[mcbuh]

Ich stehe etwas auf dem Schlauch.
Habe ein notify, welches abhängig von der Stromeinspeisung meine Wallbox steuern soll.

Folgendes habe ich aktuell:

define Wallbox_ntfy notify Strom:feed_L1.* { if(ReadingsVal("Strom","feed_L1","") <1500) { fhem("set Wallbox amp_current 6") }}

Soweit so gut, dieser Teil funktioniert auch. Ich möchte jetzt noch zusätzlich Wert zwischen 1500-1800 so wie 1800-2200 angeben und damit amp_Current erhöhen.
Kann einer von euch helfen?

[Beta-User]

https://wiki.fhem.de/wiki/Trick_der_Woche#Struktur_von_.22else_if.22_Verzweigungen

Du musst dabei halt darauf achten, dass die "logische Treppe" in der richtigen Reihenfolge abgegangen wird...

[mcbuh]

Meinst du also die Reihenfolge:

<2200
<1800
<1500


Oder kann ich auch werte von bis eingeben?

[Otto123]

Ich denke der Wert steht schon in $EVTPART1?
Dann mach doch einfach so (Code für Raw Definition wegen Zeilenumbruch \):

Code Auswählen Erweitern

defmod Wallbox_ntfy notify Strom:feed_L1.* { \
if($EVTPART1 < 1500) { fhem("set Wallbox amp_current 6") }\
if($EVTPART1 >= 1500 && $EVTPART1 < 1800 ) { fhem("set Wallbox amp_current x") }\
if($EVTPART1 >= 1800 && $EVTPART1 < 2200 ) { fhem("set Wallbox amp_current x") }\
}

[Nobbynews]

Meinst du also die Reihenfolge:
Oder kann ich auch werte von bis eingeben?

Vereinfacht ungefähr so:

Code Auswählen Erweitern


... Strom:feed_L1.* {
my $strom = ReadingsNum("Strom","feed_L1","");
my $soll = 0;
if ($strom < 1500 ) {$soll = 6}
elsif ($strom >= 1500 && $strom < 1800) {$soll = 8}
elsif ($strom >= 1800 && $strom < 2200) {$soll = 10}
fhem ("set Wallbox_amp amp_current $soll");
}


[Beta-User]

Das "else" impliziert bereits, dass die andere Bedingung NICHT eingetreten war, es geht also kürzer:

Code Auswählen Erweitern

... Strom:feed_L1.* {
my $strom = ReadingsNum("Strom","feed_L1","");
my $soll = 0;
if ($strom < 1500 ) {$soll = 6}
elsif ($strom < 1800) {$soll = 8}
elsif ($strom < 2200) {$soll =10}
fhem ("set Wallbox_amp amp_current $soll");
}
"and" sollte man auch DIREKT aus dem Perl-Sprachschatz streichen und ALLE "und" und "oder"-Verkettungen ausschließlich symbolisch schreiben (&& bzw. ||).

[mcbuh]

Vielen dank für eure Hilfe, werde es heute Abend mal testen.

[Beta-User]

...dann mal viel Erfolg...

Noch ein paar Anmerkungen: $EVTPART1 wie von Otto123 vorgeschlagen ist der "direkte" Weg - vorausgesetzt, da kommt immer eine Zahl in $EVTPART1.

Falls doch via ReadingsNum: Da du keine "Extrapolation" brauchst, sind "einfache Quotes schneller, und wenn man schon numerisch denkt, kann man den Ersatzwert auch numerisch angeben (auch wenn einem Perl das mit "leer" in der Regel nicht übel nimmt und als "unwahr" bewertet):

Code Auswählen Erweitern

my $strom = ReadingsNum('Strom','feed_L1',0);
Ansonsten musst du noch entscheiden, ob wirklich immer ein Wert gesetzt werden soll (dann kann man das am Ende so wieder zusammenlaufen lassen), oder ob ggf. einfach abgebrochen werden soll.

Hier noch eine Variante, die schlicht nichts macht für den Fall, dass irgendwas überhaupt-nicht-numerisches im Reading steht:

Code Auswählen Erweitern

... Strom:feed_L1.* {
my $strom = ReadingsNum('Strom','feed_L1',300000); #alternativ: $EVTPART1
return if $strom >=2200;
my $soll;
if ($strom < 1500 ) {$soll = 6}
elsif ($strom < 1800) {$soll = 8}
elsif ($strom < 2200) {$soll =10}
fhem ("set Wallbox_amp amp_current $soll");
}


[Nobbynews]

Da du keine "Extrapolation" brauchst, sind "einfache Quotes schneller,

Code Auswählen Erweitern


fhem ("set Wallbox_amp amp_current $soll");


Dann aber auch:

Code Auswählen Erweitern

fhem ('set Wallbox_amp amp_current '.$soll)

[Beta-User]

...an der Stelle braucht er es aber, und dann finde ich es in Doppelquotes (oder "qq") besser lesbar. Punkt-concats meide ich zwischenzeitlich, wenn es irgend sinnvoll geht.

[Nobbynews]

...an der Stelle braucht er es aber, und dann finde ich es in Doppelquotes (oder "qq") besser lesbar. Punkt-concats meide ich zwischenzeitlich, wenn es irgend sinnvoll geht.

Das Gemeine an dieser Variante ist mMn halt, dass man schnell das nötige Leerzeichen vergisst und sich dann dumm und dämlich sucht.

Und ist es nicht eigentlich die "Interpolation"

[mcbuh]

Das "else" impliziert bereits, dass die andere Bedingung NICHT eingetreten war, es geht also kürzer:

Code Auswählen Erweitern

... Strom:feed_L1.* {
my $strom = ReadingsNum("Strom","feed_L1","");
my $soll = 0;
if ($strom < 1500 ) {$soll = 6}
elsif ($strom < 1800) {$soll = 8}
elsif ($strom < 2200) {$soll =10}
fhem ("set Wallbox_amp amp_current $soll");
}


"and" sollte man auch DIREKT aus dem Perl-Sprachschatz streichen und ALLE "und" und "oder"-Verkettungen ausschließlich symbolisch schreiben (&& bzw. ||).

Nachdem ich am verzweifeln war und feststellen musste, das es 1.500 und nicht 1500 ist, habe ich mich für diesen Weg entschieden. Funktioniert einwandfrei, vielen Dank euch allen

[mcbuh]

Hier noch mein vollständiges notiy

Code Auswählen Erweitern

Strom:feed_L1.* {
my $strom = ReadingsNum("Strom","feed_L1","");
my $soll = 0;
if ($strom < 1.500 ) {$soll = 6}
elsif ($strom < 1.800) {$soll = 7}
elsif ($strom < 2.100) {$soll = 8}
elsif ($strom < 2.300) {$soll = 9}
elsif ($strom < 2.600) {$soll = 10}
elsif ($strom < 2.800) {$soll = 11}
elsif ($strom < 3.100) {$soll = 12}
elsif ($strom < 3.300) {$soll = 13}
elsif ($strom < 3.600) {$soll = 14}
elsif ($strom < 3.800) {$soll = 15}
elsif ($strom < 4.200) {$soll = 16}
fhem ("set Wallbox amp_current $soll");
}

[Otto123]

Gegenvorschlag

Code Auswählen Erweitern

Strom:feed_L1.* set Wallbox amp_current {(round $EVTPART1/0.26 , 0)}

Falls die Grenzen ein Problem sind:

Code Auswählen Erweitern

Strom:feed_L1.* {my $x = round $EVTPART1/0.26 , 0 ; if($x >= 6 && $x <= 16 ) {fhem("set Wallbox amp_current $x")} }/code]