Freie Texte in Statusanzeige HM-Dis-WM55 über ein HM Script

[skh]

Echt Super von Euch zwei
werde ich heute Abend direkt umsetzten und testen

[imp-perator]

Hallo zusammen

Erstmal Danke an die Ersteller und Weiterentwickler dieser Scripte, toll dass ihr euch die Zeit nehmt und sowas macht.

Nun habe ich versucht meine Statusanzeige auch darüber zu füttern, aber ich scheitere leider noch.

Ich habe als Abfragequelle ein Wandthermostat und wollte dort, als ersten Test, nur Ist und Solltemp abfragen und auf der Statusanzeige anzeigen lassen.
Ich habe folgendes gemacht:

Vorraussetzung:
- in den Geräteeinstellungen ist bei Kanal 1 der "Text Zeile 1" auf "Soll" gesetzt.
- in den Geräteeinstellungen ist bei Kanal 1 der "Text Zeile 2" auf "Ist" gesetzt.

die Seriennummer des Termostats muss im Script angepasst werden. (im Beispiel: KEQ0123456).

Text für Zeile 3 habe ich gelöscht und das Script so angepasst dass nur noch Ist und Solltemperatur abgefragt werden, die original Differenzierung habe ich ebenfalls heraus genommen.

Dann habe ich noch die Abfragepunkte angepasst, da diese nach meiner Recherche beim Wandthersostat "SN":1.TEMPERATURE und "SN":1.SETPOINT sein müssten!?

Dann habe ich ein Programm erstell, bei Statusanzeige K1 - Tastendruck kurz - sofort Script erstellt....
Fehlerprüfung ohne Fehler, aber leider auch ohne Ergebnis...

Lange Rede kurzer Sinn, hier mein gesamtes Script, vielleicht seht ihr den Denkfehler ja grad, auf jedem Fall bleibt bei mir auf der Statusanzeige nur die Anzeige "Keine Daten empfangen".

