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?
WeatherXML icons in HST
WeatherXML icons in HST
Herbus (Jos)
Re: WeatherXML icons in HST
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.
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.
Herbus (Jos)
Re: WeatherXML icons in HST
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
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
Ralph
Re: WeatherXML icons in HST
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.
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.
Herbus (Jos)