HomeMatic Statusanzeige HM-Dis-WM55

[Sebastian29]

Hallo zusammen,

vielen Dank für eure Rückmeldung.

Ich habe das vorgefertigte Script erstmal so übernommen.

Das Display zeigt an was es soll.

Meine Frage:

Ich möchte gerne den Zustand anzeigen lassen wie viele Fenster offen sind, wie erstelle ich den Bezug zu den Fensterkontakten?
Wie kann ich mir anzeigen lassen welche Fenster offen sind?

[alchy]

Du ermittelst die offenen Fenster mittels Script speicherst das Ergebnis in einer Systemvariablen und zeigst den Inhalt der Systemvariablen dann auf dem Display an.

Alchy

[Sebastian29]

Hallo Alchy,


hast Du hierfür zufällig ein Beispiel?

Bin leider wirklich nicht fit im programmieren....


Desweiteren würde ich ja gerne den Zustand der Alarmanlage abfragen und auf dem Display darstellen. Ich habe eine Werteliste mit Intern Scharf, Extern scharf, usw....

Ich kann mir ja auch immer nur einen Zustand anzeigen lassen und würde mit if ..... else if verknüpfen, bin mir aber auch da unsicher ob es richtig ist, evtl, kann man nur den akutellen zustand jeweils auslesen?

So hätte ich mir das gedacht, funktioniert aber leider nicht

var oSysvar = dom.GetObject("Alarmanlage");
if (oSysvar.State()== Intern scharf){

zeile1 = "";
color1 = "0x80";
icon1 = "";
zeile2 = "Intern Scharf:";
color2 = "0x80";
icon2 = "";
zeile3 = "";
color3="0x80";
icon3 = "";
zeile4 = "aktivr";
color4="0x85";
icon4 = "";
zeile5 = "einge-";
color5 = "0x81";
icon5 = "";
zeile6 = "schaltet";
color6 = "0x81";
icon6 = "";
}
else

[alchy]

hast Du hierfür zufällig ein Beispiel?

Klar jede Menge, und da selber suchen wohl nicht das Mittel der Wahl ist:
>> Anzahl offene Fenster <<

Ich kann mir ja auch immer nur einen Zustand anzeigen lassen

Naja, alles was du sagst.
Nehmen wir mal an du hast eine Systemvariable Typ Werteliste mit Namen "Alarmanlage"

Code: Alles auswählen

string sysvar = "Alarmanlage";
WriteLine( (dom.GetObject(ID_SYSTEM_VARIABLES).Get(sysvar).ValueList() ).StrValueByIndex(";",dom.GetObject(ID_SYSTEM_VARIABLES).Get(sysvar).Value()) );

Dann wird dir der aktuelle Wert der Systemvariablen damit ^^ angezeigt.

Alchy

[Sebastian29]

Vielen Dank für deine Rückmeldung!


Bzgl. der Alarmanlage, was muss ich noch eingeben damit die Variablen aus der Werteliste auf dem Display angezeigt werden?

Muss ich die variable gleichsetzen if Arlamanlage == Intern Scharf ??

Oder bin ich da voll falsch?...

[Sebastian29]

Also ich habe es noch etwas probiert.... er springt aber immer in die else schleife und zeigt unbekannt an....

! ### Übersicht ####

zeile1 = "Übersicht3:";
color1 = "0x80";
icon1 = "";

string sysvar = "Alarmanlage";
WriteLine( (dom.GetObject(ID_SYSTEM_VARIABLES).Get(sysvar).ValueList() ).StrValueByIndex(";",dom.GetObject(ID_SYSTEM_VARIABLES).Get(sysvar).Value()) );
if ((ID_SYSTEM_VARIABLES) == 0) {
zeile4 = "Unscharf";
color4 = "0x81";
icon4 = "";
zeile5 = "offen";
color5 = "0x81";
icon5 = "";
}
else {
zeile4 = "Unbekannt";
color4 = "0x84";
icon4 = "";
}
}

[casametti]

Muss ich für mich das Thema nochmal "ausgraben"......

Mein Displaytaster zeigt seit kurzem an "Keine Daten empfangen"....ich hatte 4 Skripte laufen......habe nichts an denen geändert......waren für Programme.......Taste oben kurz, Taste oben lang, Taste unten kurz, Taste unten lang.....

nicht eins mehr funktioniert.....kann mir nicht erklären wieso....

hab den Displaytaster schon auf Werkseinstellung zurückgesetzt, neu angelernt und wieder als "Wenn" Bedingung gesetzt....das gleiche.... hab ein neues Programm angelegt und den Skript kopiert .....nichts.....

anbei einen der skripte der mir die Außentemperatur und Luftfeuchte der Wetterstation anzeigt-----vllt. kann das ja mal einer mit seiner Wetterstation testen......

Liebe Grüße Torsten

Code: Alles auswählen

! ### Homatic-Statusanzeige HM-Dis-WM55 ####
! ### Stausanzeige 2 , Vers. 1.0;
! ### Anzeige der Zysternen Füllstand, Zysternen Filter stand, Außentemperatur, Status der Türen, Fenster und Lichter

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

!! 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)

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

string zeile2 = "Zeile 2";
string color2 = "0x80";
string icon2 = "";

string zeile3 = "Zeile 3";
string color3 = "0x80";
string icon3 = "";

string zeile4 = "Zeile 4";
string color4 = "0x80";
string icon4 = "";

string zeile5 = "Zeile 5";
string color5 = "0x80";
string icon5 = "";

string zeile6 = "Zeile 6";
string color6 = "0x80";
string icon6 = "";

! --------- Anfang Ermitteln der Systemzustände und Zuweisung zu den einzelnen Zeilen -------------


zeile1 = "Außentemp.";
color1 = "0x85";
icon1 = "";

