WeatherXML icons in HST

Alles m.b.t. HSTtouch (DUTCH forum)

Moderators: TANE, Ruud

Post Reply
Herbus
Member
Member
Posts: 363
Joined: Mon Mar 27, 2006 12:28 pm
Location: Netherlands

WeatherXML icons in HST

Post 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?
Herbus (Jos)
Herbus
Member
Member
Posts: 363
Joined: Mon Mar 27, 2006 12:28 pm
Location: Netherlands

Re: WeatherXML icons in HST

Post by Herbus »

Gebruikt iemand WeatherXML icm HST of ben ik de enige? (dan stop ik namelijk met zoeken naar een oplossing :wink: )

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)
ralhop
Member
Member
Posts: 99
Joined: Sat May 23, 2009 10:42 pm
Location: Germany

Re: WeatherXML icons in HST

Post 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
Ralph
Herbus
Member
Member
Posts: 363
Joined: Mon Mar 27, 2006 12:28 pm
Location: Netherlands

Re: WeatherXML icons in HST

Post 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.
Herbus (Jos)
Post Reply

Return to “Homeseer HStouch Forum”