How To: Helios KWL Wohnraumbelüftung über Modbus TCP mit fhem

[fhem_TS]

Hallo Forum,

ich war mit einigen hier im Forum in Kontakt um eine Helios KWL EC 370 über Modbus TCP in fhem einzubinden.
Da ich niemanden gefunden hatte der das bisher umgesetzt hier mal mein Weg um das zu realisieren.


Vorbereitung:
Keine; seit dem 26.11.2016 ist die für die Helios benötigte Version der 98_Modbus  durch ein fhem-Update automatisch verfügbar.


Anschließend habe ich folgendes define für die Helios in der fhem.cfg ergänzt:

Code Auswählen Erweitern

define Helios_KWL ModbusAttr 180 10 IP.ADRESSE:502 TCP
attr Helios_KWL userattr dev-defShowGet dev-h-defPoll dev-h-read dev-h-write dev-timing-timeout obj-h0-format obj-h0-len obj-h0-poll obj-h0-reading obj-h0-set obj-h1-bswapRegs obj-h1-format obj-h1-len obj-h1-map obj-h1-poll obj-h1-reading obj-h1-set obj-h1-setexpr obj-h1-textArg obj-h1-unpack obj-h180-format obj-h180-len obj-h180-poll obj-h180-reading obj-h180-set sortby verbose
attr Helios_KWL dev-defShowGet 1
attr Helios_KWL dev-h-defPoll 0
attr Helios_KWL dev-h-read 3
attr Helios_KWL dev-h-write 16
attr Helios_KWL dev-timing-timeout 2
attr Helios_KWL group Helios_Status
attr Helios_KWL obj-h1-format %.20s
attr Helios_KWL obj-h1-len 16
attr Helios_KWL obj-h1-poll 0
attr Helios_KWL obj-h1-reading Register
attr Helios_KWL obj-h1-set 1
attr Helios_KWL obj-h1-setexpr ($val."\0")
attr Helios_KWL obj-h1-textArg 1
attr Helios_KWL obj-h1-unpack (a*)
attr Helios_KWL room Helios_KWL
attr Helios_KWL sortby 1

Zudem habe ich für jedes Signal welches ich auslesen möchte einen dummy erstellt (Hier Temperatur der Frischluft):

Code Auswählen Erweitern

define KWL_Temp_Frischluft dummy
attr KWL_Temp_Frischluft event-on-change-reading state
attr KWL_Temp_Frischluft group Helios_KWL
attr KWL_Temp_Frischluft room Helios_KWL

Nach einem Neustart sollte die Helios schon als "opened" erkannt werden.
Da die Helios nur ein Register nutzt (Zuerst den Variablennamen hineinschreiben und anschließend den Variablennamen samt aktuellem Wert wieder auslesen) habe ich das Pollen auf 0 gesetzt.
Die Länge steht auf 16 da dies die maximale Länge einer Variable ist die ich auslesen möchte.


Der hier beschriebene Weg funktioniert mit meiner KWL 370 einwandfrei. Es gibt bei anderen Modellen (270/500) Probleme wenn alle Register am Stück gelesen werden sollen.
Die Lösung für dieses Problem hat enno in Post #12 beschrieben[\b]
Anschließend habe ich in der 99_myUtils.pm eine neue Funktion definiert:

Code Auswählen Erweitern

sub Fn_KWL_auslesen()
{
{fhem("set Helios_KWL Register v00104")};
my $Frischluft = ReadingsVal("Helios_KWL","Register","-99");
$Frischluft =    (split /=/, $Frischluft , 2 )[1];
$Frischluft =    (split /\0/, $Frischluft )[0];
{fhem("set KWL_Temp_Frischluft $Frischluft")};

# hier können beliebige Signale nach demselben Schema ergänzt werden.

}

Die beiden split-Befehle sind notwendig um im ersten Schritt den Namen vorne abzuschneiden und im zweiten Schritt das angehängte "\0".
Das stört bei der weiteren Verwendung und Steuerung.


Um das ganze nun zyklisch zu bekommen habe ich ein "at" definiert welches die Funktion "Fn_KWL_auslesen()" zyklisch aufruft. In meinem Fall alle 15 Minuten:

Code Auswählen Erweitern

define KWL_Update at +*00:15:00 {Fn_KWL_auslesen}
attr KWL_Update room Helios_KWL

Somit füllen sich alle 15 Minuten meine dummy Variablen mit den ausgelesenen Signalen der Helios.

Um die Anlage nun auch steuern zu können benutze ich folgende Befehle in der Kommandozeile:
Modus auf Manuell:

Code Auswählen Erweitern

set Helios_KWL Register v00101=1
Stufe auf 3:

Code Auswählen Erweitern

set Helios_KWL Register v00102=3

Oder alternativ in der 99_myUtils:

Code Auswählen Erweitern

{fhem("set Helios_KWL Register v00101=1")}; # Modus Manuell



An dieser Stelle nochmal herzlichen Dank an StefanStrobel und ChrisD.

Falls noch Fragen sind einfach Fragen.
Codeoptimierungen gegenüber bin ich immer aufgeschlossen 


Grüße
Tobias


Edit 06.12.2016: Verweis auf spezielle Version der 98_Modbus entfernt da integriert in Backup.
Edit 13.12.2016: Verweis auf Ennos Lösung für 270/500 in Post 12.

[enno]

Nach deiner Anleitung funktioniert es hier auf Cubietruck und KWL sofort.

Ich bekomme nach Setzen der Befehle die Meldung "Timeout reading answer". Die Befehle kommen in der KWL aber an und werden dort auch umgesetzt. Ich bin begeistert. Vielen Dank für die Arbeit.

Gruss
Enno

[MegaData]

Mit einer EC 270 geht es leider nicht Dachte die sind einigermaßen baugleich... Kann mir jemand helfen die zum laufen zu bekommen... ?

[fhem_TS]

Hallo MegaData,

bist du mittlerweile weitergekommen? Oder hängst du noch an dem Problem mit "NotNumeric" und nur einem Register wie in dem Thread über Modbus berichtet?

Gruß Tobias

[MegaData]

Hi Tobias,

nein ich bin leider nicht weiter gekommen Ich bekomme immer nur v00000=KWL EC 270W R als Ausgabe. Eine Eingabe nimmt er nicht an: not numeric Hast du eine Idee ?

VG,
Chris

[fhem_TS]

Hallo Chris,

die Meldung "not numeric" deutet für mich darafu hin, dass du entweder nicht die richtige Version der 98_Modbus.pm benutzt (wichtig, nimm die aus dem oben verlinkten Thread, diese wird nach einem fhem Update wahrscheinlich wieder überschrieben worden sein) oder das du TextArg nicht gesetzt hast.

Bitte prüfe nochmal diese beiden Punkte, dann sollte es laufen.

Gruß
Tobias

[MegaData]

Hi hi !
In der Tat - mit der Version aus dem Thread komme ich schon mal so weit dass ich manuell auslesen und auch schalten kann - super, danke !
Was nicht funktioniert: die Routine um die Dummies zu aktualisieren. Habe in jedem Dummie nur eine 1 drin stehen. Habe natürlich unterschiedliche Variablen verwendet. Die Stufe auszulesen wäre mir noch wichtig

VG,
Chris

[fhem_TS]

Hallo Chris,
sehr gut, der erste Schritt ist gemacht. Kannst du mal ein Log posten um zu sehen welche Antwort du bekommst?

Gruß
Tobias

[MegaData]

Hi hi !

Okay, nach etwas warten stehen nun in beiden Dummies andere Zahlen, sieht wie die Temperatur aus. Aber es steht halt in beiden das Gleiche drin... Ich hätte jetzt mit den angelegten Dummies zum einem die Lüfterstufe und zum anderen eine Temperatur erwartet. Das Log zeigt das Gleiche was man auch sieht wenn man manuell einen Befehl absetzt: timeout...

Code Auswählen Erweitern

2016.11.01 21:05:13.828 3: Helios_KWL: Timeout2 in ReadAnswer for Register
2016.11.01 21:05:13.830 3: set Helios_KWL Register v00104 : Timeout reading answer
2016.11.01 21:05:16.078 3: Helios_KWL: Timeout2 in ReadAnswer for Register
2016.11.01 21:05:16.080 3: set Helios_KWL Register v00102 : Timeout reading answer

Vielleicht ist die Routine da zu schnell und man muss da 2-3 Wartesekunden einbauen ?

VG,
Chris

[enno]

Hallo Chris,

ich hatte bei der Lösung von Tobias auch das Problem, dass ich nur ein Register lesen konnte. Die Timeout Fehlermeldung habe ich auch im Log. Wenn ich alle Register in einem Rutsch abrufen wollte, bekam ich das Problem, dass Helios wohl nicht schnell genug antwortet.

Um mehrere Register zu lesen habe ich in 99_myUtils.pm fuer jedes Register eine eigene Unterfunktion geschrieben. Diese rufe ich mit einer DOIF Abfrage einzeln auf und warte dazwischen ein paar Sekunden.

Code Auswählen Erweitern

