Falls die Vorhersagen von OpenWeatherMap für den eigenen Ort nicht passen - hier geht es zur Version mit AccuWeather
Ich möchte hier mein Skript für die Wettervorhersage über OpenWeatherMap vorstellen. Es gibt ja viele verschiedene Skripte, die hier bereits veröffentlicht wurden und aus denen ich auch viele Infos gezogen habe. Erwähnen möchte ich nur die von
DimMyPrp, Mike42, funkleuchtturm
Letztlich hatten aber alle Lösungen für mich den einen oder anderen Nachteil. Wichtig war mir eine schlanke Lösung ohne hunderte von Codezeilen mit einem möglichst effektiven, aber auch fehlertoleranten Code. Da HM-Skript keine Arrays kennt, ist die Lösung nicht so elegant, wie ich es mir wünschen würde, aber im Rahmen der Möglichkeiten ging es nicht anders.
Was macht das Skript:
es kann für den aktuellen und den folgenden Tag die Wettervorhersage von OpenWeatherMap abrufen und in Systemvariablen schreiben. Dabei kann man frei definieren, welche Werte abgerufen werden sollen und wahlweise Durchschnitt, min und/oder max schreiben lassen. Windgeschwindigkeit wird (wahlweise) in km/h umgerechnet.
Was kann man damit machen:
Zum Beispiel anhand der Vorhersage für Bewölkung die Rolläden zur Beschattung steuern oder mit der Temperaturvorhersage die Heizung oder mit den Daten zur Regenmenge die Beregnungsanlage im Garten.
Was macht es nicht:
- es gibt keine Texte oder Piktogramme aus
- es legt keine Systemvariablen an, das muss man schon selber machen. Da das aber eine einmalige Sache ist, sollte das zu schaffen sein. Die Systemvariablen müssen vom Typ Zahl sein und einen ausreichend großen Wertebereich haben. Der Name der SV's ist frei wählbar; sollte sicherheitshalber einmalig sein (also nicht identisch mit Programm, Gerät oder Kanal-Namen) und wird dann im Deklarationsteil des Skripts in die Listen NameSVavg0, etc. eingetragen. Vorschlag für typische Daten:
- Temperatur -50 - 50 (°C)
- Luftfeuchte 0 - 100 (%)
- Niederschlag 0 - 1000 (mm)
- Windgeschwindigkeit 0 - 300 (km/h)
Ein alternativer Ansatz: mit meinem JSON-Skript kann man nahezu jeden übermittelten Wert in eine Systemvariable übertragen ohne größeren Konfigurationsaufwand. Dazu muss man in der URL für den API-Call nur mode=xml durch mode=json austauschen. Dafür sind die Daten dann "pur". Was zugegebenermaßen nur für stündliche Daten Sinn macht. Ansonsten ist die JSON Antwort auch zu komplex zur Auswertung.
Vorraussetzungen:
CCU mit Firmware ab 3.45.7
Addon CUxD installiert
benötigte Fähigkeiten:
Grundkenntnisse in der WebUI-Programmierung (Anlernen von Geräten, Anlegen und Ändern von Programmen, Einfügen von Skripten)
Grundkenntnisse in der Skript-Programmierung (einfache Anpassungen, korrektes und akkurates Setzen von " oder ,)
Anlegen und Konfigurieren von CUxD-Geräten
Anlegen von Systemvariablen
Wie wendet man es an:
Zunächst muss man einen kostenlosen (free) API-Key bei OWM beantragen:
https://openweathermap.org/api
Die erhaltene API-ID hinter APPID= in Zeile 6 des Skript eintragen.
Dann die Standort-ID ermitteln, in dem man in OWM nach dem eigenen Ort sucht. Man erhält eine URL wie https://openweathermap.org/city/2950159, wobei 2950159 die Orts-ID ist, die man dann ebenfalls in Zeile 6 hinter id= einträgt.
Die dadurch entstandene URL wie z.B.
Code: Alles auswählen
http://api.openweathermap.org/data/2.5/forecast?mode=xml&units=metric&id=2950159&APPID=5e604af848492feb2e7e674c8f2431a7In Zeile 7 muss die Seriennummer des CUxD-Device (CUxD-Gerätetyp (28) System) eingetragen werden, das für den System.Exec-Ersatz / Datenabruf per HTTP genutzt wird. Man könnte es auch ohne CUxD lösen, aber ich nutze eben diese Lösung und wenn man eine virtuelle Wetterstation oder Sensor mit Daten beschicken will, braucht man es eh. Fragen dazu? Siehe Link
Es kann auch nicht schaden sich den Timeout für den genutzten CUxD-Kanal anzusehen (Eigenschaft EXEC_TIMEOUT in den Geräteeinstellungen - 1 Minute maximal. Wenn der Server bis dahin keine Antwort geliefert hat, kommt auch keine mehr)
Das Skript einmal täglich aufrufen. Wenn man sowieso ein Programm hat, das einmal kurz nach Mitternacht läuft, kann man dies z.B. dafür nutzen. Die Ausgabe des Skript ist vom Ausführungszeitpunkt abhängig! Zumindest die Ergebnisse für Day0 = heute. Da es sich um Vorhersagen handelt, erhält man um 00:15 eine andere Ausgabe, als um 17:00. Schon allein, weil 17 Stunden des Tages bereits Vergangenheit sind. Natürlich kann man sich das auch zunutze machen und mit einem Lauf um 17:00 die Daten aus Day0 für den abend und die von Day1 für den nächsten Tag nutzen.
Das Skript liefert so wie es ist die Daten für Temperatur, Windgeschwindigkeit, Luftfeuchtigkeit und Regenmenge. Braucht man mehr oder weniger Daten muss man die Konfigurationsdaten anpassen. Die Konfigurationsdaten bestehen immer aus einer Auflistung, die durch Komma getrennt ist. Entsprechend wird in jeder Konfigurationsvariablen die gleiche Anzahl von Einträgen erwartet!
Code: Alles auswählen
! === Hier anpassen ===
integer AnzahlTags = 4; ! Anzahl der eingetragenen XML-Tags
string xmlTagStart = "windSpeed,temperature unit=,humidity value,precipitation unit="; ! XML-Start-Tag
string xmlTagEnd = "/windSpeed,/temperature,/humidity,/precipitation"; ! XML-End-Tag
string xmlWertStart = "mps=,value=,value=,value="; ! Suchstring vor dem Wert
string xmlWertEnd = " unit=, min=, unit=, type="; ! Suchstring nach dem Wert - LEERZEICHEN beachten
string xmlWertStartOffset = "5,7,7,7"; ! Länge Wert-Suchstring + Anzahl Zeichen bis zum Wert
string xmlWertEndOffset = "6,8,8,8"; ! StartOffset + Anzahl Zeichen zwischen Zahl und Ende-String
string NameSVavg0 = "Forecast_Wind_heute,Forecast_Temp_heute,Forecast_Feuchte_heute,FC_Regen_heute_gesamt"; ! Namen der Systemvariablen fuer Durchschnitt aktueller Tag
string NameSVmin0 = "FC_Wind_heute_min,FC_Temp_heute_min,FC_Feuchte_heute_min,FC_Regen_heute_min"; ! Namen der Systemvariablen fuer min-Wert
string NameSVmax0 = "FC_Wind_heute_max,FC_Temp_heute_max,FC_Feuchte_heute_max,FC_Regen_heute_max"; ! Namen der Systemvariablen fuer max-Wert
string NameSVavg1 = "Forecast_Wind_morgen,Forecast_Temp_morgen,Forecast_Feuchte_morgen,FC_Regen_morgen_gesamt"; ! Namen der Systemvariablen fuer Durchschnitt nächster Tag
string NameSVmin1 = "FC_Wind_morgen_min,FC_Temp_morgen_min,FC_Feuchte_morgen_min,FC_Regen_morgen_min"; ! Namen der Systemvariablen fuer min-Wert
string NameSVmax1 = "FC_Wind_morgen_max,FC_Temp_morgen_max,FC_Feuchte_morgen_max,FC_Regen_morgen_max"; ! Namen der Systemvariablen fuer max-Wert
integer WindFlag = 0; ! Position der Winddaten (zur Umrechnung in km/h) - auf 999 setzen, wenn keine Umrechnung gewünscht oder kein Wind ausgewertet werden soll
integer RegenFlag = 3; ! Position der Regendaten zur Ausgabe der Gesamtmenge - auf 999 setzen, wenn stattdessen der Tagesdurchschnitt gewünscht ist2) xmlTagStart und xmlTagEnd: der Text, der den jeweiligen Wert im XML einrahmt
3) xmlWertStart und xmlWertEnd: Texte vor und hinter dem gesuchten Wert
4) xmlWertStartOffset und xmlWertEndOffset: entsprechend anpassen, Erklärung im Quelltext
nameSVavg0, nameSVmin0, nameSVmax0, nameSVavg1, nameSVmin1, nameSVmax1: Name der Systemvariablen, die den Durchschnittswert (avg), das Minimum (min) und Maximum (max) des jeweiligen Tages (0=heute, 1=morgen) aufnimmt. Diese SV müssen vorher in der WebUI als Zahlenwert angelegt werden. Für Werte die man nicht benötigt, kann man die SV weglassen. Wichtig ist kein Leerzeichen stehen lassen, aber das Komma.
z.B.
string NameSVavg1 = ",,,";
würde keine Durchschnittswerte für morgen abspeichern
string NameSVmax0 = "Forecast_Wind,Forecast_Temp,,";
speichert für heute Maximalwerte für Wind und Temperatur, aber für Feuchtigkeit und Regen nichts
5) WindFlag: Position der Winddaten in der Auflistung. Dabei startet die Zählung mit 0. Will man keine Umrechnung von m/s in km/h, oder wertet gar keine Windgeschwindigkeit aus, dann trägt man hier 999 ein.
6) RegenFlag: Position der Regendaten in der Auflistung. Dabei startet die Zählung mit 0. Will man keine statt Tages-Gesamtmenge durch den Durchschnitt, oder wertet gar keinen Regen aus, dann trägt man hier 999 ein.
Woher weiß man, was man unter xmlTagStart oder xmlWertEnd eintragen muss? Einfach nach diesem Schema vorgehen:
Bei Fragen fragen. ABER - ich beantworte keine "geht bei mir nicht" Beiträge. Möglichst viel Input liefern. Läuft die Originalversion? Systemvariablen angelegt? Screenshot! URL im Browser funktioniert? WAS wurde geändert? Als CODE in den Beitrag kopieren! Wie sieht die Ausgabe aus? WAS ist der Fehler: Also was für eine Ausgabe wird erwartet? Welche Ausgabe erhält man, wenn man es unter "Skript testen" laufen lässt? Als CODE in den Beitrag kopieren!
CODE - was ist das?
- CODE.JPG (15.58 KiB) 6564 mal betrachtet
Und hier das Skript:
Code: Alles auswählen
! Wettervorhersage V4.1b (MichaelN 19.08.2020)
! GPL-3.0-or-later
! benötigte Systemvariablen anlegen
! in func bitte unter &id= die Ortskennung und unter &APPID= den API-Schlüssel eintragen
! in CUXD_Device bitte die Kennung des Gerätes eintragen
string func = "wget -q -O - 'http://api.openweathermap.org/data/2.5/forecast?mode=xml&units=metric&id=ORTSID&APPID=APPID'";
string CUXD_Device = "CUxD.CUX2801001:1";
! === Hier anpassen ===
integer AnzahlTags = 4; ! Anzahl der eingetragenen XML-Tags
string xmlTagStart = "windSpeed,temperature unit=,humidity value,precipitation"; ! XML-Start-Tag
string xmlTagEnd = "/windSpeed,/temperature,/humidity,/precipitation"; ! XML-End-Tag
string xmlWertStart = "mps=,value=,value=,value="; ! Suchstring vor dem Wert
string xmlWertEnd = " unit=, min=, unit=, type="; ! Suchstring nach dem Wert - LEERZEICHEN beachten
string xmlWertStartOffset = "5,7,7,7"; ! Länge Wert-Suchstring + Anzahl Zeichen bis zum Wert
string xmlWertEndOffset = "6,8,8,8"; ! StartOffset + Anzahl Zeichen zwischen Zahl und Ende-String
string NameSVavg0 = "Forecast_Wind_heute,Forecast_Temp_heute,Forecast_Feuchte_heute,FC_Regen_heute_gesamt"; ! Namen der Systemvariablen fuer Durchschnitt aktueller Tag
string NameSVmin0 = "FC_Wind_heute_min,FC_Temp_heute_min,FC_Feuchte_heute_min,FC_Regen_heute_min"; ! Namen der Systemvariablen fuer min-Wert
string NameSVmax0 = "FC_Wind_heute_max,FC_Temp_heute_max,FC_Feuchte_heute_max,FC_Regen_heute_max"; ! Namen der Systemvariablen fuer max-Wert
string NameSVavg1 = "Forecast_Wind_morgen,Forecast_Temp_morgen,Forecast_Feuchte_morgen,FC_Regen_morgen_gesamt"; ! Namen der Systemvariablen fuer Durchschnitt nächster Tag
string NameSVmin1 = "FC_Wind_morgen_min,FC_Temp_morgen_min,FC_Feuchte_morgen_min,FC_Regen_morgen_min"; ! Namen der Systemvariablen fuer min-Wert
string NameSVmax1 = "FC_Wind_morgen_max,FC_Temp_morgen_max,FC_Feuchte_morgen_max,FC_Regen_morgen_max"; ! Namen der Systemvariablen fuer max-Wert
integer WindFlag = 0; ! Position der Winddaten (zur Umrechnung in km/h) - auf 999 setzen, wenn keine Umrechnung gewünscht oder kein Wind ausgewertet werden soll
integer RegenFlag = 3; ! Position der Regendaten zur Ausgabe der Gesamtmenge - auf 999 setzen, wenn stattdessen der Tagesdurchschnitt gewünscht ist
! === ab hier nichts mehr anpassen ===
! Suchstrings und Offset-Werte zum extrahieren der Zeit
string xmlTimeStart = "time from=";
string xmlTimeEnd = " to=";
integer xmlTimeStartOffset = 11;
integer xmlTimeEndOffset = 21;
integer xmlSkip = 100;
! XML-Antwort von OpenWeatherMaps
string recXML;
string TMPrecXML;
! Arbeitsvariablen
string wert1;
string wert2;
time zeit;
integer counter; ! Sicherheitszaehler gegen Endlosschleife
integer StartPos;
integer EndPos;
integer index;
real Wert_avg;
real Wert_min;
real Wert_max;
real Wert_tmp;
object SV;
! Datumswerte
string Day0; ! heute
string Day1; ! morgen
! Diese Variablen enthalten am Schluss die Ergebnisse
string Day1_avg; ! Werteliste für morgen
string Day0_avg; ! Day0 gibt nur am Tageswechsel korrekte Werte aus
! ENDE Deklarationen und Initialisierungen
! ******************************************************************************************
! Datum als String für die nächsten 3 Tage zum suchen
Day0 = system.Date("%F"); ! Day0 = heute
zeit = Day0.ToTime()+24*3600;
Day1= zeit.Format("%F"); ! Day1 = Datumsstring fuer morgen
! Abruf der Daten
dom.GetObject(CUXD_Device#".CMD_SETS").State(func);
dom.GetObject(CUXD_Device#".CMD_QUERY_RET").State(1);
recXML = dom.GetObject(CUXD_Device#".CMD_RETS").State();
if(!recXML)
{
(dom.GetObject(ID_DATAPOINTS)).Get(CUXD_Device#".CMD_EXEC").State("logger -t script -p user.debug [MichaelN Script OpenWeatherMap V4.1: keine Antwort vom Wetter-Server!]");
WriteLine("MichaelN Script OpenWeatherMap V4.1: keine Antwort vom Wetter-Server!");
quit;
}
recXML = recXML.Substr(recXML.Find("forecast")); ! nur den Forecast-Teil nutzen
TMPrecXML = recXML;
! Werte auslesen
counter = 0;
index = 0;
StartPos = recXML.Find(xmlTagStart.StrValueByIndex(",",0));
while ( (StartPos>=0) && (counter<100) ){
counter = counter + 1;
wert1 = recXML.Substr(recXML.Find(xmlTimeStart)+xmlTimeStartOffset, recXML.Find(xmlTimeEnd)-recXML.Find(xmlTimeStart)+xmlTimeEndOffset);
! Day0
if (wert1==Day0) {
index = 0;
while ( index < AnzahlTags ) {
StartPos = recXML.Find(xmlTagStart.StrValueByIndex(",",index));
EndPos = recXML.Find(xmlTagEnd.StrValueByIndex(",",index));
wert2 = recXML.Substr(StartPos, EndPos-StartPos); ! nur das relevante Tag
WriteLine("DEBUG TAG0: "#wert2);
StartPos = wert2.Find(xmlWertStart.StrValueByIndex(",",index));
EndPos = wert2.Find(xmlWertEnd.StrValueByIndex(",",index));
wert2 = wert2.Substr(StartPos+xmlWertStartOffset.StrValueByIndex(",",index).ToInteger(),(EndPos-StartPos)-xmlWertEndOffset.StrValueByIndex(",",index).ToInteger());
Day0_avg = Day0_avg # wert2 # ",";
! *** DEBUG
WriteLine("c/i/w1/w2:"#counter#"/"#index#"/"#wert1#" "#wert2);
index = index + 1;
}
}
! Day1
if (wert1==Day1) {
index = 0;
while ( index < AnzahlTags ) {
StartPos = recXML.Find(xmlTagStart.StrValueByIndex(",",index));
EndPos = recXML.Find(xmlTagEnd.StrValueByIndex(",",index));
wert2 = recXML.Substr(StartPos, EndPos-StartPos); ! nur das relevante Tag
WriteLine("DEBUG TAG1: "#wert2);
StartPos = wert2.Find(xmlWertStart.StrValueByIndex(",",index));
EndPos = wert2.Find(xmlWertEnd.StrValueByIndex(",",index));
wert2 = wert2.Substr(StartPos+xmlWertStartOffset.StrValueByIndex(",",index).ToInteger(),(EndPos-StartPos)-xmlWertEndOffset.StrValueByIndex(",",index).ToInteger());
Day1_avg = Day1_avg # wert2 # ",";
! *** DEBUG
WriteLine("c/i/w1/w2:"#counter#"/"#index#"/"#wert1#" "#wert2);
index = index + 1;
}
}
xmlSkip = recXML.Find("/time")+5; ! abgearbeiteten Block ausschneiden
recXML = recXML.Substr(xmlSkip);
StartPos = recXML.Find(xmlTagStart.StrValueByIndex(",",0));
}
! Werte aus Ergebnisliste fischen und wieder richtig zuordnen
counter = 0;
wert1 = "";
while ( counter < AnzahlTags ) {
! Day0
index = AnzahlTags;
Wert_avg = 0.0;
Wert_min = 1000.0;
Wert_max = -1000.0;
EndPos = 0;
foreach(wert2,Day0_avg.Split(",")) {
if ( (index % AnzahlTags) == counter ) {
! jeden x. Eintrag auslesen
Wert_tmp = wert2.ToFloat();
! Wind in km/h umrechnen?
if ( WindFlag == counter ) { Wert_tmp = Wert_tmp*3.6; }
Wert_avg = Wert_avg + Wert_tmp;
EndPos = EndPos + 1;
if (Wert_min>Wert_tmp) {Wert_min=Wert_tmp;}
if (Wert_max<Wert_tmp) {Wert_max=Wert_tmp;}
! *** DEBUG
WriteLine("c/i/EP/w:"#counter#"/"#index#"/"#EndPos#"/"#Wert_tmp);
}
index = index + 1;
}
! Durchschnitt berechnen
if ( RegenFlag <> counter ) {
Wert_avg = Wert_avg/EndPos; }
! Werte in die SV schieben
! *** DEBUG
WriteLine(NameSVavg0.StrValueByIndex(",",counter));
WriteLine(Wert_avg);
WriteLine(NameSVmin0.StrValueByIndex(",",counter));
WriteLine(Wert_min);
WriteLine(NameSVmax0.StrValueByIndex(",",counter));
WriteLine(Wert_max);
SV = dom.GetObject(ID_SYSTEM_VARIABLES).Get(NameSVavg0.StrValueByIndex(",",counter));
if (SV) {SV.State(Wert_avg);}
SV = dom.GetObject(ID_SYSTEM_VARIABLES).Get(NameSVmin0.StrValueByIndex(",",counter));
if (SV) {SV.State(Wert_min);}
SV = dom.GetObject(ID_SYSTEM_VARIABLES).Get(NameSVmax0.StrValueByIndex(",",counter));
if (SV) {SV.State(Wert_max);}
! *** DEBUG
wert1 = wert1 #"Day0 "# xmlTagStart.StrValueByIndex(",",counter) #" avg/min/max:"# Wert_avg.ToString(1) #"/"# Wert_min.ToString(1) #"/"# Wert_max.ToString(1) #" +++ ";
! Day1
index = AnzahlTags;
Wert_avg = 0.0;
Wert_min = 1000.0;
Wert_max = -1000.0;
EndPos = 0;
foreach(wert2,Day1_avg.Split(",")) {
if ( (index % AnzahlTags) == counter ) {
! jeden x. Eintrag auslesen
Wert_tmp = wert2.ToFloat();
! Wind in km/h umrechnen?
if ( WindFlag == counter ) { Wert_tmp = Wert_tmp*3.6; }
Wert_avg = Wert_avg + Wert_tmp;
EndPos = EndPos + 1;
if (Wert_min>Wert_tmp) {Wert_min=Wert_tmp;}
if (Wert_max<Wert_tmp) {Wert_max=Wert_tmp;}
! *** DEBUG
WriteLine("c/i/EP/w:"#counter#"/"#index#"/"#EndPos#"/"#Wert_tmp);
}
index = index + 1;
}
! Durchschnitt berechnen
if ( RegenFlag <> counter ) {
Wert_avg = Wert_avg/EndPos; }
! Werte in die SV schieben
! *** DEBUG
WriteLine(NameSVavg1.StrValueByIndex(",",counter));
WriteLine(Wert_avg);
WriteLine(NameSVmin1.StrValueByIndex(",",counter));
WriteLine(Wert_min);
WriteLine(NameSVmax1.StrValueByIndex(",",counter));
WriteLine(Wert_max);
SV = dom.GetObject(ID_SYSTEM_VARIABLES).Get(NameSVavg1.StrValueByIndex(",",counter));
if (SV) {SV.State(Wert_avg);}
SV = dom.GetObject(ID_SYSTEM_VARIABLES).Get(NameSVmin1.StrValueByIndex(",",counter));
if (SV) {SV.State(Wert_min);}
SV = dom.GetObject(ID_SYSTEM_VARIABLES).Get(NameSVmax1.StrValueByIndex(",",counter));
if (SV) {SV.State(Wert_max);}
! *** DEBUG
wert1 = wert1 #"Day1 "# xmlTagStart.StrValueByIndex(",",counter) #" avg/min/max:"# Wert_avg.ToString(1) #"/"# Wert_min.ToString(1) #"/"# Wert_max.ToString(1) #" +++ ";
counter = counter + 1;
}
! *** DEBUG
WriteLine(wert1);
precipitation. Siehe das Beispiel, das ich in der Grafik dargestellt habe.
Wobei da eigentlich nur der Faktor 8 dazwischenliegt, da OWM die Daten in 3-Stunden-Blöcke liefert. 