Page 1 of 1
WeatherXML icons in HST
Posted: Mon Dec 19, 2011 12:08 am
by Herbus
Ik ben nu al een paar uur aan het pielen en krijg het niet voor elkaar. Het tonen van de icons van WeatherXML in HST.
Als ik devive "Day Image 1" selecteer laat HST de standaard HS bullet zien in plaats van de icon van de weersituatie van die dag.
Wie gebruikt WeatherXML icm met HST en weet hoe ik een meerdaagse verwachting met icons kan tonen?
Re: WeatherXML icons in HST
Posted: Tue Dec 27, 2011 3:34 pm
by Herbus
Gebruikt iemand WeatherXML icm HST of ben ik de enige? (dan stop ik namelijk met zoeken naar een oplossing

)
Is anyone able to show the Condition Images in HST? I only get the default HS bullet. I would like to show "Day Image 1" up to "Day Image 5" for a weather forecast in HST.
Re: WeatherXML icons in HST
Posted: Tue Dec 27, 2011 4:03 pm
by ralhop
ik gebruik dit script voor dagelijkse weergave:
http://img.weather.weatherbug.com/forec ... /en/trans/[$REGEXMATCH=[$RSS=
http://api.wxbug.net/getLiveWeatherRSS. ... n->icon->0]->(cond.{3})].png
wel even je eigen citycode ingeven.
suc6
Re: WeatherXML icons in HST
Posted: Thu Jan 05, 2012 11:02 pm
by Herbus
Ik heb het opgelost door de image zelf in de device te schrijven:
Sub Main(parm as object)
Dim deviceImage As String = ""
Dim stringImage As String = ""
Dim imageSTR As String = ""
Dim hs As Object
Dim counter
hs = CreateObject("Homeseer.Application")
For counter = 1 To 5 'dag 1 t/m 5
deviceImage = "Y" + CStr((counter * 10) + 7) 'device with image
stringImage = "Y" + CStr((counter * 10) + 6) 'device with string
imageSTR = "\images\weathericons\condition\" + hs.DeviceString(stringImage)
hs.SetDeviceValue(deviceImage, 17)
hs.DeviceValuesGraphicsAdd(deviceImage, imageSTR & Chr(2) & "17")
Next counter
End Sub
Misschien niet de mooiste oplossing, wel effectief.