Wohnzimmer Uhr (Gong jede Stunde) über FHEM simulieren

[Toto1973]

Also da ja über ein Update nichts von meinem Code verändert wird, muss das Problem wo anders liegen.
Vielleicht liegt es eventuell an der Zeitumstellung (ist einfach nur reine Vermutung)?

Wie sieht denn der Code aus, womit Du die Uhr "aufrufst"?

Meiner sieht wie folgt aus:

Code Auswählen Erweitern

define Wohnzimmeruhr DOIF ([Wanduhr_dummy] eq "on") (set wz_Lautsprecher on)
DOELSEIF ([Wanduhr_dummy] eq "off") (set wz_Lautsprecher off)
DOELSEIF ([?Wanduhr_dummy] eq "on" and [?10:00:00-19:59:59] and [+:15]) ({WandUhr(83)})
DOELSEIF ([?Wanduhr_dummy] eq "on" and [?20:00:00-09:59:59] and [+:15]) ({WandUhr(75)})

Die ersten beiden Zeilen steuern das ein aus Ausschalten meines Lautsprechers. Die Zeilen 3 und 4 dann die Wanduhr an sich. Die Lautstärke wird ja in der Klammer übergeben!

[idansch]

Hier ist mein 99_myUtils Eintrag:

Code Auswählen Erweitern

#Wanduhr

sub WandUhr($)
{
my($volume)=@_;
my ($Sekunden, $Minuten, $Stunden, $Monatstag, $Monat,
    $Jahr, $Wochentag, $Jahrestag, $Sommerzeit) = localtime(time);
my $Stunde = "";
if(defined ($volume))
{
if($Sommerzeit == 1) { $Stunden + 1 };
if($Stunden <= 12) { $Stunde = $Stunden };
if($Stunden >= 13) { $Stunde = $Stunden - 12 };
if($Stunden == 0) { $Stunde = 12 };

if ($Minuten == 00) {system ("mplayer /opt/fhem/Sound/BigBen.mp3 -volume $volume /opt/fhem/Sound/BigBenStrikes.mp3 -loop $Stunde -volume $volume")};
if ($Minuten == 15) {system ("mplayer /opt/fhem/Sound/BigBen_15.mp3 -volume $volume")};
if ($Minuten == 30) {system ("mplayer /opt/fhem/Sound/BigBen_30.mp3 -volume $volume")};
if ($Minuten == 45) {system ("mplayer /opt/fhem/Sound/BigBen_45.mp3 -volume $volume")};

} }

Und hier der fhem Eintrag:

Code Auswählen Erweitern

#Wanduhr

define Wanduhr_dummy dummy
attr Wanduhr_dummy setList on off

define Wanduhr DOIF ([Wanduhr_dummy] eq "on" and [?10:00:00-19:59:59] and [:00]) ({WandUhr(63)}) DOELSEIF ([Wanduhr_dummy] eq "on" and [?20:00:00-09:59:59] and [:00]) ({WandUhr(25)})
attr Wanduhr do always

Update:
Habe gerde in der LOG diesen Eintrag gefunden.

Code Auswählen Erweitern

2016.04.18 12:09:26 1: PERL WARNING: Subroutine myUtils_Initialize redefined at ./FHEM/99_myUtils.pm line 15.
2016.04.18 12:09:26 1: PERL WARNING: Useless use of addition (+) in void context at ./FHEM/99_myUtils.pm line 31.
2016.04.18 12:09:26 1: PERL WARNING: Subroutine WandUhr redefined at ./FHEM/99_myUtils.pm line 24.
MPlayer svn r34540 (Raspbian), built with gcc-4.6 (C) 2000-2012 MPlayer Team
mplayer: could not connect to socket
mplayer: No such file or directory
Failed to open LIRC support. You will not be able to use your remote control.

Playing /opt/fhem/Sound/BigBen.mp3.
libavformat version 53.21.1 (external)
Mismatching header version 53.19.0
Audio only file format detected.
Clip info:
Title: Big Ben
Artist: Troy Rumrich
Album: www.Traummusik.com
Year: 2014
Comment: ?Nur f�r den privaten Gebrauch
Genre: Other
Load subtitles in /opt/fhem/Sound/
==========================================================================
Requested audio codec family [mpg123] (afm=mpg123) not available.
Enable it at compilation.
Opening audio decoder: [ffmpeg] FFmpeg/libavcodec audio decoders
libavcodec version 53.35.0 (external)
Mismatching header version 53.32.2
AUDIO: 44100 Hz, 2 ch, floatle, 128.0 kbit/4.54% (ratio: 16000->352800)
Selected audio codec: [ffmp3float] afm: ffmpeg (FFmpeg MPEG layer-3 audio)
==========================================================================
Home directory / not ours.
W: [pulseaudio] core-util.c: Failed to open configuration file '//.pulse//daemon.conf': Permission denied
W: [pulseaudio] daemon-conf.c: Failed to open configuration file: Permission denied
AO: [pulse] Init failed: Connection refused
Failed to initialize audio driver 'pulse'
Home directory / not ours.
W: [pulseaudio] core-util.c: Failed to open configuration file '//.pulse//daemon.conf': Permission denied
W: [pulseaudio] daemon-conf.c: Failed to open configuration file: Permission denied
AO: [alsa] 48000Hz 2ch floatle (4 bytes per sample)
Video: no video
Starting playback...

