Homematic E-Paper Display in Betrieb nehmen
Das HM-Disp-EP-WM55 habe ich mir als Bausatz gekauft. Der Zusammenbau ist sehr einfach. Leider sind einige Dinge falsch beschrieben: das Aufsetzen der Displayscheibe ist um 180° verdreht und verdeckt die LED, also aufpassen und mit gesundem Menschenverstand handeln.Die Funktion ist schnell erklärt:
- die Taster sind wie alle Homematic Taster oben und unten zu belegen, um Aktoren ein- oder auszuschalten.
- Die ganz obere und ganz untere Zeile können variabel aber mit festen Texten belegt werden, je nachdem was man mit der Schaltwippe schalten möchte.
- Die mittleren drei Zeilen (Zeile 2, 3, 4) können programmatisch über ein CCU Programm komplett dynamisch belegt werden. Ferne könnte man feste Icons verwenden.
Mein Anwendungsfall für die dynamischen drei Zeilen ist, die Außentemperatur, den Luftdruck vom wiffi-wz und die CO2 Luftqualität anzuzeigen. Ich schreibe alle drei Zeilen alle 10 Minuten mit einem Homematic Programm.
Das Programm selbst habe ich aus dem Homematic Forum und leicht an meine Bedürfnisse angepasst. Danke an DrTob und Thialf.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| !! Universalprogramm zum Füllen des HM-Disp-EP-WM55 | |
| !! (c) DrTob | |
| !! Version 1.10 | |
| string zeile2 = dom.GetObject("BidCos-RF.JEQ00000000:1.TEMPERATURE").Value().ToString(1) # "°C"; | |
| string icon2 = ""; | |
| string zeile3 = dom.GetObject("wz_baro").Value().ToString(1) # "mB"; | |
| string icon3 = ""; | |
| string zeile4 = dom.GetObject("wz_co2").Value().ToString(1) # "%"; | |
| string icon4 = ""; | |
| !integer wd = system.Date("%u").ToInteger(); | |
| !string wdstr; | |
| !if (wd == 1){wdstr = "Mo";} | |
| !if (wd == 2){wdstr = "Di";} | |
| !if (wd == 3){wdstr = "Mi";} | |
| !if (wd == 4){wdstr = "Do";} | |
| !if (wd == 5){wdstr = "Fr";} | |
| !if (wd == 6){wdstr = "Sa";} | |
| !if (wd == 7){wdstr = "So";} | |
| ! Symbole | |
| ! 0x80 AUS | |
| ! 0x81 EIN | |
| ! 0x82 OFFEN | |
| ! 0x83 geschlossen | |
| ! 0x84 fehler | |
| ! 0x85 alles ok | |
| ! 0x86 information | |
| ! 0x87 neue nachricht | |
| ! 0x88 servicemeldung | |
| ! Zugriff auf vordefinierte Texte | |
| ! 0x80 Textblock 1 | |
| ! 0x81 Textblock 2 | |
| ! 0x82 Textblock 3 | |
| ! 0x83 Textblock 4 | |
| ! 0x84 Textblock 5 | |
| ! 0x85 Textblock 6 | |
| ! 0x86 Textblock 7 | |
| ! 0x87 Textblock 8 | |
| ! 0x88 Textblock 9 | |
| ! 0x89 Textblock 10 | |
| ! Tonfolgen | |
| ! 0xC0 AUS | |
| ! 0xC1 LANG LANG | |
| ! 0xC2 LANG KURZ | |
| ! 0xC3 LANG KURZ KURZ | |
| ! 0xC4 KURZ | |
| ! 0xC5 KURZ KURZ | |
| ! 0xC6 LANG | |
| ! 0xC7 | |
| ! 0xC9 | |
| ! 0xCA | |
| !Signale | |
| ! 0xF0 AUS | |
| ! 0xF1 Rotes Blitzen | |
| ! 0xF2 Grünes Blitzen | |
| ! 0xF3 Orangenes Blitzen | |
| !Seriennummer des HM-Disp-EP-WM55. | |
| string seriennummer = "NEQ0000000"; | |
| string signal = "0xF0"; | |
| string tonfolge = "0xC0"; | |
| ! 1 bis 15. 0 = Unendlich | |
| integer wiederholungen = 2; | |
| ! es wird zum naechstmoeglichen Abstand aufgerundet. Maximum ist 160s. | |
| integer abstand = 10; | |
| !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! | |
| ! System Routine do not change anything below ! | |
| !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! | |
| string splitter="|"; | |
| string msgBuffer = zeile2 # splitter # icon2 # "\t"; | |
| msgBuffer = msgBuffer # zeile3 # splitter # icon3 # "\t"; | |
| msgBuffer = msgBuffer # zeile4 # splitter # icon4; | |
| 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,0x0A"; | |
| foreach(bufferLine, msgBuffer) { | |
| line = bufferLine.StrValueByIndex(splitter, 0); | |
| icon = bufferLine.StrValueByIndex(splitter, 1); | |
| integer linelength = line.Length(); | |
| integer iconlength = icon.Length(); | |
| if ((linelength > 0) || (iconlength > 0)) { | |
| command = command # ",0x12"; | |
| if ((linelength == 4) && (line.Substr(0,2) == "0x")) { | |
| command = command # "," # line; | |
| i = 12; | |
| } | |
| else { | |
| i = 0; | |
| } | |
| if (linelength > 12) { | |
| linelength = 12; | |
| } | |
| while (i < linelength) { | |
| char = line.Substr(i, 1); | |
| boolean b = true; | |
| foreach(substEntry, substitutions){ | |
| if (b == true){ | |
| if (char == substEntry.Substr(0,1)){ | |
| command = command # substEntry.Substr(1,5); | |
| b = false; | |
| } | |
| } | |
| } | |
| i = i + 1; | |
| } | |
| if (iconlength > 0) { | |
| command = command # ",0x13," # icon; | |
| } | |
| } | |
| command = command # ",0x0A"; | |
| } | |
| command = command # ",0x14," # tonfolge # ",0x1C,"; | |
| if (wiederholungen < 1){ | |
| command = command # "0xDF,0x1D,"; | |
| } | |
| else { | |
| if (wiederholungen < 11) { | |
| command = command # "0xD" # (wiederholungen - 1) # ",0x1D,"; | |
| } | |
| else { | |
| if (wiederholungen == 11) { | |
| command = command # "0xDA,0x1D,"; | |
| } | |
| else { | |
| if (wiederholungen == 12) { | |
| command = command # "0xDB,0x1D,"; | |
| } | |
| else { | |
| if (wiederholungen == 13) { | |
| command = command # "0xDC,0x1D,"; | |
| } | |
| else { | |
| if (wiederholungen == 14) { | |
| command = command # "0xDD,0x1D,"; | |
| } | |
| else { | |
| command = command # "0xDE,0x1D,"; | |
| } | |
| } | |
| } | |
| } | |
| } | |
| } | |
| if (abstand <= 10) { | |
| command = command # "0xE0,0x16,"; | |
| } | |
| else { | |
| if (abstand <= 100) { | |
| command = command # "0xE" # (abstand - 1 / 10) # ",0x16,"; | |
| } | |
| else { | |
| if (abstand <= 110) { | |
| command = command # "0xEA,0x16,"; | |
| } | |
| else { | |
| if (abstand <= 120) { | |
| command = command # "0xEB,0x16,"; | |
| } | |
| else { | |
| if (abstand <= 130) { | |
| command = command # "0xEC,0x16,"; | |
| } | |
| else { | |
| if (abstand <= 140) { | |
| command = command # "0xED,0x16,"; | |
| } | |
| else { | |
| if (abstand <= 150) { | |
| command = command # "0xEE,0x16,"; | |
| } | |
| else { | |
| command = command # "0xEF,0x16,"; | |
| } | |
| } | |
| } | |
| } | |
| } | |
| } | |
| } | |
| command = command # signal # ",0x03"; | |
| dom.GetObject("BidCos-RF." # seriennummer # ":3.SUBMIT").State(command); |
Das Ergebnis sieht dann so aus:
