Beispielmakro Taster, Schaltaktoren und LED-Statusanzeige

[horst_w]

Erklärung zum Thema:
http://homematic-forum.de/forum/viewtop ... 28&t=33278

Beispiel 2:

Module:
1x HM-LC-Sw1-FM 1-fach Funk-Schaltaktor,
1x HM-LC-Sw1-Pl-DN-R1 Funk-Zwischenstecker,
1x HM-PB-2-WM55 Wandtaster 2-fach,
1x HM-OU-LED16 Statusanzeige.

Aufgabe:
Der Funk-Schaltaktor (Steckerleiste_Büro) und der Funk Zwischenstecker (Zwischenstecker_Büro) sollen mittels Wandtaster (Taster_Büro) geschaltet werden:
Taster unten kurz gedrückt: Steckerleiste_Büro und Zwischenstecker_Büro einschalten.
Taster unten lang gedrückt: Zwischenstecker_Büro einschalten.
Taster oben kurz gedrückt: Steckerleiste_Büro und Zwischenstecker_Büro ausschalten.
Taster oben lang gedrückt: Steckerleiste_Büro ausschalten.
Der Zustand soll an der Statusanzeige dargestellt werden:
Steckerleiste_Büro und Zwischenstecker_Büro eingeschaltet: rot,
Steckerleiste_Büro oder Zwischenstecker_Büro eingeschaltet: orange,
Steckerleiste_Büro und Zwischenstecker_Büro ausgeschaltet: grün, wobei die grüne Anzeige nach 10 Minuten Leuchtdauer erlöschen soll

Makro für die Tastenbetätigung unten:

Code: Alles auswählen

wenn Taster_Büro_unten = "kurz" dann
  Zwischenstecker_Büro einschalten
  Steckerleiste_Büro einschalten
endewenn
wenn Taster_Büro_unten = "lang" dann
  Zwischenstecker_Büro einschalten
endewenn

Das Makro steht im Modul „Taster_Büro_1“, Ausführen bei Empfang ist aktiviert.

Makro für die Tastenbetätigung oben:

Code: Alles auswählen

wenn Taster_Büro_oben = "kurz" dann
  Zwischenstecker_Büro ausschalten
  Steckerleiste_Büro ausschalten
endewenn
wenn Taster_Büro_oben = "lang" dann
  Steckerleiste_Büro ausschalten
endewenn

Das Makro steht im Modul „Taster_Büro_2“, Ausführen bei Empfang ist aktiviert.

Makro für die Statusanzeige:

Code: Alles auswählen

wenn Zwischenstecker_Büro="an" und Steckerleiste_Büro="an" dann
  LED_Anzeige_Diele_15_L :="rot"
endewenn
wenn Zwischenstecker_Büro="an" und Steckerleiste_Büro="aus" dann
  LED_Anzeige_Diele_15_L :="orange"
endewenn
wenn Zwischenstecker_Büro="aus" und Steckerleiste_Büro="an" dann
  LED_Anzeige_Diele_15_L :="orange"
endewenn
wenn Zwischenstecker_Büro="aus" und Steckerleiste_Büro="aus" dann
  LED_Anzeige_Diele_15_L :="grün"
  warte 10 minuten
  wenn Zwischenstecker_Büro="aus" und Steckerleiste_Büro="aus" dann
    LED_Anzeige_Diele_15_L :="aus"
  endewenn
endewenn

Das Makro steht im Modul „Zwischenstecker_Büro“, Ausführen bei Änderung ist aktiviert