Shelly TRV goes Homematic - mit der Originalfirmware

66er

Entwickelt und getestet auf ShellyTRV-Firmware:

2.1.0

Hallo liebe Homematic-Freunde.

Heute geht es um die Einbindung des Shelly TRV in die Homematic.

Mein Dank an Homematic-Forum-User @ MichaelN, der mir gestattet hat, sein Skript "JSON universell auslesen" in meinen Skripten zu verwenden. Danke Michael

Quelle des Skriptes: https://homematic-forum.de/for…opic.php?p=672027#p672027

(weitere Hintergrundinfos und Quellangaben hier)

Das Ganze funktioniert natürlich wie immer ohne Fremdfirmware.

Anders als Ihr es bisher von meinen Kopplungen kennt, liegt der Schwerpunkt beim TRV auf der Visualisierung und dem Verfügbarmachen der Werte für weitere Aktionen innerhalb der Hausautomation mit Homematic.

Beispiel: Haben wir Soll- und Ist-Temperatur des TRV in der Homematic, so kann man auf eine zu große Unterschreitung der Solltempearatur reagieren (eMail- oder Push-Nachricht z.B.)

Warum anders ?
1.

Nun, eine große Herausforderung in diesem Projekt, war die Zuverlässigkeit der Kopplung. Der TRV geht ja bekanntermaßen wie alle anderen batteriegespeisten Geräte in einen Sleepmode. Da es zumindest aktuell keine als sinnvoller Trigger heranziehbare Actions gibt, muß folglich der TRV von der Homematic bei jeder Abfrage und jedem Sendbefehl vorher zuverlässig geweckt werden.

2.

Seine eigentliche Aufgabe erledigt der Shelly TRV vollkommen selbstständig! Ein Eingriff durch Homematic ist eigentllch gar nicht nötig, aber machbar.

3. Unter Anderem auch wegen der Kombination aus Aufwecken und Abfragen hat das Skript eine relativ lange Laufzeit. (CCU2-User beachten bitte unbedingt diesen Hinweis. ) Daher sollte das Aktualisierungsintervall sehr bedacht gewählt werden! Eine Heizung ist ja etwas Anderes als z.B. eine dimmbare Beleuchtung. Es muß nicht permanent etwas verändert werden!

Die Kopplung hat folgende Möglichkeiten:

Spiegeln einzeln auswählbarer Werte in Homematic.
Diese werden in Systemvariablen geschrieben und können beliebig in Programmen weiterverarbeitet werden.
Überwachung ob die letzte Abfrage erfolgreich war, optional
Alle notwendigen Systemvariablen werden automatisiert erstellt und dem passenden Schaltkanal zugeordnet, daher sehr leicht einzurichten
optional setzen von vordefinierten Temperaturen mit Tastendruck
Restrict-Login

Das Ganze sieht dann im aktuellen, maximalen Endausbau so aus:

TRV in CCU V3.PNG

techn. Voraussetzungen:

kompatibel mit den Homematic-Systemen CCU2*, CCU3, Charly, sowie allen Ablegern wie RaspberryMatic
installiertes Addon CUxD in aktueller Version

(Das Wissen um den Umgang CUxD, wie z.B. Geräte anlegen, setze ich an dieser Stelle voraus, sonst "explodiert" diese Anleitung. Danke für's Verständnis.)

Ich möchte Euch an dieser Stelle empfehlen, vor der Umsetzung mal einen Blick in diesen Thread zu werfen:

Wichtige Hinweise zu den Shelly-Kopplungen an Homematic
* CCU2 -User beachten bitte unbedingt diesen Hinweis!( auch wenn der TRV ein Gen1-Gerät ist ) CCU3-User sollten die Info bitte auch zur Kenntnis nehmen.

(Auch die übrigen angepinnten Themen sind übrigens zum Lesen empfohlen, gerade auch für Neueinsteiger )

Und nun geht's los.

__________________________________________________________________________________

66er

Falls noch nicht vorhanden, bitte ein Gerät (28) System Exec anlegen! Darüber werden die Befehle abgesetzt.

Hier gibt es bei Bedarf eine Anleitung zum Anlegen des CUxD-Exec-Gerätes.

(Im CUxD-Exec selbst werden keine Eintragungen gemacht!)

Für den ShellyTRV benötigen wir (mindestens) 1 Kanal eines ggf. vorhandenen oder neu anzulegenden

CUxD Gerätetyps (40) 16 Kanal Universalsteuerung als Taster:

CUxD-Gerät anlegen.PNG

(Den Namen könnt Ihr natürlich frei vergeben und anpassen. )

Damit können maximal 16 Shelly TRV abgebildet werden.

(bei Nutzung von max. 1Kanal, sprich max. 2 möglichen Schaltfunktionen)

Solltemperatur manuell mit Homematic-Tastendruck ändern:

Hinweis:

Auch diese Option verlangt der CCUx Laufzeit ab, deshalb sollte bei Nutzung dieser Möglichkeit die Häufigkeit der Änderungen sehr bedacht gewählt werden. Mit jedem Tastendruck muß immer der Shelly TRV zunächst geweckt und anschließend der Befehl übertragen werden.

Die Kanalbeschriftung oben im ersten Bild wurde nicht zufällig gewählt.

Kanalbeschriftung.PNG

Das "18 -- 20" soll die Belegung der Tasten wiedergeben: kurz=18 Grad und lang=20 Grad

(Natürlich ist das nur ein Beispiel, beschriften kann jeder nach eigenem Gusto. ) Wichtig ist aber, später im Setup des Skriptes genau diesen Namen zu verwenden!

1.) Haken setzen bei "SWITCH|CMD_EXEC"