var serialnumber="JEQ0157531";
var channel=dom.GetObject("BidCos-RF."#serialnumber#":1.TEMPERATURE");
var id = channel.Value();
var channel2=dom.GetObject("BidCos-RF."#serialnumber#":1.HUMIDITY");
var id2 = channel2.Value();
var color2 = "0x85";  

string zeile2 = ""#id.ToString(1)#"°C "#id2.ToString(1)#"%" ;

if (id >= 12.0) {string color2 = "0x83";}
if (id >= 19.0) {string color2 = "0x82";}
if (id >= 27.9) {string color2 = "0x81";}
string icon2 = "";

if (id >= 12.0) {string color1 = "0x83";}
if (id >= 19.0) {string color1 = "0x82";}
if (id >= 28.0) {string color1 = "0x81";}
string icon1= "";

zeile3= "----------------------------------";
color3 = "0x80";
icon3 = "";

zeile4= "Automower";
color4 = "0x84";
icon4 = "";

zeile5 = "Sperrzone";
color5 = "0x84";
icon5 = "";

zeile6 = "ausgeschaltet";
color6 = "0x84";
icon6 = "";


! --------- Ende Ermitteln der Systemzustände und Zuweisung zu den einzelnen Zeilen -------------


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

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

string substitutions = "A,0x41\\\\	B,0x42\\\\	C,0x43\\\\	D,0x44\\\\	E,0x45\\\\	F,0x46\\\\	G,0x47\\\\	H,0x48\\\\	I,0x49\\\\	J,0x4A\\\\	K,0x4B\\\\	L,0x4C\\\\	M,0x4D\\\\	N,0x4E\\\\	O,0x4F\\\\	P,0x50\\\\	Q,0x51\\\\	R,0x52\\\\	S,0x53\\\\	T,0x54\\\\	U,0x55\\\\	V,0x56\\\\	W,0x57\\\\	X,0x58\\\\	Y,0x59\\\\	Z,0x5A";
substitutions = substitutions # "\\\\	a,0x61\\\\	b,0x62\\\\	c,0x63\\\\	d,0x64\\\\	e,0x65\\\\	f,0x66\\\\	g,0x67\\\\	h,0x68\\\\	i,0x69\\\\	j,0x6A\\\\	k,0x6B\\\\	l,0x6C\\\\	m,0x6D\\\\	n,0x6E\\\\	o,0x6F\\\\	p,0x70\\\\	q,0x71\\\\	r,0x72\\\\	s,0x73\\\\	t,0x74\\\\	u,0x75\\\\	v,0x76\\\\	w,0x77\\\\	x,0x78\\\\	y,0x79\\\\	z,0x7A";
substitutions = substitutions # "\\\\	0,0x30\\\\	1,0x31\\\\	2,0x32\\\\	3,0x33\\\\	4,0x34\\\\	5,0x35\\\\	6,0x36\\\\	7,0x37\\\\	8,0x38\\\\	9,0x39\\\\	 ,0x20\\\\	!,0x21\\\\	\\\\\\\\",0x22\\\\	%,0x25\\\\	&,0x26\\\\	=,0x27\\\\	(,0x28\\\\	),0x29\\\\	*,0x2A\\\\	+,0x2B\\\\	,,0x2C\\\\	-,0x2D\\\\	.,0x2E\\\\	/,0x2F";
substitutions = substitutions # "\\\\	Ä,0x5B\\\\	Ö,0x23\\\\	Ü,0x24\\\\	ä,0x7B\\\\	ö,0x7C\\\\	ü,0x7D\\\\	ß,0x5F\\\\	:,0x3A\\\\	;,0x3B\\\\	@,0x40\\\\	>,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);

! ##### FERTIG #####

[casametti]

Kann mir hier keiner weiterhelfen.....leider läuft hier immer noch nichts....

[Samsing]

hast Du hierfür zufällig ein Beispiel?

Klar jede Menge, und da selber suchen wohl nicht das Mittel der Wahl ist:
>> Anzahl offene Fenster <<

Alchy

Hallo Alchy,

wie schon bei einigen Anfragen an Dich, weißt Du vielleicht noch, dass ich leider nicht der große "Scripter" bin. Ich bin aber trotzdem begeistert an den hier vorgestellten Lösungen und versuche viele davon umzusetzen.

Nun habe ich mir auch so ein tolles Display zusammen gelötet und es funktioniert auch (technisch).
Leider habe ich aber ein Problem, dieses Script hier (Ursprünglich von Dr. Tob) richtig ans Laufen zu bekommen.

Ich habe hier wirklich viel gelesen, habe teilweise 6 Tabs gleichzeitig offen und habe es hinbekommen, dass ich endlich eine Anzeige aufs Display kriege und nicht mehr nur "Keine Daten vorhanden".
Dein Script mit Anzahl offene Fenster ist ebenfalls implementiert und funktioniert!

Mir fehlt leider in diesem Beitrag, den ich zitiert habe, der Weg, wie ich die Systemvariable in die Zeile 1 des Displays bekomme. Du zitierst das Script und dann wechselt der Beitrag in Alarmanlage, welche ich nicht habe und nicht benötige. Wie das Script offene Fenster nun implementiert wird, finde ich nirgends (oder ich bin blind vor lauter lesen).

Code: Alles auswählen

!! Universalprogramm zum Füllen V1.5
!! (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)

string zeile1 = dom.GetObject("Fensterstatus").Value();
string color1 = "0x80";
string icon1  = "";

string zeile2 = "Zeile 2";
string color2 = "0x80";
string icon2  = "";

string zeile3 = "Zeile 3";
string color3 = "0x80";
string icon3  = "";

string zeile4 = "Zeile 4";
string color4 = "0x80";
string icon4  = "";

string zeile5 = "Zeile 5";
string color5 = "0x80";
string icon5  = "";

string zeile6 = "Zeile 6";
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\t?,0x3f"; 

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);

Es wäre ein Traum, wenn Du mir vielleicht die Zeile so anpassen könntest, dass die Anzeige am Display kommt " Alle Fenster geschlossen" oder wenn eins oder mehrere offen ist/sind "1 oder x Fenster geöffnet" (und vielleicht noch welche(s)???)

Für die anderen Zeilen hatte ich gedacht, ich kann vielleicht die Außentemperatur meiner netatmo Station anzeigen lassen. Netatmo habe ich mithilfe dieses Scriptes implementiert und erhalte hier auch alle Angaben viewtopic.php?f=31&t=12876&hilit=netatmo
Leider finde ich hier gar nichts dazu, wie man dieses lösen könnte. Hast Du hier vielleicht auch einen Tipp?

Zur Info:
Ich habe ein Programm, welches checkt, ob Fenster offen oder geschlossen sind --> Systemvariable "Fensterstatus"
Das Script von Dir (alle Fenstersensoren / HMW-Sen-SC-12-DR / Winmatic / Keymatic / Funk-Neigungssensor in einem bestimmten Gewerk/ Favoriten u.a. durchsuchen und Ausgabe in Variable oder per pushover, telegram oder per Mail oder Ansage Home24 Mediaplayer v1.42 (c) by Alchy) --> Systemvariable "Fenster"

Vielen lieben Dank schon einmal für Deine Hilfe!

Gruß
Samsing