Code: Alles auswählen

    !! Universalprogramm zum Füllen
    !! (c) DrTob
    !! optimized by thkl

    !! Das Script holt sich jetzt die Seriennummer des Displays selbst aus der Auslösebedinung des Programms

    ! Farben
    ! 0x80 weiß
    ! 0x81 rot
    ! 0x82 orange
    ! 0x83 gelb
    ! 0x84 gruen
    ! 0x85 blau

    ! Symbole
    ! 0x80 AUS
    ! 0x81 EIN
    ! 0x82 OFFEN
    ! 0x83 geschlossen
    ! 0x84 fehler
    ! 0x85 alles ok
    ! 0x86 information
    ! 0x87 neue nachricht
    ! 0x88 servicemeldung
    ! 0x89 Signal grün
    ! 0x8A Signal gelb
    ! 0x8B Signal rot

    ! Zugriff auf vordefinierte Texte
    !
    ! 0x80 Text  0 (Kanal 1  Text Zeile 1)
    ! 0x81 Text  1 (Kanal 1  Text Zeile 2)
    ! 0x82 Text  2 (Kanal 2  Text Zeile 3)
    ! 0x83 Text  3 (Kanal 2  Text Zeile 4)
    ! 0x84 Text  4 (Kanal 3  Text Zeile 5)
    ! 0x85 Text  5 (Kanal 3  Text Zeile 6)
    ! 0x86 Text  6 (Kanal 4  Text Zeile 7)
    ! 0x87 Text  7 (Kanal 4  Text Zeile 8)
    ! 0x88 Text  8 (Kanal 5  Text Zeile 9)
    ! 0x89 Text  9 (Kanal 5  Text Zeile 10)
    ! 0x8A Text 10 (Kanal 6  Text Zeile 11)
    ! 0x8B Text 11 (Kanal 6  Text Zeile 12)
    ! 0x8C Text 12 (Kanal 7  Text Zeile 13)
    ! 0x8D Text 13 (Kanal 7  Text Zeile 14)
    ! 0x8E Text 14 (Kanal 8  Text Zeile 15)
    ! 0x8F Text 15 (Kanal 8  Text Zeile 16)
    ! 0x90 Text 16 (Kanal 9  Text Zeile 17)
    ! 0x91 Text 17 (Kanal 9  Text Zeile 18)
    ! 0x92 Text 18 (Kanal 10 Text Zeile 19)
    ! 0x93 Text 19 (Kanal 10 Text Zeile 20)

    var istTemp = dom.GetObject("BidCos-RF.JEQ0035559:1.TEMPERATURE").State();
    var sollTemp = dom.GetObject("BidCos-RF.JEQ0035559:1.SETPOINT").State();
    

    string zeile1 = "0x80";
    string color1 = "0x80";
    string icon1  = "";

    string zeile2 = sollTemp.ToString(1) # " Grad";
    string color2 = "0x80";
    string icon2  = "";

    string zeile3 = "0x81";
    string color3 = "0x80";
    string icon3  = "";

    string zeile4 = istTemp.ToString(1) # " Grad";
    string color4 = "0x80";
    string icon4  = "";

    string zeile5 = "0x82";
    string color5 = "0x80";
    string icon5  = "";

    string zeile6 = "0x82";
    string color6 = "0x80";
    string icon6  = "";

    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    ! System Routine do not change anything below !
    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

    string splitter="|";
    string msgBuffer = zeile1 # splitter # color1 # splitter # icon1 # "\t";
    msgBuffer = msgBuffer # zeile2 # splitter # color2 # splitter # icon2 # "\t";
    msgBuffer = msgBuffer # zeile3 # splitter # color3 # splitter # icon3 # "\t";
    msgBuffer = msgBuffer # zeile4 # splitter # color4 # splitter # icon4 # "\t";
    msgBuffer = msgBuffer # zeile5 # splitter # color5 # splitter # icon5 # "\t";
    msgBuffer = msgBuffer # zeile6 # splitter # color6 # splitter # icon6;

    string substitutions = "A,0x41\tB,0x42\tC,0x43\tD,0x44\tE,0x45\tF,0x46\tG,0x47\tH,0x48\tI,0x49\tJ,0x4A\tK,0x4B\tL,0x4C\tM,0x4D\tN,0x4E\tO,0x4F\tP,0x50\tQ,0x51\tR,0x52\tS,0x53\tT,0x54\tU,0x55\tV,0x56\tW,0x57\tX,0x58\tY,0x59\tZ,0x5A";
    substitutions = substitutions # "\ta,0x61\tb,0x62\tc,0x63\td,0x64\te,0x65\tf,0x66\tg,0x67\th,0x68\ti,0x69\tj,0x6A\tk,0x6B\tl,0x6C\tm,0x6D\tn,0x6E\to,0x6F\tp,0x70\tq,0x71\tr,0x72\ts,0x73\tt,0x74\tu,0x75\tv,0x76\tw,0x77\tx,0x78\ty,0x79\tz,0x7A";
    substitutions = substitutions # "\t0,0x30\t1,0x31\t2,0x32\t3,0x33\t4,0x34\t5,0x35\t6,0x36\t7,0x37\t8,0x38\t9,0x39\t ,0x20\t!,0x21\t\",0x22\t%,0x25\t&,0x26\t=,0x27\t(,0x28\t),0x29\t*,0x2A\t+,0x2B\t,,0x2C\t-,0x2D\t.,0x2E\t/,0x2F";
    substitutions = substitutions # "\tÄ,0x5B\tÖ,0x23\tÜ,0x24\tä,0x7B\tö,0x7C\tü,0x7D\tß,0x5F\t:,0x3A\t;,0x3B\t@,0x40\t>,0x3E";

    string bufferLine;
    string substEntry;
    integer i;
    string char;
    string line;
    string icon;

    string command = "0x02";
    foreach(bufferLine, msgBuffer) {
       line = bufferLine.StrValueByIndex(splitter, 0);
       icon = bufferLine.StrValueByIndex(splitter, 2);
       if ((line <> "") || (icon <> "")) {
          command = command # ",0x12";
          if ((line.Substr(0,2) == "0x") && (line.Length() == 4)) {
             command = command # "," # line;
             i = 12;
          }
          else {
             i = 0;
          }
          while ((i < line.Length()) && (i < 12)) {
             char = line.Substr(i, 1);     
             foreach(substEntry, substitutions){
                if (char == substEntry.Substr(0,1)){command = command # substEntry.Substr(1,5);}
             }
             i = i + 1;
          }
          command = command # ",0x11," # bufferLine.StrValueByIndex(splitter, 1);
          if (icon <> "") {
             command = command # ",0x13," # icon;
          }
       }
       command = command # ",0x0A";
    }
    command = command # ",0x03";
   
dom.GetObject("BidCos-RF." # dom.GetObject("$src$").Name().StrValueByIndex(".",1) # ".SUBMIT").State(command);

Ich hoffe ich habe das richtig verstanden, die SN der Statusanzeige muss nicht mehr angegeben werden, diese holt das Script "selbstständig" !?

Auf jedem Fall würde ich mich sehr freuen wenn ihr mir einen Tip geben könntet was ich falsch mache, ich bin einfach nicht so der Scripter

Viele Dank schonmal und viele Grüsse

[DrTob]

sieht auf den ersten Blick richtig aus. Was bekommst du als Ausgabe wenn du bei Script Testen folgendes ausführst:?




WriteLine("EINS"); var istTemp = dom.Ge ... String());

[imp-perator]

Danke Herr DoktorTob Der Patient lebt

Die erste Ausgabe war:
Eins
Zwei
ist Temp 20.60000

Dann habe ich den CH für Setpoint auf 2 angepasst und nun gehts auch mit dem Display!

Kannst Du mir vielleicht noch verraten wie ich eine Systemvariable damit anzeigen lassen kann?

Vielen Dank für die Hilfe und das tolle Script!
Gruss

[imp-perator]

Danke, die letzte Frage nach der Variable hat sich erledigt

var 1234 = dom.GetObject("%namevariable%").State();

Gruss zusammen und nen schönen Tag!

[d.stratmann]

Hallo erstmal...

ich bin in der Thematik noch Neuling.
Ich habe seit ein paar Tagen die 6 Heizkörperthermostate HM-CC-RT-DN, 2 Fensterkontakte HM-SEC-SC-2 und 10 Funk-Fenster-Drehgriffkontakt 076789.

Ich wollte mir jetzt noch das HM-Dis-WM55 kaufen, um dort den Status der einzelnen Räume anzuzeigen, darauf hin habe ich den Script hier gefunden und etwas umgeschrieben!

Da ich wie gesagt noch Anfänger bin, ist jetzt die Frage, was bzw. wo kann ich, wenn ich das Display gepairt habe am FHEM Server, einstellen, dass der Script dann bei einem kurzen Tastendruck ausgeführt wird?
Und wo muss ich das Script (die Datei) selber denn speichern undunter welchem Namen?!

Vielen Dank schon einmal für die Hilfe!!!

Code: Alles auswählen

    !! Programm zum Füllen der OLED-Anzeige
    !! (c) DrTob angepasst von raffcjab
	!! change by D.S.

    !! Das Script holt sich jetzt die Seriennummer des Displays selbst aus der Auslösebedinung des Programms

    ! Farben
    ! 0x80 weiß
    ! 0x81 rot
    ! 0x82 orange
    ! 0x83 gelb
    ! 0x84 gruen
    ! 0x85 blau

    ! Symbole
    ! 0x80 AUS
    ! 0x81 EIN
    ! 0x82 OFFEN
    ! 0x83 geschlossen
    ! 0x84 fehler
    ! 0x85 alles ok
    ! 0x86 information
    ! 0x87 neue nachricht
    ! 0x88 servicemeldung
    ! 0x89 Signal grün
    ! 0x8A Signal gelb
    ! 0x8B Signal rot

    ! Zugriff auf vordefinierte Texte
    !
    ! 0x80 Text  0 (Kanal 1  Text Zeile  1) Wohnzimmer
    ! 0x81 Text  1 (Kanal 1  Text Zeile  2) Küche
    ! 0x82 Text  2 (Kanal 2  Text Zeile  3) Badezimmer
    ! 0x83 Text  3 (Kanal 2  Text Zeile  4) Schlafzimmer
    ! 0x84 Text  4 (Kanal 3  Text Zeile  5) Kinderzimmer1
    ! 0x85 Text  5 (Kanal 3  Text Zeile  6) Kinderzimmer2
    ! 0x86 Text  6 (Kanal 4  Text Zeile  7) TempSoll
    ! 0x87 Text  7 (Kanal 4  Text Zeile  8) TemoIst
    ! 0x88 Text  8 (Kanal 5  Text Zeile  9)
    ! 0x89 Text  9 (Kanal 5  Text Zeile 10)
    ! 0x8A Text 10 (Kanal 6  Text Zeile 11) 
    ! 0x8B Text 11 (Kanal 6  Text Zeile 12) 
    ! 0x8C Text 12 (Kanal 7  Text Zeile 13) 
    ! 0x8D Text 13 (Kanal 7  Text Zeile 14) 
    ! 0x8E Text 14 (Kanal 8  Text Zeile 15) 
    ! 0x8F Text 15 (Kanal 8  Text Zeile 16)
    ! 0x90 Text 16 (Kanal 9  Text Zeile 17)
    ! 0x91 Text 17 (Kanal 9  Text Zeile 18)
    ! 0x92 Text 18 (Kanal 10 Text Zeile 19)
    ! 0x93 Text 19 (Kanal 10 Text Zeile 20)

    if ((dom.GetObject("OLED-Seite").Value() < 1) || (dom.GetObject("OLED-Seite").Value() > 6)) {dom.GetObject("OLED-Seite").State(1)};

    if (dom.GetObject("OLED-Seite").Value() == 1)

    {
	string zeile1 = "0x80";string color1 = "0x80";string icon1  = "0x86";

    string zeile2 = "0x86";string color2 = "0x80";string icon2  = "";
    zeile3 = zeile3 + dom.GetObject("HK_WZ").DPByHssDP("SETPOINT").Value().ToString(1);

    string zeile3 = "0x87";string color3 = "0x80";string icon3  = "";
    zeile3 = zeile3 + dom.GetObject("HK_WZ").DPByHssDP("TEMPERATURE").Value().ToString(1);

    string zeile4 = "0x8C";string color4 = "0x81";string icon4  = "0x8B";
    if (dom.GetObject("FK_WZ_1").DPByHssDP("STATE").Value() == 0) {icon4  = "0x89";};

    string zeile5 = "0x8D";string color5 = "0x81";string icon5  = "0x8B";
    if (dom.GetObject("FK_WZ_2").DPByHssDP("STATE").Value() == 0) {icon5  = "0x89";};

    string zeile6 = "0x8E";string color6 = "0x81";string icon6  = "0x8B";
    if (dom.GetObject("TK_WZ_1").DPByHssDP("STATE").Value() == 0) {icon6  = "0x89";};
    }


    if (dom.GetObject("OLED-Seite").Value() == 2)

    {
	string zeile1 = "0x81";string color1 = "0x80";string icon1  = "0x86";

    string zeile2 = "0x86";string color2 = "0x80";string icon2  = "";
    zeile3 = zeile3 + dom.GetObject("HK_KU").DPByHssDP("SETPOINT").Value().ToString(1);

    string zeile3 = "0x87";string color3 = "0x80";string icon3  = "";
    zeile3 = zeile3 + dom.GetObject("HK_KU").DPByHssDP("TEMPERATURE").Value().ToString(1);

    string zeile4 = "0x8C";string color4 = "0x81";string icon4  = "0x8B";
    if (dom.GetObject("FK_KU_1").DPByHssDP("STATE").Value() == 0) {icon4  = "0x89";};

    string zeile5 = "0x8D";string color5 = "0x81";string icon5  = "0x8B";
    if (dom.GetObject("FK_KU_2").DPByHssDP("STATE").Value() == 0) {icon5  = "0x89";};

    string zeile6 = "";string color6 = "";string icon6  = "";
    }


    if (dom.GetObject("OLED-Seite").Value() == 3)

    {
	string zeile1 = "0x82";string color1 = "0x80";string icon1  = "0x86";

    string zeile2 = "0x86";string color2 = "0x80";string icon2  = "";
    zeile3 = zeile3 + dom.GetObject("HK_BZ").DPByHssDP("SETPOINT").Value().ToString(1);

    string zeile3 = "0x87";string color3 = "0x80";string icon3  = "";
    zeile3 = zeile3 + dom.GetObject("HK_BZ").DPByHssDP("TEMPERATURE").Value().ToString(1);

    string zeile4 = "0x8C";string color4 = "0x81";string icon4  = "0x8B";
    if (dom.GetObject("FK_WZ_1").DPByHssDP("STATE").Value() == 0) {icon4  = "0x89";};

    string zeile5 = "";string color5 = "";string icon5  = "";
   

    string zeile6 = "";string color6 = "";string icon6  = "";
    }

    if (dom.GetObject("OLED-Seite").Value() == 4)

    {
	string zeile1 = "0x83";string color1 = "0x80";string icon1  = "0x86";

    string zeile2 = "0x86";string color2 = "0x80";string icon2  = "";
    zeile3 = zeile3 + dom.GetObject("HK_SZ").DPByHssDP("SETPOINT").Value().ToString(1);

    string zeile3 = "0x87";string color3 = "0x80";string icon3  = "";
    zeile3 = zeile3 + dom.GetObject("HK_SZ").DPByHssDP("TEMPERATURE").Value().ToString(1);

    string zeile4 = "0x8C";string color4 = "0x81";string icon4  = "0x8B";
    if (dom.GetObject("FK_SZ_1").DPByHssDP("STATE").Value() == 0) {icon4  = "0x89";};

    string zeile5 = "0x8D";string color5 = "0x81";string icon5  = "0x8B";
    if (dom.GetObject("FK_SZ_2").DPByHssDP("STATE").Value() == 0) {icon5  = "0x89";};

    string zeile6 = "";string color6 = "";string icon6  = "";
    }

	if (dom.GetObject("OLED-Seite").Value() == 5)

    {
	string zeile1 = "0x84";string color1 = "0x80";string icon1  = "0x86";

    string zeile2 = "0x86";string color2 = "0x80";string icon2  = "";
    zeile3 = zeile3 + dom.GetObject("HK_KZ1").DPByHssDP("SETPOINT").Value().ToString(1);

    string zeile3 = "0x87";string color3 = "0x80";string icon3  = "";
    zeile3 = zeile3 + dom.GetObject("HK_KZ1").DPByHssDP("TEMPERATURE").Value().ToString(1);

    string zeile4 = "0x8C";string color4 = "0x81";string icon4  = "0x8B";
    if (dom.GetObject("FK_KZ1_1").DPByHssDP("STATE").Value() == 0) {icon4  = "0x89";};

    string zeile5 = "0x8D";string color5 = "0x81";string icon5  = "0x8B";
    if (dom.GetObject("FK_WKZ1_2").DPByHssDP("STATE").Value() == 0) {icon5  = "0x89";};

    string zeile6 = "";string color6 = "";string icon6  = "";
    }
	
	if (dom.GetObject("OLED-Seite").Value() == 6)

    {
	string zeile1 = "0x85";string color1 = "0x80";string icon1  = "0x86";

    string zeile2 = "0x86";string color2 = "0x80";string icon2  = "";
    zeile3 = zeile3 + dom.GetObject("HK_KZ2").DPByHssDP("SETPOINT").Value().ToString(1);

    string zeile3 = "0x87";string color3 = "0x80";string icon3  = "";
    zeile3 = zeile3 + dom.GetObject("HK_KZ2").DPByHssDP("TEMPERATURE").Value().ToString(1);

    string zeile4 = "0x8C";string color4 = "0x81";string icon4  = "0x8B";
    if (dom.GetObject("FK_KZ2_1").DPByHssDP("STATE").Value() == 0) {icon4  = "0x89";};

    string zeile5 = "0x8D";string color5 = "0x81";string icon5  = "0x8B";
    if (dom.GetObject("FK_KZ2_2").DPByHssDP("STATE").Value() == 0) {icon5  = "0x89";};

    string zeile6 = "";string color6 = "";string icon6  = "";
    }
	
    dom.GetObject("OLED-Seite").State(dom.GetObject("OLED-Seite").Value()+1);

[imp-perator]

Hallo d.stratmann

Ich kann dir glaub nur bedingt weiter helfen, aber vielleicht kannst Du es ja von der Funktionsweise der Homematic Zentrale ableiten.
Sonst wird dir hier sicherlich noch jemand antworten, der sich auch mit FHEM Server auskennt.

Bei der Homematic ist es so dass in den Programmen eine Abfrage erstellt werden kann welche folgendes macht.
Z.B. bei Tastendruck-kurz Statusdisplay Kanal1 starte Script.
Das Script selber wird dann dort in einem vorgegebenen fenster einfach hinein kopiert, es wird also nicht per Dateiabfrage gestartet.

Hoffe das hilft ein wenig.

Gruss

[bierhurra]

Ich bekomme das Script leider einfach nicht zum laufen.

Folgende Fehlermeldung.
Error 1 at row 83 col 23 near ^ # zeile2 # splitter # color2 # splitter # icon2 # "\t";
msgBuffer = msgBuff
Parse following code failed:

Ich habe derzeit den Orginalcode eingefügt, ohne eine Änderung.

Die betreffende Zeile im Code lautet:

string msgBuffer = zeile1 # splitter # color1 # splitter # icon1 # "\t";
msgBuffer = msgBuffer # zeile2 # splitter # color2 # splitter # icon2 # "\t";

Ich weiß nicht was da flasch sein kann.

Kann mir jemand helfen?

[kabelaffexxl]

hallo zusammen

wo kommt das object "OLED-Seite" her? wo muß ich das definieren?

gruss kabelaffexxl

[DrTob]

Das ist eine Systemvariable vom Typ "Zahl"