Zeitsteuerung - Neuesmodul zum Zufallszeit erzeugen randomtime

[depe1999]

Hallo Gemeinde,
ich war lange auf der Suche nach einem Modul, das mir eine Zufallszeit erzeugt.
Als Beispiel: Ich schalte eine Lampe mit der Dämmerung ein und sie soll zufällig zwischen  23:50 und 0:20 ausgehen. Mit dem rt Kommando habe ich es nicht realisiert bekommen.
Nun habe ich mir für meine 99_MyUtils.pm ein Kommando geschrieben:

sub
randomtime($)
{
  my ($MeH,$MeM,$MeB) = split(",", shift);
  my $ZtA = int($MeH*3600 + $MeM*60 + rand($MeB*60));
  my $ZtH = int($ZtA/3600);
  my $ZtM = int(($ZtA-$ZtH*3600)/60);
  my $ZtS = int($ZtA-($ZtH*3600+$ZtM*60));
  return sprintf("%2.2d:%2.2d:%2.2d",$ZtH,$ZtM,$ZtS);
} 

Ich übergebe die Startzeit zb. 23:50Uhr und das Zeitfenster in Minuten, hier 30, an randomtime. Nun kann ich mit

define AmAbend at * {sunset("REAL",0,"16:00","23:00")} setLampe on-till {randomtime("23,50,30")}

meine Lampe zur Dämmerung einschalten und sie schaltet sich zwischen 23:50 und 0:20, 30 Minuten Fenster,  wieder aus.
Oder mit

define AmMorgen at *03:10:00 {my $SonnenAG = sunrise("REAL");
my $Zeit = randomtime("5,30,45");
if ((!isday("REAL")) && (!$we)) {fhem("set SD_Teddy intervals $Zeit-$SonnenAG")}}

meine Lampe zwischen 5:30 und 6:15 einschalten , 45 Minuten Fenster, und zum Sonnenaufgang  wieder ausschalten.

Vielleicht kann jemand dieses Modul ja gebrauchen.

Grüße
depe1999

[justme1968]

das randomtimer modul hat nicht getan was du wolltest?

gruß
  andre

[depe1999]

Hallo Andre.

das randomtimer modul hat nicht getan was du wolltest?

Mich stört an dem randomtimer das er beim Start schon schaltet und erst danach den Zufall schalten läßt. Wenn man mehrere Schaltvorgänge in einem Zeitraum haben will, ist es ok. Aber ich brauche ja nur einen Schaltvorgang, bzw. eine zufällige Zeit.
Kann natürlich auch sein, dass ich die Vorgehensweise des randomtimer total missverstanden habe.

Gruß
Detlef

[justme1968]

wenn du das onCmd und offCmd passend setzt kannst du z.b. onCmd nichts tun lassen und offCmd ein schalten lassen. dann wird unterm strich genau ein mal zu einer zufälligen zeit ein geschaltet.

gruss
  andre

[peterk_de]

Depe, danke dir, ein nützlicher Codeschnipsel und schön dokumentiert - bei mir ab sofort im Produktiveinsatz und irgendwie einfacher/flexibler/geradliniger als mit dem randomTimer! Klasse!

[MarioS1969]

Hallo,
ist es auch möglich zufällig/variabel bei Sonnenuntergang zu schalten (z.B. innerhalb 30 min vor bis 30min nach Sonnenuntergang)?
Wenn ja, könntest du auch schreiben wie.

Vielen Dank
Mario

[oviwan]

hallo,
dann like ich das mal!

mit der bestehenden funktion bin ich schon mit der anleitung nicht zurecht gekommen. vielleicht weil ich keinen sinn erkannt habe innerhalb einer gewissen zeit mehrfach zu schalten. die erläuterung on-/offcmd hier macht es jetzt sicherlich deutlicher, aber die hier vorgestellte funktion/definition konnte ich auf anhieb verstehen und verwenden. vielen dank dafür!

harry

[Toto1973]

Wenn ich das richtig verstehe, müsste man die Sunset Zeit auch zerlegen um sie dann an randomtime übergeben zu können. Das müsste als in der Sub-Routine passieren.
Ich wäre an der Funktion Sunset + - Zeit als Zufallszeit auch interessiert.
Aber leider kenne ich mit da mit dem Pearl zu wenig aus, um so was zu bauen.

