FHEMWiki - Benutzerbeiträge [de]

Enocean Dimmer mit kurzem und langem Tastendruck ansteuern

2015-03-30T18:46:00Z

Lolle: Sektion "Motivation" ergänzt

== Aufgabe ==
Ein Enocean Dimmer soll mit einem Taster folgendermaßen bedient werden:
<table border="1px solid #aaa" style="text-align:center" class="wikitable">
<tr>
<th>Tasterbedienung (Tastendruck)</th>
<th>Dimmer-Funktion (Lampe dimmen)</th>
</tr>
<tr>
<td>kurz an</td>
<td>an, volle Helligkeit</td>
</tr>
<tr>
<td>kurz aus</td>
<td>aus</td>
</tr>
<tr>
<td>lang an</td>
<td>rauf dimmen</td>
</tr>
<tr>
<td>lang aus</td>
<td>runter dimmen</td>
</tr>
</table>

== Motivation ==
Das oben beschriebene Verhalten ist das Standardverhalten der meisten Funksysteme mit Dimmer. Die Taster-Dimmer-Kombination bei Direktverbindung der Enocean-Komponenten verhält sich zwar ähnlich, aber in den folgenden Punkten doch unterschiedlich:
<table border="1px solid #aaa" style="text-align:center" class="wikitable">
<tr>
<th>Tasterbedienung (Tastendruck)</th>
<th>Dimmer-Funktion bei Direktverbindung</th>
<th>gewünschte Dimmer-Funktion</th>
</tr>
<tr>
<td>kurz an</td>
<td>zuletzt eingestellte Helligkeit</td>
<td>an, volle Helligkeit</td>
</tr>
<tr>
<td>kurz 2x hintereinander an</td>
<td>an, volle Helligkeit</td>
<td>keine Funktion</td>
</tr>
</table>

Bei Steuerung über den Server (FHEM) können zusätzlich individuelle Dimmkurven und Dimmgrenzwerte festgelegt werden.

== Umsetzung ==
Über FHEM ist insbesondere die Umsetzung der langen Tastendrücke etwas komplizierter und wird im Folgenden beschrieben.

=== Voraussetzungen ===
In fhem.cfg ist ein Enocean Dimmer als "deviceDimmer" ein Enocean Taster als "deviceSwitch" definiert und eingelernt.
Getestet wurde mit einem [[EnOcean-FUD61NPN-Funk-Universal-Dimmaktor|"Eltako FUD61NPN" Dimmer]] und einem "Eltako FT55" Taster, andere Enocean-Geräte sollten aber auch funktionieren.

=== Script ===
In 99_myUtils.pm (siehe [[99_myUtils_anlegen]]) die Konstanten für die Dimmer-Funktionen definieren
<pre>
package main;
use strict;
use warnings;
use POSIX;
sub
myUtils_Initialize($$)
{
my ($hash) = @_;

our $varDimValueMinimum = "25";
our $varDimValueMaximum = "80";
our $varDimStepsPerLongPressPeriod = "2";
}
1;
</pre>

In fhem.cfg die Dimmer-Funktionen definieren:
<pre>
# deviceSwitch -> deviceDimmer on/dim up
define sequenceSwitch_B0_ShortAndLongPress sequence deviceSwitch:B0 0.5 deviceSwitch:buttons:.released
attr sequenceSwitch_B0_ShortAndLongPress triggerPartial 1
define notifyDimmer_B0_ShortPress notify sequenceSwitch_B0_ShortAndLongPress:trigger set deviceDimmer on;;setstate deviceDimmer 100
define notifyDimmer_B0_LongPress notify sequenceSwitch_B0_ShortAndLongPress:partial_1 trigger dummyDimmer_DimUp_Start
define dummyDimmer_DimUp_Start dummy
attr dummyDimmer_DimUp_Start room hidden
define notifyDimmer_DimUp_Start notify dummyDimmer_DimUp_Start { my $varCurrentDimValue = Value("deviceDimmer");; $varCurrentDimValue = $varCurrentDimValue < $main::varDimValueMinimum ? $varCurrentDimValue + $main::varDimValueMinimum : $varCurrentDimValue < $main::varDimValueMaximum ? $varCurrentDimValue + $main::varDimStepsPerLongPressPeriod : 100;; fhem( "set deviceDimmer dim $varCurrentDimValue;;setstate deviceDimmer $varCurrentDimValue" );; fhem( "trigger dummyDimmer_DimUp") }
define dummyDimmer_DimUp dummy
attr dummyDimmer_DimUp room hidden
define sequenceSwitch_DimUp sequence dummyDimmer_DimUp 0.1 deviceSwitch:buttons:.released
attr sequenceSwitch_DimUp triggerPartial 1
define notifySwitch_DimUp notify sequenceSwitch_DimUp:partial_1 { my $varCurrentDimValue = Value("deviceDimmer");; $varCurrentDimValue = $varCurrentDimValue < $main::varDimValueMinimum ? $varCurrentDimValue + $main::varDimValueMinimum : $varCurrentDimValue < $main::varDimValueMaximum ? $varCurrentDimValue + $main::varDimStepsPerLongPressPeriod : 100;; fhem( "set deviceDimmer dim $varCurrentDimValue;;setstate deviceDimmer $varCurrentDimValue" );; fhem( "trigger dummyDimmer_DimUp") }