[Toto1973]

Zu Deiner Sub, benutze mal lieber diese hier:

Code Auswählen Erweitern

sub WandUhr($)
{
my($volume)=@_;
my ($Sekunden, $Minuten, $Stunden, $Monatstag, $Monat,
    $Jahr, $Wochentag, $Jahrestag, $Sommerzeit) = localtime(time);
my $Stunde = "";
if(defined ($volume))
{
if($Sommerzeit == 1) { $Stunden + 1 };
if($Stunden <= 12) { $Stunde = $Stunden };
if($Stunden >= 13) { $Stunde = $Stunden - 12 };
if($Stunden == 0) { $Stunde = 12 };

if ($volume == "TEST") {system ("mplayer /opt/fhem/Sound/BigBen.mp3 -volume 65 /opt/fhem/Sound/BigBenStrikes.mp3 -loop $Stunde < /dev/null >&0 2>&0 &")};
if ($Minuten == 00) {system ("mplayer /opt/fhem/Sound/BigBen.mp3 -volume $volume /opt/fhem/Sound/BigBenStrikes.mp3 -loop $Stunde")};
if ($Minuten == 15) {system ("mplayer /opt/fhem/Sound/BigBen_15.mp3 -volume $volume < /dev/null >&0 2>&0 &")};
if ($Minuten == 30) {system ("mplayer /opt/fhem/Sound/BigBen_30.mp3 -volume $volume < /dev/null >&0 2>&0 &")};
if ($Minuten == 45) {system ("mplayer /opt/fhem/Sound/BigBen_45.mp3 -volume $volume < /dev/null >&0 2>&0 &")};
} }

Das verhindert, das der Raspberry während dem abspielen blockiert. Wenn der Code ausgetauscht wurde, bitte FHEM neu starten und dann kannst Du mit {WandUhr("TEST")} ausprobieren, ob die Sub geht.

Zu Deinem Code des DOIF, das sollte so alles passen.

Nur zum Player, da scheint etwas mit den Rechten nicht zu passen!

Code Auswählen Erweitern

W: [pulseaudio] core-util.c: Failed to open configuration file '//.pulse//daemon.conf': Permission denied

[sokomania]

Hallo
Ich bin schon seit tagen an der Uhr dran, aber es kommt kein Ton. Habe es auch schon mit
{WandUhr(100)} und
{WandUhr("TEST")}
probiert.
Hier meine Einstellungen:

99_myUtils.pm:

Code Auswählen Erweitern

###Wanduhr#######

sub WandUhr($)
{
my($volume)=@_;
my ($Sekunden, $Minuten, $Stunden, $Monatstag, $Monat,
    $Jahr, $Wochentag, $Jahrestag, $Sommerzeit) = localtime(time);
my $Stunde = "";
if(defined ($volume))
{
if($Sommerzeit == 1) { $Stunden + 1 };
if($Stunden <= 12) { $Stunde = $Stunden };
if($Stunden >= 13) { $Stunde = $Stunden - 12 };
if($Stunden == 0) { $Stunde = 12 };

if ($volume == "TEST") {system ("mplayer /opt/fhem/Sound/BigBen.mp3 -volume 99 /opt/fhem/Sound/BigBenStrikes.mp3 -loop $Stunde < /dev/null >&0 2>&0 &")};
if ($Minuten == 00) {system ("mplayer /opt/fhem/Sound/BigBen.mp3 -volume $volume /opt/fhem/Sound/BigBenStrikes.mp3 -loop $Stunde")};
if ($Minuten == 15) {system ("mplayer /opt/fhem/Sound/BigBen_15.mp3 -volume $volume < /dev/null >&0 2>&0 &")};
if ($Minuten == 30) {system ("mplayer /opt/fhem/Sound/BigBen_30.mp3 -volume $volume < /dev/null >&0 2>&0 &")};
if ($Minuten == 45) {system ("mplayer /opt/fhem/Sound/BigBen_45.mp3 -volume $volume < /dev/null >&0 2>&0 &")};
} }

Code Auswählen Erweitern



define Wanduhr_dummy dummy
attr Wanduhr_dummy room Wanduhr
attr Wanduhr_dummy setList on off
define Wanduhr DOIF ([Wanduhr_dummy] eq "on" and [?08:00:00-21:59:59] and [+:15]) ({WandUhr(100)})\
DOELSEIF ([Wanduhr_dummy] eq "on" and [?22:00:00-07:59:59] and [+:15]) ({WandUhr(75)})
attr Wanduhr do always


Log:

Code Auswählen Erweitern

2016.09.22 19:44:07 1: PERL WARNING: Useless use of addition (+) in void context at ./FHEM/99_myUtils.pm line 32.
2016.09.22 19:45:00 2: Wanduhr: {WandUhr(100)}: -1
  PERL WARNING: Argument "TEST" isn't numeric in numeric eq (==) at ./FHEM/99_myUtils.pm line 37.

Bin leider nicht so bewandert in Perl    Habe mir den Code mal angeschaut, aber nichts gefunden...
Würde mich freuen, wenn mir jemand helfen könnte.

[CoolTux]

Ich würde gerne zu Weihnachten ein Weihnachtliche Glockenspiel nehmen statt den BigBen. Hat da zufällig jemand was?

[Toto1973]

Die Idee gefällt mir. Muss ich mich mal umhören, was es da so gibt, an Melodien...

[CoolTux]

Ich dachte da an einen kurzen Jingle von Last Christmas vom !wham. Wollte da nicht gleich das ganze Lied spielen lassen. Lach.
Ich suche auch schon.

[Yil]

Sehr coole Sache hier! Ich hab das mal auf Sonos umgebaut. Der Code dafür lautet:

Code Auswählen Erweitern

sub WandUhr($) {
  my ($volume) = @_;
  my ($Sekunden, $Minuten, $Stunden, $Monatstag, $Monat, $Jahr, $Wochentag, $Jahrestag, $Sommerzeit) = localtime(time);
  my $Stunde = "";
  my $i = 1;
  my $gong = '|BigBenStrikes|';
  my $sound = '';
  if (defined ($volume)) {
     if($Sommerzeit == 1) { $Stunden + 1 };
     if($Stunden <= 12) { $Stunde = $Stunden };
     if($Stunden >= 13) { $Stunde = $Stunden - 12 };
     if($Stunden == 0) { $Stunde = 12 };

     if ($Minuten == 00) {
    fhem("set Sonos_Esszimmer Speak $volume de |BigBen|");
        while ($Stunde >= $i) {
   $sound = $sound.' '.$gong;
       $i++};
      fhem("set Sonos_Esszimmer Speak $volume de $sound");
     };

     if ($Minuten == 15) {fhem("set Sonos_Esszimmer Speak $volume de |BigBen_15|")};
     if ($Minuten == 30) {fhem("set Sonos_Esszimmer Speak $volume de |BigBen_30|")};
     if ($Minuten == 45) {fhem("set Sonos_Esszimmer Speak $volume de |BigBen_45|")};
   }
}

Weil ich damit aber keine WAF bekomme, habe ich auch das DOIF zum Abspielen geändert:

Code Auswählen Erweitern

define Wanduhr_Spielzeit DOIF ([Wanduhr] eq "on" and [?({firstAlarm()})-23:00:01] and [+:15] and [S4mini_Bluetooth] ne "present" and [isHome] eq "on") ({WandUhr(40)})

{firstAlarm()} ist eine Funktion, mit der ich die Uhrzeit des ersten Alarms aus meinem Sonos-Wecker auslese, S4mini_Bluetooth das Handy meiner Frau, dass bei Anwesenheit die Wanduhrfunktion aussetzen, isHome unser Zuhause-Status. Wanduhr selbst ist ein Dummy zum manuellen An- und Abschalten.

Vielleicht kann's jemand brauchen.

[Resyncer]

Bei mir wird die SONOS Variante leider nicht sauber abgespielt, die mp3's werden gekürzt, die Glockenschläge fallen teilweise ganz aus.
Da ist der WAF eher unterirdisch.

Unabhängig davon.... bzw. was mir aufgefallen ist, muss das nicht

Code Auswählen Erweitern

if($Sommerzeit == 1) { $Stunde=$Stunden + 1 };
statt

Code Auswählen Erweitern

if($Sommerzeit == 1) { $Stunden + 1 };
lauten?
So bekomme ich einen Fehler weniger im Log.

