Enable/Disable Button für WeekdayTimer via readingsGroup

[tpm88]

EDIT: Ab Version 98_WeekdayTimer.pm 6057 2014-06-04 vereinfacht sich die Lösung wie weiter unten in http://forum.fhem.de/index.php/topic,23655.msg176087.html#msg176087 beschrieben.

Hallo zusammen,

Aufgabe war es, einen (WAF kompatiblen) Enable/Disable Button für zwei WeekdayTimer zu realisieren, die eine einfache Bewässerung steuern. Die Lösung lässt sich natürlich auf alle Objekte übertragen, die das "disable" Attribut haben.

Ich habe das wie folgt gelöst - möglicherweise lässt sich das an der einen oder anderen Ecke auch noch etwas eleganter oder weniger komplex lösen - Feedback ist ausdrücklich erwünscht.

Grundidee: Eine readingsGroup für die Timer mit einem zusätzlichen userReading "active" als Button. Die in der RG hinterlegten commands für den Button setzen bzw. löschen jeweils das Attribut "disable" der Timer. Falls der Timer aktiv ist, wird der nächste Schaltzeitpunkt und Kommando für das geschaltete Device angezeigt, falls inaktiv, wird "disabled" angezeigt.

Kurzversion:

1. zusätzliches userReading "active" für die WeekdayTimer definieren mit den möglichen Werten "enabled" und "disabled"
2. readingsGroup für die WeekdayTimer anlegen mit folgenden readings: "active", "+DEF", "nextUpdate", "nextValue"
3. die Attribute valueFormat, valueIcon und commands wie unten detailliert beschrieben setzen
4. ein zusätzliches jede Minute ausgeführtes at aktualisiert das userReading "active", falls doch einmal das Attribut "disable" manuell für einen Timer verändert wird

Hier die Details:

Punkt 1  - userReading für WeekdayTimer:

Code Auswählen Erweitern


attr timer_Wasser_01 userReadings active { return "enabled" if ! ($attr{$hash->{NAME}}{disable}); return "disabled" }


Punkt 2 - readingsGroup definieren:

Code Auswählen Erweitern


define rg_Timer_Wasser readingsGroup timer_Wasser_..:active,+DEF,nextUpdate,nextValue

Das interne Attribut "+DEF" zeigt die definierten Schaltpunkte an - der in +DEF enthaltene Name des WeekdayTimer wird mit Hilfe von valueFormat noch ausgeblendet.

Punkt 3 - Attribute für die RG:

Code Auswählen Erweitern


attr rg_Timer_Wasser valueFormat { my @text = split(" ", $VALUE); shift @text;  if ( $READING =~ m/.*DEF/ ) { return join(" ", @text) }; return $VALUE if  (ReadingsVal($DEVICE, "active", "enabled") eq "enabled"); return "disabled"; }
Hiermit wird für das Reading "+DEF" wie oben erwähnt der voranstehende Name des WeekdayTimer entfernt und nur die definierten Schaltpunkte angezeigt. Die Readings nextUpdate und nextValue werden nur angezeigt, wenn der Timer "enabled" ist - sonst wird "disabled" ausgegeben.

Das Kommando kann so nicht direkt eingegeben werden. Sonst tritt der u.a. Fehler auf: http://forum.fhem.de/index.php/topic,23655.msg169379.html#msg169379
Über die Detailsansicht des Webfrontends kann das Attribut valueFormat aber mit dem String:

Code Auswählen Erweitern

{ my @text = split(" ", $VALUE); shift @text;  if ( $READING =~ m/.*DEF/ ) { return join(" ", @text) }; return $VALUE if  (ReadingsVal($DEVICE, "active", "enabled") eq "enabled"); return "disabled"; }
angelegt werden.

Code Auswählen Erweitern


attr rg_Timer_Wasser valueIcon { 'active.enabled' => 'Restart', 'active.disabled' => 'Shutdown' }
Stellt das Reading "active" je nach Zustand enabled/disabled als roten (Default Icon Shutdown) bzw. grünen (Default Icon Restart) da.

