Wetter vorlesen lassen: Unterschied zwischen den Versionen
KKeine Bearbeitungszusammenfassung |
(kat) |
||
(6 dazwischenliegende Versionen von 4 Benutzern werden nicht angezeigt) | |||
Zeile 205: | Zeile 205: | ||
== Links == | == Links == | ||
* Vorstellung und Diskussion im | * Vorstellung und Diskussion im {{Link2Forum|Topic=28924|LinkText=FHEM Forum}} | ||
* [[Text2Speech | Beschreibung TTS-Modul]] | |||
* [[Wetter und Wettervorhersagen]] | |||
[[Kategorie:Code Snippets]] | [[Kategorie:Code Snippets]] | ||
[[Kategorie:Akustische Ausgabe]] |
Aktuelle Version vom 14. November 2018, 12:36 Uhr
Dieser Code-Fragment ermöglicht die aktuellen Temperatur/Luftfeuchte und die Wettervorherssage mit Hilfe von Text2Speech-Modul vorlesen zu lassen.
FHEM-Devices
Es werden einige FHEM-Geräte benötigt:
- Das Text2Speak-Device (mit dem Namen 'tts')
- Der Temperatur/Feuchte-Sensor ('thSensor')
- Das Weather-Modul ('Wetter')
- (Die Namen können im Code anpasst werden.)
Code
Der Code muss in irgendein Modul hineingeschrieben werden. Z.B. 99_myUtils.pm
Konstanten
Die Konstanten legen die Geräte-Namen fest.
use constant { DEVICE_NAME_TTS => "tts", DEVICE_NAME_TH => "thSensor", DEVICE_NAME_WEATHER => "Wetter", };
Hauptmethoden
Die zwei Methoden, die die eigentliche Sprachausgabe auslösen: speakWetterDaten(;$) und speakWetterVorhersage(;$). Zum Testen kann man sie (wenn alles fertig eingetragen ist) direkt in der FHEM-Console (oder eben in der Commandline des Webinterfaces) eingeben:
{speakWetterDaten()}
und
{speakWetterVorhersage()}
Beide haben optionale Parameter, diese sind im Quellcode beschrieben.
############################################################################### # Sagt Wetterdaten an # Param: Art: Variante der Aussage: # 0: Kurzansage, 1: Normal ############################################################################### sub speakWetterDaten(;$) { my($art)=@_; if(!defined($art)){$art=1;} # TODO: Sauber / Abstraktionslayer erstellen my $temp = prepareNumToSpeak(rundeZahl0(ReadingsVal(+DEVICE_NAME_TH,"temperature","unbekannt"))); my $humi = prepareNumToSpeak(rundeZahl0(ReadingsVal(+DEVICE_NAME_TH,"humidity","unbekannt"))); if($art==0) { #speak("Aussentemperatur ".$temp." Grad. Feuchtigkeit ".$humi." Prozent.",0); speak($temp." Grad. Feuchtigkeit ".$humi." Prozent.",0); } if($art==1) { #speak("Die Aussentemperatur betraegt ".$temp." Grad. Die Luftfeuchtigkeit liegt bei ".$humi." Prozent.",0); speak("Temperatur ".$temp." Grad. Luftfeuchtigkeit ".$humi." Prozent.",0); } } ############################################################################### # Sagt Wettervorhersage an. # Parameter: Tag: Zahl 1-5 (1-heute, 2-morgen,...) Defaul=2 ############################################################################### sub speakWetterVorhersage(;$) { my ($day) = @_; if(!defined($day)) {$day=2;} # TODO: Sauber / Abstraktionslayer erstellen my $t1= ReadingsVal(+DEVICE_NAME_WEATHER,"fc".$day."_condition",undef); my $t2= ReadingsVal(+DEVICE_NAME_WEATHER,"fc".$day."_low_c",undef); my $t3= ReadingsVal(+DEVICE_NAME_WEATHER,"fc".$day."_high_c",undef); my $text = ""; if($day==1) { #$text = "Wetter heute "; $text = "Heute "; } if($day==2) { $text = "Morgen "; } if($day==3) { $text = "Uebermorgen "; } if($day>3) { $text = "Wetter in ".($day-1)." Tagen "; } if(defined($t1) && defined($t2) && defined($t3)) { $text.=$t1.". "; $text.="Temperatur von ".$t2." bis ".$t3." Grad."; if($day==1) { # gefuehlte Temperatur my $tg= ReadingsVal(+DEVICE_NAME_WEATHER,"wind_chill",undef); #$text.="Gefuehlte Temperatur aktuell ".$tg." Grad."; $text.="Gefuehlte ".$tg." Grad."; my $tw= ReadingsVal(+DEVICE_NAME_WEATHER,"wind_speed",undef); #$text.="Windgeschwindigkeit ".$tw." Kilometer pro Stunde."; $text.="Wind ".$tw." Kilometer pro Stunde."; } } else { $text="Leider keine Vorhersage verfuegbar."; } speak($text,0); }
Hilfsroutinen
Diese halten bestimmte (in den Hauptmethoden benötigte) Services bereit.
############################################################################### # Bereitet Zahlen zur Ansage auf. # Ersetzt Kommas und Punkte durch das Wort 'Komma'. ############################################################################### sub prepareNumToSpeak($) { my($text) = @_; $text =~ s/\./Komma/g; $text =~ s/,/Komma/g; return $text; } # Rundet eine Zahl ohne Nachkommastellen sub rundeZahl0($) { my($val)=@_; # Prüfen, ob numerisch if(int($val)>0) { $val = int($val+0.5); } return $val; } # Rundet eine Zahl mit 1-er Nachkommastelle sub rundeZahl1($) { my($val)=@_; # Prüfen, ob numerisch if(int($val)>0) { $val = int(10*$val+0.5)/10; } return $val; } ############################################################################### # Bereitet Texte zur Ansage auf. # Ersetzt Umlaute (ä=ae etc.) ############################################################################### sub prepareTextToSpeak($) { my($text) = @_; # TODO: Ist halt noch nicht fertig geworden ;) return $text; }
ja, und dann noch die Methode, die den TTS-Modul anspricht. Die Lautstärke wird je nach Tageszeit geändert (also Nachts leiser etc.)
###################################################### # Sprachausgabe ueber Text2Speak Modul # Parameter: # - text: Auszugebender Text # - volume (optional) - Lautstaerke # (wenn nicht vorhaneden: wird aktuell gesetzte # Lautstaerke benutzt, # wenn 1 oder groesser: dieser Wert wird benutzt, # wenn 0: adaptiv gesetzt je nach Fageszeit # (also Nachts wesentlich leiser) # (ggf. spaeter adaptiv durch ermitteln der Zimmerlautstaerke) ###################################################### sub speak($;$) { my($text,$volume)=@_; if(defined ($volume)) { if(int($volume) >=1) { fhem("set ".+DEVICE_NAME_TTS." volume ".$volume); } else { if(int($volume) == 0) { # Adaptiv my ($sec,$min,$hour,$mday,$month,$year,$wday,$yday,$isdst) = localtime; # 5 - sehr leise # 10 - ok # 50 - gut hoerbar # 100 - default / gut laut # # 20:00 - 22:00 => 10 # 22:00 - 05:00 => 5 # 05:00 - 07:00 => 10 # 07:00 - 08:00 => 50 # 08:00 - 20:00 => 100 if ($hour>=20 && $hour<22) {$volume=18} if ($hour>=22 || $hour<5) {$volume=8} if ($hour>=5 && $hour<7) {$volume=15} if ($hour>=7 && $hour<8) {$volume=40} if ($hour>=8 && $hour<20) {$volume=100} fhem("set ".+DEVICE_NAME_TTS." volume ".$volume); } } } fhem("set ".+DEVICE_NAME_TTS." tts ".prepareTextToSpeak($text)); }
Verwendung
Wie kann man das Ganze sinnvoll einsetzen? Na zum Beispiel indem man die Methoden auf ein Funkbutton oder ein Bewegungsmelder legt und sich so jeden Morgen nach dem Aufstehen auf die Welt da draußen vorbereiten lässt ;D
Was braucht man an Hardware? Außer Wettersensoren werden aktive Boxen o.ä. benötigt, die an den Line-Out Ausgang des Rechners angeschlossen werden. Und natürlich etwas zum Aktivieren der Ansage.
(Ich nutze einen in der Wand installierten Lautsprecher (Link, für die Sprachausgabe ausreichend, lässt sich in einer tiefen UP-Dose installieren) der über eine kleine 3Watt Verstärkerplatine an meinen Cubietruck angeschlossen ist.)
Links
- Vorstellung und Diskussion im FHEM Forum
- Beschreibung TTS-Modul
- Wetter und Wettervorhersagen