Beiträge von LeoHansen

LeoHansen

Zitat von 66er

Wenn das letzte Skript nicht laufen sollte, bitte unter "Skript testen" laufen lassen und die Ausgabe posten.

Scheint nicht zu laufen.

Hier das Ergebnis:

Code

{"ble":{},"cloud":{"connected":true},"input:0":{"id":0,"state":false},"mqtt":{"connected":false},"switch:0":{"id":0, "source":"http", "output":true, "apower":2258.6, "voltage":227.2, "current":9.053, "aenergy":{"total":1069.888,"by_minute":[9756.322,44021.805,939.861],"minute_ts":1661691612},"temperature":{"tC":56.9, "tF":134.5}},"sys":{"mac":"3C610579CCEC","restart_required":false,"time":"15:00","unixtime":1661691614,"uptime":255682,"ram_size":239528,"ram_free":166440,"fs_size":458752,"fs_free":217088,"cfg_rev":0,"available_updates":{"beta":{"version":"0.11.0-beta3"}}},"wifi":{"sta_ip":"192.168.178.77","status":"got ip","ssid":"FRITZ!Box BASIS","rssi":-75}}

{"ble":{},"cloud":{"connected":true},"input:0":{"id":0,"state":false},"mqtt":{"connected":false},"switch:0":{"id":0, "source":"http", "output":true, "apower":2258.6, "voltage":227.2, "current":9.053, "aenergy":{"total":1069.888,"by_minute":[9756.322,44021.805,939.861],"minute_ts":1661691612},"temperature":{"tC":56.9, "tF":134.5}},"sys":{"mac":"3C610579CCEC","restart_required":false,"time":"15:00","unixtime":1661691614,"uptime":255682,"ram_size":239528,"ram_free":166440,"fs_size":458752,"fs_free":217088,"cfg_rev":0,"available_updates":{"beta":{"version":"0.11.0-beta3"}}},"wifi":{"sta_ip":"192.168.178.77","status":"got ip","ssid":"FRITZ!Box BASIS","rssi":-75}}

Ende Berechnung

LeoHansen

Ich glaube ich habe den Fehler gefunden.

Die Status URL ist die vom normalen 1PM ich benötige aber diese hier: http://192.168.178.77/rpc/Shelly.GetStatus

LeoHansen

Zitat von SeRef

Es handelt sich um einen 1PM und nicht um einen Plus1PM?
Die IP-Adresse des Shelly passt?

Um einen Shelly Plus 1PM

Hier das Skript:

Code

! Skript V2.1.2 zur Statusaktualisierung ShellyPlus1PM mit Originalfirmware (c)2021-2022 by 66er (alias Stefan K.)
! Publiziert und Updates auf https://shelly-forum.com/forum/index.php?board/145-homematic/
! entwickelt und getestet auf ShellyPlus1PM-Firmware  0.9.1, 0.9.2beta2 und 0.10.1
! Versionsdatum:28.12.2021  : Anpassung an Firmware >= 0.9.2
! automatische Homematic-SV-Erstellung inkl Kanalzuordnung, Onlinestatus-Prüfung integriert (optional)
! Restrict Login optional

! BITTE BEACHTEN:
! Dieses Skript legt ggf. selbstständig zusätzliche Systemvariablen auf Deiner Homematic-Zentrale an!
! Das vermeidet Inkonsistenzen und eine temporäre Blockade der CCU durch das Skript.
! Ausserdem erspart es Dir das manuelle Anlegen benötigter Systemvariablen.
! Wer das nicht möchte, kann dieses Skript leider nicht nutzen!

! Die Nutzung des Skriptes erfolgt auf eigenes Risiko.
! Aus der Nutzung entsteht kein Rechtsanspruch auf Suppport oder Fehlerbeseitigung durch den Autor.
! Der Autor haftet nicht für eventuelle Folgen der Nutzung auf der Homematic-Zentrale des Nutzers.

! Das Skript ist ausführlich getestet und sollte problemlos funktionieren.



!Raumbezeichnung: Aussenlicht_hinten (kann angepasst werden)


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

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