2.) Eintrag für "SWITCHCMD_SHORT":

jeweils IP-Adresse des Shelly und Solltemperatur anpassen!

Zitat

wget -q -O - 'ping -w 20 192.168.2.151' wget -q -O - 'http://192.168.2.151/thermostat/0/?target_t~3d18'

2.) Eintrag für "SWITCHCMD_LONG":

jeweils IP-Adresse des Shelly und Solltemperatur anpassen!

Zitat

wget -q -O - 'ping -w 20 192.168.2.151' wget -q -O - 'http://192.168.2.151/thermostat/0/?target_t~3d20'

Und hier als unformatierter Code:

Code

wget -q -O - 'ping -w 20 192.168.2.151' wget -q -O - 'http://192.168.2.151/thermostat/0/?target_t~3d18'

wget -q -O - 'ping -w 20 192.168.2.151' wget -q -O - 'http://192.168.2.151/thermostat/0/?target_t~3d20'

(Achtung: Es dürfen keine Leerzeichen (pro Befehls-Zeile gelöscht werden!)

Das Ganze sollte also jetzt so aussehen:

TRV CUxD Einstellungen.PNG

Damit funktioniert schon mal das Setzen der Solltemperatur für den Shelly TRV .

Hinweis:

Natürlich sind auch andere Befehle hier denk- und einsetzbar. Bei Bedarf könnte man auch weiter CUxD-Kanäle mit Befehlen für den TRV belegen.

Ich erinnere aber an den möglichst sparsamen Umgang mit dieser Möglichkeit. um die Systemlast der CCU gering zu halten und Eure übrigen Funktionen nicht zu stark zu verzögern!

__________________________________________________________________________________

66er

Rückmeldung des Shelly TRV via Actions:

Da der TRV in der aktuellen Firmware keine trigger-relevanten Actions anbietet ...

Actions.PNG

... werden aktuell keine Einstellungen für die Kopplung im TRV benötigt!

Ich erwähne das nur, damit nicht der Eindruck entsteht, ich hätte hier etwas vergessen.

66er

Werte-Aktualisierung:

Wie Ihr es schon aus anderen Kopplungen kennt, erfolgt die Aktualisierung wieder über ein zeitgesteuertes Programm.

Ob Ihr als Trigger das interne Zeitmodul oder einen CUxD-Timer nutzt, bleibt Euch überlassen.

Je nach Anzahl der eingesetzten TRV und abhängig von der Gesamtlast Eurer Homematic-Installation empfehle ich, nicht öfter als stündlich zu aktualisieren.

Der Programmscreenshot zeigt die Aktualisierung eines Shelly TRV.

Für weitere Shelly TRV braucht Ihr kein zusätzliches Programm anzulegen, sondern Ihr erweitert einfach den DANN-Zweig um jeweils eine Zeile pro zusätzlichem TRV mit dem zugehörigen Skript.

Als Mindestabstand (= "verzögert um") empfehle ich Euch 3 bis 5 Minuten !

Das Programm (Variante 1):

Programm TRV.PNG

Nochmals der Hinweis:

Das Aktualisierungsintervall kann natürlich angepasst werden, wobei zu beachten ist:

Je kürzer das Intervall desto höher die Systembelastung für die Homematic-Zentrale. Hier muß / kann man testen. Ab wann die Performance leidet hängt natürlich zum Einen von der eingesetzten Hardware und zum Anderen vom Umfang der Installation ab.

Das Programm (Variante 2):

Wer die Tasten aktiv nutzt, egal ob manuell oder in Programmen, wird eine zeitnahe Aktualisierung brauchen, um zu erkennen, ob der Befehl auch beim TRV angekommen ist.

Für diejenigen gibt es eine 2. Variante des Aktualisierungsprogramms, die den Wert kurz nach Drücken der Taste holt. Bitte beachten: Diese Variante benötigt 1 Programm je Shelly TRV!

Programm Variante 2.PNG

Nach einigen Minuten sollte der Wert aktualisiert sein, vorausgesetzt, der Shelly TRV wurde erreicht.

Viel Spass damit.

__________________________________________________________________________________

66er

2. Das Skript

Bitte den Bereich "Setup" anpassen und Hinweise beachten!

Ausserhalb des Setup sind keine Änderungen oder Eintragungen nötig!

Code

! Skript V1.2.0 zur Statusaktualisierung ShellyTRV  mit Originalfirmware (c)2022 by 66er (alias Stefan K.)
! Publiziert und Updates auf https://smarthome-forum.eu/forum/index.php?board/145-homematic/
! entwickelt und getestet auf ShellyTRV -Firmware 2.1.0
! Versionsdatum: 16.01.2022
! automatische Homematic-SV-Erstellung inkl Kanalzuordnung, Verfügbarkeits-Prüfung integriert (optional), Aktualisierung und Anzeige wählbarer Werte, Steuerung einzelner Parameter

! BITTE BEACHTEN:
! Dieses Skript legt 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.

!Nutzer der CUU2 beachten bitte die Hinweise unter folgendem Link:
!https://smarthome-forum.eu/forum/index.php?thread/12775-wichtige-info-zu-den-kopplungen-der-2nd-gen-besonders-f%C3%BCr-ccu2-user/&postID=134482#post134482

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

! Ich danke ausdrücklich MichaelN aus dem Homematic-Forum, der mir gestattet hat, seinen JSON-Parser in meinen Skripten zu nutzen.
! Quelle des Parser: https://homematic-forum.de/forum/viewtopic.php?p=672027#p672027
! Bitte beachten, dass innerhalb meines Skriptes kleine Anpassungen erfolgt sind!

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

! Raumbezeichnung: Testboard   (kann angepasst werden)

! Setup ShellyTRV
var shtrvip = "192.168.2.151";                      ! IP des ShellyTRV anpassen
var shtrvname = "TRV_Testboard" ;                   ! CUxD-Gerätenamen (daraus werden ggf. automatisch weitere Variablennamen erzeugt), unabhängig vom Kanalnamen, siehe Screenshot in Beitrag 1 der Kopplungsanleitung

!Kanalnamen anpassen
var shtrvk1name = "TRV_Testboard_18--20" ;          ! Name des genutzten Shelly-Tasterkanal anpassen DER NAME MUSS IDENTSCH SEIN MIT DEM TATSÄCHLICHEN KANALNAMEN


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


! Setup der CUxD-GERÄTE
var execshtrv = "CUxD.CUX2801001:3";          ! Adresse und Kanal des CUxD-Exec-Device angeben
var shtrvk1cuxd =  "CUxD.CUX4000002:1" ;      ! Adresse des CUxD-Device für den ShellyTRV anpassen Kanal 1



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

! Setup Aktualisierungs- und Anzeigeumfang
var shtrvti = "J" ;                            ! Variable für IST-Temperatur anlegen und aktualisieren, wenn nicht gewünscht auf "N" setzen
var shtrvts = "J" ;                            ! Variable für Solltemperatur anlegen und aktualisieren, wenn nicht gewünscht auf "N" setzen
var shtrvbp = "J" ;                            ! Variable zur Aktualisierung Batterieladezustand in %, wenn nicht gewünscht auf "N" setzen
var shtrvbs = "J" ;                            ! Variable zur Aktualisierung Batterieladezustand in V, wenn nicht gewünscht auf "N" setzen
var shtrvvp = "J" ;                            ! Variable für die Ventilposition in %, wenn nicht gewünscht auf "N" setzen
var shtrvfi = "J" ;                            ! Variable mit Firmwareinformationen, wenn nicht gewünscht auf "N" setzen

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

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


! Variablen für IST-Tempearatur prüfen, ggf. anlegen

! Temp
if (shtrvti == "J" ) {

var shtrvtitmp = "Temp-P2PM_thermostats_tmp_value1" ;
!WriteLine(shtrvtitmp) ;

 string sName= ""#shtrvtitmp#"";
if (!dom.GetObject (ID_SYSTEM_VARIABLES).Get (sName)) {
  object svObj = dom.CreateObject(OT_VARDP,sName);
  svObj.DPInfo("autom. angelegt durch Skript TRV");
  svObj.ValueUnit("°C");
  dom.GetObject (ID_SYSTEM_VARIABLES).Add(svObj);
  svObj.ValueType(ivtFloat);
  svObj.ValueSubType(istGeneric);
  svObj.ValueMin(0);
  svObj.ValueMax(35);
  svObj.State (0);!SCNR = SHTRV12066R
  dom.RTUpdate(0);
}

var shtrvtitmp =  shtrvname + "_Temperatur-Ist" ;
!WriteLine(shtrvtitmp) ;

 string sName= ""#shtrvtitmp#"";
if (!dom.GetObject (ID_SYSTEM_VARIABLES).Get (sName)) {
  object svObj = dom.CreateObject(OT_VARDP,sName);
  svObj.DPInfo("autom. angelegt durch Skript TRV");
  svObj.ValueUnit("°C");
  dom.GetObject (ID_SYSTEM_VARIABLES).Add(svObj);
  svObj.ValueType(ivtFloat);
  svObj.ValueSubType(istGeneric);
  svObj.ValueMin(0);
  svObj.ValueMax(35);
  svObj.State (0);!SCNR = SHTRV12066R
  dom.RTUpdate(0);
}

object oChan= channels.Get (""#shtrvk1name#"");
object oSys=dom.GetObject (ID_SYSTEM_VARIABLES).Get (""#shtrvtitmp#"");
oChan.DPs().Add (oSys);
oSys.Channel (oChan.ID() );


 }


!**************Step2
! Variablen für SOLL-Tempearatur prüfen, ggf. anlegen

if (shtrvts == "J" ) {

var shtrvtstmp = "Temp-P2PM_thermostats_target-t_value0" ;
!WriteLine(shtrvtstmp) ;

 string sName= ""#shtrvtstmp#"";
if (!dom.GetObject (ID_SYSTEM_VARIABLES).Get (sName)) {
  object svObj = dom.CreateObject(OT_VARDP,sName);
  svObj.DPInfo("autom. angelegt durch Skript TRV");
  svObj.ValueUnit("°C");
  dom.GetObject (ID_SYSTEM_VARIABLES).Add(svObj);
  svObj.ValueType(ivtFloat);
  svObj.ValueSubType(istGeneric);
  svObj.ValueMin(0);
  svObj.ValueMax(35);
  svObj.State (0);!SCNR = SHTRV12066R
  dom.RTUpdate(0);
}

var shtrvtstmp =  shtrvname + "_Temperatur-Soll" ;
!WriteLine(shtrvtstmp) ;

 string sName= ""#shtrvtstmp#"";
if (!dom.GetObject (ID_SYSTEM_VARIABLES).Get (sName)) {
  object svObj = dom.CreateObject(OT_VARDP,sName);
  svObj.DPInfo("autom. angelegt durch Skript TRV");
  svObj.ValueUnit("°C");
  dom.GetObject (ID_SYSTEM_VARIABLES).Add(svObj);
  svObj.ValueType(ivtFloat);
  svObj.ValueSubType(istGeneric);
  svObj.ValueMin(0);
  svObj.ValueMax(35);
  svObj.State (0);!SCNR = SHTRV12066R
  dom.RTUpdate(0);
}

object oChan= channels.Get (""#shtrvk1name#"");
object oSys=dom.GetObject (ID_SYSTEM_VARIABLES).Get (""#shtrvtstmp#"");
oChan.DPs().Add (oSys);
oSys.Channel (oChan.ID() );


 }


!**************Step3
! Variablen für Batterie % prüfen, ggf. anlegen

if (shtrvbp == "J" ) {

var shtrvbptmp = "Temp-P2PM_bat_value" ;
!WriteLine(shtrvbptmp) ;

 string sName= ""#shtrvbptmp#"";
if (!dom.GetObject (ID_SYSTEM_VARIABLES).Get (sName)) {
  object svObj = dom.CreateObject(OT_VARDP,sName);
  svObj.DPInfo("autom. angelegt durch Skript TRV");
  svObj.ValueUnit("%");
  dom.GetObject (ID_SYSTEM_VARIABLES).Add(svObj);
  svObj.ValueType(ivtFloat);
  svObj.ValueSubType(istGeneric);
  svObj.ValueMin(0);
  svObj.ValueMax(100);
  svObj.State (0);!SCNR = SHTRV12066R
  dom.RTUpdate(0);
}

var shtrvbptmp =  shtrvname + "_Batterieladung" ;
!WriteLine(shtrvbptmp) ;

 string sName= ""#shtrvbptmp#"";
if (!dom.GetObject (ID_SYSTEM_VARIABLES).Get (sName)) {
  object svObj = dom.CreateObject(OT_VARDP,sName);
  svObj.DPInfo("autom. angelegt durch Skript TRV");
  svObj.ValueUnit("%");
  dom.GetObject (ID_SYSTEM_VARIABLES).Add(svObj);
  svObj.ValueType(ivtFloat);
  svObj.ValueSubType(istGeneric);
  svObj.ValueMin(0);
  svObj.ValueMax(100);
  svObj.State (0);!SCNR = SHTRV12066R
  dom.RTUpdate(0);
}


object oChan= channels.Get (""#shtrvk1name#"");
object oSys=dom.GetObject (ID_SYSTEM_VARIABLES).Get (""#shtrvbptmp#"");
oChan.DPs().Add (oSys);
oSys.Channel (oChan.ID() );

 }


!**************Step4
! Variablen für Batterie V prüfen, ggf. anlegen

if (shtrvbs == "J" ) {

var shtrvbstmp = "Temp-P2PM_bat_voltage" ;
!WriteLine(shtrvbstmp) ;

 string sName= ""#shtrvbstmp#"";
if (!dom.GetObject (ID_SYSTEM_VARIABLES).Get (sName)) {
  object svObj = dom.CreateObject(OT_VARDP,sName);
  svObj.DPInfo("autom. angelegt durch Skript TRV");
  svObj.ValueUnit("V");
  dom.GetObject (ID_SYSTEM_VARIABLES).Add(svObj);
  svObj.ValueType(ivtFloat);
  svObj.ValueSubType(istGeneric);
  svObj.ValueMin(0);
  svObj.ValueMax(6);
  svObj.State (0);!SCNR = SHTRV12066R
  dom.RTUpdate(0);
}

var shtrvbstmp =  shtrvname + "_Batteriespannung" ;
!WriteLine(shtrvbstmp) ;

 string sName= ""#shtrvbstmp#"";
if (!dom.GetObject (ID_SYSTEM_VARIABLES).Get (sName)) {
  object svObj = dom.CreateObject(OT_VARDP,sName);
  svObj.DPInfo("autom. angelegt durch Skript TRV");
  svObj.ValueUnit("V");
  dom.GetObject (ID_SYSTEM_VARIABLES).Add(svObj);
  svObj.ValueType(ivtFloat);
  svObj.ValueSubType(istGeneric);
  svObj.ValueMin(0);
  svObj.ValueMax(6);
  svObj.State (0);!SCNR = SHTRV12066R
  dom.RTUpdate(0);

}

object oChan= channels.Get (""#shtrvk1name#"");
object oSys=dom.GetObject (ID_SYSTEM_VARIABLES).Get (""#shtrvbstmp#"");
oChan.DPs().Add (oSys);
oSys.Channel (oChan.ID() );


 }


!**************Step5
! Variablen für Ventilstand % prüfen, ggf. anlegen

if (shtrvvp == "J" ) {

var shtrvvptmp = "Temp-P2PM_thermostats_pos0" ;
!WriteLine(shtrvvptmp) ;

 string sName= ""#shtrvvptmp#"";
if (!dom.GetObject (ID_SYSTEM_VARIABLES).Get (sName)) {
  object svObj = dom.CreateObject(OT_VARDP,sName);
  svObj.DPInfo("autom. angelegt durch Skript TRV");
  svObj.ValueUnit("%");
  dom.GetObject (ID_SYSTEM_VARIABLES).Add(svObj);
  svObj.ValueType(ivtFloat);
  svObj.ValueSubType(istGeneric);
  svObj.ValueMin(0);
  svObj.ValueMax(100);
  svObj.State (0);!SCNR = SHTRV12066R
  dom.RTUpdate(0);
}

var shtrvvptmp =  shtrvname + "_Ventilstand" ;
!WriteLine(shtrvvptmp) ;

 string sName= ""#shtrvvptmp#"";
if (!dom.GetObject (ID_SYSTEM_VARIABLES).Get (sName)) {
  object svObj = dom.CreateObject(OT_VARDP,sName);
  svObj.DPInfo("autom. angelegt durch Skript TRV");
  svObj.ValueUnit("%");
  dom.GetObject (ID_SYSTEM_VARIABLES).Add(svObj);
  svObj.ValueType(ivtFloat);
  svObj.ValueSubType(istGeneric);
  svObj.ValueMin(0);
  svObj.ValueMax(100);
  svObj.State (0);!SCNR = SHTRV12066R
  dom.RTUpdate(0);
}

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

!*************Step 6
! Variablen für Firmwareinformationen prüfen, ggf. anlegen

! Firmware aktuell

if (shtrvfi == "J" ) {

var shtrvfitmp = "Temp-P2PM_update_old-version" ;
!WriteLine(shtrvfitmp) ;

string sName = shtrvfitmp ;
if (!dom.GetObject (ID_SYSTEM_VARIABLES).Get (sName)) {
  object svObj = dom.CreateObject(OT_VARDP,sName);
  svObj.DPInfo("autom. angelegt durch Skript TRV");
  svObj.ValueUnit("");
  dom.GetObject (ID_SYSTEM_VARIABLES).Add(svObj);
  svObj.ValueType(ivtString);
  svObj.ValueSubType(istChar8859);
  svObj.State (""); !SCR = SHTRV12066R
  dom.RTUpdate(0);
}

! Update verfügbar

var shtrvuctmp = "Temp-P2PM_update_has-update" ;

string sName = shtrvuctmp;
if (!dom.GetObject (ID_SYSTEM_VARIABLES).Get (sName)) {
  object svObj = dom.CreateObject(OT_VARDP,sName);
  svObj.DPInfo("autom. angelegt durch Skript TRV");
  svObj.ValueUnit("");
  dom.GetObject (ID_SYSTEM_VARIABLES).Add(svObj);
  svObj.ValueType(ivtBinary);
  svObj.ValueSubType(istBool);
  svObj.ValueName0("Nein");
  svObj.ValueName1("Ja");
  svObj.State (false); !SCR = SHTRV12066R
  dom.RTUpdate(0);
}

! Firmware-Info (zur Anzeige)

var shtrvuiccu =  shtrvname + "_Firmware-Infos" ;
!WriteLine(shtrvuiccu) ;

string sName = shtrvuiccu ;
if (!dom.GetObject (ID_SYSTEM_VARIABLES).Get (sName)) {
  object svObj = dom.CreateObject(OT_VARDP,sName);
  svObj.DPInfo("autom. angelegt durch Skript TRV");
  svObj.ValueUnit("");
  dom.GetObject (ID_SYSTEM_VARIABLES).Add(svObj);
  svObj.ValueType(ivtString);
  svObj.ValueSubType(istChar8859);
  svObj.State (""); !SCR = SHTRV12066R
  dom.RTUpdate(0);
}

object oChan= channels.Get (""#shtrvk1name#"");
object oSys=dom.GetObject (ID_SYSTEM_VARIABLES).Get (""#shtrvuiccu#"");
oChan.DPs().Add (oSys);
oSys.Channel (oChan.ID() );


}

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


if (shtrvonl == "J")  {

var shtrvonln = "Letzer_" + shtrvname + "_Abfrage-Status"  ;
!WriteLine(shtrvonln) ;


string sName= ""#shtrvonln#"";  ! Onlinestatus
if (!dom.GetObject (ID_SYSTEM_VARIABLES).Get (sName)) {
  object svObj = dom.CreateObject(OT_VARDP,sName);
  svObj.DPInfo("autom. angelegt durch Skript TRV");
  svObj.ValueUnit("");
  dom.GetObject (ID_SYSTEM_VARIABLES).Add(svObj);
  svObj.ValueType(ivtBinary);
  svObj.ValueSubType(istBool);
  svObj.ValueName0("NICHT ERREICHT!");
  svObj.ValueName1("erreicht");
  svObj.State(true);!SCR = SHTRV12066R
  dom.RTUpdate(0);

}

object oChan= channels.Get (""#shtrvk1name#"");
object oSys=dom.GetObject (ID_SYSTEM_VARIABLES).Get (""#shtrvonln#"");
oChan.DPs().Add (oSys);
oSys.Channel (oChan.ID() );

}



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


if (((shtrvonl ) == "J" ) && ((Status) == -1)) {
WriteLine("ShellyTRV nicht erreicht");
dom.GetObject (""#shtrvonln#"").State(0);
quit; ! Programmabbruch bei Shelly offline
                                              }

if ((shtrvonl ) == "J" ) {
dom.GetObject (""#shtrvonln#"").State(1);
WriteLine("ShellyTRV erreicht");
                        }


! Statusabfrage gesamt

! url ohne RL
var url = shtrvip + "/status";
WriteLine("Ergebnis Statusabfrage: " + url);

! url mit RL
if ( shtrvrl == "J") {
var url = shtrvbn + ":" + shtrvpw +"@" +shtrvip + "/status";
!WriteLine(url);
                           }


!****Abfrage des TRV  *****

dom.GetObject(""#execshtrv#".CMD_SETS").State("wget -q -O - '"#url#"'");
dom.GetObject(""#execshtrv#".CMD_QUERY_RET").State(1);
string Antwort = dom.GetObject(""#execshtrv#".CMD_RETS").State();
dom.GetObject(""#execshtrv#".CMD_SETS").State("0");
WriteLine("Antwortstring:   " + Antwort);

!Testantwort  *** MUSS AUSKOMMENTIERT SEIN


string rueck = Antwort ; ! Variable für Parser von Michael setzen

WriteLine("Wert für Parser" + rueck);


!***********************
!* Skript von MichaelN *
!***********************
!JSON universell auslesen
!V1.10 MichaelN https://homematic-forum.de/forum/viewtopic.php?f=18&t=68762
!GPL-3.0-or-later
!string url = "http://IP/";
!url = "wget --no-check-certificate --timeout=2 -O - '"#url#"'";
string prefix = "Temp-P2PM_";
!string CUXD_Device = ""; ! falls man CUxD  nutzt, Device eintragen z.B. "CUxD.CUX2801001:1"
! Trenner kann notfalls angepasst werden, wenn es mit den Nutzdaten kollidiert
string TrennerArray = " \ ";  TrennerArray = TrennerArray.Trim();
string TrennerArrayErsatz = "/";
! festlegen welche Zeichen in den Nutzdaten durch welches Zeichen ersetzt werden
string ersetzen = ":,[]{}";
string durch = " ";

!string rueck;
string error;
object SV;
string SVName;
var Wert;



!- Abruf der Daten
!if ( !CUXD_Device ) {
! system.exec
!system.Exec(url , &rueck, &error);
!} else {
! CUxD
!dom.GetObject(CUXD_Device#".CMD_SETS").State(url);
!dom.GetObject(CUXD_Device#".CMD_QUERY_RET").State(1);
!rueck = dom.GetObject(CUXD_Device#".CMD_RETS").State();
!}



if (!rueck== "")
{
   WriteLine("=== HTTP-Request OK === "#rueck);
   rueck = rueck.ToLatin(); ! wegen deutschen Umlauten
   rueck = rueck.Trim(" {}[]");
   rueck = rueck.Replace('\n','');
   rueck = rueck.Replace('\r','');
   rueck = rueck.Replace('_','-');
   rueck = rueck.Replace(TrennerArray,TrennerArrayErsatz);
   if (rueck.Substr(0,1) == "[" ) { rueck = "data:"#rueck; }
   WriteLine("=== nach Replace === '"#rueck#"'");


! Array und Payload aufbereiten
   integer pos1 = 0; integer posG = 0;
   integer pos2 = rueck.Length();
   string temp = ""; string temp2;
   string teil;
   boolean Array = false; boolean Payload = false;
   while ( pos1 < pos2 )
     {
         teil = rueck.Substr(pos1,1);
         if ( teil == "[")
            {! Array gefunden
            Array = true;
            }
         if ( (teil == "," ) && Array )
           {! Komma gegen Schraegstrich tauschen
            teil = TrennerArray;
            }
         if ( teil == "]")
            {! Array Ende
            Array = false;
            }
         if (  teil == '"' ) {
            if ( Payload )
            {! Payload Ende
            Payload = false;
            } else {
            ! Payload Start
            Payload = true;
            }
            }
         if ( ( ersetzen.Contains(teil) )  && Payload )
           {! verbotene Zeichen austauschen
            teil = durch;
            }
         temp = temp#teil;
         pos1 = pos1 + 1;
         }
   rueck = temp;
   rueck = rueck.Replace('"','');
   WriteLine("=== nach Aufbereitung === '"#rueck#"'");
   WriteLine("=== Output V1.10 ===");

   string Part; string SVNameArray;
   string Gruppe = ""; string GruppeNeu;
   integer G1; integer G2;
   integer ArrayZaehler = 0;
   boolean ArrayMitGruppe = false;

   foreach (Part, rueck.Split(",") ){
          if (Part.Contains(":"))
          {
           if (Part.Contains("{"))
           { ! Unter-Objekt gefunden
             !WriteLine("Z96 Part='"#Part#"'"); ! *** DEBUG

             if (Part.Contains("[")) {
               ! enthält Arrray
               GruppeNeu = Part.StrValueByIndex(":", 0);
               GruppeNeu = GruppeNeu.Trim() #"_";
               Part = Part.Substr(GruppeNeu.Length()+2).Trim("{ ");
               Gruppe = Gruppe # GruppeNeu; Gruppe = Gruppe.Replace("__","_");
               !WriteLine("Gruppe alt:"#Gruppe); ! DEBUG ***
               !WriteLine("Inhalt alt:"#Part); ! DEBUG ***
             } else {
               ! enthält kein Array, aber möglicherweise geschachtelte Objekte
               temp = Part.Replace("{",";");
               G2 = web.webGetValueListCount(temp);
               G1=0;
               while (G1 < (G2-1)) {
               GruppeNeu = web.webGetValueFromList(temp,(G1)).Trim(" :");
               if ( (GruppeNeu == "_") || (GruppeNeu == "") ) {
                       ArrayZaehler = ArrayZaehler + 1;
                    GruppeNeu = ArrayZaehler.ToString(0).Trim() # "_";
                    }
               Gruppe = Gruppe # GruppeNeu # "_";
               G1 = G1 + 1;
               }
               if ( Gruppe == "_" ) {
                       ArrayZaehler = ArrayZaehler + 1;
                    Gruppe = ArrayZaehler.ToString(0).Trim() # "_";
                    }
               Gruppe = Gruppe.Replace("__","_");
               Part = web.webGetValueFromList(temp,(G2-1));
               !WriteLine("Gruppe neu:"#Gruppe); ! *** DEBUG
               !WriteLine("Inhalt neu:"#Part); ! **** DEBUG
             }

             !WriteLine("=== GRUPPE-START: "#Gruppe);
           }
           if (Part.Contains(TrennerArray)) {
              ! Array gefunden
              !WriteLine("=== ARRAY auflösen:"#Part);
              ArrayMitGruppe = false;
              Part = Part.Replace("[","");
              Part = Part.Replace("]","");
              pos1 = 0;  posG = 0;
              SVName = Gruppe;
              if (Part.Contains(":"))
                  {
                  SVName = Part.StrValueByIndex(":", 0);
                  Part = Part.Substr(SVName.Length()+1).Trim();
                  SVName = SVName.Trim("[{ ");
          !WriteLine("*** Z365 ARRAY aufgelöst in:"#SVName#"==="#Part#"===");  ! DEBUG ***
                  }
              foreach (temp,Part.Split(TrennerArray))
                  {
                !WriteLine("Z352 temp="#temp); ! DEBUG ***

                if ( temp.Contains(":")) {
                ! Array enthält eine Gruppe

                  SVName = temp.StrValueByIndex(":", 0).Trim("{ ");
                  temp2 = temp;
                  temp = temp.StrValueByIndex(":", 1).Trim(" []");
                  SVNameArray = SVName#posG.ToString(0).Trim();
                      if ( temp.Contains("{")) {
                      ! weitere Gruppe gefunden
                      ArrayMitGruppe = true;
                      Gruppe = Gruppe # SVName # "_";
                      temp = temp.Trim(" {"); ! temp.StrValueByIndex("{", 1).Trim();
                      SVName = temp;
                      temp = temp2.StrValueByIndex(":", 2).Trim(" []");
                      SVNameArray = SVName#posG.ToString(0).Trim();
                      !WriteLine("Z363 Gruppe="#Gruppe#" SVNameAray="#SVNameArray#" temp="#temp); ! DEBUG ***
                      }

                  if ( temp.Contains("}")) { posG = posG + 1; }
                  !WriteLine("Z367 Gruppe="#Gruppe#" SVNameAray="#SVNameArray#" temp="#temp); ! DEBUG ***
                  WriteLine (prefix # Gruppe # SVNameArray #" = '"# temp.Trim(" {[]}") #"'");
                  SV = dom.GetObject(ID_SYSTEM_VARIABLES).Get((prefix # Gruppe # SVNameArray));
                   if (SV) {
                   SV.State(temp.Trim(" {[]}"));
                   WriteLine("=== SV "#prefix # Gruppe # SVNameArray #" written ===");
                   }
                } else {
                ! keine Gruppe
                  SVNameArray = SVName#pos1.ToString(0).Trim();
                  WriteLine (prefix # Gruppe # SVNameArray #" = '"# temp.Trim(" {[]}") #"'");
                  SV = dom.GetObject(ID_SYSTEM_VARIABLES).Get((prefix # Gruppe # SVNameArray));
                   if (SV) {
                   SV.State(temp.Trim(" {[]}"));
                   WriteLine("=== SV "#prefix # Gruppe # SVNameArray #" written ===");
                   }
                  pos1 = pos1 + 1;
                  }
                   if ( (temp.Contains("}")) && (ArrayMitGruppe)  )
                   { ! Unter-Objekt zu Ende
                         ! Gruppe um letzten Eintrag kürzen
                         temp2 = Gruppe.Replace("_",";");
                         G2 = web.webGetValueListCount(temp2);
                      !WriteLine("Z365 GRUPPE: "#Gruppe#" ==="); ! DEBUG ***
                         Gruppe = ""; G1=0;
                               while (G1 < (G2-2)) {
                               Gruppe = Gruppe # web.webGetValueFromList(temp2,(G1)) # "_";
                            !WriteLine("Z368 "#G1#"/"#G2#":"#Gruppe); ! *** DEBUG
                               G1 = G1 + 1;
                               }
                     !WriteLine("=== Z374 GRUPPE-ENDE: "#Gruppe#" ===");
                    ArrayMitGruppe = false;
                   }


                }
                if ( posG > 0 ) {
                    !WriteLine("Z413 Part="#Part); ! *** DEBUG

                      ! Gruppe um letzten Eintrag kürzen
                       temp2 = Gruppe.Replace("_",";");
                       G2 = web.webGetValueListCount(temp2);
                    !WriteLine("=== GRUPPE-ENDE (array): "#Gruppe#"***");
                       Gruppe = ""; G1=0;
                       while (G1 < (G2-2)) {
                               Gruppe = Gruppe # web.webGetValueFromList(temp2,(G1)) # "_";
                            !WriteLine("Z422 "#G1#"/"#G2#":"#Gruppe); ! *** DEBUG
                               G1 = G1 + 1;
                               }

                        }
            ! ARRAY ENDE


           } else {
           ! ohne Array
           ! WriteLine("Z154 Part='"#Part#"'"); ! *** DEBUG
           Part = Part.Replace(":",";");
           SVName = Gruppe#web.webGetValueFromList(Part,0).Trim();
           Wert = web.webGetValueFromList(Part,1).RTrim("}").Trim(" {[]}");
           WriteLine (prefix # SVName #" = '"# Wert #"'");
           SV = dom.GetObject(ID_SYSTEM_VARIABLES).Get((prefix # SVName));
            if (SV) {
                   SV.State(Wert);
                   WriteLine("=== SV "#prefix # SVName #" written ===");
                   }
           if (Part.Contains("}"))
             { ! Unter-Objekt zu Ende
             ! *** Gruppe muss um so viele Einträge gekürzt werden, wie } vorhanden sind in Part ***
             Part = Part.Replace(" ","");
             ! WriteLine("Z199 Part='"#Part#"'"); ! *** DEBUG
             while ( Part.EndsWith("}") ) {
               ! Gruppe um letzten Eintrag kürzen
               temp = Gruppe.Replace("_",";");
               G2 = web.webGetValueListCount(temp);
               Gruppe = ""; G1=0;
               while (G1 < (G2-2)) {
                       Gruppe = Gruppe # web.webGetValueFromList(temp,(G1)) # "_";
                       ! WriteLine("=== "#G1#":"#Gruppe); *** DEBUG
                       G1 = G1 + 1;
                       }
               Part = Part.Substr(0,(Part.Length()-1)) ;
               ! WriteLine("Z212 Part="#Part); ! *** DEBUG
             } ! Ende while
             !WriteLine("=== GRUPPE-ENDE: "#Gruppe#" ===");
            }
           }
         }
   }
} else {
  WriteLine("Error at HTTP Request");
}


!****************************
!* Ende Skript von MichaelN *
!****************************


! gewünschte-Werte lesen und zuordnen

if ( shtrvti == "J" ) {
var ti = dom.GetObject("Temp-P2PM_thermostats_tmp_value1").State();
dom.GetObject(""#shtrvtitmp#"").State(ti);
}


if ( shtrvts == "J" ) {
var ts = dom.GetObject("Temp-P2PM_thermostats_target-t_value0").State();
dom.GetObject(""#shtrvtstmp#"").State(ts);
}


if ( shtrvbp == "J" ) {
var tbp = dom.GetObject("Temp-P2PM_bat_value").State();
dom.GetObject(""#shtrvbptmp#"").State(tbp);
}


if ( shtrvbs == "J" ) {
var tbs = dom.GetObject("Temp-P2PM_bat_voltage").State();
dom.GetObject(""#shtrvbstmp#"").State(tbs);
}


if ( shtrvvp == "J" ) {
var tbs = dom.GetObject("Temp-P2PM_thermostats_pos0").State();
dom.GetObject(""#shtrvvptmp#"").State(tbs);
}


if ( shtrvfi == "J" ) {
string afw = dom.GetObject("Temp-P2PM_update_old-version").Value();
var fuv = dom.GetObject("Temp-P2PM_update_has-update").State();


if ( fuv == false ) {
dom.GetObject(""#shtrvuiccu#"").State("FW installiert: " + afw + "\n" + "Update verfügbar: " + "\n" + "Nein")
                             }
else {
dom.GetObject(""#shtrvuiccu#"").State("FW installiert: " + afw + "\n" + "Update verfügbar: " + "\n" + "Ja") }
                            }                                                                                   


WriteLine("Skript TRV V1.2.0 beendet");

!ENDE Skript

Alles anzeigen

Im eingestellten Intervall werden nun entsprechend den aktivierten Feature die Daten des TRV aktualisiert.

Changelog:

V1.2.0 | 16.01.2022

- Systemvariable mit Informationen zum Firmwarestand zugefügt.

V1.1.0 | 09.01.2022

- Systemvariable für den Ventilstand auf Userwunsch zugefügt

V1.0.1 | 08.01.2022

- Einheiten der Temperaturvariablen korrigiert

Bitte beachten:

Damit die Korrektur wirksam wird, müssen die alten, bereits existierenden Variablen gelöscht werden.

- überflüssige Code-Zeile entfernt.

Danke SparkyMaster für Deine Hinweise.

V1.0.0 | 07.01.2022
Erstpublizierung

____________________________________________________________

Die Anleitung inkl. der Skripte und Bilder unterliegt dem Urheberrecht. Wer gegen das Urheberrecht verstößt (z.B. Bilder oder Texte unerlaubt kopiert und auf anderen Webseiten publiziert), macht sich gem. §§ 106 ff UrhG strafbar, kann zudem kostenpflichtig abgemahnt werden und muss Schadensersatz leisten (§ 97 UrhG).

An dieser Stelle nochmals Dank an MichaelN aus dem Homematic-Forum für die freundliche Zustimmung, sein Skript "Json universell auslesen" in meine Shelly-Skripte einbauen zu dürfen.

Shelly TRV goes Homematic - mit der Originalfirmware

Ähnliche Themen

Shelly Plus 1PM goes Homematic - mit der Originalfirmware

ShellyPro 2PM goes Homematic - mit der Originalfirmware

Shelly Plus 1 goes Homematic - mit der Originalfirmware

ShellyPro1 goes Homematic - mit der Originalfirmware

ShellyPro2 goes Homematic - mit der Originalfirmware

ShellyPro 1PM goes Homematic - mit der Originalfirmware

Tags