Advertisement
Guest User

eingeschaltete Kanäle in Gewerk

a guest
Aug 14th, 2018
146
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
TCL 1.14 KB | None | 0 0
  1. var sec=dom.GetObject("Beleuchtung");
  2. if (sec) {
  3.  string i; string list; list="";
  4.  foreach(i,sec.EnumUsedIDs()) {
  5.   var channel=dom.GetObject(i);
  6.   boolean isOn = false;
  7.   if(channel.IsTypeOf(OT_CHANNEL)) {
  8.    var dev=dom.GetObject(channel.Device());
  9.    if((dev.HssType()=="HM-LC-Sw4-DR") || (dev.HssType()=="HM-LC-Sw1-DR") || (dev.HssType()=="HM-LC-Sw1PBU-FM") || (dev.HssType()=="HM-LC-Dim1T-FM") || (dev.HssType()=="HM-LC-Sw2PBU-FM") || (dev.HssType()=="HM-LC-Sw1PBU-FM") || (dev.HssType()=="HM-LC-Sw1-FM") || (dev.HssType()=="HmIP-BSM" ) || (dev.HssType()=="HM-LC-RGBW-WM")) {
  10.     var state=channel.DPByHssDP("STATE");
  11.     if (!state) {
  12.      var level=channel.DPByHssDP("LEVEL");
  13.      if (level.Value() > 0) {
  14.       isOn = true;
  15.      }
  16.     } else {
  17.      if(state.Value()) {
  18.       isOn = true;
  19.      }
  20.     }
  21.     if (isOn == true) {
  22.      list=list#channel.Name()#", ";
  23.     }
  24.    }  
  25.   }
  26.  }
  27.  if (list.Length() > 2) {
  28.   list = list.Substr(0,list.Length()-2);
  29.  } else {
  30.   list = "Alles aus :)";
  31.  }
  32. } else {
  33.   list = "FEHLER - GEWERK PRUEFEN!";
  34. }
  35.  
  36. WriteLine(list);
  37.  
  38. dom.GetObject("Beleuchtung noch AN").State(list);
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement