2015 Stump the InduSoft Web Studio Expert!
•Download as PPTX, PDF•
1 like•985 views
Join InduSoft for a free webinar in which we challenge InduSoft Web Studio expert, Fabio Terezinho - V.P. of Consulting Services at InduSoft, with your toughest questions about InduSoft Web Studio! Ask how to create reports, trigger alarms, or get tips on developing applications more quickly.
Report
Share
More Related Content
Similar to 2015 Stump the InduSoft Web Studio Expert!
Similar to 2015 Stump the InduSoft Web Studio Expert! (20)
More from AVEVA
More from AVEVA (20)
Recently uploaded
Recently uploaded (20)
2015 Stump the InduSoft Web Studio Expert!
- 1. Stump the Expert December 2015
- 2. THANK YOU! Together, we are stronger! 15+ years of innovation, collaboration, evolution, and success!
- 3. Q&A
- 4. Weather Information Function GetLatLngFromAddress(address) Dim Lat, Lng, url url = "http://maps.googleapis.com/maps/api/geocode/xml?address=" & address Lat = GetXMLNodeValue(url, "result/geometry/location/lat") Lng = GetXMLNodeValue(url, "result/geometry/location/lng") GetLatLngFromAddress = Lat & "," & Lng End Function Function GetXMLNodeValue(url, nodePath) Dim oXML, oNode, ret Set oXML = CreateObject("Microsoft.XMLDOM") oXML.async = False Call oXML.load(url) Set oNode = oXML.documentElement.selectSingleNode(nodePath) ret = oNode.Text GetXMLNodeValue = ret End Function Function GetMetarAviationWeather(address, variableName) Dim latLng, lat, lng, url, nodePath latLng = Split(GetLatLngFromAddress(address), ",") lat = latLng(0) lng = latLng(1) url = "https://www.aviationweather.gov/adds/dataserver_current/httpparam?dataSource=metars&requestType=retrieve&format=xml&r adialDistance=20;" & lng & "," & lat & "&hoursBeforeNow=3" nodePath = "data/METAR/" & variableName GetMetarAviationWeather = GetXMLNodeValue(url, nodePath) End Function Dim variableName variableName = "temp_c" $w.temp = GetMetarAviationWeather($w.address, variableName) variableName = "dewpoint_c" $w.dp = GetMetarAviationWeather($w.address, variableName) $w.rh = 100 - 5*($w.temp - $w.dp)
- 5. THANK YOU!