Code Auswählen Erweitern


attr rg_Timer_Wasser commands { 'active.enabled' => 'attr $DEVICE disable 1; setreading $DEVICE active disabled', 'active.disabled' => 'attr $DEVICE disable 0; setreading $DEVICE active enabled' }
Definiert die Aktionen, die beim Drücken auf den Button ausgelöst werden. Wenn der Timer "enabled" ist, führt ein Drücken des Button zum Setzen des Attributs disable, gleichzeitig wird das UserReading active auf "disabled" aktualisiert. Analog der Fall für Button Drücken, wenn "disabled". Das setreading Kommando sorgt auch dafür, daß der neue Zustand sofort im Frontend dargestellt wird.

Punkt 4 - Zusätzliches at Kommando (Hilfskonstrukt)

Code Auswählen Erweitern


define update_timer_status at +*00:01 { my $timer;
          foreach $timer ('timer_Wasser_01', 'timer_Wasser_02')
            { if ($attr{$timer}{disable}) { fhem "setreading $timer active disabled" }
              else { fhem "setreading $timer active enabled" }
            }
        }
Dieser at sorgt ggf. minütlich für einen Update des UserReadings "active", falls manuell das Attribut "disable" für einen Timer verändert wird. Diese Krücke benötige ich, da mir kein Weg bekannt ist, einen Trigger auf das Setzen eines Attributs zu definieren.

Fertig sieht die readingGroup "Scheduling" in der Gruppe "Bewässerung" dann so aus - siehe Screenshot.

Gruss
Tobias


Edit: attr Kommandos korrigiert. Hinweis zum valueFormat.

[justme1968]

magst du das nicht so schön beschrieben ins wiki stellen.

gruss
  andre

[T.ihmann]

Habe das mal versucht nachzuvollziehen: Es kommen leider mehrere Fehlermeldungen:

Code Auswählen Erweitern

Unknown command attribute, try help.
Unknown command shift, try help.
IF: no left bracket:  { return join(" ", @text) }
Unknown command return, try help.
Unknown command return, try help.
Unknown command }, try help.

1.) attribute sollte wohl attr heißen

[tpm88]

1.) attribute sollte wohl attr heißen

Ja klar - danke für den Hinweis - hab ich oben korrigiert.

Tobias

[T.ihmann]

Die Fehlermeldung ist weg, aber bei Punkt 3

Code Auswählen Erweitern

attr rg_Timer_Wasser valueFormat { my @text = split(" ", $VALUE); shift @text;  if ( $READING =~ m/.*DEF/ ) { return join(" ", @text) }; return $VALUE if  (ReadingsVal($DEVICE, "active", "enabled") eq "enabled"); return "disabled"; }

kommt immer noch diese Fehlermeldung

Code Auswählen Erweitern


Unknown command shift, try help.
IF: no left bracket:  { return join(" ", @text) }
Unknown command return, try help.
Unknown command return, try help.
Unknown command }, try help.


Da scheint noch etwas nicht zu stimmen. Ich habe das mal versucht zu analysieren, sind aber mir zu viele Verschachtelungen

[tpm88]

Die Fehlermeldung ist weg, aber bei Punkt 3

Code Auswählen Erweitern

attr rg_Timer_Wasser valueFormat { my @text = split(" ", $VALUE); shift @text;  if ( $READING =~ m/.*DEF/ ) { return join(" ", @text) }; return $VALUE if  (ReadingsVal($DEVICE, "active", "enabled") eq "enabled"); return "disabled"; }

kommt immer noch diese Fehlermeldung

Code Auswählen Erweitern


Unknown command shift, try help.
IF: no left bracket:  { return join(" ", @text) }
...


Ich habe keine Ahnung, warum sich da das IF (nicht if!!) Modul einmischt...

Was jedoch funktioniert ist, das Attribut über das WebFrontend anzulegen - d.h. in der Detailansicht zur angelegten readingsGroup aus dem Pull-Down-Menu bei attr "valueFormat" auswählen und dann den String

