Schalten, wenn seit einem bestimmten Ereignis ein bestimmte Zeit vergangen ist

[Guest]

Originally posted by: <email address deleted>

Hallo zusammen,

mit Erfolg steuert FHEM meine Fußbodenheizung. Im Sommer aber brauche ich
sie nicht so oft. Damit es mir die Stellantriebe nicht verkalkt, würde ich
gerne spätestens alle 7 Tage die Stellantriebe neu betätigen/schalten.

Jetzt müsste ich irgendwie feststellen, wann dieser besagte Schalter
zuletzt betätigt wurde.

Gibts es eine Möglichkeit bei einem Device (Homematic Switch) den letzten
Schaltpunkt auszulesen?

Natürlich könnte man mit einem at einmal wöchentlich den Vorgang auslösen.
Aber oft spiele ich an der Heizung rum und oft wären dann dieses at
überflüssig, da keine 7 Tage vergangen sind.

Über einen Counter habe ich auch schon nachgedacht, aber es muss doch
irgendwie über die Logdatei des Devices oder über ein ReadingsVal()
funktionieren.

Grüße und danke schonmal


--
To unsubscribe from this group, send email to
fhem-users+unsubscribe@googlegroups.com

[Guest]

Originally posted by: <email address deleted>

Am Sonntag, 13. Mai 2012 15:41:29 UTC+2 schrieb Gamsgnack:
>
> Gibts es eine Möglichkeit bei einem Device (Homematic Switch) den letzten
> Schaltpunkt auszulesen?
>
> Hi Gamsgnack,
jepp, dafür gibt's die Funktion ReadingsTimestamp, siehe
http://fhem.de/commandref.html#perl
Ich hab nur FS20, da gibt's nen Zeitstempel auf dem state-Reading, ich
vermute dass dieseer Zeitstempel benutzt wird.

Es gibt auch einen Zeitstempel auf dem reading CUL_TIME, ich vermute dass
dies der Zeitstempel ist, wann von einem ggf zugehörigen Sensor das letzte
Telegramm empfangen wurde. Das ist bei mir ein ganz anderer Zeitpunkt.

Postest Du Dein Ergebnis?

Gruß, Uli

--
To unsubscribe from this group, send email to
fhem-users+unsubscribe@googlegroups.com

[Guest]

Originally posted by: <email address deleted>

Am Sonntag, 13. Mai 2012 19:22:23 UTC+2 schrieb UliM:
PS: In der commandref findest Du auch die Funktion time_str2num, mit der Du
den Zeitstempel in einen absoluten Wert umrechnen kannst. Das macht den
Vergleich von Zeiten wesentlich einfacher.
Hab's nicht probiert, vielleicht funktioniert ja
time_str2num(ReadingsTimestamp("","", 0)).
Ich weiss bloss nicht ob's sowas gibt wie ne Funktion now(), damit Du
'jetzt' als Bezugspunkt nehmen kannst.
Viel Erfolg!
Gruß, Uli

--
To unsubscribe from this group, send email to
fhem-users+unsubscribe@googlegroups.com

[Guest]

Originally posted by: <email address deleted>

Am Sonntag, 13. Mai 2012 19:22:23 UTC+2 schrieb UliM:
>
>
> Postest Du Dein Ergebnis?
>
> Gruß, Uli
>
>
Hallo Uli,

vielen Dank für deine Denkanstöße. Jetzt lauft es so, wie es soll. Mit
Hilfe deiner Vorschläge bin ich zu folgendem Ergebnis gekommen:

Mit ReadingsTimestamp(,,von Dir bereits gesagt den Zeitstempel der letzten Schaltung im Format
"YYYY-MM-DD HH:MM:SS".

Einen Zeitstempel von "jetzt" konnte ich dadurch erreichen, dass ich eine
Methode in 99_Utils.pl hinterlegt habe welche mittels localtime aus
Time::Local einen beliebig formatierten, aktuellen Zeitstempel ausgibt
(localtime formatiert per Default folgendermaßen: "DAY MONTH HH:MM:SS
YYYY"). Folgende Methode habe ich aus dem Netz kopiert:

sub now {
 
  my $FORMAT=$_[0];

  my $NOW=timelocal(localtime);
  my $y=sprintf("%02d",(localtime($NOW))[5]-100);
  my $Y=sprintf("%04d",(localtime($NOW))[5]+1900);
  my $m=sprintf("%02d",(localtime($NOW))[4]+1);
  my $d=sprintf("%02d",(localtime($NOW))[3]);
  my $H=sprintf("%02d",(localtime($NOW))[2]);
  my $M=sprintf("%02d",(localtime($NOW))[1]);
  my $S=sprintf("%02d",(localtime($NOW))[0]);

  $FORMAT =~ s/%y/$y/;
  $FORMAT =~ s/%Y/$Y/;
  $FORMAT =~ s/%m/$m/;
  $FORMAT =~ s/%d/$d/;
  $FORMAT =~ s/%H/$H/;
  $FORMAT =~ s/%M/$M/;
  $FORMAT =~ s/%S/$S/;

  return $FORMAT;
}

Ebenfalls in 99_Utils.pm kann ich dann mit folgender Methode in einem
Define-Abschnitt den aktuellen Zeitstempel FHEM-Konform im
Format "YYYY-MM-DD HH:MM:SS" ausgeben:

sub nowdate {
  return now("%Y-%m-%d %H:%M:%S");
}

Nun kommt dein zweiter Hinweis ins Spiel. time_str2num("YYYY-MM-DD
HH:MM:SS") wandelt den Zeitstempel in einen "Sekundenzeitstempel" um. Damit
kann man wunderbar eine Differenz errechnen. Als Beispiel ein Auszug aus
einem notify:

  my $timestamp_now = time_str2num(nowdate());;
  my $timestamp_last = time_str2num(ReadingsTimestamp(
"heizung","state",0 ));;
  my $timestamp_diff = $timestamp_now-$timestamp_last;;

  if ($timestamp_diff > 604800) {
    fhem("set heizung on-for-timer 60");;
  }

Alles läuft so, wie ich es mir vorgestellt hab.

Vielen Dank nochmal für deine Hilfestellung.

Grüße
Gamsgnack

--
To unsubscribe from this group, send email to
fhem-users+unsubscribe@googlegroups.com

[Guest]

Originally posted by: <email address deleted>

Wow, schick!
Nun mach ich aus meinerAnfrage 'postest Du Dein Ergebnis' ein 'stellst Du's ins Wiki'
Hilft vmtl auch in Zukunft vielen weiter.
Gruß Uli

--
To unsubscribe from this group, send email to
fhem-users+unsubscribe@googlegroups.com

[Guest]

Originally posted by: <email address deleted>

Am Sonntag, 13. Mai 2012 15:41:29 UTC+2 schrieb Gamsgnack:
>
> Hallo zusammen,
>
> mit Erfolg steuert FHEM meine Fußbodenheizung. Im Sommer aber brauche ich
> sie nicht so oft. Damit es mir die Stellantriebe nicht verkalkt, würde ich
> gerne spätestens alle 7 Tage die Stellantriebe neu betätigen/schalten.
>
> Jetzt müsste ich irgendwie feststellen, wann dieser besagte Schalter
> zuletzt betätigt wurde.
>
> Gibts es eine Möglichkeit bei einem Device (Homematic Switch) den letzten
> Schaltpunkt auszulesen?
>
> Natürlich könnte man mit einem at einmal wöchentlich den Vorgang auslösen.
> Aber oft spiele ich an der Heizung rum und oft wären dann dieses at
> überflüssig, da keine 7 Tage vergangen sind.
>
> Über einen Counter habe ich auch schon nachgedacht, aber es muss doch
> irgendwie über die Logdatei des Devices oder über ein ReadingsVal()
> funktionieren.
>
> Grüße und danke schonmal
>
>
>

--
To unsubscribe from this group, send email to
fhem-users+unsubscribe@googlegroups.com

[Guest]

Originally posted by: <email address deleted>

Am Sonntag, 13. Mai 2012 15:41:29 UTC+2 schrieb Gamsgnack:
>
> Hallo zusammen,
>
> mit Erfolg steuert FHEM meine Fußbodenheizung. Im Sommer aber brauche ich
> sie nicht so oft. Damit es mir die Stellantriebe nicht verkalkt, würde ich
> gerne spätestens alle 7 Tage die Stellantriebe neu betätigen/schalten.
>
> Jetzt müsste ich irgendwie feststellen, wann dieser besagte Schalter
> zuletzt betätigt wurde.
>
> Gibts es eine Möglichkeit bei einem Device (Homematic Switch) den letzten
> Schaltpunkt auszulesen?
>
> Natürlich könnte man mit einem at einmal wöchentlich den Vorgang auslösen.
> Aber oft spiele ich an der Heizung rum und oft wären dann dieses at
> überflüssig, da keine 7 Tage vergangen sind.
>
> Über einen Counter habe ich auch schon nachgedacht, aber es muss doch
> irgendwie über die Logdatei des Devices oder über ein ReadingsVal()
> funktionieren.
>
> Grüße und danke schonmal
>
>
>

--
To unsubscribe from this group, send email to
fhem-users+unsubscribe@googlegroups.com

[Guest]

Originally posted by: <email address deleted>

Hallo, ich möchte genau dasselbe tun, was Du schon gelöst hast: Steuerung
einer Fußbodenheizung mit fhem und HomeMatic. Allerdings: Fußbodenheizung
ist noch nicht gelegt und ich bin blutiger fhem-Einsteiger. Kannst Du mir
eine Beschreibung deiner Anlage geben (verwendete HomeMatic-Komponenten,
Marke der Stellventile, evtl. sogar die entscheidenden Scriptteile)?

Ich habe mich etwas näher mit deinem Code beschäftigt und nun eine
Verständnisfrage: Du kannst doch direkt die Ausgabe von time_str2num(ReadingsTimestamp(
"heizung","state",0 )) mit dem time von Perl vergleichen; die haben doch
dasselbe Format! Oder hab' ich was übersehen? Um das ganze für mich zu
verstehen, habe ich alles in eine *.pl gepackt. Schau's Dir mal an.

 

-------schnipp:  zeit.pl-------------

use Time::Local;

use POSIX;

  sub now {

 

  my $FORMAT=$_[0];

 

  my $NOW=timelocal(localtime);

  my $y=sprintf("%02d",(localtime($NOW))[5]-100);

  my $Y=sprintf("%04d",(localtime($NOW))[5]+1900);

  my $m=sprintf("%02d",(localtime($NOW))[4]+1);

  my $d=sprintf("%02d",(localtime($NOW))[3]);

  my $H=sprintf("%02d",(localtime($NOW))[2]);

  my $M=sprintf("%02d",(localtime($NOW))[1]);

  my $S=sprintf("%02d",(localtime($NOW))[0]);

 

  $FORMAT =~ s/%y/$y/;

  $FORMAT =~ s/%Y/$Y/;

  $FORMAT =~ s/%m/$m/;

  $FORMAT =~ s/%d/$d/;

  $FORMAT =~ s/%H/$H/;

  $FORMAT =~ s/%M/$M/;

  $FORMAT =~ s/%S/$S/;

  return $FORMAT;

 

  print s/%y/$y/;

  }

 

sub nowdate {

  return now("%Y-%m-%d %H:%M:%S");

}

 

sub time_str2num($) {

                my ($str) = @_;

                my @a = split("[- ", $str);

                return
mktime($a[5],$a[4],$a[3],$a[2],$a[1]-1,$a[0]-1900,0,0,-1);

}              

 

                print "\ntime: ".time;

                print "\nlocaltime: ".localtime(time);    

                print "\ntimelocal:
".timelocal(localtime(time));              

                print "\ntimelocal: ".timelocal(localtime);

                $jetzt = now;

                print "\n\nnow: ".nowdate;

                print "\ntadaaa: ".time_str2num(nowdate);

               

-------schnapp: zeit.pl-------------

 

D.h.

my $timestamp_last = time_str2num(ReadingsTimestamp(
"heizung","state",0 ));;

my $timestamp_diff = time-$timestamp_last;;

 

  if ($timestamp_diff > 604800) {

    fhem("set heizung on-for-timer 60");;

  }

 

sollte ausreichen.

Ich hoffe, Du hilfst mir trotz menem "Klugscheißer-Post" weiter

 

Vorab vielen Dank

Gruß Stefan




Am Sonntag, 13. Mai 2012 15:41:29 UTC+2 schrieb Gamsgnack:
>
> Hallo zusammen,
>
> mit Erfolg steuert FHEM meine Fußbodenheizung. Im Sommer aber brauche ich
> sie nicht so oft. Damit es mir die Stellantriebe nicht verkalkt, würde ich
> gerne spätestens alle 7 Tage die Stellantriebe neu betätigen/schalten.
>
> Jetzt müsste ich irgendwie feststellen, wann dieser besagte Schalter
> zuletzt betätigt wurde.
>
> Gibts es eine Möglichkeit bei einem Device (Homematic Switch) den letzten
> Schaltpunkt auszulesen?
>
> Natürlich könnte man mit einem at einmal wöchentlich den Vorgang auslösen.
> Aber oft spiele ich an der Heizung rum und oft wären dann dieses at
> überflüssig, da keine 7 Tage vergangen sind.
>
> Über einen Counter habe ich auch schon nachgedacht, aber es muss doch
> irgendwie über die Logdatei des Devices oder über ein ReadingsVal()
> funktionieren.
>
> Grüße und danke schonmal
>
>
>

--
To unsubscribe from this group, send email to
fhem-users+unsubscribe@googlegroups.com

[Guest]

Originally posted by: <email address deleted>

Hi,
ich hab nach diesem post auch mal rumprobiert, bei mir geht so was wie
if ( (time - time_str2num(ReadingsTimestamp( "heizung","state",0 )) ) >
3600 ) { #schalten }
Gruß, Uli

--
To unsubscribe from this group, send email to
fhem-users+unsubscribe@googlegroups.com