! Setup ShellyPlus 1PM
var shp1ip = "192.168.178.77"      ;           ! IP des ShellyPlus1PM anpassen
var shp1name = "Waschmaschine:1" ;         ! CUxD-Gerätenamen anpassen (daraus werden ggf. automatisch weitere Variablennamen erzeugt


!  Restrict Login 
var shp1rl = "N" ;                            ! Ist Resrict Login im Shelly aktiv, dann auf "J" setzen
var shp1bn = "DeinBenutzername" ;             ! Ist Restrict login auf J, dann Benutzername anpassen
var shp1pw = "DeinPasswort"     ;             ! Ist Restrict login auf J, dann Passwort anpassen, keine Sonderzeichen


! Setup der CUxD-GERÄTE
var execshp1 = "CUxD.CUX2801010:1";          ! Adresse und Kanal des CUxD-Exec-Device angeben
var shp1cuxd =  "CUxD.CUX4000006:1" ;        ! Adresse des CUxD-Device für den ShellyPlus1PM anpassen


! Setup Online-Status
var shp1onl = "J"                 ;           ! Variable für Onlinezustandsüberwachung, falls nicht gewünscht, auf "N" setzen""


! Setup Aktualisierungs- und Anzeigeumfang
var shp1a = "J"                ;              ! Schaltstatus aktualisieren, wenn nicht gewünscht auf "N" setzen
var shpl1p = "J"               ;              ! Verbrauch aktualisieren, wenn nicht gewünscht auf "N" setzen

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

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

!  *** Variable für Leistung prüfen, ggf. anlegen

if (shpl1p == "J" ) {

var shpl1pk1 =  shp1name + "_Leistung" ;
!WriteLine(shpl1pk1) ;

 string sName= ""#shpl1pk1#"";
if (!dom.GetObject (ID_SYSTEM_VARIABLES).Get (sName)) {
  object svObj = dom.CreateObject(OT_VARDP,sName);
  svObj.DPInfo("autom. angelegt durch Skript ShellyPlus1PM");
  svObj.ValueUnit("W");
  dom.GetObject (ID_SYSTEM_VARIABLES).Add(svObj);
  svObj.ValueType(ivtFloat);
  svObj.ValueSubType(istGeneric);
  svObj.ValueMin(0);
  svObj.ValueMax(3800);
  svObj.State (0);!SCNR = SHP1PM21166R
  dom.RTUpdate(0);


object oChan= channels.Get (""#shp1name#"");
object oSys=dom.GetObject (ID_SYSTEM_VARIABLES).Get (""#shpl1pk1#"");
oChan.DPs().Add (oSys);
oSys.Channel (oChan.ID() );
}
}


! Variable für Onlinestatus prüfen,ggf.anlegen

if (shp1onl == "J")  {

var shp1onln = "Online-Status_" + shp1name ;
!WriteLine(shp1onln) ;

string sName= ""#shp1onln#"";  ! Onlinestatus
if (!dom.GetObject (ID_SYSTEM_VARIABLES).Get (sName)) {
  object svObj = dom.CreateObject(OT_VARDP,sName);
  svObj.DPInfo("autom. angelegt durch Skript ShellyPlus1PM");
  svObj.ValueUnit("");
  dom.GetObject (ID_SYSTEM_VARIABLES).Add(svObj);
  svObj.ValueType(ivtBinary);
  svObj.ValueSubType(istBool);
  svObj.ValueName0("Offline");
  svObj.ValueName1("Online");
  svObj.State(true);!SCR = SHP1PM21166R
  dom.RTUpdate(0);


object oChan= channels.Get (""#shp1name#"");
object oSys=dom.GetObject (ID_SYSTEM_VARIABLES).Get (""#shp1onln#"");
oChan.DPs().Add (oSys);
oSys.Channel (oChan.ID() );
}
}


! Onlineabfrage und setzen des Status
string stderr;
string stdout;
integer Status;
system.Exec("ping -c 1 '"#shp1ip#"'", &stdout, &stderr);
Status = stdout.Find("ms");
WriteLine(Status);


if (((shp1onl ) == "J" ) && ((Status) == -1)) {
WriteLine("ShellyPlus1PM ist offline");
dom.GetObject (""#shp1onln#"").State(0);
quit; ! Programmabbruch bei Shelly offline
                                              }

if ((shp1onl ) == "J" ) {
dom.GetObject (""#shp1onln#"").State(1);
WriteLine("ShellyPlus1PM ist online"); 
                 }


! Statusabfrage

! url ohne RL
var url = shp1ip + "/rpc/Shelly.GetStatus";
WriteLine(url);


! url mit RL
if ( shp1rl == "J") {
var url = shp1bn + ":" + shp1pw +"@" +shp1ip + "/rpc/Shelly.GetStatus";
WriteLine(url);
                           }

!****Abfrage des ShellyPlus1PM *****
dom.GetObject(""#execshp1#".CMD_SETS").State("wget -q -O - '"#url#"'");
dom.GetObject(""#execshp1#".CMD_QUERY_RET").State(1);
string Antwort = dom.GetObject(""#execshp1#".CMD_RETS").State();
string t = dom.GetObject(""#execshp1#".CMD_RETS").State();
dom.GetObject(""#execshp1 #".CMD_SETS").State("0");
WriteLine("Antwortstring:   " + Antwort);

string output = Antwort;

string part; string code;string slist;integer collect = -1;
foreach (part,output.Split("switch:0")){
collect = part.Find("output");
if (collect>-1){
code = ((part.StrValueByIndex(",",1)).StrValueByIndex(":",1));
code = code.Substr(0, code.Length()-0);
slist = slist#code#"/";
}}

WriteLine(slist);

var out = slist.StrValueByIndex("/", 0);
!WriteLine(out);

if (out == "true") {
dom.GetObject(""#shp1cuxd#".SET_STATE").State(1);
!WriteLine("Bedingung EIN festgestellt");
                            }

if (out != "true") {
WriteLine("Bedingung AUS festgestellt");
dom.GetObject(""#shp1cuxd#".SET_STATE").State(0);
dom.GetObject(""#shpl1pk1#"").State(0);
WriteLine("Programm beendet, Shelly ist ausgeschaltet!");
quit;
        }


! ***Auswertung Leistung
string output = Antwort;


!Testantwort ! FOLGEZEILE MUSS auskommentiert sein, wenn String vorhanden


string part; string code;string slist;integer collect = -1;
foreach (part, output.Split("switch0")){
collect = part.Find("apower");
if (collect>-1){
code = ((part.StrValueByIndex(",",2)).StrValueByIndex(":",1));
code = code.Substr(0, code.Length()-0);
slist = slist#code#"/";
}}

WriteLine(slist);

var lpk1 = slist.StrValueByIndex("/", 0);

if (shpl1p == "J")  {
dom.GetObject(""#shpl1pk1#"").State(lpk1);
}

WriteLine("Skript beendet");

!ENDE SKRIPT

Alles anzeigen

LeoHansen

Zitat von SeRef

Bekommst du mittlerweile eine Rückmeldung unter Skript testen?

So schaut das Ergebnis aus. Habe nun die "!" vor den Write-Zeilen gelöscht.

Es wird allerdings kein Gesamtverbrauch berechnet.

Der Inhalt kann nicht angezeigt werden, da Sie keine Berechtigung haben, diesen Inhalt zu sehen.

Zitat von SeRef

Wenn in einem anderen Skript schon überprüft wird, ob der Shelly online ist und in einer Variable gespeichert wird (wovon ich laut Screenshot ausgehe) diese im Programm als Bedingung hinzufügen (Wenn Online dann).
Oder das Skript in das Skript, in dem der Onliestatus geprüft wird, mit einfließen lassen.

Ich würde dann wohl eher ein extra Programm erstellen, indem die Online-Bedingung abgefragt wird. Ich bin nicht wirklich der Skript-Profi und bin ehrlich gesagt froh, wenn alles so läuft.

Mit welchen Zeitabständen sollte man in dem Fall arbeiten?

LeoHansen

Zitat von SeRef

Im Skript schreibst du in die Variable "Waschmaschine_Verbrauch". Existiert diese überhaupt? Im Screenshot heißt eine Variable "Shelly_Verbrauch".

Sorry, mein Fehler.... Die Variable heißt natürlich Waschmaschine_Verbrauch und ist dem CUxD Device Waschmaschine:1 zugeordnet.

Zitat von SeRef

Edit: So wie du das Skript im Programm verwendest, läufst du Gefahr, dass die CCU bei nicht Erreichbarkeit des Shelly (Offline) bei jedem Aufruf für eine gewisse Zeit blockiert wird und keine anderen Programme ausführt. Die Zeit ist unter anderem davon abhängig, was im verwendetem CuXD Kanal unter EXEC_TIMEOUT eingetragen ist.

Welche Variante der Aktualisierung würdest Du empfehlen?

LeoHansen

Seid gegrüßt!

Ich möchte mir den Gesamtverbrauch meiner Waschmaschine anzeigen lassen. Dazu habe ich einen Shelly 1PM vor meine Steckdose geschaltet.

Im Forum bin ich dann auf das Skript von @66er gestoßen. Leider funktioniert es bei mir nicht wirklich (mal wieder ).

Folgende Konfiguration habe ich:

1 x Typ 28 CUxD Exec Device als Taster angelegt (Waschmaschine_Exec CUX2801010)

1 x Typ 40 CUxD Device für den Shelly (Waschmaschine CUX4000006)

(SWITCH|CMD_SHORT: wget -q -O - 'http://192.168.178.77/relay/0?turn~3doff')

SWITCH|CMD_LONG: wget -q -O - 'http://192.168.178.77/relay/0?turn~3don')

1 x Variable (Waschmaschine_Verbrauch)

Folgendes Skript habe ich verwendet:

Code

!Skript zur Gesamt-Verbrauchsaktualisierung Shelly1PM mit Originalfirmware ©2019 by 66er V1.2.1)

!Raumbezeichnung (nur zur Orientierung, ggf anpassen)

!****Abfrage des Shelly1PM*****

!In der folgenden Zeile IP des Shelly1PM anpassen!

var url = "http://192.168.178.77/status";

!In den folgenden Zeilen die CUxD-Exec-Kanal anpassen (hier: 2801001:1)

dom.GetObject("CUxD.CUX2801010:1.CMD_SETS").State("wget -q -O - '"#url#"'");

dom.GetObject("CUxD.CUX2801010:1.CMD_QUERY_RET").State(1);

string Antwort = dom.GetObject("CUxD.CUX2801010:1.CMD_RETS").State();

string t = dom.GetObject("CUxD.CUX2801010:1.CMD_RETS").State();

dom.GetObject("CUxD.CUX2801010:1.CMD_SETS").State("0");

!WriteLine(Antwort);

!WriteLine(t);

!****Auswertung des Antwortstrings ****

!Hier NICHTS ändern

string s;

foreach (s,t.Split (",")) {

if (s.LTrim ("{").StartsWith ('"total"')) {

string e = (s.StrValueByIndex (":",1).RTrim ("}]"));

!WriteLine(e);

!*****Umrechnung****

! WriteLine(e);

real e1= e.ToFloat();

! WriteLine(e1);

real e2=e1/60000;

! WriteLine(e2);

}

}

! WriteLine ("Ende Berechnung")

!**** Variable setzen****

!Variablennamen anpassen (hier: Waschmaschine_Verbrauch)

dom.GetObject("Waschmaschine_Verbrauch").State(e2);

!Ende Skript

Alles anzeigen

Ich bekomme leider auch keine Rückmeldung oder einen Fehler, sobald ich das Skript teste.

Woran könnte es liegen? Die Momentanleistung wird korrekt angezeigt.

Der Inhalt kann nicht angezeigt werden, da Sie keine Berechtigung haben, diesen Inhalt zu sehen.

MFG LEO

LeoHansen

Zitat von 66er

Freut mich, dass die Funktionen der Kopplung nun dann alle gegeben sind.

Und ich danke Dir vielmals dafür. Ich bin auf dem Gebiet echt neu und auf Hilfe von Leuten wie Dir angewiesen.

Ein schönes Wochenende wünsche ich noch!

MFG LEO

LeoHansen

Ein bzw Ausschalten über das 40er Device. Dimmen über das 28er geht auch.

Lediglich die Ein/Aus Buttons neben dem Dimmbalken sind ohne Funktion.

LeoHansen

Das Dimmen hat vorm Neuanlegen des Gerätes defintiv nicht funktioniert.

LeoHansen

Der Inhalt kann nicht angezeigt werden, da Sie keine Berechtigung haben, diesen Inhalt zu sehen.

edit:

habe eben das gelesen: "

Auch dieses Variante besteht aus einem separaten Schalter für das EIN- und Ausschalten und dem Dimmer zur Regulierung der Helligkeit.

"

Also muss ich erst über den 40er Schalter einschalten und der 28er Dimmer ist wirklich nur für die Verstellung des Dimmwertes da? Also sind die beiden EIN/AUS Taster ohne Funkion?

LeoHansen

Hat leider nix gebracht. Ich sehe leider immernoch keinen Dimmbalken

edit:

Kommando zurück!

Das Dimmen funktioniert, leider nur nnicht die EIN/AUS Button inkl. Rückmeldung

LeoHansen

Der Inhalt kann nicht angezeigt werden, da Sie keine Berechtigung haben, diesen Inhalt zu sehen.

LeoHansen

Sorry, für das Durcheinander. Die Leistung wird korrekt angezeigt. Der Screenshot ist im ausgeschaltetem Zustand gemacht worden.

LeoHansen

Fehlt mir denn nur eine Gerätezuordnung oder warum wird der Dimmbalken dann nicht angezeigt?

edit:

Hier ist der Balken zwar zu sehen, passt aber nicht zum Schaltzustand

Der Inhalt kann nicht angezeigt werden, da Sie keine Berechtigung haben, diesen Inhalt zu sehen.

Edit von 66er:
Leider wurde das Bild erst nachträglich ohne Hinweis im weiteren Thread-Verlauf eingefügt.

LeoHansen

Zitat von 66er

Edit:
Und nur dass ich Dich richtig verstanden habe:

Es funktioniert alles, außer dass der Dimmlevel nicht im Homematic-Device eingetragen wird?

Genau

Der Inhalt kann nicht angezeigt werden, da Sie keine Berechtigung haben, diesen Inhalt zu sehen.

LeoHansen

nochmal zu CuxD Geräten:

Als Schalter habe ich ein 40er Universalschalter angelegt, die normale Exec ist ein 28er und die MultiDimm Exec auch ein 28er

LeoHansen

Code

107
Shelly Dimmer2 ist online
192.168.178.74/light/0/status
{"ison":true,"source":"http","has_timer":false,"timer_started":0,"timer_duration":0,"timer_remaining":0,"mode":"white","brightness":100,"transition":0}
EIN
{"ison":true,"source":"http","has_timer":false,"timer_started":0,"timer_duration":0,"timer_remaining":0,"mode":"white","brightness":100,"transition":0}
Helligkeitswert: 100
Leistung: 9.00,
Skript beendet

LeoHansen

Code

107
Shelly Dimmer2 ist online
192.168.178.74/light/0/status
{"ison":false,"source":"http","has_timer":false,"timer_started":0,"timer_duration":0,"timer_remaining":0,"mode":"white","brightness":100,"transition":0}
AUS
{"ison":false,"source":"http","has_timer":false,"timer_started":0,"timer_duration":0,"timer_remaining":0,"mode":"white","brightness":100,"transition":0}
Helligkeitswert: 100
Leistung: 0.00,
Skript beendet

LeoHansen

Code

107
Shelly Dimmer2 ist online
192.168.178.74/light/0/status
{"ison":false,"source":"http","has_timer":false,"timer_started":0,"timer_duration":0,"timer_remaining":0,"mode":"white","brightness":100,"transition":0}
AUS
{"ison":false,"source":"http","has_timer":false,"timer_started":0,"timer_duration":0,"timer_remaining":0,"mode":"white","brightness":100,"transition":0}
192.168.178.74/status
Skript beendet

LeoHansen

Der Inhalt kann nicht angezeigt werden, da Sie keine Berechtigung haben, diesen Inhalt zu sehen.

Code

! V1.1.1 ShellyDimmer2 als CUxD-Schalter und -Dimmer (c)2020 by 66er (alias Stefan K.)
! entwickelt und getestet auf Dimmer-Firmware 1.8.5
! Publiziert und Updates auf https://shelly-forum.com/forum/index.php?board/145-homematic/
! Versionsdatum: 09.12.2021
! NEU: Restrict Login als Option eingefügt


! BITTE BEACHTEN:
! Dieses Skript legt ggf. selbstständig zusätzliche Systemvariablen auf Deiner Homematic-Zentrale an!
! Das ist nötig, um Inkonsistenzen zu vermeiden und eine temporäre Blockade der CCU durch das Skript zu vermeiden.
! Wer das nicht möchte, kann dieses Skript leider nicht nutzen!

! Die Nutzung des Skriptes erfolgt auf eigenes Risiko.
! Aus der Nutzung entsteht kein Rechtsanspruch auf Suppport oder Fehlerbeseitigung durch den Autor.
! Der Autor haftet nicht für eventuelle Folgen der Nutzung auf der Homematic-Zentrale des Nutzers.

! Das Skript ist ausführlich getestet und sollte problemlos funktionieren.


! Aussenlicht_Terrasse         nur zur Orientierung,kann angepasst werden


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

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

!Setup Shelly Dimmer2

var dim2ip = "192.168.178.74"      ;   ! IP des Shelly Dimmer2 anpassen
var dim2name = "Aussenlicht_Terrasse" ;   ! Name des Shelly Dimmer2 anpassen (daraus werden automatisch weitere Variablennamen erzeugt

!Setup Restrict Login
var dim2rlv = "N" ;                  ! Wenn "Restrict Login" genutzt wird auf "J" setzen
string dim2rln = "DeinBenutzername" ;! Deinen Benutzernamen eintragen wenn "Restrict Login" genutzt wird
string dim2rlp = "DeinPasswort" ;    ! Dein Passwort eintragen wenn "Restrict Login" genutzt wird


! Setup der CUxD-GERÄTE

var execd2 = "CUxD.CUX2801009:1" ; ! Adresse und Kanal des CUxD-Exec-Device angeben
var dim2ea =  "CUxD.CUX4000005:1" ; ! Adresse und Kanal des CUxD-Device für den Dimmer2-Schalter anpassen
var dim2dim = "CUxD.CUX2802001:1" ; ! Adresse und Kanal des CUxD-Device für den Dimmer2-Dimmer anpassen

! Setup Online-Status

var dim2onl = "J"                 ; ! Variable für Onlinezustandsüberwachung, falls nicht gewünscht, auf "N" setzen""

! Setup Aktualisierungsumfang
var dim2stat = "J"                ; ! Status EIN oder AUS wird durch das Skript aktualisiert, wenn nicht gewünscht auf "N" setzen
var dim2lev = "J"                 ; ! Dimmlevel im CUxD-Dimmer aktualisieren, wenn nicht gewünscht auf "N" setzen
var dim2pv = "J"                 ; ! Leistungsvariable nutzen und aktualisieren, wenn nicht gewünscht auf "N" setzen


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

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

! Variable für Onlinestatus prüfen,ggf.anlegen

if (dim2onl == "J")  {

var dim2onln = dim2name + "_Online-Status";
!WriteLine(dim2onln) ;

string sName= ""#dim2onln#"";  ! Onlinestatus
if (!dom.GetObject (ID_SYSTEM_VARIABLES).Get (sName)) {
  object svObj = dom.CreateObject(OT_VARDP,sName);
  svObj.DPInfo("autom. angelegt durch Skript Dimmer2");
  svObj.ValueUnit("");
  dom.GetObject (ID_SYSTEM_VARIABLES).Add(svObj);
  svObj.ValueType(ivtBinary);
  svObj.ValueSubType(istBool);
  svObj.ValueName0("Offline");
  svObj.ValueName1("Online");
  svObj.State (true); !DIM2V211166R
  dom.RTUpdate(0);
                                                      }
               }


! Onlineabfrage und setzen des Status
string stderr;
string stdout;
integer Status;
system.Exec("ping -c 1 '"#dim2ip#"'", &stdout, &stderr);
Status = stdout.Find("ms");
WriteLine(Status);

if (((dim2onl ) == "J" ) && ((Status) == -1)) {
WriteLine("ShellyDimmer2 ist offline");
dom.GetObject (""#dim2onln#"").State(0);
quit; ! Programmabbruch bei Shelly offline
                                       }

if ((dim2onl ) == "J" ) {
dom.GetObject (""#dim2onln#"").State(1);
WriteLine("Shelly Dimmer2 ist online");
                 }
!***********************************************************


!Abfrage der Dimmer2-Werte

string url1 =   (""#dim2ip#"") + "/light/0/status" ;
WriteLine(url1);

if (dim2rlv == "J") {
url1 =   (""#dim2rln#"") + (":") + (""#dim2rlp#"") + ("@") + (""#dim2ip#"") + ("/light/0/status") ;
WriteLine(url1);
                  }


dom.GetObject(""#execd2#".CMD_SETS").State("wget -q -O - '"#url1#"'");
dom.GetObject(""#execd2#".CMD_QUERY_RET").State(1);
string Antwort = dom.GetObject(""#execd2#".CMD_RETS").State();
string Antwort2 = dom.GetObject(""#execd2#".CMD_RETS").State();
dom.GetObject(""#execd2#".CMD_SETS").State("0");
WriteLine(Antwort);

if ( dim2stat == "J"  ) {

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

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


if ((daten == "true,") && (zustand == true) )
{dom.GetObject(""#dim2ea#".SET_STATE").State(1);
WriteLine("EIN");
}
if ((daten == "false") && (zustand == false)) {
dom.GetObject(""#dim2ea#".SET_STATE").State(0);
WriteLine("AUS");
}

}
!**** Dimmwert abfragen und auawertem****

if (dim2lev == "J")  {

WriteLine(Antwort2);
string t = Antwort2 ;
!WriteLine(t);

string s;
foreach (s,t.Split (",")) {
   if (s.LTrim ("{").StartsWith ('"brightness"')) {
   string hell =  (s.StrValueByIndex (":",1).RTrim ("}]"));
      WriteLine("Helligkeitswert: " + hell);

  real h1= hell.ToFloat();
 !  WriteLine(h1);
   real h2=h1/100;
 !  WriteLine(h2);


   }  }

dom.GetObject(""#dim2dim#".SET_STATE").State(h2);

           }
! ******************* Leistung ********************************
if (dim2pv == "J") {

string url2 =   (""#dim2ip#"") + "/status" ;
!WriteLine(url2);

if (dim2rlv == "J") {
url2 =   (""#dim2rln#"") + (":") + (""#dim2rlp#"") + ("@") + (""#dim2ip#"") + ("/status") ;
!WriteLine(url2);
                  }

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

string word = "power";
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 -3));
Antwort = "true";
WriteLine("Leistung: " + daten);


! Variable prüfen, ggf. anlegen

var dim2pn = dim2name + "_Leistung";

string sName= ""#dim2pn#"";
if (!dom.GetObject (ID_SYSTEM_VARIABLES).Get (sName)) {
  object svObj = dom.CreateObject(OT_VARDP,sName);
  svObj.DPInfo("autom. angelegt durch Skript Dimmer2");
  svObj.ValueUnit("W");
  dom.GetObject (ID_SYSTEM_VARIABLES).Add(svObj);
  svObj.ValueType(ivtFloat);
  svObj.ValueSubType(istGeneric);
  svObj.ValueMin(0);
  svObj.ValueMax(250);
  svObj.State (0); !DIM2V211166R
  dom.RTUpdate(0);
}
 ! Wert in Variable
 dom.GetObject (""#dim2pn#"").State(daten.ToInteger());

                }

daten = "0";


WriteLine("Skript beendet");

Alles anzeigen

Beiträge von LeoHansen

Shelly 1PM Gesamtverbrauch CCu3

Shelly 1PM Gesamtverbrauch CCu3

Shelly 1PM Gesamtverbrauch CCu3

Shelly 1PM Gesamtverbrauch CCu3

Shelly 1PM Gesamtverbrauch CCu3

Shelly 1PM Gesamtverbrauch CCu3

Shelly Dimmer2 in HomeMatic CCu3 einbinden

Shelly Dimmer2 in HomeMatic CCu3 einbinden

Shelly Dimmer2 in HomeMatic CCu3 einbinden

Shelly Dimmer2 in HomeMatic CCu3 einbinden

Shelly Dimmer2 in HomeMatic CCu3 einbinden

Shelly Dimmer2 in HomeMatic CCu3 einbinden

Shelly Dimmer2 in HomeMatic CCu3 einbinden

Shelly Dimmer2 in HomeMatic CCu3 einbinden

Shelly Dimmer2 in HomeMatic CCu3 einbinden

Shelly Dimmer2 in HomeMatic CCu3 einbinden

Shelly Dimmer2 in HomeMatic CCu3 einbinden

Shelly Dimmer2 in HomeMatic CCu3 einbinden

Shelly Dimmer2 in HomeMatic CCu3 einbinden

Shelly Dimmer2 in HomeMatic CCu3 einbinden