([+:15]) (({Fn_KWL_Luefterstufe_auslesen})({Fn_KWL_Abluft_auslesen})({Fn_KWL_Aussenluft_auslesen})({Fn_KWL_Betriebsart_auslesen})({Fn_KWL_Fortluft_auslesen})({Fn_KWL_Zuluft_auslesen})

Code Auswählen Erweitern

DOIF Attr wait 0,5,5,5,5,5,5,0

Gruss
Enno

[Daniel]

Hallo,

Tobias, danke für deine Beschreibung. Das Auslesen der Außenluft funktioniert einwandfrei!

Enno, kannst du bitte den kompletten Code, den du erweitert hast, posten? Das Aufkopieren der Unterfunktionen in der 99_myUtils.pm ist mir soweit klar... Was muss ich in der fhem.cfg eintragen, damit mehrere Temperaturen ausgelesen and angezeigt werden?

mfg
Daniel 

[fhem_TS]

Hallo,

also mit meiner KWL 370 läuft das Abarbeiten in einem Rutsch.
@Enno, hast du auch eine 270?
- Falls es bei den 270ern ein Problem mit dem Abarbeiten in einer Funktion gibt ändere ich oben die Anleitung.

@ Daniel
Schau mal in der CommandRef hier : http://fhem.de/commandref_DE.html#DOIF_Relative_Zeitangaben
Dort ist ein Beispiel für ein regelmäßiges DOIF.

Gruß
Tobias

[enno]

@ Daniel: Code hier weiter unten:
@ Tobias: Ich habe eine Helios KWL EC 500W R mit easyControls v2.21

Hier meine 99_myUtils.pm im Prinzip wie Tobias im ersten Post angegeben, nur in kleine Häppchen unterteilt.

Code Auswählen Erweitern

sub Fn_KWL_Aussenluft_auslesen()
{
fhem( "set Helios_KWL Register v00104");
fhem( "get Helios_KWL Register");
my $Aussenluft = ReadingsVal("Helios_KWL","Register","-99");
$Aussenluft = (split /=/, $Aussenluft , 2 )[1];
$Aussenluft = (split /\0/, $Aussenluft )[0];
fhem( "set KWL_Temp_Aussenluft $Aussenluft");
}

sub Fn_KWL_Zuluft_auslesen()
{
fhem( "set Helios_KWL Register v00105");
fhem( "get Helios_KWL Register");
my $Zuluft = ReadingsVal("Helios_KWL","Register","-99");
$Zuluft = (split /=/, $Zuluft , 2 )[1];
$Zuluft = (split /\0/, $Zuluft )[0];
fhem("set KWL_Temp_Zuluft $Zuluft");
}

sub Fn_KWL_Fortluft_auslesen()
{
fhem("set Helios_KWL Register v00106");
fhem( "get Helios_KWL Register");
my $Fortluft = ReadingsVal("Helios_KWL","Register","-99");
$Fortluft = (split /=/, $Fortluft , 2 )[1];
$Fortluft = (split /\0/, $Fortluft )[0];
fhem("set KWL_Temp_Fortluft $Fortluft");
}

sub Fn_KWL_Abluft_auslesen()
{
fhem("set Helios_KWL Register v00107");
fhem( "get Helios_KWL Register");
my $Abluft = ReadingsVal("Helios_KWL","Register","-99");
$Abluft = (split /=/, $Abluft , 2 )[1];
$Abluft = (split /\0/, $Abluft )[0];
fhem("set KWL_Temp_Abluft $Abluft");
}

sub Fn_KWL_Betriebsart_auslesen()
{
fhem("set Helios_KWL Register v00101");
fhem( "get Helios_KWL Register");
my $Betriebsart = ReadingsVal("Helios_KWL","Register","-99");
$Betriebsart = (split /=/, $Betriebsart , 2 )[1];
$Betriebsart = (split /\0/, $Betriebsart )[0];
fhem("set KWL_Temp_Betriebsart $Betriebsart");
}

sub Fn_KWL_Luefterstufe_auslesen()
{
fhem("set Helios_KWL Register v00102");
fhem( "get Helios_KWL Register");
my $Luefterstufe = ReadingsVal("Helios_KWL","Register","-99");
$Luefterstufe = (split /=/, $Luefterstufe , 2 )[1];
$Luefterstufe = (split /\0/, $Luefterstufe )[0];
fhem("set KWL_Temp_Luefterstufe $Luefterstufe");
}

Hier die Dummys die ich mit den Werten fülle:

Code Auswählen Erweitern

define KWL_Temp_Aussenluft dummy
attr KWL_Temp_Aussenluft event-on-change-reading state
attr KWL_Temp_Aussenluft room Helios_KWL

define KWL_Temp_Zuluft dummy
attr KWL_Temp_Zuluft event-on-change-reading state
attr KWL_Temp_Zuluft room Helios_KWL

define KWL_Temp_Fortluft dummy
attr KWL_Temp_Fortluft event-on-change-reading state
attr KWL_Temp_Fortluft room Helios_KWL

define KWL_Temp_Abluft dummy
attr KWL_Temp_Abluft event-on-change-reading state
attr KWL_Temp_Abluft room Helios_KWL

define KWL_Temp_Betriebsart dummy
attr KWL_Temp_Betriebsart event-on-change-reading state
attr KWL_Temp_Betriebsart room Helios_KWL

define KWL_Temp_Luefterstufe dummy
attr KWL_Temp_Luefterstufe event-on-change-reading state
attr KWL_Temp_Luefterstufe room Helios_KWL

define KWL_Auslesen_Block dummy
attr KWL_Auslesen_Block event-on-change-reading state
attr KWL_Auslesen_Block room Helios_KWL

und hier die DOIF mit der alle 15 Minuten die aktuellen Werte ausgelesen werden.

Code Auswählen Erweitern

define di_KWL_update DOIF ([+:15]) (set KWL_Auslesen_Block on)({Fn_KWL_Luefterstufe_auslesen})({Fn_KWL_Abluft_auslesen})({Fn_KWL_Aussenluft_auslesen})({Fn_KWL_Betriebsart_auslesen})({Fn_KWL_Fortluft_auslesen})({Fn_KWL_Zuluft_auslesen})(set KWL_Auslesen_Block off)
attr di_KWL_update DbLogExclude .*
attr di_KWL_update do always
attr di_KWL_update room Helios_KWL
attr di_KWL_update verbose 0
attr di_KWL_update wait 0,5,5,5,5,5,5,0

Verbose 0, da ich sonst jedesmal den Timeout im Log habe
wait damit die richtigen Register gelesen werden
KWL_Auslesen_Block ist fuer die Steuerung, damit nicht im Moment des Auslesen mit einer anderen Aktion das Auslesen der Register durcheinander bringe. Nutze ich in den anderen DOIF die ich zur Steuerung nutze als Lock.

In der Form funktioniert das bei mir zuverlässig.

Gruss
Enno

[Daniel]

@Enno, Tobias: Danke für eure Antworten! Bin begeistert wie gut das geht Das Auslesen der KWL270 Daten sind meine ersten Versuche mit FHEM.

[fhem_TS]

Hallo enno,

was mich noch wundert, nach deinem "set" machst du nochmal ein "get". Das ist bei mir nicht notwendig, soweit ich weiß liest das ModBus Modul das Register nach einem "set" eh nochmal aus.

Kannst du mal prüfen ob deine Funktion ohne das "get" auch noch funktioniert und ob dann die Timeouts weg sind?

In meiner .cfg sieht das so aus:

Code Auswählen Erweitern

...
{fhem("set Helios_KWL Register v00105")};
my $Zuluft = ReadingsVal("Helios_KWL","Register","-99");
$Zuluft =    (split /=/, $Zuluft , 2 )[1];
$Zuluft =    (split /\0/, $Zuluft )[0];

{fhem("set Helios_KWL Register v00106")};
my $Fortluft = ReadingsVal("Helios_KWL","Register","-99");
$Fortluft =    (split /=/, $Fortluft , 2 )[1];
$Fortluft =    (split /\0/, $Fortluft )[0];

{fhem("set Helios_KWL Register v00107")};
my $Abluft = ReadingsVal("Helios_KWL","Register","-99");
$Abluft =    (split /=/, $Abluft , 2 )[1];
$Abluft =    (split /\0/, $Abluft )[0];
...



Danke und Gruß
Tobias

[enno]

@Tobias:
Habe ich eben mal getestet. Wenn ich fhem( "get Helios_KWL Register"); weglasse, wird nur der erste Registerwert übernommen. Alle folgenden sind dann identisch. Die Timeout Meldung ist zwar weg, aber die Daten kommen leider auch nicht.  Ohne "get" geht es bei mir nicht.

[fhem_TS]

Hallo enno,

sehr komisch. Kannst du bitte dein define der Helios und die attr posten?
Ich versuche das mal nachzustellen.
Ich habe eine 370er mit V2.21.

Gruß Tobias

[enno]

Moin Tobias,

Ich hatte deine Definition aus dem ersten Post übernommen. So siehe es zur Zeit bei mir aus:

Code Auswählen Erweitern

define Helios_KWL ModbusAttr 180 10 192.168.1.199:502 TCP
attr Helios_KWL userattr dev-defShowGet dev-h-defPoll dev-h-read dev-h-write dev-timing-timeout obj-h0-format obj-h0-len obj-h0-poll obj-h0-reading obj-h0-set obj-h1-bswapRegs obj-h1-format obj-h1-len obj-h1-map obj-h1-poll obj-h1-reading obj-h1-set obj-h1-setexpr obj-h1-textArg obj-h1-unpack obj-h180-format obj-h180-len obj-h180-poll obj-h180-reading obj-h180-set sortby verbose
attr Helios_KWL dev-defShowGet 1
attr Helios_KWL dev-h-defPoll 0
attr Helios_KWL dev-h-read 3
attr Helios_KWL dev-h-write 16
attr Helios_KWL dev-timing-timeout 2
attr Helios_KWL obj-h1-format %.20s
attr Helios_KWL obj-h1-len 16
attr Helios_KWL obj-h1-poll 0
attr Helios_KWL obj-h1-reading Register
attr Helios_KWL obj-h1-set 1
attr Helios_KWL obj-h1-setexpr ($val."\0")
attr Helios_KWL obj-h1-textArg 1
attr Helios_KWL obj-h1-unpack (a*)
attr Helios_KWL sortby 1

Gruss
Enno

[fhem_TS]

Hallo enno,

sehr komisch. Ich habe eben nochmal geschaut, wenn ich bei mir über die fhem Oberfläche auf die Helios_KWL gehe und dort den Button set drücke bekomme ich auch automatisch die Antwort. Bsp.: Ich gebe v00105 in das Textfeld ein und drücke auf set, dann erscheint automatisch der Wert in dem Textfeld (Jetzt: v00105=19.2)
Ich brauche also definitiv kein get.

Ok, wichtig ist, dass es bei euch jetzt läuft. Das mit dem DOIF hat auch den Vorteil, dass fhem nicht "hängt" während alle Register ausgelesen werden.

Gruß
Tobias

[enno]

Kann ich eigentlich die aktuelle Version vom Modbus Modul nutzen? Ist diese Woche ja gerade aktualisiert worden. Zur Zeit habe ich das Modul in der weiter oben angegeben Version "eingefroren".

Code Auswählen Erweitern

attr global exclude_from_update 98_Modbus.pm

[fhem_TS]

Hi enno,
ich habe das Update durchgeführt und bei mir läuft alles weiterhin. Sollte also klappen.

Gruß

[enno]

Habe das Modul eben auf den aktuellen Stand gebracht. Steuerung funktioniert immer noch, die Fehlermeldung des Timeout ist jetzt auch verschwunden.

Code Auswählen Erweitern

2016.11.30 19:38:19 1: fhem
2016.11.30 19:38:20 1: UPD FHEM/98_Modbus.pm
2016.11.30 19:38:20 1: saving fhem.cfg
2016.11.30 19:38:20 1: saving ./log/fhem.save

2016.11.30 19:39:31 1: fheminfo server response: ==> ok

[MegaData]

Sorry für die späte Antwort...
Wollte nur berichten dass Enno's Lösung tadellos mit der 270er funktioniert - vielen Dank dafür !
Kann man eigentlich jetzt im "Helios-Raum" einen Auswahlschalter für die Lüftungsstufe integrieren der im Hintergrund die Befehle absetzt ?

VG,

Chris

[enno]

Ich steure die Lüftung über WeekdayTimer in Abhängigkeit von Sensoren die im Haus und Garten verteilt sind. Das sind Fenstersensoren, Stromverbrauch (Küche Herd, Backofen), Temperatur, Luftfeuchtigkeit und Taupunkt.

Zur Erhöhung des WAF und weil ich noch keine Möglichkeit gefunden habe den Kamingeruch der Nachbarn zu detektieren gibt es auf dem Tablet an der Wand die Möglichkeit die Automatik ganz oder nur für eine einzustellende Zeit zu übersteuern. Das ist durch einige Dummys (Slider), setreading und DOIF umgesetzt.

[Peter1984]

Hallo,

Ich habe auch eine KWL370 - aber noch das ältere Modell ohne Easycontrols.
Wie kann ich die Werte auslesen,  bzw. welche Hardware brauche ich dafür um es an einem Raspi anzubinden?

[enno]

Da gibt es eine schöne Anleitung im Netz. Schon mal angeschaut?

http://www.tagol.de/blog/anschluss-raspberry-pi-kwl-helios-pro---rs485

[Peter1984]

Ne, ist mir neu, danke!

Ich habe eine KWL 370 Eco, für die diese Anleitung und Schaltplan gilt:

https://www.heliosventilatoren.de/mbv/kwl_ec_270_370_eco_86906_0613.pdf

Gehe ich Recht in der Annahme, das ich auf Kontakt 11 und 12 muss?

[MegaData]

Noch mal eine allgemeine Frage: generell funktioniert es ja, aber dennoch wird mir alle 15 Minuten das Log so in der Art vollgemüllt:

2017.02.14 09:30:31.378 3: set Helios_KWL Register v00107 : Timeout reading answer (in read after write for FCode 16)
2017.02.14 09:30:31.535 3: get Helios_KWL Register : v00107=20.1

- für jeden einzelnen Abruf.

Ich hab die Wartesekunden schon hochgeschraubt und mit Verbose im angelegten Device gespielt, aber nichts hält ihn davon ab mir das reinzuschreiben... Was mache ich da falsch ?

[fhem_TS]

Hallo MegaData,
sorry aber ich kann dir da leider nicht helfen. Bei mir läuft nach wie vor alles stabil mit den Einstellungen aus dem ersten Thread.
Mittlerweile gab es auch weitere Updates des ModBus-Moduls, hast du die schon gemacht?
Das ModBus-Modul ist von StefanStrobel, vielleicht weiß er Rat?

Viel Erfolg.

[enno]

Hallo MegaData,

hast du bei den DOIF´s  auch Verbose verändert? Ich habe die bei mir auch auf Verbose 0 gestellt. Danach war Ruhe im log.

Gruss
Enno

[MegaData]

Hallo Enno,

ich habe bei allen was irgendwie mit Lüftung zu tun hat verbose = 0 eingestellt - trotzdessen habe ich alle 15 Minuten für jede Abfrage eine Zeile im Log

[hugomckinley]

Herzlichen Dank für diese Lösung. Ich habe mir vor Monaten schon mal die Mühe gemacht und die Doku von Helios in ein CSV übergeführt und teilweise korrigiert.
Basierend auf eurer Vorarbeit habe ich zwei Scripte geschrieben, die aus dem CSV und einigen Attributen ein ModbusAttr Objekt anlegt und mit User-Attributen und readings zu einem "Helios KWL-Modul" erweitern.

Ein

Code Auswählen Erweitern

{defineHeliosKWL("KWL_OG_DG","192.168.64.2","Test")} legt im Raum Test ein KWL mit dem Namen KWL_OG_DG mit der IP 192.168.64.2 an und öffnet die Verbindung.

Mit

Code Auswählen Erweitern

{HeliosKWL("KWL_OG_DG","manual_poll")} werden Register gelesen, die sich (fast) nie ändern werden. (z.B. MAC, Type der KWL u.ä.)
Mit

Code Auswählen Erweitern

{HeliosKWL("KWL_OG_DG","short_poll")} werden Register gelesen, welche Daten enthalten, die man ständig braucht. (z.B. Lufttemperaturen)
Mit

Code Auswählen Erweitern

{HeliosKWL("KWL_OG_DG","long_poll")} werden Register gelesen, welche nur z.B. 1x täglich oder noch seltener relevant sind (z.B. Betriebsstunden der Lüfter o.ä)

Mit den passenden at-Kommandos werden die beiden polls aufgerufen und man hat immer die aktuellen Daten.
Soweit der Plan. Aber...

Folgende Probleme bestehen noch:

* Die Ausführung des Script blockiert FHEM und am Umstellem auf Non-Blocking mit BlockingFunction() bin ich leider gescheitert. Vielleicht liest das hier ein Perl und FHEM-Kundiger und kann mir einen Tipp geen, wie ich die HeliosPoll-Funktion nicht blockierend machen kann? Erst dann ist es wirklich praktikabel.

* Jeder Poll verursacht logeinträge der Form --> war ein anderes Problem 

Code Auswählen Erweitern

2017.03.21 19:58:26 2: DbLog logdb -> Error table history - DBD::SQLite::st execute_array failed: database disk image is malformed [err was 11 now 2000000000]
executing 1 generated 1 errors at ./FHEM/93_DbLog.pm line 1197.

ToDo:
* sprechende Namen für die Register-Readings
* set auf die Registernamen und nicht auf "Register" (ist im Script schon "angedacht")
* umrechnen von bestimmten Werten (Betriebsstunden, Filterwechsel)
* webcmds für die Ausführung der polls, getconfig, reconnect, o.ä
* Visualisierung der Anlage
* Berechnung verschiedener Werte (Wärmebereitstellungsgrad, Energieströme in der Anlage, usw.)

Für Anregungen bin ich dankbar, aber zuerst muss ich noch die beiden oben genannten Probleme lösen.

Die undefined_registers sind die nicht definierten Nummern zwischen den von Helios dokumentierten (keine Ahnung ob das einmal brauchbar ist, aber das hat sich so ergeben, dass ich die aufgeschrieben habe)
unused_registers haben beim Auslesen Probleme gemacht und werden nicht verwendet.

Hier sind meine Scripte die in die 99_myUtils.pm gehören:

Code Auswählen Erweitern


sub defineHeliosKWL($$$){
  my ($name,$ip,$room)=@_;
  {fhem("define $name ModbusAttr 180 10 $ip:502 TCP")}
  my $userattr_val="unused_registers undefined_registers manual_poll_registers short_poll_time long_poll_time short_poll_registers long_poll_registers dev-defShowGet dev-h-defPoll dev-h-read dev-h-write dev-timing-timeout obj-h0-format obj-h0-len obj-h0-poll obj-h0-reading obj-h0-set obj-h1-bswapRegs obj-h1-format obj-h1-len obj-h1-map obj-h1-poll obj-h1-reading obj-h1-set obj-h1-setexpr obj-h1-textArg obj-h1-unpack sortby verbose";
  {fhem("attr $name userattr $userattr_val")}
  {fhem("attr $name dev-defShowGet 1")}
  {fhem("attr $name dev-h-defPoll 0")}
  {fhem("attr $name dev-h-read 3")}
  {fhem("attr $name dev-h-write 16")}
  {fhem("attr $name dev-timing-timeout 2")}
  {fhem("attr $name obj-h1-format %.20s")}
  {fhem("attr $name obj-h1-len 20")}
  {fhem("attr $name obj-h1-poll 0")}
  {fhem("attr $name obj-h1-reading Register")}
  {fhem("attr $name obj-h1-set 1")}
  {fhem("attr $name obj-h1-setexpr ".'($val."\0")')}
  {fhem("attr $name obj-h1-textArg 1")}
  {fhem("attr $name obj-h1-unpack (a*)")}
  {fhem("attr $name room $room")}
  {fhem("attr $name sortby 1")}
  {fhem("attr $name short_poll_time 5")}
  {fhem("attr $name long_poll_time 1440")}
  {fhem("attr $name short_poll_registers v00024 v00093 v00098 v00101 v00102 v00103 v00104 v00105 v00106 v00107 v00348 v00349 v01050 v01051")}
  {fhem("attr $name long_poll_registers v01033 v01103 v01104 v01105 v01106 v01108 v01109 v01123 v01124 v01125 v01301 v01302 v01303 v01304 v01305 v01306 v02020 v02021 v02022 v02023 v02024 v02025 v02026 v02027")}
  {fhem("attr $name manual_poll_registers v00000 v00001 v00002 v00003 v00004 v00005 v00006 v00007 v00008 v00012 v00013 v00014 v00015 v00016 v00017 v00018 v00019 v00020 v00021 v00022 v00023 v00025 v00026 v00027 v00028 v00029 v00030 v00031 v00032 v00033 v00034 v00035 v00036 v00037 v00038 v00039 v00040 v00041 v00042 v00043 v00051 v00052 v00053 v00091 v00092 v00094 v00096 v00097 v00099 v00201 v00303 v00601 v00602 v00603 v00604 v00605 v00606 v01010 v01017 v01019 v01020 v01021 v01031 v01032 v01035 v01036 v01037 v01041 v01042 v01061 v01062 v01063 v01064 v01065 v01066 v01068 v01071 v01072 v01073 v01074 v01075 v01076 v01077 v01078 v01081 v01082 v01083 v01084 v01085 v01086 v01087 v01088 v01091 v01092 v01093 v01094 v01095 v01096 v01097 v01098 v01101")}
  {fhem("attr $name undefined_registers v00009-11 v00044-50 v00054-90 v00095 v00100 v00109 v00127 v00144-45 v00260-302 v00305-347 v00350-402 v00404-600 v00607-1009 v01011-1016 v01018 v01022-1030 v01034 v01038-1040 v01043-1049 v01052-1060 v01067 v01069-1070 v01079-1080 v01089-1090 v01099-1100 v01102 v01107 v01110-1119 v01121-1122 v01126-1299 v01307-2012 v02016-2019")}
  {fhem("attr $name unused_registers v00108 v00110 v00111 v00112 v00113 v00114 v00115 v00116 v00117 v00118 v00119 v00120 v00121 v00122 v00123 v00124 v00125 v00126 v00128 v00129 v00130 v00131 v00132 v00133 v00134 v00135 v00136 v00137 v00138 v00139 v00140 v00141 v00142 v00143 v00146 v00230 v00231 v00232 v00233 v00234 v00235 v00236 v00237 v00238 v00239 v00240 v00241 v00242 v00243 v00244 v00245 v00246 v00247 v00248 v00249 v00250 v00251 v00252 v00253 v00254 v00255 v00256 v00257 v00258 v00259 v00304 v00403 v01120 v02013 v02014 v02015")};

  my %data;
  my $file="helios.csv";
  open(DATA, $file) || die "Can't open $file: $!\n";
  while (<DATA>) {
    my ($descr,$rw,$type,$len,$register,$note,$min,$max) = split(/;/);
    my $attr_val= join "|",$descr,$rw,$type,$len,$note,$min,$max;
    $userattr_val .= " ".$register;
    {fhem("attr $name userattr $userattr_val")}
    {fhem("attr $name $register $attr_val")}
  }
  {fhem("attr $name enableControlSet 1")}
  {fhem("set $name reconnect")}
  {fhem("attr $name enableControlSet 0")}
}


Code Auswählen Erweitern


sub HeliosKWL($$){
  my ($dev,$option) = @_;
  my ($param,$value) = split(/=/,$option);
  if($param eq "short_poll" || $param eq "long_poll" || $param eq "manual_poll"){
    my @poll_registers =  split(/ /,AttrVal($dev,$param."_registers","undef"));
    foreach my $reg (@poll_registers){
      fhem( "set $dev Register $reg");
    }
  }elsif($param eq "^v\d{5}"){
    if($value eq ""){
      return ReadingsVal($dev,$param,"undef");
    }else{
      my ($desc,$rw,$type,$count,$note,$min,$max)=split(/|/,AttrVal($dev,"$_","undef"));
      if($rw ne "R"){
        fhem( "set $dev Register $param=$value");
      }else{return 'Error: readonly register';}
    }
  }else {return 'unknown parameter, use: short_poll,long_poll, manual_poll, <v.....> or <v..... = value>';}
}


Im Anhang noch die CSV-Datei mit der Definition der KWL-Anlage.

[enno]

* Die Ausführung des Script blockiert FHEM und am Umstellem auf Non-Blocking mit BlockingFunction() bin ich leider gescheitert. Vielleicht liest das hier ein Perl und FHEM-Kundiger und kann mir einen Tipp geen, wie ich die HeliosPoll-Funktion nicht blockierend machen kann? Erst dann ist es wirklich praktikabel.

Ich habe eben den Tip https://wiki.fhem.de/wiki/Blocking_Call bekommen. Ich muss mir das aber selbst erst mal zu Gemüte führen.

Gruss
Enno

[hugomckinley]

Genau das habe ich probiert, aber ich habe bei den fhem-Kommandos der HeliosPoll Funktion immer Fehler mit dem Inhalt "no FP" o.ä. erhalten.
Ich nehme an, dass es daran liegt, dass in dem Fork des BlockingCalls die Devices gar nicht angesprochen werden können, da der ja asynchron läuft. Die einzige Möglichkeit zu kommunizieren sind die Übergabeparameter, aber dann gibt es die Modbusfunktionen nicht. (Ist aber nur die Vermutung eines Nicht-Programmierers)

[hugomckinley]

@Enno: hast du schon was raus gefunden?

Meiner Meinung nach müsste das NonBlocking-Verhalten vom Modbus-Modul implementiert werden. Ich wüsste nicht wie ich das selbst hinbekommen soll, ohne die Modbusfunktionalitäten selbst zu implementieren, da ja die einzige Möglichkeit asynchron Daten zu übergeben der $hash im BlockinCall() ist und dort nur mehr "nacktes" Perl ohne Kontext der Objekte aus FHEM existiert.
Oder steh ich da auf dem Schlauch?

Nett wäre es auch, wenn man dem ModbusAttr-Modul die Länge des Registers (bei der Verwendung) optional mitgeben könnte, denn dann könnte man die unterschiedlichen Register sauber lesen und schreiben. (Info über die Länge steckt ja schon in meinem CSV)
Oder gibt es da schon eine Lösung für die "alternative" Implementierung von Helios?

Grüße
Hugo

[fhem_TS]

Guten Morgen,

ich habe mit StefanStrobel darüber gesprochen und er wird demnächst das ModBus Modul umbauen um auch die Helios Anlagen besser ansprechen zu können.
Hugo, wenn ich das richtig verstehe blockiert nicht das ModBus Modul sondern das Skript, oder?
Bei mir ist es so, dass ich in der Sub 20 Variablen lese, also blockiert diese Sub solange bis alle abgearbeitet sind.
Enno hatte glaube ich den Ansatz jedes Register separat mit einer Verzögerung von 1 sec. zu lesen um das zu umgehen.

Gruß Tobias

[hugomckinley]

Danke für die Info. Ja es blockiert das Script, da ja in einer Schleife alle konfigurierten Register sofort nacheinander gelesen werden. Ich wollte ein sleep vermeiden, da ansonsten das Lesen (sinnlos) sehr ineffizient wird, da ja dann ständig anonyme at's in rauen Mengen angelegt werden. Ich habe auch versucht, die Leseroutine per BlockingCall aufzurufen, jedoch habe ich dann bei den Readingsval()-Aufrufen immer nur "no FP"-Fehler erhalten (siehe älteres Post von mir). Mittlerweile bezweifle ich auch, dass ein nichtblockierendes Verhalten des ModbusAttr-Moduls die Sache verbessern würde, denn das Script in der 99_myUtils kehrt ja trotzdem erst nach dem Abarbeiten aller Register zurück. Aber um das zu beurteilen fehlt mir das Verständnis, hier ist sicher StefanStrobel der richtige Ansprechpartner.

Grüße
Hugo

[StefanStrobel]

Hallo Tobias und Hugo,

das Modbus-Modul ist fast komplett asynchron aufgebaut und blockiert Fhem im normalen Betrieb nicht.
Mit normalem Betrieb meine ich dabei dass die Obekte / Register über Attribute definiert werden und das Modul diese regelmäßig abfragt.
Ausnahme sind die Funktionen in denen der Anwender eine Antwort erwartet. Bei einem get beispielsweise wird nicht mehr asynchron gelesen sondern auf die Antwort gewartet, da sie ja sonst nicht als Ergebnis des get zurückgegeben werden kann. Ebenso wird bei einem set der Request nicht wie alle anderen Requests beim Pollen in die Queue hinten angestellt, sondern vorgezogen. In so einem Fall werden auch die in Attributen definierten Delays durch Sleep erzwungen während im Normalbetrieb dafür der internal timer von Fhem verwendet wird.

Für Euren Spezialfall könnte ich ein Attribut einbauen, mit dem der set und der daraus resultierende Schreib- und Lese-Request nicht priorisiert werden sondern in die Queue gestellt werden und dann blockiert das Modul auch in diesem Fall nicht.
Das sollte recht einfach machbar sein.

Gruss
   Stefan

[StefanStrobel]

Hallo Tobias und Hugo,

ich habe eine neue Version für Euch mit einem zusätzlichen Attribut im Modbus-Thread gepostet.
Damit das funktioniert, müsst Ihr aber noch einige zusätzliche Änderungen machen, sonst bekommt Ihr die gelesenen Werte nicht mit. Mein Lösungsvorschlag wäre dass ihr in einer expr für obj-h1 den gelesenen Wert in Adresse und tatsächlichen Wert zerlegt und dann in der expr die Fhe,-Funktion zum setzen eines neuen Readings aufruft ...

Gruss
    Stefan

[fhem_TS]

Hallo Stefan,

erstmal danke für die Mühe.
Ich hoffe ich komme die nächsten Tage mal zum Testen. Melde mich sobald ich Zeit gefunden habe.
@ Hugo, hast du dich daran schon probiert?

Gruß Tobias

[hugomckinley]

Leider habe ich derzeit nur Zeitmangel im Überfluss, aber sobald ich etwas probieren konnte melde ich mich.
Herzlichsten Dank für die Änderung!

lg
Hugo

[hugomckinley]

Erste Tests sind nahezu erfolgreich. Folgendes sind meine Erkenntnisse:
Das Attr:

Code Auswählen Erweitern

attr KWL_OG_DG obj-h1-expr {if ($inCheckEval) {$val=(split /\x00/,$val,2)[0];; my ($param,$value) = split(/=/,$val);; readingsBulkUpdate($hash,$param,$value);; Log3 $name, 5, 'set reading '. $param .'=' .$value . ' in expr'}; return $val;}
führt zum Erfolg.

Folgendes Problem besteht noch: Wenn die Readings geschrieben werden, werden sie vorher kurz auf den Wert "1" gesetzt. Habe ich da wo einen Fehler, oder woran kann das liegen?

@Stefan: Herzlichen Dank, es blockiert jetzt nichts mehr und merklich langsamer ist es auch nicht!
Wenn die Sache funktioniert könnte man ja auch ein Attribut isHelios o.ä. einführen, welches dieses Attributekombinaton dann überflüssig macht. Ich glaube nicht, dass diese Art ein anderes Gerät jemals nutzen wird.

Grüße Hugo

[fhem_TS]

Hallo Hugo,

ich habe deinen Code übernommen und es läuft bei mir ohne das die Werte eine 1 annehmen.
Ich weiß nicht wie du die Daten weiterverarbeitest, ich habe das wie folgt gelöst:
Alle 5 Minuten wird eine sub_KWL_Variablen aufgerufen welche alle Register in die Queue schreibt.
Anschließend wartet ein Watchdog darauf, dass das letzte Register gelesen wurde (bei mir Systemzeit der KWL, die sollte sich immer ändern)und das Reading dazu (v00005) aktualisiert wurde.
Der Watchdog triggert eine sub_KWL_Dummies welche die Readings ausliest und in meine dummies schreibt. (Die Dummies aus dem Post #1)
Das geht bestimmt auch eleganter, so läuft es erstmal ohne riesige Änderungen an meinen configs.

@ Stefan:
Das Modbus Modul arbeitet ja mit Polling, kann man auch alle Helios-Register in ein Attribut / eine Liste schreiben welche automatisch gepollt werden sollen?

Danke und Gruß
Tobias

[hugomckinley]

Asche auf mein Haupt, ich war das Problem!

@Tobias: Mein Script löste den Fehler aus.

Code Auswählen Erweitern

sub HeliosPoll{
  my ($dev,@poll_registers) = @_;
  foreach (@poll_registers) {
    fhem( "set $dev Register $_");
#    fhem( "get $dev Register");
    my $val = ReadingsVal("$dev","Register","undef");
    $val = (split /=/, $val , 2 )[1];
    $val = (split /\0/, $val)[0];
    fhem("setreading $dev $_ $val");
  }
}
Nachdem nach dem set, welches ja jetzt nicht blockierend in der Queue steht sofort ein ReadingsVal gemacht wird, steht hier noch der letzte Wert drinnen, was in meinem Fall eine 1 ist.
Problem gelöst.
Ich habe mein Script im Post von mir auch dementsprechend angepasst.

Danke an alle Beteiligten, jetzt kann es weiter gehen ...

Grüße
Hugo

[fhem_TS]

Info für die Leute die hier mitlesen:
Die Änderungen an der 98_Modbus.pm sind offiziell eingecheckt und können über Update gezogen werden.

Ab sofort steht also nonPrioritizedSet zur Verfügung und kann genutzt werden.
Ich werde bei Zeiten den ersten Beitrag editieren/ergänzen.

Grüße
Tobias

[enno]

Moin Tobias, Hugo, Stefan,

danke, dass ihr das hier weiter voranbringt. Ich komme leider im Moment nicht zum Umbau, aber die nächsten Ferien sind in Sicht, dann werde ich das mal wie oben beschrieben einführen.

Gruss
Enno

[fhem_TS]

Hallo Hugo,

ich habe jetzt folgendes Problem: Das Auslesen der ganzen Werte funktioniert einwandfrei.
Sobald ich jetzt aber versuche die Helios zu regeln, Modus auf Manuell setzen und Lüfterstufe auf  als Beispiel, dann bekomme ich Fehlermeldungen wie Timeout2 und Queue too long.
Regelst du deine Helios über fhem oder liest du "nur" aus?

Gruß
Tobias

[hugomckinley]

Hallo Tobias,
ich habe ein notify auf einem Taster, welches mir den Modus auf Manuell und die Lüfterstufe auf 4 setzt. Das funktioniert einwandfrei.
Die Meldungen mit der queue-Länge und das Timeout hatte ich auch mal im Log, kann aber jetzt nicht mehr feststellen was da der Grund war.
Aber das war mit ziemlicher Sicherheit noch während der intensiven Umbauten an meinem ModbusAttr-Objekt und kam vom Herumspielen.

Ich mache z.B. nur ein set KWL_OG_DG Register v00102=4

Update: Hatte gerade 2 Stromausfälle ud nach dem Reboot war das Log jedesmal voll mit

Code Auswählen Erweitern

2017.05.19 21:53:59 3: KWL_EG_KG: Send queue too long (101), dropping new request


Grüße
Hugo

[fhem_TS]

Hallo Hugo,

bei mir lag das daran, dass ich zuviele Requests in zu kurzer Zeit in die Queue gepackt habe.
Ich habe im define der Helios die Timings angepasst :

Code Auswählen Erweitern


dev-timing-commDelay 0.2
dev-timing-sendDelay 0.2


Das Auslesen und Steuern habe ich über ein DOIF und passende Subs bewerkstelligt. (Auszug aus der cfg)

Code Auswählen Erweitern


define di_Helios_Event DOIF ([Helios_KWL:state] eq "disconnected")\
()\
({DebianMail('somebody@anymail.org','Helios aus!','>120 Minuten')})\
DOELSEIF ([+:05] and [Helios_KWL:state] eq "opened")\
({Fn_KWL_NonPrio_auslesen()})\
({Fn_KWL_NonPrio_Dummies_fuellen()},\
IF ([KWL_FHEM_Steuerung] ne "Nein")\
  ({Fn_KWL_NonPrio_Regelung()}))
attr di_Helios_Event wait 7200,0:0,30



Das DOIF liest alle 5 Minuten die Daten aus der Helios, wenn diese erreichbar ist.
Falls die Anlage länger als 120 Minuten nicht erreichbar ist bekomme ich eine Benachrichtigung.
Nach der Funktion Fn_KWL_NonPrio_auslesen(Alle Register in die Queue schreiben) habe ich ein wait für 30 Sekunden vor der Funktion Fn_KWL_NonPrio_Dummies_fuellen eingebaut.
Seitdem läuft es zuverlässig.

In der Fn_KWL_NonPrio_Regelung regele ich in Abhängigkeit von einem dummy die Lüfterstufen.

Gruß
Tobias

[hugomckinley]

Soda, jetzt läuft die Sache mal halbwegs bei mir.
Ich habe den aktuellen Stand hier für alle Interessierten festgehalten:https://forum.fhem.de/index.php/topic,74788.0.html

Danke an alle Mitstreiter, die das ermöglicht haben!

Grüße,
Hugo