[Misterhouse] Uhrzeitabhängige Dimmwerte

[lons]

Also, nachdem wir jetzt ja ein eigenes Unterforum für Schnipsel haben, hier nochmal mein Dimmer:

Wenn man die Dimmkanäle nicht komplett über Misterhouse laufen lassen will, sondern auch ohne
Misterhouse das Licht noch schalten will, muss man im Dimmaktor die Einschalthelligkeit auf den
niedrigsten Wert ändern, ansonsten schaltet der Dimmer das Licht auf zb 100% ein und danach dimmt
Misterhouse erst den vorgegebenen Wert an.
Die Leseflags für den Dimmaktor dürfen hierbei nur für die Funktion Schalten gesetzt sein bzw. beim
Rückmeldeobjekt, sonst läßt sich das Licht nicht mehr ausschalten.

#+++++++++++++++++++++++++++++++++++++++
# Uhrzeitabhängige Dimmwerte
#+++++++++++++++++++++++++++++++++++++++

sub Licht_Dimmer {
  my ($Licht, $Licht_Name) = @_;

  if (state_changed $Licht eq 'on') {
    # Zwischen Sonnenaufgang und Sonnenuntergang 100% Licht
    if (time_greater_than("$Time_Sunrise") and time_less_than("$Time_Sunset")) {
      set $Licht 100; print_log "########## Licht Autodimmer 100% - $Licht_Name";
    }
    # Zwischen Sonnenuntergang und 22:20 30% Licht
    if (time_greater_than("$Time_Sunset") and time_less_than("22:30")) {
      set $Licht 30; print_log "########## Licht Autodimmer 30% Sunset-22:30 - $Licht_Name";
    }
    # Zwischen 05:00 und Sonnenaufgang 35% Licht
    if (time_greater_than("05:00") and time_less_than("$Time_Sunrise")) {
      set $Licht 35; print_log "########## Licht Autodimmer 35% 05:00-Sunrise - $Licht_Name";
    }
  }
}


# Licht_Dimmer( Dein Licht, Bezeichnung fürs Logfile);

Licht_Dimmer($Essen_Decke, "Essen Hauptbeleuchtung");

mfg, Lons