Code Auswählen Erweitern

{ my @text = split(" ", $VALUE); shift @text;  if ( $READING =~ m/.*DEF/ ) { return join(" ", @text) }; return $VALUE if  (ReadingsVal($DEVICE, "active", "enabled") eq "enabled"); return "disabled"; }

in das leere Eingabefeld dahinter kopieren und mit Druck auf den "attr" Button abschliessen.

Gruss
Tobias

[T.ihmann]

So funktioniert es. Danke

[Jens_B]

Das gefällt mir. Damit könnte ich die Rollladenschaltung auf dem Frontend bisschen schöner machen. Ich habe für Wochenende und Wochentag unterschiedliche Schaltzeiten, leider zeigt Weekdaytimer immer nur "active" oder "inactive" an. Dabei wären die Schaltzeiten viel Interessanter
Vielleicht kann das ja so auch irgendwann mal direkt in Weekdaytimer eingebaut werden?
Ich finde das minütliche Abfrage des Readings etwas unglücklich auf schwachbrüstigen CPUs

Grundsätzlich fände ich es für manche Device schön, wenn man bestimmte Readings direkt im frontend platzieren könnte (ohne den Umweg mit Readingsgroup)
So ein Attribut wie "show_reading_web" oder so...


Gruß
Jens

[tpm88]

Hallo Jens,

