Problem mit Shelly Duo - Kopplung

!Skript Lampe Flur V1.1 zur Werteaktualisierung des Shelly Duo mit Originalfirmware (c)2020 by 66er (alias  Stefan K.)
!Raumbezeichnung AZ      (nur zur Orientierung, ggf anpassen)


!**** SETUP ******** SETUP ******** SETUP ******** SETUP ***


! ACHTUNG: Beim Anpassen der Adressen keine "" löschen!


! Setup der CUxD-GERÄTE
var url = "http://192.168.188.220/status"; !  IP-Adresse des Shelly Duo anpassen 
var execduo = "CUxD.CUX2801002:10";   ! Adresse und Kanal des CUxD-Exec-Device angeben
var duoaz =  "CUxD.CUX4000220:1";   ! Adresse und Kanal des CUxD-Schalter-Device angeben
var duoazh =  "CUxD.CUX2802221:3";   ! Adresse und Kanal des CUxD-Dim-Device für Helligkeit angeben
var duoazf =  "CUxD.CUX2802221:2";   ! Adresse und Kanal des CUxD-Dim-Device für Weißton angeben


!Setup Systemvariable
var duop = "Shelly-Duo_AZ_Leistung";  ! Name der Systemvariablen anpassen


!Setup des Kopplungsumfang
!Der Schalter muß angelegt sein
!Konfiguration ob Dim-Device vorhanden:
var duodim = "J" ; ! Falls kein Dimm-Device genutzt wird auf N setzen




!****ENDE SETUP ********ENDE SETUP ********ENDE SETUP ******


!*****Ab hier NICHTS MEHR ÄNDERN *****

!****Abfrage der Werte des Duo****

dom.GetObject(""#execduo#".CMD_SETS").State("wget -q -O - '"#url#"'");
dom.GetObject(""#execduo#".CMD_QUERY_RET").State(1);
string Antwort = dom.GetObject(""#execduo#".CMD_RETS").State();
string t = dom.GetObject(""#execduo#".CMD_RETS").State();
string Antwort0 = dom.GetObject(""#execduo#".CMD_RETS").State();
string Antwort2 = dom.GetObject(""#execduo#".CMD_RETS").State();
dom.GetObject(""#execduo#".CMD_SETS").State("0");  
!WriteLine(Antwort);
!WriteLine(t);


!***** Auswertung EIN-AUS*****

string word = "ison";
integer word_laenge = word.Length();
integer word_position = Antwort.Find(word);
string daten = Antwort.Substr((word_position + word_laenge +2), 5);
integer word_position = daten.Find(word);
daten = daten.Substr(0, (word_position -1));
Antwort = "true";
!WriteLine(daten);

var zustand = dom.GetObject(""#duoaz#".STATE").State();
!WriteLine(zustand);

if ((daten == "true,") && (zustand != true) ) {(dom.GetObject(""#duoaz#".SET_STATE").State(1));
!WriteLine("if ON");
}

if ((daten == "false") && (zustand != false)) {(dom.GetObject(""#duoaz#".SET_STATE").State(0));
!WriteLine("if off");
}



!***Abfrage Leistung ****
string s;
foreach (s,t.Split (",")) {
if (s.LTrim ("{").Contains ('"power"')) {
string p = (s.StrValueByIndex (":",2).RTrim ("}"));


!WriteLine(p);


!**** Variable setzen****
dom.GetObject(""#duop#"").State(p);

}
}




!****Abbruch falls kein Dimm-Device vorhanden****
!WriteLine ("Prüfung ob Dimm-Device vorhanden");
if ((duodim) == "N") { quit; };



!**** Auswertung Farbtemperatur*****
!WriteLine (t)
string s;
foreach (s,t.Split (",")) {
   if (s.LTrim (",").StartsWith ('"white"')) {
   string e =  (s.StrValueByIndex (":",1).RTrim ("}]"));
!   WriteLine(e);
 
var ft = e.ToFloat();
!WriteLine (ft/100);
 
dom.GetObject(""#duoazh#".SET_STATE").State(ft/100);


  }
}  


!**** Auswertung Helligkeit*****
!WriteLine (t)
string s;
foreach (s,t.Split (",")) {
   if (s.LTrim (",").StartsWith ('"brightness"')) {
   string e =  (s.StrValueByIndex (":",1).RTrim ("}]"));
 !  WriteLine(e);
   

var hk = e.ToFloat();
!WriteLine (hk/100);
 
dom.GetObject(""#duoazf#".SET_STATE").State(hk/100);

 }
}

WriteLine ("Skript beendet");

!Skript Ende