# deviceSwitch -> deviceDimmer off/dim down
define sequenceSwitch_BI_ShortAndLongPress sequence deviceSwitch:BI 0.5 deviceSwitch:buttons:.released
attr sequenceSwitch_BI_ShortAndLongPress triggerPartial 1
define notifyDimmer_BI_ShortPress notify sequenceSwitch_BI_ShortAndLongPress:trigger set deviceDimmer off;;setstate deviceDimmer 0
define notifyDimmer_BI_LongPress notify sequenceSwitch_BI_ShortAndLongPress:partial_1 trigger dummyDimmer_DimDown_Start
define dummyDimmer_DimDown_Start dummy
attr dummyDimmer_DimDown_Start room hidden
define notifyDimmer_DimDown_Start notify dummyDimmer_DimDown_Start { my $varCurrentDimValue = Value("deviceDimmer");; $varCurrentDimValue = $varCurrentDimValue > $main::varDimValueMaximum ? $varCurrentDimValue - (100 - $main::varDimValueMaximum) : $varCurrentDimValue > $main::varDimValueMinimum ? $varCurrentDimValue - $main::varDimStepsPerLongPressPeriod : 0;; fhem( "set deviceDimmer dim $varCurrentDimValue;;setstate deviceDimmer $varCurrentDimValue" );; fhem( "trigger dummyDimmer_DimDown") }
define dummyDimmer_DimDown dummy
attr dummyDimmer_DimDown room hidden
define sequenceSwitch_DimDown sequence dummyDimmer_DimDown 0.1 deviceSwitch:buttons:.released
attr sequenceSwitch_DimDown triggerPartial 1
define notifySwitch_DimDown notify sequenceSwitch_DimDown:partial_1 { my $varCurrentDimValue = Value("deviceDimmer");; $varCurrentDimValue = $varCurrentDimValue > $main::varDimValueMaximum ? $varCurrentDimValue - (100 - $main::varDimValueMaximum) : $varCurrentDimValue > $main::varDimValueMinimum ? $varCurrentDimValue - $main::varDimStepsPerLongPressPeriod : 0;; fhem( "set deviceDimmer dim $varCurrentDimValue;;setstate deviceDimmer $varCurrentDimValue" );; fhem( "trigger dummyDimmer_DimDown") }
</pre>

=== Anpassung ===
Die Konstanten in 99_myUtils.pm haben die folgenden Bedeutungen:
<table border="1px solid #aaa" style="text-align:center" class="wikitable">
<tr>
<th>Name</th>
<th>Bedeutung</th>
</tr>
<tr>
<td>varDimValueMinimum </td>
<td>die minimale am Dimmer einzustellende Dim-Helligkeit</td>
</tr>
<tr>
<td>varDimValueMaximum</td>
<td>die maximale am Dimmer einzustellende Dim-Helligkeit</td>
</tr>
<tr>
<td>varDimStepsPerLongPressPeriod</td>
<td>um soviele Helligkeitsstufen-Stufen (in %) wird pro 100ms langem Tastendruck inkrementiert/dekrementiert -> beeinflusst die Dimmgeschwindigkeit</td>
</tr>
</table>

Die Timeouts der FHEM-sequences "sequenceSwitch_B0_ShortAndLongPress" und "sequenceSwitch_DimUp" bzw. "sequenceSwitch_BI_ShortAndLongPress" und "sequenceSwitch_DimDown" haben die folgenden Bedeutungen:
<table border="1px solid #aaa" style="text-align:center" class="wikitable">
<tr>
<th>Timeout von FHEM-sequence</th>
<th>Bedeutung</th>
</tr>
<tr>
<td>"sequenceSwitch_B0_ShortAndLongPress" und "sequenceSwitch_BI_ShortAndLongPress"</td>
<td>ab dieser Tastendruckdauer (in Sekunden) wird ein langer Tastendruck erkannt</td>
</tr>
<tr>
<td>"sequenceSwitch_DimUp" und "sequenceSwitch_DimDown"</td>
<td>mit dieser Periode (in Sekunden) wird die Helligkeit beim Dimmen um "varDimStepsPerLongPressPeriod" erhöht/reduziert</td>
</tr>
</table>