Dietmar wird beim WeekdayTimer und Heating_Control einige Anpassungen vornehmen, sodaß man zumindest ohne das UserReading und das minütliche Polling auskommen wird (siehe: http://forum.fhem.de/index.php/topic,10011.msg169505.html#msg169505).

Sobald diese Änderungen da sind, werde ich obiges HowTo entsprechend aktualisieren  - vermutlich wird es aber nicht ohne readingsGroup gehen.

Gruss
Tobias

[tpm88]

Wie angekündigt hat Dietmar die Module WeekdayTimer und Heating_Control mit einem set Kommando zum Setzen und Löschen  des disable Attributs und einem Reading "disabled" erweitert. Damit vereinfacht sich der Enable/Disable Button für WeekdayTimer ab

Code Auswählen Erweitern

Version 98_WeekdayTimer.pm 6057 2014-06-04 wie folgt:

Punkt 1  - userReading für WeekdayTimer: - entfällt, da es jetzt ein Standardreading "disabled" gibt

Punkt 2 - readingsGroup definieren:

Code Auswählen Erweitern

define rg_Timer_Wasser readingsGroup  timer_Wasser_..:disabled,+DEF,<{rg_timer_Wasser_show_conditional($DEVICE)}@disabled>

Das interne Attribut "+DEF" zeigt die definierten Schaltpunkte an - der in +DEF enthaltene Name des WeekdayTimer wird mit Hilfe von valueFormat noch ausgeblendet.

Zusätzlich sorgt die folgende Funktion rg_timer_Wasser_show_conditional in der 99_myUtils.pm dafür, daß das Reading nextUpdate  des Timers nur angezeigt wird, wenn der Timer aktiv ist. Ansonsten wird "disabled" angezeigt. Das abschließende @disabled sorgt dafür, daß der LongPoll Mechanismus die Anzeige sofort ändert, wenn der Button betätigt wird.

Code Auswählen Erweitern

sub rg_timer_Wasser_show_conditional($)
{
  my ($DEVICE) = @_;
  return ( ReadingsVal($DEVICE, "disabled", "1") eq "0" )? "Next: ".ReadingsVal($DEVICE, "nextUpdate", "ERROR_next_value") : "disabled";
}

Punkt 3 - Attribute für die RG:

Erläuterung zu den Attributen und Handling siehe den (ersten) Originalpost ganz oben.

Code Auswählen Erweitern

attr rg_Timer_Wasser valueFormat  { if ( $READING =~ m/.*DEF/ ) { my @text = split(" ", $VALUE); shift @text; return join(" ", @text) }}

attr rg_Timer_Wasser valueIcon { 'disabled.0' => 'Restart', 'disabled.1' => 'Shutdown' }

attr rg_Timer_Wasser commands  { 'disabled.0' => 'set $DEVICE disable', 'disabled.1' => 'set $DEVICE enable' }

Punkt 4 - Zusätzliches at Kommando (Hilfskonstrukt) - entfällt, da die Änderung des "disable" Attributs automatisch das "disabled" Reading triggert

Tobias

[tpm88]

magst du das nicht so schön beschrieben ins wiki stellen.

Done.

http://www.fhemwiki.de/wiki/ReadingsGroup#Enable.2FDisable_Button_am_Beispiel_eines_WeekdayTimer

Tobias

[justme1968]

danke!

  andre

[Tipetan]

Guten Abend,
ich habe versucht diese Anleitung mit meinen eingeschränkten Programmierkenntnissen zu  implementieren.
http://www.fhemwiki.de/wiki/ReadingsGroup#Enable.2FDisable_Button_am_Beispiel_eines_WeekdayTimer
Nur leider bekomme ich ein komisches Fehlerbild wie ich es im Anhang dargestellt habe.

Hat Jemand eine Idee worann das liegen könnte?

Hier der Auszug aus meinem Config-File an der Stelle an der ich den Weekdaytimer und den Enable/Disable Button definiere.

Code Auswählen Erweitern

define Timer.Rollo.EG1 WeekdayTimer EGRollo1 1234567|06:00|rauf
  attr Timer.Rollo.EG1 alias Timer_Wohnzimmer
  attr Timer.Rollo.EG1 group Timer
  attr Timer.Rollo.EG1 room Timer
  attr Timer.Rollo.EG1 devStateIcon rauf:black_up.png runter:black_down.png
  attr Timer.Rollo.EG1 icon timer
  attr Timer.Rollo.EG1 sortby 1

define rg_timer_Rollo readingsGroup Timer.Rollo.EG1:disabled,+DEF,<{rg_timer_Rollo_show_conditional($DEVICE,"nextUpdate")}@disabled>,<{rg_timer_Rollo_show_conditional($DEVICE,"nextValue")}@disabled>
  attr rg_timer_Rollo valueFormat if ( $READING =~ m/.*DEF/ ) { my @text = split(" ", $VALUE); shift @text; return join(" ", @text) }
  attr rg_timer_Rollo valueIcon  {'disabled.0' => 'timer_on', 'disabled.1' => 'timer_off'}
  attr rg_timer_Rollo commands  {'disabled.0' => 'set $DEVICE disable', 'disabled.1' => 'set $DEVICE enable'}
  attr rg_timer_Rollo group Timer
  attr rg_timer_Rollo room Timer
  attr rg_timer_Rollo sortby 2

Auszug aus der 99_myUtils.pm

Code Auswählen Erweitern

sub rg_timer_Rollo_show_conditional($$)
{
  my ($DEVICE,$READING) = @_;
  return ( ReadingsVal($DEVICE, "disabled", "1") eq "0" )?
     ReadingsVal($DEVICE, $READING, "reading_undef") : "disabled";
}

Weiterhin kommt nach dem rereadcfg folgende Fehlermeldung

Unknown command shift, try help.
Unknown command return, try help.

Vielen Dank für eure Unterstützung
Tipetan

[justme1968]

du musst auf jeden fall valueFormat in { } einschliessen:

Code Auswählen Erweitern

{if ( $READING =~ m/.*DEF/ ) { my @text = split(" ", $VALUE); shift @text; return join(" ", @text) } }

den rest habe ich mir nicht weiter angeschaut.

gruss
  andre

[Tipetan]

Hallo,
danke für den Tipp. Das war noch ein altes Rudiment aus meiner Phase: Ich Probiere erst mal selber!
Ich habe die geschweiften klammern nun gesetzt aber ohne Erfolg. Die Geschweiften Klammer tauchen jetzt ebenfalls mit auf.

Noch weitere Ideen?

Gruß
Tipetan