Hallo und ein herzliches Danke für die schöne Überarbeitung!
Das ist schon echt gut, aber ich als Programmierlegasteniker habe ein Problem mit dem Schreiben / Ändern von Variablen (Sysvar) vom Typ boolean.
Da ich ich die beiden Variablen ("var_Besuch-Schlafzimmer" und "var_Besuch_Kind") als boolean angelegt hatte (Anzeige bei den Systemvariablen: wahr=on unwahr=off) und diese in diversen anderen Skripten und Anzeigen (Mediola) verwende, möchte ich diese Beschreibung ungerne ändern.
Wenn ich nun versuche eine der beiden Variablen vom Display aus zu ändern, dann gelingt dies mir nicht.
Weder mit den Werten 0/1 ; true/false ; on/off , daher vermute ich das ich durch meine Initialisierung einfach den "Schreibbefehl" anpassen muss. Nur wie muss der Befehl dann aussehen?
Es geht um die Zeilen 390 bis 403, denn alles andere funktioniert tadellos, inkl. der Sprünge im Display auf Seite 2.
Code: Alles auswählen
if (zeilenZaehler == 2 ) {
if ( oSysvar == true)
{ oSysvar = false;
dom.GetObject("var_Besuch_Kind").State(oSysvar);}
else { if ( oSysvar == false)
{ oSysvar = true;
dom.GetObject("var_Besuch_Kind").State(oSysvar);}
}}
if (zeilenZaehler == 4 ) {
if ( sSysvar == true)
{sSysvar = false;
dom.GetObject("var_Besuch-Schlafzimmer").State(sSysvar);}
else { if ( sSysvar == false)
{sSysvar = true;
dom.GetObject("var_Besuch-Schlafzimmer").State(sSysvar);}
}}
Klar könnte ich die beiden "if" innerhalb des "else" weglassen, aber es gab wegen der Kommunikationsdauer immer wieder Fehler, daher ist das so gewachsen.
Liebe Programmierer, über meine Anlage bitte nicht zu sehr schimpfen, ich bin Laie. So ist es für mich verständlich, wenn ich etwas überarbeiten muss. Optimierungen sind natürlich willkommen.
Kann mir bitte jemand bezüglich der Sysvar-Problematik auf die Sprünge helfen?
Jan
Hier mal das komplette Skript.
Code: Alles auswählen
! DISPLAY
!! Universalprogramm zum Füllen
!! (c) DrTob
!! optimized by thkl
!! changed by wortmann30
!! Seitenzähler von Brufi
!! Tasterauswertung flo_da_ho
! geklaute Fetzen aus dem HM-Forum
! Das Programm holt sich den Auslöser (oben oder unten, lang oder kurz)
! selbst und zeigt dann, abhängig von der aktuellen Seite, den entsprechenden
! Text an und/oder führt die entsprechende Aktion aus.
! #### Defaultwerte von Icon, Farbe und Text für jede Zeile ####################
! Vordefinierte Texte (Dipslay -> Einstellen in der CCU)
! können statt des Strings gesetzt werden (viel! schneller)
! 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 = "";
string zeile2 = "";
string zeile3 = "";
string zeile4 = "";
string zeile5 = "";
string zeile6 = "";
! 0x80 weiß
! 0x81 rot
! 0x82 orange
! 0x83 gelb
! 0x84 gruen
! 0x85 blau
string color1 = "0x80";
string color2 = "0x80";
string color3 = "0x80";
string color4 = "0x80";
string color5 = "0x80";
string color6 = "0x80";
! 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
string icon1 = "";
string icon2 = "";
string icon3 = "";
string icon4 = "";
string icon5 = "";
string icon6 = "";
! ### die beiden boolean-Sysvar für den Besuch, jeweils true=on false=off
boolean oSysvar = (dom.GetObject(ID_SYSTEM_VARIABLES).Get("var_Besuch_Kind")).Value();
boolean sSysvar = (dom.GetObject(ID_SYSTEM_VARIABLES).Get("var_Besuch-Schlafzimmer")).Value();
! #### wie viele Seiten und auf dem Display sollen durchlaufen werden? #############
integer maxSeiten = 2;
! #### Auslöser holen ##########################################################
string sender = dom.GetObject("$src$").Name();
! taster = 2 --> obere Taste
! taster = 1 --> untere Taste
integer taster = sender.StrValueByIndex(":",1).StrValueByIndex(".",0).ToInteger();
! druck = PRESS_SHORT --> kurzer Tastendruck
! druck = PRESS_LONG --> langer Tastendruck
string druck = sender.StrValueByIndex(":",1).StrValueByIndex(".",1);
! #### Displayseite bestimmen und anpassen #####################################
! aktuell angezeige Seite aus der CCU holen
integer obj = dom.GetObject("OLED_Seitenzaehler");
integer aktuelleSeite = obj.Variable();
if (druck == "PRESS_SHORT"){ ! OLED_Seitenzaehler anpassen wenn kurzer Tastendruck
! abhängig von aktuelleSeite und Auslöser die Displayseite anpassen
if (aktuelleSeite == 0){ ! Display war aus beim Druck eines Buttons
aktuelleSeite = 1;
}
else { ! Display war an und hat somit schon eine Seite gezeigt
if (taster == 2){ ! oberer Button (hier: nächste Seite)
aktuelleSeite = 1 + aktuelleSeite;
}
else { ! unterer Button (hier: vorherige Seite)
aktuelleSeite = -1 + aktuelleSeite;
}
if (aktuelleSeite > maxSeiten){
aktuelleSeite = 1;
}
if (aktuelleSeite < 1){
aktuelleSeite = maxSeiten;
}
}
! in CCU sichern
obj.Variable(aktuelleSeite);
}
! #### Anzeige und Aktionen ####################################################
! aktuell angezeige Seite aus der CCU holen
var seitenZaehler = dom.GetObject("OLED_Seitenzaehler");
! ---- Seite 1 ------------------------------
! Dies und Das
! -------------------------------------------
if (seitenZaehler.State()==1){
if (druck == "PRESS_SHORT"){
! ### Übersicht ####
zeile1 = "Übersicht:";
color1 = "0x80";
icon1 = "";
! #### Zeile 3 und 4 - Alle Fenster zu? Wie viele sind offen? #######
! # Gewerk mit dem Namen Verschl_Fenster-Tueren wird gezählt
var obj = dom.GetObject("Verschl_Fenster-Tueren");
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;
}
}
}
if (cntopen>0) {
var cntoffen;
var cntkipp;
object cntoffentmp = dom.GetObject(ID_SYSTEM_VARIABLES).Get("varVerschEG_offen");
object cntkipptmp = dom.GetObject(ID_SYSTEM_VARIABLES).Get("varVerschEG_kipp");
! Werte auslesen und zur Berechnung zur Verfügung stellen
cntoffen = cntoffentmp.Value();
cntkipp = cntkipptmp.Value();
if(cntoffen > 0)
{ cntoffen = cntoffen.ToString(0);
zeile3 = cntoffen # " offen";
color3 = "0x81";
icon3= "";
}
else {
zeile3 = "0 offen";
color3 = "0x84";
icon3 = "";
}
if(cntkipp > 0)
{ cntkipp = cntkipp.ToString(0);
zeile4 = cntkipp # " gekippt";
color4 = "0x81";
icon4= "";
}
else {
zeile4 = "0 gekippt";
color4 = "0x84";
icon4 = "";
}
}
else {
zeile3 = "Fenster zu";
color3 = "0x84";
icon3 = "";
}
! #### Zeile 4 Temperatur im Außentemperatur
var channel=dom.GetObject(ID_SYSTEM_VARIABLES).Get("Aussentemperatur");
var atemp = channel.Value();
if(atemp > 23.0)
{ atemp = atemp.ToString(1);
zeile5 = "A-Warm "#atemp#"";
color5 = "0x81";
icon5 = "";
}
else {
if((atemp > 15.0) && (atemp < 23.0))
{ atemp = atemp.ToString(1);
zeile5 = "A-Norm "#atemp#"";
color5 = "0x82";
icon5 = "";
}
else {
if((atemp > 4.0) && (atemp < 15.0))
{ atemp = atemp.ToString(1);
zeile5 = "A-Kühl "#atemp#"";
color5 = "0x80";
icon5 = "";
}
else {
if((atemp > -1.0) && (atemp < 4.0))
{ atemp = atemp.ToString(1);
zeile5 = "A-Kalt "#atemp#"";
color5 = "0x83";
icon5 = "";
}
else {
if(atemp < -1.0)
{ atemp = atemp.ToString(1);
zeile5 = "A-Frost "#atemp#"";
color5 = "0x85";
icon5 = "";
}}}}}
! #### Zeile 6 Temperatur Geräteraum
var gtemp = dom.GetObject("BidCos-RF.MEQ0603390:1.TEMPERATURE").Value();
if(gtemp > 23.0)
{ gtemp = gtemp.ToString(1);
zeile6 = "G-Raum "#gtemp#"";
color6 = "0x81";
icon6 = "";
}
else {
if((gtemp > 15.0) && (gtemp < 23.0))
{ gtemp = gtemp.ToString(1);
zeile6 = "G-Raum "#gtemp#"";
color6 = "0x82";
icon6 = "";
}
else {
if((gtemp > 6.0) && (gtemp < 15.0))
{ gtemp = gtemp.ToString(1);
zeile6 = "G-Raum "#gtemp#"";
color6 = "0x80";
icon6 = "";
}
else {
if(gtemp < 6.0))
{ gtemp = gtemp.ToString(1);
zeile6 = "G-Raum "#gtemp#"";
color6 = "0x85";
icon6 = "";
}}}}
}
if (druck == "PRESS_LONG"){
if (taster == 1){
! ggf. Aktion für langen unteren Druck auf Seite 1
zeile1 = "Seite 1";
zeile3 = "Lang unten";
! zeileX = "";
! colorX = "";
! iconX = "";
}
else{
zeile1 = "Seite 1";
zeile3 = "Lang oben";
! zeileX = "";
! colorX = "";
! iconX = "";
}
}
}
! ---- Seite 2 ------------------------------
! Anderes und Sonstiges
! -------------------------------------------
if (seitenZaehler.State()==2){
if (druck == "PRESS_SHORT"){
zeile1 = "Roll.Besuch?";
color1 = "0x80";
icon1 = "";
zeile2 = "Kinderz.";
color2 = "0x80";
icon2 = "";
! ### Schlafmodus an oder aus? ####
if (oSysvar == 0){
zeile3 = "Automatik";
color3= "0x84";
}
else
{
zeile3 = "manuell";
color3 = "0x81";
}
icon3 = "";
zeile4 = "Schlafzimmer";
color4 = "0x80";
icon4 = "";
! ### Schlafmodus an oder aus? ####
if (sSysvar == 0){
zeile5 = "Automatik";
color5= "0x84";
}
else
{
zeile5 = "manuell";
color5 = "0x81";
}
icon5 = "";
zeile6 = "Wahl LANG";
color6 = "0x80";
icon6 = "";
}
if (druck == "PRESS_LONG"){
if (taster == 1){
! ggf. Aktion für langen unteren Druck auf Seite 2
! ### Systemvariable OLED_Zeilenzaehler holen ###
var zeilenZaehler = dom.GetObject("OLED_Zeilenzaehler").Variable().ToInteger(); ! ### holen (Start bei Zeile 0!!)
zeilenZaehler = (zeilenZaehler+2); ! ### incrementieren
if (zeilenZaehler == 6) {zeilenZaehler = (zeilenZaehler-4);}
dom.GetObject("OLED_Zeilenzaehler").State(zeilenZaehler); ! ### schreiben in Sysvar
zeile1 = "ändern LANG";
color1 = "0x80";
icon1 = "";
zeile2 = "Kinderz.";
if (zeilenZaehler == 2 ) {color2 = "0x83";}
else {color2 = "0x80";}
icon2 = "";
! ### Schlafmodus an oder aus? ####
if (oSysvar == 0){
zeile3 = "Automatik";
color3= "0x84";
}
if (oSysvar == 1){
zeile3 = "manuell";
color3 = "0x81";
}
icon3 = "";
zeile4 = "Schlafzimmer";
if (zeilenZaehler == 4 ) {color4 = "0x83";} else {color4 = "0x80";}
icon4 = "";
! ### Schlafmodus an oder aus? ####
if (sSysvar == 0){
zeile5 = "Automatik";
color5= "0x84";
}
if (sSysvar == 1){
zeile5 = "manuell";
color5= "0x81";
}
icon5 = "";
zeile6 = "Wahl LANG";
color6 = "0x80";
icon6 = "";
}
! ######### hier Aktion für LANGER Druck OBEN #############
if (taster == 2){
if (zeilenZaehler == 2 ) {
if ( oSysvar == true)
{ oSysvar = false;
dom.GetObject("var_Besuch_Kind").State(oSysvar);}
else { if ( oSysvar == false)
{ oSysvar = true;
dom.GetObject("var_Besuch_Kind").State(oSysvar);}
}}
if (zeilenZaehler == 4 ) {
if ( sSysvar == true)
{sSysvar = false;
dom.GetObject("var_Besuch-Schlafzimmer").State(sSysvar);}
else { if ( sSysvar == false)
{sSysvar = true;
dom.GetObject("var_Besuch-Schlafzimmer").State(sSysvar);}
}}
zeile1 = "ändern LANG";
color1 = "0x80";
icon1 = "";
zeile2 = "Kinderz.";
if (zeilenZaehler == 2 ) {color2 = "0x83";}
else {color2 = "0x80";}
icon2 = "";
! ### Schlafmodus an oder aus? ####boolean oSysvar = ((domGetObject(ID_SYSTEM_VARIABLES)).Get("var_Besuch_Kind")).Value();
if ( oSysvar == 0){
zeile3 = "Automatik";
color3= "0x84";
}
else {
if ( oSysvar == 1){
zeile3 = "manuell";
color3 = "0x81";
}}
icon3 = "";
zeile4 = "Schlafzimmer";
if (zeilenZaehler == 4 ) {color4 = "0x83";}
else {color4 = "0x80";}
icon4 = "";
! ### Schlafmodus an oder aus? ####
if ( sSysvar == 0){
zeile5 = "Automatik";
color5= "0x84";
}
else {
if ( sSysvar == 1){
zeile5 = "manuell";
color5= "0x81";
}}
icon5 = "";
zeile6 = "Wahl LANG";
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";
! " <- Diese Zeile behebt einen Anzeigebug in ATOM Editor, keine Funktion!
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 #####
happy new Year!