== Verbesserungsbedarf ==
Die Timeouts der FHEM-sequences "sequenceSwitch_B0_ShortAndLongPress" und "sequenceSwitch_DimUp" bzw. "sequenceSwitch_BI_ShortAndLongPress" und "sequenceSwitch_DimDown" (derzeit fest auf 0.5 und 0.1) sollten auch als Konstante in 99_myUtils.pm definiert werden.

[[Kategorie:Code Snippets]]

Diskussion:Enocean Dimmer mit kurzem und langem Tastendruck ansteuern

2015-03-30T18:35:23Z

Lolle: /* Grund für indirekte Dimmersteuerung? */

== Grund für indirekte Dimmersteuerung? ==
Gibt es einen besonderen Grund, warum Du den phys. Taster nicht zusätzlich zu Fhem in den Dimmer einlernst? Würdest Du den Taster direkt einlernen, wäre diese komplexe Ansteuerung ja nicht notwendig. Ich würde das gerne verstehen, bevor ich das Wiki-intern verlinke.
Danke und Gruß, [[Benutzer:Krikan|Christian]] ([[Benutzer Diskussion:Krikan|Diskussion]])
<HR>
:Ja: Hallo Krikan. Wenn der Taster direkt am Dimmer eingelernt ist, führt ein kurzer Tastendruck dazu, dass die zuletzt eingestellte Helligkeit angefahren wird. Deshalb hatte ich auch geschrieben "Ähnlich verhält sich auch die Taster-Dimmer-Kombination bei Direktverbindung", also nicht identisch. Für mich ist dieses Verhalten nicht akzeptabel, ich möchte bei einem kurzen Tastendruck immer die maximale Helligkeit angefahren haben.
:Das "zusätzliche" Einlernen würde also zu Konflikten in der Ansteuerung führen.
:Außerdem hat die Direktverbindung auch die Doppeldruck-Funktionalität (Dimmen auf maximale Helligkeit), die ich wiederum nicht haben möchte.
:Über das Skript ist es zudem möglich die Dimmkurve zu parametrisieren (Einstellung der minimalen und maximalen Helligkeit sowie Dimmgeschwindigkeit über die Konstanten in 99_myUtils), was bei Direktverbindung nicht möglich ist.
:Und zu guter Letzt wird bei meinem Vorgehen auch die Helligkeit als Status ("State" des Dimmer-Devices) im FHEM-Webinterface angezeigt und auch bei Bedienung über den Taster aktualisiert. Das hatte ich auch bei bidirektionaler Kommunikation mit dem Dimmer bei Direktverbindung nicht hinbekommen.
<HR>
:: Danke, verstehe Deine Beweggründe nun im Wesentlichen. Nur den letzten Punkt kann ich nicht nachvollziehen; die Aktualisierung bei bidi-Aktoren sollte eigentlich funktionieren. Evtl. liegt das ja am Produktionszeitraum Deines Aktors.
::Habe Deine Seite hier [[EnOcean-FUD61NPN-Funk-Universal-Dimmaktor#Ansteuerung_eines_ausschlie.C3.9Flich_indirekt_angelernten_Dimmers]] verlinkt. Bitte schaue, ob das für Dich so OK ist. Ansonsten ändere es bitte selbst passend ab. Gruß, [[Benutzer:Krikan|Christian]] ([[Benutzer Diskussion:Krikan|Diskussion]])
<HR>
:::Mein Dimmer ist mit bidirektionalem Funk ausgestattet, allerdings wird immer nur "dimValueStored" aktualisiert und dieser Wert wird nicht beeinflusst wenn man an/aus schaltet, sondern nur beim Dimmen. Deshalb hatte das nicht genügt. Vielleicht würde es auch mit den Bestätigungstelegrammen funktionieren, wenn man die richtigen Readings ausliest, ich hatte aber keinen Erfolg damit bzw. habe das entsprechende Reading nicht gefunden.

Diskussion:Enocean Dimmer mit kurzem und langem Tastendruck ansteuern

2015-03-29T11:27:06Z

Lolle: /* Grund für indirekte Dimmersteuerung? */

Enocean Dimmer mit kurzem und langem Tastendruck ansteuern

2015-03-28T12:32:36Z

Lolle: Seite erstellt

== Aufgabe ==
Ein Enocean Dimmer soll mit einem Taster folgendermaßen bedient werden:
<table border="1px solid #aaa" style="text-align:center" class="wikitable">
<tr>
<th>Tasterbedienung (Tastendruck)</th>
<th>Dimmer-Funktion (Lampe dimmen)</th>
</tr>
<tr>
<td>kurz an</td>
<td>an, volle Helligkeit</td>
</tr>
<tr>
<td>kurz aus</td>
<td>aus</td>
</tr>
<tr>
<td>lang an</td>
<td>rauf dimmen</td>
</tr>
<tr>
<td>lang aus</td>
<td>runter dimmen</td>
</tr>
</table>

Dies ist das Standardverhalten der meisten Funksysteme. Ähnlich verhält sich auch die Taster-Dimmer-Kombination bei Direktverbindung der Enocean-Komponenten. Über FHEM ist insbesondere die Umsetzung der langen Tastendrücke etwas komplizierter und wird im Folgenden beschrieben.

== Voraussetzungen ==
In fhem.cfg ist ein Enocean Dimmer als "deviceDimmer" ein Enocean Taster als "deviceSwitch" definiert und eingelernt.
Getestet wurde mit einem "Eltako FUD61NPN" Dimmer und einem "Eltako FT55" Taster, andere Enocean-Geräte sollten aber auch funktionieren.

== Script ==
In 99_myUtils.pm (siehe [[99_myUtils_anlegen]]) die Konstanten für die Dimmer-Funktionen definieren
<pre>
package main;
use strict;
use warnings;
use POSIX;
sub
myUtils_Initialize($$)
{
my ($hash) = @_;

our $varDimValueMinimum = "25";
our $varDimValueMaximum = "80";
our $varDimStepsPerLongPressPeriod = "2";
}
1;
</pre>

In fhem.cfg die Dimmer-Funktionen definieren:
<pre>
# deviceSwitch -> deviceDimmer on/dim up
define sequenceSwitch_B0_ShortAndLongPress sequence deviceSwitch:B0 0.5 deviceSwitch:buttons:.released
attr sequenceSwitch_B0_ShortAndLongPress triggerPartial 1
define notifyDimmer_B0_ShortPress notify sequenceSwitch_B0_ShortAndLongPress:trigger set deviceDimmer on;;setstate deviceDimmer 100
define notifyDimmer_B0_LongPress notify sequenceSwitch_B0_ShortAndLongPress:partial_1 trigger dummyDimmer_DimUp_Start
define dummyDimmer_DimUp_Start dummy
attr dummyDimmer_DimUp_Start room hidden
define notifyDimmer_DimUp_Start notify dummyDimmer_DimUp_Start { my $varCurrentDimValue = Value("deviceDimmer");; $varCurrentDimValue = $varCurrentDimValue < $main::varDimValueMinimum ? $varCurrentDimValue + $main::varDimValueMinimum : $varCurrentDimValue < $main::varDimValueMaximum ? $varCurrentDimValue + $main::varDimStepsPerLongPressPeriod : 100;; fhem( "set deviceDimmer dim $varCurrentDimValue;;setstate deviceDimmer $varCurrentDimValue" );; fhem( "trigger dummyDimmer_DimUp") }
define dummyDimmer_DimUp dummy
attr dummyDimmer_DimUp room hidden
define sequenceSwitch_DimUp sequence dummyDimmer_DimUp 0.1 deviceSwitch:buttons:.released
attr sequenceSwitch_DimUp triggerPartial 1
define notifySwitch_DimUp notify sequenceSwitch_DimUp:partial_1 { my $varCurrentDimValue = Value("deviceDimmer");; $varCurrentDimValue = $varCurrentDimValue < $main::varDimValueMinimum ? $varCurrentDimValue + $main::varDimValueMinimum : $varCurrentDimValue < $main::varDimValueMaximum ? $varCurrentDimValue + $main::varDimStepsPerLongPressPeriod : 100;; fhem( "set deviceDimmer dim $varCurrentDimValue;;setstate deviceDimmer $varCurrentDimValue" );; fhem( "trigger dummyDimmer_DimUp") }

# deviceSwitch -> deviceDimmer off/dim down
define sequenceSwitch_BI_ShortAndLongPress sequence deviceSwitch:BI 0.5 deviceSwitch:buttons:.released
attr sequenceSwitch_BI_ShortAndLongPress triggerPartial 1
define notifyDimmer_BI_ShortPress notify sequenceSwitch_BI_ShortAndLongPress:trigger set deviceDimmer off;;setstate deviceDimmer 0
define notifyDimmer_BI_LongPress notify sequenceSwitch_BI_ShortAndLongPress:partial_1 trigger dummyDimmer_DimDown_Start
define dummyDimmer_DimDown_Start dummy
attr dummyDimmer_DimDown_Start room hidden
define notifyDimmer_DimDown_Start notify dummyDimmer_DimDown_Start { my $varCurrentDimValue = Value("deviceDimmer");; $varCurrentDimValue = $varCurrentDimValue > $main::varDimValueMaximum ? $varCurrentDimValue - (100 - $main::varDimValueMaximum) : $varCurrentDimValue > $main::varDimValueMinimum ? $varCurrentDimValue - $main::varDimStepsPerLongPressPeriod : 0;; fhem( "set deviceDimmer dim $varCurrentDimValue;;setstate deviceDimmer $varCurrentDimValue" );; fhem( "trigger dummyDimmer_DimDown") }
define dummyDimmer_DimDown dummy
attr dummyDimmer_DimDown room hidden
define sequenceSwitch_DimDown sequence dummyDimmer_DimDown 0.1 deviceSwitch:buttons:.released
attr sequenceSwitch_DimDown triggerPartial 1
define notifySwitch_DimDown notify sequenceSwitch_DimDown:partial_1 { my $varCurrentDimValue = Value("deviceDimmer");; $varCurrentDimValue = $varCurrentDimValue > $main::varDimValueMaximum ? $varCurrentDimValue - (100 - $main::varDimValueMaximum) : $varCurrentDimValue > $main::varDimValueMinimum ? $varCurrentDimValue - $main::varDimStepsPerLongPressPeriod : 0;; fhem( "set deviceDimmer dim $varCurrentDimValue;;setstate deviceDimmer $varCurrentDimValue" );; fhem( "trigger dummyDimmer_DimDown") }
</pre>

== Anpassung ==
Die Konstanten in 99_myUtils.pm haben die folgenden Bedeutungen:
<table border="1px solid #aaa" style="text-align:center" class="wikitable">
<tr>
<th>Name</th>
<th>Bedeutung</th>
</tr>
<tr>
<td>varDimValueMinimum </td>
<td>die minimale am Dimmer einzustellende Dim-Helligkeit</td>
</tr>
<tr>
<td>varDimValueMaximum</td>
<td>die maximale am Dimmer einzustellende Dim-Helligkeit</td>
</tr>
<tr>
<td>varDimStepsPerLongPressPeriod</td>
<td>um soviele Helligkeitsstufen-Stufen (in %) wird pro 100ms langem Tastendruck inkrementiert/dekrementiert -> beeinflusst die Dimmgeschwindigkeit</td>
</tr>
</table>

Die Timeouts der FHEM-sequences "sequenceSwitch_B0_ShortAndLongPress" und "sequenceSwitch_DimUp" bzw. "sequenceSwitch_BI_ShortAndLongPress" und "sequenceSwitch_DimDown" haben die folgenden Bedeutungen:
<table border="1px solid #aaa" style="text-align:center" class="wikitable">
<tr>
<th>Timeout von FHEM-sequence</th>
<th>Bedeutung</th>
</tr>
<tr>
<td>"sequenceSwitch_B0_ShortAndLongPress" und "sequenceSwitch_BI_ShortAndLongPress"</td>
<td>ab dieser Tastendruckdauer (in Sekunden) wird ein langer Tastendruck erkannt</td>
</tr>
<tr>
<td>"sequenceSwitch_DimUp" und "sequenceSwitch_DimDown"</td>
<td>mit dieser Periode (in Sekunden) wird die Helligkeit beim Dimmen um "varDimStepsPerLongPressPeriod" erhöht/reduziert</td>
</tr>
</table>

== Verbesserungsbedarf ==
Die Timeouts der FHEM-sequences "sequenceSwitch_B0_ShortAndLongPress" und "sequenceSwitch_DimUp" bzw. "sequenceSwitch_BI_ShortAndLongPress" und "sequenceSwitch_DimDown" (derzeit fest auf 0.5 und 0.1) sollten auch als Konstante in 99_myUtils.pm definiert werden.

[[Kategorie:Code Snippets]]