From 3e03840f173ea3905fb7a5f803ac3d7c0037be86 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Mario=20H=C3=B6llein?= Date: Thu, 13 Jun 2019 10:51:40 +0200 Subject: [PATCH] Display EGR (Marlies) angepasst --- programme/EGR_Display_Taste_oben_kurz.hm | 354 +++++++++++++++++++++ programme/EGR_Display_Taste_oben_lang.hm | 227 ++++++++++++++ programme/EGR_Display_Taste_unten_kurz.hm | 355 ++++++++++++++++++++++ programme/EGR_Display_Taste_unten_lang.hm | 227 ++++++++++++++ 4 files changed, 1163 insertions(+) create mode 100644 programme/EGR_Display_Taste_oben_kurz.hm create mode 100644 programme/EGR_Display_Taste_oben_lang.hm create mode 100644 programme/EGR_Display_Taste_unten_kurz.hm create mode 100644 programme/EGR_Display_Taste_unten_lang.hm diff --git a/programme/EGR_Display_Taste_oben_kurz.hm b/programme/EGR_Display_Taste_oben_kurz.hm new file mode 100644 index 0000000..fe21d0a --- /dev/null +++ b/programme/EGR_Display_Taste_oben_kurz.hm @@ -0,0 +1,354 @@ +! ### Homatic-Statusanzeige HM-Dis-WM55 #### +! 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) + + +!jede Seite des Displays hat 6 Zeilen +!hier legen wir die Variablen fest, die +!wir auf jeder Seite nutzen können +string zeile1 = ""; +string color1 = "0x80"; +string icon1 = ""; + +string zeile2 = ""; +string color2 = "0x80"; +string icon2 = ""; + +string zeile3 = ""; +string color3 = "0x80"; +string icon3 = ""; + +string zeile4 = ""; +string color4 = "0x80"; +string icon4 = ""; + +string zeile5 = ""; +string color5 = "0x80"; +string icon5 = ""; + +string zeile6 = ""; +string color6 = "0x80"; +string icon6 = ""; + +! ####### wie viele Seiten auf dem Display sollen durchlaufen werden? ########### +integer seitenzahl=4; +! ### Systemvariable seitenzaehler01 holen ### +var seitenZaehler = dom.GetObject("EGR_Display_Seitenzaehler"); +var aktuelleSeite = seitenZaehler.Value(); +if (aktuelleSeite == seitenzahl ) +{ + seitenZaehler.State(1); +} +else +{ + aktuelleSeite = aktuelleSeite +1; + seitenZaehler.State(aktuelleSeite); +} +aktuelleSeite = seitenZaehler.Value(); +! ###################### Seite 1 ###################### +if (aktuelleSeite==1 ) { + var oSysvar = dom.GetObject("Alarmanlage"); + var obj = dom.GetObject("Fenster"); + string itemID; + var cntopen=0; + foreach(itemID, obj.EnumUsedIDs()) { + var item = dom.GetObject(itemID); + if(item.IsTypeOf(OT_CHANNEL)) { + var state=item.DPByHssDP("STATE"); + if(state.Value()!=0) { + cntopen=cntopen+1; + } + } + } +! ############# Kellertür Status holen ################ +object kt= dom.GetObject("KG_XX_K2_TK_1"); +var kt_state=kt.DPByHssDP("STATE"); +var alarm_status; +var alarm_icon; +var alarm_color; + if (oSysvar.State()==1) { + alarm_status="an"; + alarm_icon=""; + alarm_color="0x82"; + } else { + alarm_status="aus"; + alarm_icon=""; + alarm_color="0x82"; +} + zeile1 = "Hausalarm"; + color1 = "0x82"; + icon1 = ""; + zeile2 = alarm_status; + color2 = alarm_color; + icon2 = alarm_icon; + zeile3 = ""; + color3="0x83"; + icon3 = ""; + zeile4 = ""; + color4 = "0x83"; + icon4 = ""; + + if (cntopen>0) { + zeile3 = cntopen # " Fenster"; + color3 = "0x83"; + icon3 = ""; + zeile4 = "offen"; + color4 = "0x83"; + icon4 = ""; + } else { + zeile3 = "Alle Fenster"; + color3 = "0x83"; + icon3 = ""; + zeile4 = "sind zu"; + color4 = "0x83"; + icon4 = ""; + } + var kt_zeile; + var kt_color; + var kt_icon; + if (kt_state == true ) { + kt_zeile="offen"; + kt_color="0x85"; + kt_icon=""; + } else { + kt_zeile="geschlossen"; + kt_color="0x85"; + kt_icon=""; + } + zeile5 = "Kellertür"; + color5 = "0x85"; + icon5 = ""; + zeile6 = kt_zeile; + color6 = kt_color; + icon6 = kt_icon; +} +! ###################### Seite 2 ###################### +! ###################### Licht Laube ################## +if (aktuelleSeite == 2 ) { + var an_aus_laube = dom.GetObject("Beleuchtung_Laube"); + var zustand_laube = an_aus_laube.Value(); + var ausgabe_text = ""; + var icon = ""; + if ( zustand_laube ) { + icon=""; + ausgabe_text="ein"; + color = "0x81"; + } else { + icon =""; + ausgabe_text="aus"; + color = "0x84"; + } + zeile1 = "Einschalten"; + color1 = "0x80"; + icon1 = ""; + zeile2 = ""; + color2 = "0x80"; + icon2 = ""; + zeile3 = "Licht Laube"; + color3 = "0x83"; + icon3 = ""; + zeile4 = ausgabe_text; + color4 = color; + icon4 = icon; + zeile5 = ""; + color5 = "0x80"; + icon5 = ""; + zeile6 = "Ausschalten"; + color6 = "0x80"; + icon6 = ""; +} + +! #################### Seite 3 ##################### +! #################### Alarmanlage alle Zonen ###### +if (aktuelleSeite == 3 ) { + var an_aus = dom.GetObject("Alarmanlage"); + var zustand = an_aus.Value(); + var ausgabe_text = ""; + var icon = ""; + if ( zustand ) { + icon=""; + ausgabe_text="scharf"; + color = "0x81"; + } else { + icon =""; + ausgabe_text="unscharf"; + color = "0x84"; + } + zeile1 = "Einschalten"; + color1 = "0x80"; + icon1 = ""; + zeile2 = ""; + color2 = "0x80"; + icon2 = ""; + zeile3 = "Alarmanlage"; + color3 = "0x83"; + icon3 = ""; + zeile4 = "ist"; + color4 = "0x83"; + icon4 = ""; + zeile5 = ausgabe_text; + color5 = color; + icon5 = icon; + zeile6 = "Ausschalten"; + color6 = "0x80"; + icon6 = ""; +} + +! #################### Seite 4 ####################### +! #################### Teichpumpe #################### +if (aktuelleSeite == 4 ) { + var an_aus = dom.GetObject("GartenTeichPumpe"); + var zustand = an_aus.Value(); + var ausgabe_text = ""; + var icon = ""; + if ( zustand ) { + icon=""; + ausgabe_text="an"; + color = "0x81"; + } else { + icon =""; + ausgabe_text="aus"; + color = "0x84"; + } + zeile1 = "Einschalten"; + color1 = "0x80"; + icon1 = ""; + zeile2 = ""; + color2 = "0x80"; + icon2 = ""; + zeile3 = "Teichpumpe"; + color3 = "0x83"; + icon3 = ""; + zeile4 = "Garten ist"; + color4 = "0x83"; + icon4 = ""; + zeile5 = ausgabe_text; + color5 = color; + icon5 = icon; + zeile6 = "Ausschalten"; + color6 = "0x80"; + icon6 = ""; +} + +if ((aktuelleSeite == 0) ) { + var anzeige_text = ""; + var color = ""; + var icon = ""; + icon = "0x80"; + color = "0x84"; + zeile1 = "Einschalten"; + color1 = "0x80"; + icon1 = ""; + zeile2 = ""; + color2 = "0x80"; + icon2 = ""; + zeile3 = aktuelleSeite; + color3 = "0x83"; + icon3 = ""; + zeile4 = ""; + icon4 = icon; + color4 =color; + zeile5 = ""; + color5 = "0x80"; + icon5 = ""; + zeile6 = "Ausschalten"; + color6 = "0x80"; + 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); + + ! ##### FERTIG ##### diff --git a/programme/EGR_Display_Taste_oben_lang.hm b/programme/EGR_Display_Taste_oben_lang.hm new file mode 100644 index 0000000..3a509a3 --- /dev/null +++ b/programme/EGR_Display_Taste_oben_lang.hm @@ -0,0 +1,227 @@ +! ####### wie viele Seiten auf dem Display sollen durchlaufen werden? ########### +integer seitenzahl=4; +! ### Systemvariable seitenzaehler01 holen ### +var seitenZaehler = dom.GetObject("EGR_Display_Seitenzaehler"); +var aktuelleSeite = seitenZaehler.Value(); + +! #################### Seite 2 ##################### +! #################### Licht Laube ################# +if (aktuelleSeite == 2) { +!jede Seite des Displays hat 6 Zeilen +!hier legen wir die Variablen fest, die +!wir auf jeder Seite nutzen können +var lampeLaube = dom.GetObject("Beleuchtung_Laube"); +lampeLaube.State(1); +var lampe_auto = dom.GetObject("Beleuchtung_Laube_Manuell"); +lampe_auto.State(1); +string zeile1 = ""; +string color1 = "0x80"; +string icon1 = ""; + +string zeile2 = ""; +string color2 = "0x80"; +string icon2 = ""; + +string zeile3 = ""; +string color3 = "0x80"; +string icon3 = ""; + +string zeile4 = ""; +string color4 = "0x80"; +string icon4 = ""; + +string zeile5 = ""; +string color5 = "0x80"; +string icon5 = ""; + +string zeile6 = ""; +string color6 = "0x80"; +string icon6 = ""; + zeile1 = ""; + color1 = "0x80"; + icon1 = ""; + zeile2 = "Licht Laube"; + color2 = "0x80"; + icon2 = ""; + zeile3 = "ist"; + icon3 = ""; + color3 ="0x80"; + zeile4 = "ein"; + color4 = "0x81"; + icon4 = ""; + zeile5 = ""; + color5 = "0x81"; + icon5 = ""; + zeile6 = ""; + color6 = "0x80"; + icon6 = ""; +} + +! #################### Seite 3 ##################### +if (aktuelleSeite == 3) { +string alarm_zonen="Alarmzone_EGR_soll,Alarmzone_EGL_soll,Alarmzone_KEL_soll,Alarmzone_WKG_soll,Alarmzone_WDG_soll,Alarmzone_TKG_soll,Alarmzone_TEG_soll,Alarmzone_TDG_soll"; +string zone; + + foreach(zone,alarm_zonen.Split(",")) { + var zScharf = dom.GetObject(zone); + if (zScharf != null) { + zScharf.State(true); + } + } +string zeile1 = ""; +string color1 = "0x80"; +string icon1 = ""; + +string zeile2 = "Alarmanlage"; +string color2 = "0x80"; +string icon2 = ""; + +string zeile3 = "ist"; +string color3 = "0x80"; +string icon3 = ""; + +string zeile4 = "scharf"; +string color4 = "0x81"; +string icon4 = ""; + +string zeile5 = ""; +string color5 = "0x80"; +string icon5 = ""; + +string zeile6 = ""; +string color6 = "0x80"; +string icon6 = ""; +} + +! #################### Seite 4 ##################### +! #################### Teichpumpe ################## +if (aktuelleSeite == 4 ) { + var an_aus = dom.GetObject("GartenTeichPumpe"); + an_aus.State(true); + var ausgabe_text = ""; + var icon = ""; + icon =""; + ausgabe_text="ein"; + color = "0x83"; + zeile1 = ""; + color1 = "0x80"; + icon1 = ""; + zeile2 = ""; + color2 = "0x80"; + icon2 = ""; + zeile3 = "Teichpumpe"; + color3 = "0x83"; + icon3 = ""; + zeile4 = "Garten ist"; + color4 = "0x83"; + icon4 = ""; + zeile5 = ausgabe_text; + color5 = color; + icon5 = icon; + zeile6 = ""; + color6 = "0x80"; + icon6 = ""; +} + + +if ((aktuelleSeite != 2) && (aktuelleSeite !=3)&& (aktuelleSeite !=4)) { +!jede Seite des Displays hat 6 Zeilen +!hier legen wir die Variablen fest, die +!wir auf jeder Seite nutzen können +string zeile1 = ""; +string color1 = "0x80"; +string icon1 = ""; + +string zeile2 = ""; +string color2 = "0x80"; +string icon2 = ""; + +string zeile3 = ""; +string color3 = "0x80"; +string icon3 = ""; + +string zeile4 = ""; +string color4 = "0x80"; +string icon4 = ""; + +string zeile5 = ""; +string color5 = "0x80"; +string icon5 = ""; + +string zeile6 = ""; +string color6 = "0x80"; +string icon6 = ""; + zeile1 = ""; + color1 = "0x80"; + icon1 = ""; + zeile2 = "Funktion"; + color2 = "0x80"; + icon2 = ""; + zeile3 = "nicht fertig"; + icon3 = "0x81"; + color3 = "0x81"; + zeile5 = ""; + color5 = "0x81"; + icon5 = ""; + zeile6 = ""; + color6 = "0x80"; + 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); + + ! ##### FERTIG ##### + diff --git a/programme/EGR_Display_Taste_unten_kurz.hm b/programme/EGR_Display_Taste_unten_kurz.hm new file mode 100644 index 0000000..792308b --- /dev/null +++ b/programme/EGR_Display_Taste_unten_kurz.hm @@ -0,0 +1,355 @@ +! ### Homatic-Statusanzeige HM-Dis-WM55 #### +! 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) + + +!jede Seite des Displays hat 6 Zeilen +!hier legen wir die Variablen fest, die +!wir auf jeder Seite nutzen können +string zeile1 = ""; +string color1 = "0x80"; +string icon1 = ""; + +string zeile2 = ""; +string color2 = "0x80"; +string icon2 = ""; + +string zeile3 = ""; +string color3 = "0x80"; +string icon3 = ""; + +string zeile4 = ""; +string color4 = "0x80"; +string icon4 = ""; + +string zeile5 = ""; +string color5 = "0x80"; +string icon5 = ""; + +string zeile6 = ""; +string color6 = "0x80"; +string icon6 = ""; + +! ####### wie viele Seiten auf dem Display sollen durchlaufen werden? ########### +integer seitenzahl=4; +! ### Systemvariable seitenzaehler01 holen ### +var seitenZaehler = dom.GetObject("EGL_Display_Seitenzaehler"); +var aktuelleSeite = seitenZaehler.Value(); +aktuelleSeite = aktuelleSeite-1; +if (aktuelleSeite<=0) +{ + seitenZaehler.State(seitenzahl); +} +else +{ + seitenZaehler.State(aktuelleSeite); +} +aktuelleSeite = seitenZaehler.Value(); +! #################### Seite 1 ##################### +if (aktuelleSeite==1 ) { + var oSysvar = dom.GetObject("Alarmanlage"); + var obj = dom.GetObject("Fenster"); + string itemID; + var cntopen=0; + foreach(itemID, obj.EnumUsedIDs()) { + var item = dom.GetObject(itemID); + if(item.IsTypeOf(OT_CHANNEL)) { + var state=item.DPByHssDP("STATE"); + if(state.Value()!=0) { + cntopen=cntopen+1; + } + } + } +!Kellertür Status holen +object kt= dom.GetObject("KG_XX_K2_TK_1"); +var kt_state=kt.DPByHssDP("STATE"); +var alarm_status; +var alarm_icon; +var alarm_color; + if (oSysvar.State()==1) { + alarm_status="an"; + alarm_icon=""; + alarm_color="0x82"; + } else { + alarm_status="aus"; + alarm_icon=""; + alarm_color="0x82"; +} + zeile1 = "Hausalarm"; + color1 = "0x82"; + icon1 = ""; + zeile2 = alarm_status; + color2 = alarm_color; + icon2 = alarm_icon; + zeile3 = ""; + color3="0x83"; + icon3 = ""; + zeile4 = ""; + color4 = "0x83"; + icon4 = ""; + + if (cntopen>0) { + zeile3 = cntopen # " Fenster"; + color3 = "0x83"; + icon3 = ""; + zeile4 = "offen"; + color4 = "0x83"; + icon4 = ""; + } else { + zeile3 = "Alle Fenster"; + color3 = "0x83"; + icon3 = ""; + zeile4 = "sind zu"; + color4 = "0x83"; + icon4 = ""; + } + var kt_zeile; + var kt_color; + var kt_icon; + if (kt_state == true ) { + kt_zeile="offen"; + kt_color="0x85"; + kt_icon=""; + } else { + kt_zeile="geschlossen"; + kt_color="0x85"; + kt_icon=""; + } + zeile5 = "Kellertür"; + color5 = "0x85"; + icon5 = ""; + zeile6 = kt_zeile; + color6 = kt_color; + icon6 = kt_icon; +} + +! #################### Seite 2 ##################### +! #################### Licht Laube ################# +if (aktuelleSeite == 2 ) { + var an_aus_laube = dom.GetObject("Beleuchtung_Laube"); + var zustand_laube = an_aus_laube.Value(); + var anzeige_text = ""; + var color = ""; + var icon = ""; + if ( zustand_laube ) { + icon = ""; + anzeige_text="ein"; + color = "0x81"; + } else { + icon = ""; + anzeige_text="ein"; + color = "0x84"; + } + zeile1 = "Einschalten"; + color1 = "0x80"; + icon1 = ""; + zeile2 = ""; + color2 = "0x80"; + icon2 = ""; + zeile3 = "Licht Laube"; + color3 = "0x83"; + icon3 = ""; + zeile4 = anzeige_text; + icon4 = icon; + color4 =color; + zeile5 = ""; + color5 = "0x80"; + icon5 = ""; + zeile6 = "Ausschalten"; + color6 = "0x80"; + icon6 = ""; +} +! #################### Seite 3 ##################### +! #################### Alarmanlage alle Zonen ###### +if (aktuelleSeite == 3 ) { + var an_aus = dom.GetObject("Alarmanlage"); + var zustand = an_aus.Value(); + var ausgabe_text = ""; + var icon = ""; + if ( zustand ) { + icon=""; + ausgabe_text="scharf"; + color = "0x81"; + } else { + icon =""; + ausgabe_text="unscharf"; + color = "0x84"; + } + zeile1 = "Einschalten"; + color1 = "0x80"; + icon1 = ""; + zeile2 = ""; + color2 = "0x80"; + icon2 = ""; + zeile3 = "Alarmanlage"; + color3 = "0x83"; + icon3 = ""; + zeile4 = "ist"; + color4 = "0x83"; + icon4 = ""; + zeile5 = ausgabe_text; + color5 = color; + icon5 = icon; + zeile6 = "Ausschalten"; + color6 = "0x80"; + icon6 = ""; +} +! #################### Seite 4 ####################### +! #################### Teichpumpe #################### +if (aktuelleSeite == 4 ) { + var an_aus = dom.GetObject("GartenTeichPumpe"); + var zustand = an_aus.Value(); + var ausgabe_text = ""; + var icon = ""; + if ( zustand ) { + icon=""; + ausgabe_text="an"; + color = "0x81"; + } else { + icon =""; + ausgabe_text="aus"; + color = "0x84"; + } + zeile1 = "Einschalten"; + color1 = "0x80"; + icon1 = ""; + zeile2 = ""; + color2 = "0x80"; + icon2 = ""; + zeile3 = "Teichpumpe"; + color3 = "0x83"; + icon3 = ""; + zeile4 = "Garten ist"; + color4 = "0x83"; + icon4 = ""; + zeile5 = ausgabe_text; + color5 = color; + icon5 = icon; + zeile6 = "Ausschalten"; + color6 = "0x80"; + icon6 = ""; +} + +if ((aktuelleSeite == 0)) { + var anzeige_text = ""; + var color = ""; + var icon = ""; + icon = "0x80"; + color = "0x84"; + zeile1 = "Einschalten"; + color1 = "0x80"; + icon1 = ""; + zeile2 = ""; + color2 = "0x80"; + icon2 = ""; + zeile3 = aktuelleSeite; + color3 = "0x83"; + icon3 = ""; + zeile4 = ""; + icon4 = icon; + color4 =color; + zeile5 = ""; + color5 = "0x80"; + icon5 = ""; + zeile6 = "Ausschalten"; + color6 = "0x80"; + 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); + + ! ##### FERTIG ##### diff --git a/programme/EGR_Display_Taste_unten_lang.hm b/programme/EGR_Display_Taste_unten_lang.hm new file mode 100644 index 0000000..2058218 --- /dev/null +++ b/programme/EGR_Display_Taste_unten_lang.hm @@ -0,0 +1,227 @@ +! ####### wie viele Seiten auf dem Display sollen durchlaufen werden? ########### +integer seitenzahl=4; +! ### Systemvariable seitenzaehler01 holen ### +var seitenZaehler = dom.GetObject("EGL_Display_Seitenzaehler"); +var aktuelleSeite = seitenZaehler.Value(); + +! #################### Seite 2 ##################### +! #################### Beleuchtung Laube ########### +if (aktuelleSeite ==2) { +var lampeLaube = dom.GetObject("Beleuchtung_Laube"); +lampeLaube.State(0); +var laube_auto = dom.GetObject("Beleuchtung_Laube_Manuell"); +laube_auto.State(0); + +!jede Seite des Displays hat 6 Zeilen +!hier legen wir die Variablen fest, die +!wir auf jeder Seite nutzen können +string zeile1 = ""; +string color1 = "0x80"; +string icon1 = ""; + +string zeile2 = ""; +string color2 = "0x80"; +string icon2 = ""; + +string zeile3 = ""; +string color3 = "0x80"; +string icon3 = ""; + +string zeile4 = ""; +string color4 = "0x80"; +string icon4 = ""; + +string zeile5 = ""; +string color5 = "0x80"; +string icon5 = ""; + +string zeile6 = ""; +string color6 = "0x80"; +string icon6 = ""; + zeile1 = ""; + color1 = "0x80"; + icon1 = ""; + zeile2 = "Licht Laube"; + color2 = "0x80"; + icon2 = ""; + zeile3 = "ist"; + icon3 = ""; + color3 = "0x80"; + zeile4= "aus"; + color4= "0x84"; + icon4 =""; + zeile5 = ""; + color5 = "0x81"; + icon5 = ""; + zeile6 = ""; + color6 = "0x80"; + icon6 = ""; +} + +! #################### Seite 3 ##################### +! #################### Alarmanlage alle Zonen ###### +if (aktuelleSeite == 3) { +string alarm_zonen="Alarmzone_EGR_soll,Alarmzone_EGL_soll,Alarmzone_KEL_soll,Alarmzone_WKG_soll,Alarmzone_WDG_soll,Alarmzone_TKG_soll,Alarmzone_TEG_soll,Alarmzone_TDG_soll"; +string zone; + + foreach(zone,alarm_zonen.Split(",")) { + var zScharf = dom.GetObject(zone); + if (zScharf != null) { + zScharf.State(false); + } + } +string zeile1 = ""; +string color1 = "0x80"; +string icon1 = ""; + +string zeile2 = "Alarmanlage"; +string color2 = "0x80"; +string icon2 = ""; + +string zeile3 = "ist"; +string color3 = "0x80"; +string icon3 = ""; + +string zeile4 = "unscharf"; +string color4 = "0x84"; +string icon4 = ""; + +string zeile5 = ""; +string color5 = "0x80"; +string icon5 = ""; + +string zeile6 = ""; +string color6 = "0x80"; +string icon6 = ""; +} + +! ############ Seite 4 ################ +! ############ Teichpumpe ############# +if (aktuelleSeite == 4 ) { + var an_aus = dom.GetObject("GartenTeichPumpe"); + an_aus.State(false); + var ausgabe_text = ""; + var icon = ""; + icon =""; + ausgabe_text="aus"; + color = "0x83"; + zeile1 = ""; + color1 = "0x80"; + icon1 = ""; + zeile2 = ""; + color2 = "0x80"; + icon2 = ""; + zeile3 = "Teichpumpe"; + color3 = "0x83"; + icon3 = ""; + zeile4 = "Garten ist"; + color4 = "0x83"; + icon4 = ""; + zeile5 = ausgabe_text; + color5 = color; + icon5 = icon; + zeile6 = ""; + color6 = "0x80"; + icon6 = ""; +} + +if ((aktuelleSeite != 2) && (aktuelleSeite !=3) && (aktuelleSeite !=4)) { +!jede Seite des Displays hat 6 Zeilen +!hier legen wir die Variablen fest, die +!wir auf jeder Seite nutzen können +string zeile1 = ""; +string color1 = "0x80"; +string icon1 = ""; + +string zeile2 = ""; +string color2 = "0x80"; +string icon2 = ""; + +string zeile3 = ""; +string color3 = "0x80"; +string icon3 = ""; + +string zeile4 = ""; +string color4 = "0x80"; +string icon4 = ""; + +string zeile5 = ""; +string color5 = "0x80"; +string icon5 = ""; + +string zeile6 = ""; +string color6 = "0x80"; +string icon6 = ""; + zeile1 = ""; + color1 = "0x80"; + icon1 = ""; + zeile2 = "Funktion"; + color2 = "0x80"; + icon2 = ""; + zeile3 = "nicht fertig"; + icon3 = "0x81"; + color3 = "0x81"; + zeile5 = ""; + color5 = "0x81"; + icon5 = ""; + zeile6 = ""; + color6 = "0x80"; + 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); + + ! ##### FERTIG ##### + -- 2.43.0