Originally posted by: <email address deleted>
Hallo Rudi,
da sich bei mir die Rolladensteuerung an sunrise_rel orientiert, gehen
im Sommer die Rolladen naturgemäß sehr früh hoch (z.B. am 22.6. um
5:22). Die Möglichkeit einer Minimalbegrenzung (z.B. nicht vor 6:30
Uhr) würde sich mehr an meinen "human factor" orientieren. :-)
Folgenden Lösungsvorschlag als Entwurf (bin kein Native PERL Writer):
in fhem.conf, analog "sunrise_coord" folgende Befehlserweiterung:
{ sunrise_not_before ("06:30:00") } # könnte jeder nach Gutdünken
anpassen
in 99_SUNRISE_EL.pm:
Zeile 23: sub sunrise_not_before ($);
Zeile 33: my $sr_notbefore = "" ; # Sunrise not before hh:mm:ss,
will be overwritten
Zeile 333: sub sunrise_not_before($) { ($sr_notbefore) = @_; return
undef; }
Zeile 327:
sub sunrise_rel(@)
{ my $temp = sr(1,shift,1,0);
#bei der nächsten Zeile brauch' ich Deine Expertenhilfe (in $temp
steht ja die Zeitdifferenz und nicht die absolute Zeit)
#Bei einer absoluten Zeit wäre es:
$temp = sr_notbefore (if ($sr_notbefore ne "") && ($temp<
$sr_notbefore));
return $temp;
}
Was meinst Du?
Gruß
Klaus
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups "FHZ1000 users on Linux" group.
To post to this group, send email to FHZ1000-users-on-unix@googlegroups.com
To unsubscribe from this group, send email to FHZ1000-users-on-unix-unsubscribe@googlegroups.com
For more options, visit this group at http://groups.google.com/group/FHZ1000-users-on-unix?hl=en
-~----------~----~----~----~------~----~------~--~-
Originally posted by: <email address deleted>
Hallo Klaus,
hier mal meine Lösung:
Meine Rolläden sollen auch ihr Eigenleben ;-) haben. Also morgens
frühestens 6:30, am WE frühestens 7:15. Abends ähnlich und wieder
anders in den Kinderzimmern. Der Phantasie sind da keine Grenzen
gesetzt.
Die bisherigen Funktionen gepaart mit der Möglichkeit einfach selbst
Module zu schreiben finde ich genial.
Hier meine Sunrise-Funktion, die wie viele andere kleine Helferlein in
einer 98_MISC.pm steckt, CheckSunrise() wird morgens um 3:00 Uhr
täglich aufgerufen:
#############################
sub
CheckSunrise()
{
my ($sec,$min,$hour,$mday,$month,$year,$wday,$yday,$isdst) =
localtime;
my $we = (($wday==0 || $wday==6) ? 1 : 0);
my $sunrise = sunrise_abs();
my $order = "set rolu1-rolu6,rolowz on";
my $order2 = "set nachto,nachtu off";
fhem "define sun2 at $sunrise $order2";
if ( $we )
{ fhem "define sun1 at 07:15:00 $order"; }
else
{
if ($sunrise gt "06:30:00")
{
fhem "define sun1 at $sunrise $order";
}
else
{
fhem "define sun1 at 06:30:00 $order";
}
}
}
*********************************************
Sicherlich schafft es Rudi, das in einem Einzeiler zu
programmieren ;-)
Martin :-)
On 17 Feb., 14:10, klaus wrote:
> Hallo Rudi,
>
> da sich bei mir die Rolladensteuerung an sunrise_rel orientiert, gehen
> im Sommer die Rolladen naturgemäß sehr früh hoch (z.B. am 22.6. um
> 5:22). Die Möglichkeit einer Minimalbegrenzung (z.B. nicht vor 6:30
> Uhr) würde sich mehr an meinen "human factor" orientieren. :-)
>
> Folgenden Lösungsvorschlag als Entwurf (bin kein Native PERL Writer):
>
> in fhem.conf, analog "sunrise_coord" folgende Befehlserweiterung:
> { sunrise_not_before ("06:30:00") } # könnte jeder nach Gutdünken
> anpassen
>
> in 99_SUNRISE_EL.pm:
> Zeile 23: sub sunrise_not_before ($);
> Zeile 33: my $sr_notbefore = "" ; # Sunrise not before hh:mm:ss,
> will be overwritten
> Zeile 333: sub sunrise_not_before($) { ($sr_notbefore) = @_; return
> undef; }
> Zeile 327:
> sub sunrise_rel(@)
> { my $temp = sr(1,shift,1,0);
> #bei der nächsten Zeile brauch' ich Deine Expertenhilfe (in $temp
> steht ja die Zeitdifferenz und nicht die absolute Zeit)
> #Bei einer absoluten Zeit wäre es:
> $temp = sr_notbefore (if ($sr_notbefore ne "") && ($temp<
> $sr_notbefore));
> return $temp;
>
> }
>
> Was meinst Du?
> Gruß
> Klaus
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups "FHZ1000 users on Linux" group.
To post to this group, send email to FHZ1000-users-on-unix@googlegroups.com
To unsubscribe from this group, send email to FHZ1000-users-on-unix-unsubscribe@googlegroups.com
For more options, visit this group at http://groups.google.com/group/FHZ1000-users-on-unix?hl=en
-~----------~----~----~----~------~----~------~--~-