[Gelöst] Syntax hilfe bei notify

[Nielsiwilsi]

Hallo,
ich versuche gerade eine Nachricht (incl. Verbrauchskosten) zu schicken, wenn die Waschmaschine fertig ist.

Ich bekomme aber immer eine Fehlermeldung beim speichern:
syntax error at (eval 35783) line 1, near "WMA_Pwr_start:"
Global symbol "$ges" requires explicit package name at (eval 35783) line 9.
syntax error at (eval 35783) line 12, near "}}"

Wahrscheinlich was ganz simples, aber ich werde nicht schlau draus. Die Dummies etc. aber sollten passen. Hab mich bei verschiedenen Quellen des Codes bedient.

Code Auswählen Erweitern

WK.WMA_Pwr:power:.* {my $ges = ((Value([n_WK.WMA_Pwr_start:start_pwr]) - Value([WK.WMA_Pwr:energy]))*Value([HA.StrompreisEUR]))
     if (ReadingsNum("WK.WMA_Pwr", "power", 0) > 10 && ReadingsVal("n_WK.WMA_Pwr_start", "running", "off") eq "off") {
          fhem("setreading n_WK.WMA_Pwr_start running on");
  fhem("setreading n_WK.WMA_Pwr_start start_pwr [WK.WMA_Pwr:energy]");
     }

     if (ReadingsNum("WK.WMA_Pwr", "power", 0) < 3 && ReadingsVal("n_WK.WMA_Pwr_start", "running", "off") eq "on") {
          fhem("setreading n_WK.WMA_Pwr_start running off");
  fhem("setreading n_WK.WMA_Pwr_start Kosten $ges");
  fhem("set TelegramBot send Waschmaschine fertig ([n_WK.WMA_Pwr_start:Kosten] €)");
     }
}

[CoolTux]

Dein Aufruf der Value Funktion ist total falsch.
my $value = Value(DEVICENAME);

[Otto123]

Hi,

also ich habe das auch noch nicht ganz geschnallt, an manchen Stellen in FHEM geht tatsächlich sowas -> [n_WK.WMA_Pwr_start:start_pwr] also [<device>:<reading>]
Aber Du bist auf Perl Ebene, da geht nur ReadingsVal("<device>","<reading>","<default>")

Value liefert lediglich den state zurück und kein reading.

Gruß Otto

[CoolTux]

Sogenannte SetMagic Aufrufe gehen nur in Verbindung mit dem set Befehl und natürlich nur auf fhem Ebene.

[Otto123]

oh Mann, das lese ich jetzt zum ersten mal  -> SetMagic, set-magic oder set magic (habe mehrere Schreibweisen gefunden)

[DEVICENAME:READING]

Diese Schreibweise geht also im:
set Befehl
DOIF
IF

Richtig?

Gruß Otto

[CoolTux]

Genau. Wurde so zu sagen bisschen von DOIF abgekuckt. Du kannst also Deinem set Befehl Werte mitgeben die aktuell beim ausführen des Befehles ausgelesen werden.

[Otto123]

Genau. Wurde so zu sagen bisschen von DOIF abgekuckt.

Schön das wir das mal geklärt haben, genau diesen Eindruck hatte ich irgendwie  als ich mal irgendwann vor "ewiger" Zeit festgestellt habe das das geht 

[Nielsiwilsi]

Dein Aufruf der Value Funktion ist total falsch.
my $value = Value(DEVICENAME);

OK, das funktioniert für WK.WMA_Pwr und HA.StrompreisEUR.
Aber was mach ich mit [n_WK.WMA_Pwr_start:start_pwr], hier hab ich den Anfangswert von WK.WMA_Pwr in ein reading gepackt.

Code Auswählen Erweitern

WK.WMA_Pwr:power:.* {my $ges = ((Value([n_WK.WMA_Pwr_start:start_pwr]) - Value(WK.WMA_Pwr)) * Value(HA.StrompreisEUR))
     if (ReadingsNum("WK.WMA_Pwr", "power", 0) > 10 && ReadingsVal("n_WK.WMA_Pwr_start", "running", "off") eq "off") {
          fhem("setreading n_WK.WMA_Pwr_start running on");
  fhem("setreading n_WK.WMA_Pwr_start start_pwr [WK.WMA_Pwr:energy]");
     }

     if (ReadingsNum("WK.WMA_Pwr", "power", 0) < 3 && ReadingsVal("n_WK.WMA_Pwr_start", "running", "off") eq "on") {
          fhem("setreading n_WK.WMA_Pwr_start running off");
  fhem("setreading n_WK.WMA_Pwr_start Kosten $ges");
  fhem("set TelegramBot send Waschmaschine fertig ([n_WK.WMA_Pwr_start:Kosten] €)");
     }
}

[igami]

OK, das funktioniert für WK.WMA_Pwr und HA.StrompreisEUR.
Aber was mach ich mit [n_WK.WMA_Pwr_start:start_pwr], hier hab ich den Anfangswert von WK.WMA_Pwr in ein reading gepackt.

ReadingsVal statt Value verwenden. Steht ebenfals im Perl Teil der Commandref.

[Otto123]

ReadingsVal hatte ich das zu ausführlich geschrieben? 

[Nielsiwilsi]

Hi, wieder was gelernt.
Die erste Zeile ist nun OK.

