Usertreffen/Erfahrungsaustausch Im Raum Braunschweig/Peine/Hannover

[AlexSchei]

Sind per PN unterwegs

[dieter114]

Hallo Leute

ich habe massiv Performanceprobleme. Höre nur noch zu.
Schade - Schöne Grüße
Wolfdieter

[dieter114]

Ich versuche mal mein Problem hier darzustellen:
Es wird mit HTTPMOD ein Datensatz an einen EspEasy gesendet welcher das auf einem LCD Modul in Farbe anzeigt.

Code Auswählen Erweitern

defmod Pool_Anz_1 HTTPMOD http://192.168.178.41:80/control?cmd=LCD,1,16,1,%Prozent%°C
attr Pool_Anz_1 userattr HTTPMOD HTTPMOD_map replacement01Mode:reading,internal,text,expression,key structexclude
attr Pool_Anz_1 replacement01Mode expression
attr Pool_Anz_1 replacement01Regex %Prozent%
attr Pool_Anz_1 replacement01Value { ReadingsVal("pool.water2","temperature",0);; }
attr Pool_Anz_1 room Steuerung
Die 1, 16, 1 bedeutet Spalte 1; Zeile 16; Farbe 1 (weiß)
Die angezeiten Werte sind dann pool.water2:temperatur also z.B. 22,5 °C
Mittels eine zweiten Replacements (Farbe) würrde ich gern die angezeigte Temperatur farbig anpassen
also >25°C = Grün oder < 24 = blau usw.
Die Farben entsprechen ganzen Zahlen von 0-7.
Nur mit diesem Replacement habe ich so meine Probleme.....

Schöne Grüße aus Peine
Wolfdieter

[CoolTux]

Guten Morgen,

Leider ungetestet. Aber versuch mal

Code Auswählen Erweitern


{ my $temp = ReadingsVal('pool.water2','temperature',0);
  return $temp    > 30 ? 7
          : $temp > 25 ? 6
          : $temp > 20 ? 5
          : $temp > 15 ? 4
          : $temp > 10 ? 3
          : $temp >  5 ? 2
          : $temp >  0 ? 1
          : 0;
}




Grüße

[Christoph Morrison]

Leider ungetestet. Aber versuch mal

So würde ich das auch machen, allerdings würde ich das als generische Funktion in die MyUtils auslagern.

Code Auswählen Erweitern


sub Temperature2ColourCode {
    my $temperature = shift;
   
    if (not defined $temperature) {
        ::Log3(undef, 1, q{Temperature2ColourCode called with missing argument});
        return 0;
    }
   
    return $temperature > 30 ? 7
        : $temperature  > 25 ? 6
        : $temperature  > 20 ? 5
        : $temperature  > 15 ? 4
        : $temperature  > 10 ? 3
        : $temperature  >  5 ? 2
        : $temperature  >  0 ? 1
        : 0;
}


Und in Pool_Anz_1 dann:

Code Auswählen Erweitern


defmod Pool_Anz_1 HTTPMOD http://192.168.178.41:80/control?cmd=LCD,1,16,%COLOURCODE%,%Prozent%°C
attr Pool_Anz_1 replacement01Mode   expression
attr Pool_Anz_1 replacement01Regex  %Prozent%
attr Pool_Anz_1 replacement01Value  { ReadingsVal("pool.water2","temperature",0);; }
attr Pool_Anz_1 replacement02Mode   expression
attr Pool_Anz_1 replacement02Regex  %COLOURCODE%
attr Pool_Anz_1 replacement02Value  { Temperature2ColourCode(ReadingsVal("pool.water2","temperature",0));; }
attr Pool_Anz_1 room Steuerung


Beides ungetestet.

[dieter114]

Hallo Christoph, hallo CoolTux

danke für die Hilfe - funktioniert genau wie gewünscht.
Manschmal sind es die Kleinigkeiten die mächtig Ärgern....
Hab aber die Variante ohne Auslagerung in MyUtils genommen.
Es sind verschiedene Temperaturbedingungen bei unterschiedlichen Farben
und in Unterschiedlichen Variablen dafür.

Frohe Ostern Euch Allen 

Wolfdieter

[KK]

Hallo,
habe jetzt erst diesen Track gesehen. Würde gerne das nächste Mal dabei sein, wenn es passt.
Gruß
Kurt

[dieter114]

Hallo Kurt,

kein Problem und herzlich willkommen.
Lies einfach hier mit.
Die neuen Termine stehen noch micht fest.
Wir machen das sehr unregelmäßig ganz nach Lust und Laune / Zeit.

Grüße Wolfdieter

[masterpete23]

Hi,

gibt es Pläne nochmal eins zu organisieren?

[dieter114]

Hi masterpete23

es ist z.Z. nix geplant, aber wie sieht es den bei den Anderen aus?
Sollte nicht mal im Winter wieder so ein Treffen irgendwo angehen?
Oder wenn nicht "life" dann eben virtuell?

Grüße Wolfdieter