[Toto1973]

Ich hab mir jetzt doch mal das Modul RandomTimer angesehen und werde jetzt mal das Verhalten testen. Es ist nämlich Möglich, eine Zeitspanne zu erzeugen *{sunset(-1300)} <DEVICE> {sunset(-400)} 900.
Das würde bedeuten, das wenn es dunkel wird, minus 22 Minuten bis wenn es dunkel wird, minus 7 Minuten. Das ergibt eine Zeitspanne von 15 Minuten, in der der Timer aktiv wäre. Ich hoffe nun, das ich mit der Zeitangabe von 900 (15 Minuten) den Effekt erzielen kann, das er genau einmal ein schaltet und dann innerhalb der Zeitspanne einmal aus geht. Und wenn er aus geht, dann soll er den Befehl pct 100 an meinen Rollladen senden.
Über onCmd habe ich als Befehl pct 0 eingetragen (der Rollladen bleibt oben) und bei offCmd als Befehl pct 100 (Rollladen fährt nach unten).
Mit der Variable switchmode müsste man das Schaltverhalten noch etwas beeinflussen können, so das wirklich nur einmal aus geschaltet wird!
Ich bin gespannt, ob es klappt!

[Toto1973]

Hallo depe1999!
Ich hab Dein Modul nun mal in ein DOIF Befehl reingepackt, um meine Rollläden abhängig von Schicht und Wochenende morgens öffnen zu lassen.
Es klappt 1A!
Danke dafür...

Code Auswählen Erweitern

define rolladen_auf DOIF ([?Schicht_dummy:state] eq "Frueh" and [{randomtime("08,00,30")}|8]) (set sz_Fenster pct 0) DOELSEIF ([?Schicht_dummy:state] eq "Mittel" and [{randomtime("07,45,30")}|8]) (set sz_Fenster pct 0) DOELSEIF ([{randomtime("09,00,30")}|7]) (set sz_Fenster pct 0)

[Cluni]

Hi depe1999,

ich habe deine Funktion noch etwas erweitert, weil ich das für eine Funktion benötigte:

Code Auswählen Erweitern

sub randomtime_with_realtime($;$;$)
{
  my $ZtA;
  my ($MeH,$MeM,$MeS)=split(':',shift(@_));
  my $MeB=shift(@_);
  my $MeD=shift(@_);
  if ($MeD eq '+') {$ZtA = int($MeH*3600 + $MeM*60 + rand($MeB*60) + $MeS);} # Minuten addieren
  else {$ZtA = int($MeH*3600 + $MeM*60 - rand($MeB*60) + $MeS);} # Minuten subtrahiern

  my $ZtH = int($ZtA/3600);
  my $ZtM = int(($ZtA-$ZtH*3600)/60);
  my $ZtS = int($ZtA-($ZtH*3600+$ZtM*60));
  return sprintf("%2.2d:%2.2d:%2.2d",$ZtH,$ZtM,$ZtS);
} 

Man kann dann z.B. folgendes übergeben:

Code Auswählen Erweitern

randomtime_with_realtime("22:15:23","15","-")

[darkness]

Nur aus Neugier.

Hätte man die Minuten nicht einfach negativ übergeben können?

[Cluni]

 
Super Idee - da hätte ich Hirni auch selber drauf kommen können. Manchmal sieht man den Wald vor lauter Bäumen nicht...
Aber ehrlich gesagt weiß ich nicht (und kann es grade nicht testen), ob "rand(x)" auch mit negativen Zahlen läuft. Egal - ich wollte eh die Funktion so abändern, dass ich direkt einen Uhrzeit im Format hh:mm:ss übergeben kann aus einem Reading. Jetzt ist es bei mir so drin und ich lass es so - müsste sonst wieder einige Aufrufe ändern.

[Yokurt]

Danke an depe1999 und Cluni. Bei mir läuft Cluni's Version, leicht abgeändert, so dass die Minuten standardmäßig addiert werden.

[Jack-Luck]

Hi,

ich habe das Problem, wenn die zeit nach 00:00 Uhr berechnet wird, das sich die Lampe nicht einschaltet.
Weil dann wahrscheinlich eigentlich ein on-till-overnight kommen müsste, wie habt ihr das Problem gelöst?


danke