syntax error at (eval 38040) line 2, near ") {"
Global symbol "$ges" requires explicit package name at (eval 38040) line 9.
syntax error at (eval 38040) line 12, near "}}"

Code Auswählen Erweitern

WK.WMA_Pwr:power:.* {my $ges = ((ReadingsVal(n_WK.WMA_Pwr_start,start_pwr,"0") - ReadingsVal(WK.WMA_Pwr,energy,"0")) * ReadingsVal(HA.StrompreisEUR,state,"0.2205"))
     if (ReadingsNum("WK.WMA_Pwr", "power", 0) > 10 && ReadingsVal("n_WK.WMA_Pwr_start", "running", "off") eq "off") {
          fhem("setreading n_WK.WMA_Pwr_start running on");
  fhem("setreading n_WK.WMA_Pwr_start start_pwr [WK.WMA_Pwr:energy]");
     }

     if (ReadingsNum("WK.WMA_Pwr", "power", 0) < 3 && ReadingsVal("n_WK.WMA_Pwr_start", "running", "off") eq "on") {
          fhem("setreading n_WK.WMA_Pwr_start running off");
  fhem("setreading n_WK.WMA_Pwr_start Kosten $ges");
  fhem("set TelegramBot send Waschmaschine fertig ([n_WK.WMA_Pwr_start:Kosten] €)");
     }
}

[Otto123]

ReadingsVal("","","") 

Die erste Zeile ist überhaupt nicht ok

[CoolTux]

Am Ende der ersten Zeile ein ; machen und alle Devicenamen in " " oder ' '

Code Auswählen Erweitern


fhem("set TelegramBot send Waschmaschine fertig [n_WK.WMA_Pwr_start:Kosten] €");

Und die letzte Zeile Mal so probieren

[Nielsiwilsi]

Und die letzte Zeile Mal so probieren

Scheint aber zu funktionieren. Ich werde es trotzdem mal testen, wenn meine Frau wieder eine Maschine wäscht.

Waschmaschine fertig (0.0882000000003209 €)

Hab noch was an der Logik geändert und die Berechnung in die zweit if gepackt.

Code Auswählen Erweitern

WK.WMA_Pwr:power:.* {
     if (ReadingsNum("WK.WMA_Pwr", "power", 0) > 10 && ReadingsVal("n_WK.WMA_Pwr_start", "running", "off") eq "off") {
fhem("setreading n_WK.WMA_Pwr_start running on");
fhem("setreading n_WK.WMA_Pwr_start start_pwr [WK.WMA_Pwr:energy]");
     }

     if (ReadingsNum("WK.WMA_Pwr", "power", 0) < 3 && ReadingsVal("n_WK.WMA_Pwr_start", "running", "off") eq "on") {
my $ges = ((ReadingsVal("WK.WMA_Pwr","energy",0) - ReadingsVal("n_WK.WMA_Pwr_start","start_pwr",0)) * ReadingsVal("HA.StrompreisEUR","state","0.2205"));
fhem("setreading n_WK.WMA_Pwr_start running off");
fhem("setreading n_WK.WMA_Pwr_start end_pwr [WK.WMA_Pwr:energy]");
fhem("setreading n_WK.WMA_Pwr_start Kosten $ges");
fhem("set TelegramBot send Waschmaschine fertig ([n_WK.WMA_Pwr_start:Kosten] €)");
     }
}

[Nielsiwilsi]

Vielen Dank an Alle, die mir gestern beim Debuggen geholfen haben. Jetzt funktioniert es.

Waschmaschine fertig (0.35374815 €)

Und zwar mir folgenden finalem Code, Voraussetzung ist ein HM-ES-PMSw1-Pl zur Strommessung und ein TelegramBot zum schicken der Nachricht:

Code Auswählen Erweitern

defmod HA.StrompreisEUR dummy
attr HA.StrompreisEUR room Haus
setstate HA.StrompreisEUR 0.2205

Code Auswählen Erweitern

defmod WK.WMA_Pwr CUL_HM 12345678
attr WK.WMA_Pwr room Waschkeller

Code Auswählen Erweitern

defmod n_WK.WMA_Pwr_start notify WK.WMA_Pwr:power:.* {\
     if (ReadingsNum("WK.WMA_Pwr", "power", 0) > 10 && ReadingsVal("n_WK.WMA_Pwr_start", "running", "off") eq "off") {\
fhem("setreading n_WK.WMA_Pwr_start running on");;\
fhem("setreading n_WK.WMA_Pwr_start start_pwr [WK.WMA_Pwr:energy]");;\
     }\
     if (ReadingsNum("WK.WMA_Pwr", "power", 0) < 3 && ReadingsVal("n_WK.WMA_Pwr_start", "running", "off") eq "on") {\
my $ges = (((ReadingsVal("WK.WMA_Pwr","energy",0)/1000) - (ReadingsVal("n_WK.WMA_Pwr_start","start_pwr",0))/1000) * ReadingsVal("HA.StrompreisEUR","state","0.2205"));;\
fhem("setreading n_WK.WMA_Pwr_start running off");;\
fhem("setreading n_WK.WMA_Pwr_start end_pwr [WK.WMA_Pwr:energy]");;\
fhem("setreading n_WK.WMA_Pwr_start Kosten $ges");;\
fhem("set TelegramBot send Waschmaschine fertig ([n_WK.WMA_Pwr_start:Kosten] €)");;\
     }\
}
attr n_WK.WMA_Pwr_start room Waschkeller