Die Idee mit Last Christmas fand ich sehr interessant, ich habe da mal was zusammengebaut und hier angehängt.

Gruß Heiko

[CoolTux]

Cool. Danke Dir. Schaue ich mir morgen mal an.

[Yil]

Stimmt, die Sonos-Variante hakt etwas. Ich hab sie etwas umgebaut, jetzt werden alle mp3's sauber abgespielt:

Code Auswählen Erweitern

sub WandUhr($) {
  my ($volume) = @_;
  my ($Sekunden, $Minuten, $Stunden, $Monatstag, $Monat, $Jahr, $Wochentag, $Jahrestag, $Sommerzeit) = localtime(time);
  my $Stunde = "";
  my $i = 1;
  my $gong = '|BigBenStrikes|';
  my $sound = '';
  if (defined ($volume)) {
     if($Sommerzeit == 1) { $Stunden + 1 };
     if($Stunden <= 12) { $Stunde = $Stunden };
     if($Stunden >= 13) { $Stunde = $Stunden - 12 };
     if($Stunden == 0) { $Stunde = 12 };

     if ($Minuten == 00) {
        $sound = '|BigBen|';
        while ($Stunde >= $i) {
   $sound = $sound.' '.$gong;
       $i++};
      fhem("set Sonos_Esszimmer Speak $volume de $sound");
     };

     if ($Minuten == 15) {fhem("set Sonos_Esszimmer Speak $volume de |BigBen_15|")};
     if ($Minuten == 30) {fhem("set Sonos_Esszimmer Speak $volume de |BigBen_30|")};
     if ($Minuten == 45) {fhem("set Sonos_Esszimmer Speak $volume de |BigBen_45|")};
   }
}

Der Trick besteht darin, erst das komplette mp3-file über die while-Schleife zusammen zu bauen und dann einmal auszugeben.

[hartenthaler]

Unabhängig davon.... bzw. was mir aufgefallen ist, muss das nicht

Code Auswählen Erweitern

if($Sommerzeit == 1) { $Stunde=$Stunden + 1 };
statt

Code Auswählen Erweitern

if($Sommerzeit == 1) { $Stunden + 1 };
lauten?

nein

Code Auswählen Erweitern

if($Sommerzeit == 1) { $Stunden += 1 };

[chr2k]

Ich komm nicht drauf...

Code Auswählen Erweitern

if ($Minuten == 00) {system ("mplayer /opt/fhem/Sound/BigBenStrikes.mp3 -volume 60")};

Dies funktioniert einwandfrei.

Aber der Code

Code Auswählen Erweitern

if ($Minuten == 01) {fhem("set LED_Herz on")};
schaltet nicht das gewünschte Device in FHEM auf on.

Auch ein ändern mit Leertasten zwischen der jeweiligen ( und ) und dem " oder auch nach {fhem oder auch in Kombination schaffen keine Abhilfe.
Im Wikientrag über die MyUtils steht es in diversen Beispielen so

Code Auswählen Erweitern

if ($Minuten == 01) {fhem( "set LED_Herz on" )};
Aber das geht bei mir nicht. Wie oben geschrieben.

Weiß da jemand bitte Rat? Danke.

Gruß
Christian

[TomLee]

Hallo,

ist jetzt schon das zweite Jahr mit Wanduhr zur Weihnachtszeit bei mir.
Damals hatte ich die Steuerung meiner Wanduhren (1x mit Glockenspiel, 1x mit Big Ben) über Ftui mit drei Dummy's (Switches) umgesetzt. Dummy 1 hat das Glockenspiel ein/aus, Dummy 2 den BigBen ein/aus und der Dummy 3 die Funktion Wanduhr über das DOIF ein oder aus geschaltet. Nicht optimal aber erfüllte seinen Zweck.
Ist ja schon paar Tage "Weihnachtszeit" aber gar nicht mehr an die Wanduhr gedacht und somit nicht eingeschaltet.
Auch kann man sich vorstellen das es nicht die beste Lösung zur Steuerung der Wanduhren war.
Hab mir dazu, mit einem Jahr mehr Erfahrung, paar Gedanken gemacht. Herausgekommen ist eine Steuerung der Wanduhren über das FTUI mit nur einem Switch  (und auch nur einem Dummy) inklusive automatischem einschalten des Glockenspiel zur Weihnachtszeit.
Mir gefällt die Lösung für zwei oder mehr Routinen (Wanduhren) und das automatische um/einschalten zur Weihnachtszeit sehr gut darum wollt ich sie teilen.

Mehr oder weniger ist die Umsetzung auch schnell gemacht. Der Dummy aus dem ersten Post wird wie folgt angepasst:

Code Auswählen Erweitern

defmod du_Wanduhr dummy
attr du_Wanduhr room Wanduhr
attr du_Wanduhr setList state:Glockenspiel,BigBen,off
attr du_Wanduhr webCmd Glockenspiel:BigBen:off
setstate du_Wanduhr Glockenspiel
setstate du_Wanduhr 2017-12-10 13:14:59 state Glockenspiel

Das DOIF sieht nun so aus:

Code Auswählen Erweitern

defmod doif_du_Wanduhr DOIF ([du_Wanduhr] eq "Glockenspiel" and [?10:00:00-20:00:01] and [+:15] and [TV] eq "off") ({WandUhr_Glockenspiel(10)}) DOELSEIF ([du_Wanduhr] eq "BigBen" and [?10:00:00-20:00:01] and [+:15] and [TV] eq "off") ({WandUhr_BigBen(10)})
attr doif_du_Wanduhr do always
attr doif_du_Wanduhr room Wanduhr

setstate doif_du_Wanduhr initialized
setstate doif_du_Wanduhr 2017-12-10 13:38:06 Device TV
setstate doif_du_Wanduhr 2017-12-10 12:17:57 cmd 0
setstate doif_du_Wanduhr 2017-12-10 13:38:06 e_TV_STATE on
setstate doif_du_Wanduhr 2017-12-10 13:14:59 e_du_Wanduhr_STATE Glockenspiel
setstate doif_du_Wanduhr 2017-12-10 12:17:57 state initialized
setstate doif_du_Wanduhr 2017-12-10 12:17:57 timer_01_c01 11.12.2017 10:00:00
setstate doif_du_Wanduhr 2017-12-10 12:17:57 timer_02_c01 10.12.2017 20:00:01
setstate doif_du_Wanduhr 2017-12-10 13:30:00 timer_03_c01 10.12.2017 13:45:00
setstate doif_du_Wanduhr 2017-12-10 12:17:57 timer_04_c02 11.12.2017 10:00:00
setstate doif_du_Wanduhr 2017-12-10 12:17:57 timer_05_c02 10.12.2017 20:00:01
setstate doif_du_Wanduhr 2017-12-10 13:30:00 timer_06_c02 10.12.2017 13:45:00

Und weils hier die Tage um das schalten zur Weihnachtszeit ging hab ich noch ein zusätzliches DOIF definiert daß das Glockenspiel zur richtigen Zeit (hier ab 25.11. - 08.01.) aktiviert, sonst den BigBen.

Code Auswählen Erweitern

defmod Weihnachtszeit DOIF (([00:00] or ["^global$:^MODIFIED $SELF$"]) and ($md ge "11-25" or $md le "01-08")) (set du_Wanduhr Glockenspiel) DOELSE (set du_Wanduhr BigBen)
attr Weihnachtszeit cmdState on|off
attr Weihnachtszeit do always
attr Weihnachtszeit room Wanduhr

setstate Weihnachtszeit on
setstate Weihnachtszeit 2017-12-10 13:14:59 Device global
setstate Weihnachtszeit 2017-12-10 13:14:59 cmd 1
setstate Weihnachtszeit 2017-12-10 13:14:59 cmd_event global
setstate Weihnachtszeit 2017-12-10 13:14:59 cmd_nr 1
setstate Weihnachtszeit 2017-12-10 13:14:59 state on
setstate Weihnachtszeit 2017-12-10 13:14:59 timer_01_c01 11.12.2017 00:00:00

Der Switch im FTUI (siehe auch Bilder im Anhang zu den jeweiligen Status ) :

Code Auswählen Erweitern

<header>Wanduhr</header>
    <div class="hbox items-space-around">
      <div class="vbox">
           <div class="large"
             data-type="switch"
             data-device="du_Wanduhr"   
             data-states='["Glockenspiel","BigBen","off"]'
             data-set-states='["BigBen","off","Glockenspiel"]'
             data-colors='["black","black","#808080"]'
             data-background-colors='["cornflowerblue","cornflowerblue","#3D4C66"]'
             data-icons='["fa-bell-o","fa-university","fa-power-off"]'>
          </div>
           <div data-type="label"
              data-device="du_Wanduhr"
              data-get="state"
      class="cell darker">
           </div>
      </div>
    </div>

Schönen 2.Advent
       

[idansch]

Das sieht ja schon einmal super aus. Hast du den Code in der 99_MyUtils.pm auch noch verändert bzw. angepasst? Auf Seite 1 wurde nur die sub WandUhr($) definiert. Oder habe ich da etwas übersehen.