Super VFO - Private Homepage von DL8DH

Direkt zum Seiteninhalt

Hauptmenü

Super VFO

Arduino Projekte
V2.99.1 IHEILB14: x, AWEKAS: n 20.04.2018, 19:30 stürmisch 25.8 49 1.0 km/h aus O-NO 67 Grad / O-NO 67 1.0 2.1 1018.6 -7.2 hPa/6h 25.8
%ws_vers% IHEILB14: IXXXXXXX, AWEKAS: nnnnn %unit_off% %alwaysseppoint_on% %ws_date%, %ws_time% %forecast_txt% %curval[2]% %curval[18]% %curval[35]% km/h aus %wind_txt% %curval[36]% Grad / %wind_txt% %curval[36]% %curval[35]% %curval[45]% %curval[33]% %ws_baro6h% hPa/6h %curval[44]%
! Wetterdaten v1.0 von openweathermap in Sysvar by Prickelpitt ! Suchwörter definieren: var KeyWrd1 = "temp"; var KeyWrd2 = "pressure"; var KeyWrd3 = "humidity"; var KeyWrd4 = "speed"; var KeyWrd5 = "deg"; var KeyWrd6 = "description"; ! !Variablen für Suchroutine integer index = -2; integer strlen = 0; !Hier die Daten aus I-Net abrufen, appid entsprechend anpassen !Script für Internetabruf der Daten von alchy var url = "http://api.openweathermap.org/data/2.5/weather?id=IHEILB14&units=metric&lang=de&appid=xxx"; dom.GetObject("CUxD.CUX2801001:1.CMD_SETS").State("wget -q -O - '"#url#"'"); dom.GetObject("CUxD.CUX2801001:1.CMD_QUERY_RET").State(1); string rueckgabe = dom.GetObject("CUxD.CUX2801001:1.CMD_RETS").State(); !Hier haben wir alle Daten in einem String, nun können wir nach unseren KeyWrds suchen !Die Fkt ToLatin beseitgt das Problem mit den Umlauten rueckgabe = rueckgabe.ToLatin(); WriteLine(rueckgabe); !Ab hier spezifischer Teil für jedes Element was gelesen werden soll !Erstes Element = Aussentemperatur index = rueckgabe.Find(KeyWrd1); strlen = KeyWrd1.Length(); var sbtmp = rueckgabe.Substr((index+strlen+2),50).StrValueByIndex(",",0); dom.GetObject("W_Aussentemp").State(sbtmp.ToFloat()); !Zweites Element = Luftdruck index = rueckgabe.Find(KeyWrd2); strlen = KeyWrd2.Length(); sbtmp = rueckgabe.Substr((index+strlen+2),50).StrValueByIndex(",",0); dom.GetObject("W_Luftdruck").State(sbtmp.ToFloat()); !Drittes Element = Luftfeuchte index = rueckgabe.Find(KeyWrd3); strlen = KeyWrd3.Length(); sbtmp = rueckgabe.Substr((index+strlen+2),50).StrValueByIndex(",",0); dom.GetObject("W_Luftfeuchte").State(sbtmp.ToFloat()); !Viertes Element = W_Windgeschw index = rueckgabe.Find(KeyWrd4); strlen = KeyWrd4.Length(); sbtmp = rueckgabe.Substr((index+strlen+2),50).StrValueByIndex(",",0); dom.GetObject("W_Windgeschw").State(sbtmp.ToFloat()*3.6); !Fünftes Element = W_Windrichtung !Prüfen ob Wert überhaupt vorhanden index = rueckgabe.Find(KeyWrd5); strlen = KeyWrd5.Length(); if(index != -1) { !Alles normal... sbtmp = rueckgabe.Substr((index+strlen+2),50).StrValueByIndex("}",0); dom.GetObject("W_Windrichtung").State(sbtmp.ToFloat()); } else { !Keine W-Richt vorhanden, daher auf 0 setzen dom.GetObject("W_Windrichtung").State(0.0); } !SechstesElement = W_Wetter index = rueckgabe.Find(KeyWrd6); strlen = KeyWrd6.Length(); sbtmp = rueckgabe.Substr((index+strlen+3),50); var sbtmp2 = sbtmp.StrValueByIndex(",",0); sbtmp2 = sbtmp2.Substr(0,sbtmp2.Length()-1); WriteLine(sbtmp); WriteLine(sbtmp2); dom.GetObject("W_Wetter").State(sbtmp2.ToString());
Weather Underground Personal Weather Station http://wunderground.com/weatherstation/ http://icons.wunderground.com/graphics/bh-wui_logo.gif Weather Underground http://wunderground.com/weatherstation/ Heilbronn, Heilbronn, Heilbronn Heilbronn 49.136032 9.216696 574 ft IHEILB14 other Last Updated on December 1, 4:39 PM CET Sun, 01 Dec 2019 15:39:50 GMT 37.6 F (3.1 C) 37.6 3.1 71 Calm ENE 61 0.2 1.1 30.01" (1016.3 mb) 1016.3 30.01 28.9 F (-1.7 C) 28.9 -1.7 0 0.0 0.00 in (0.0 mm) 0.00 0.0 0.00 in (0.0 cm) 0.00 0.0 cm http://www.wunderground.com/weatherstation/WXDailyHistory.asp?ID=IHEILB14 http://www.wunderground.com/cgi-bin/findweather/getForecast?query=49.136032,9.216696
Zurück zum Seiteninhalt | Zurück zum Hauptmenü