Announcement

Collapse
No announcement yet.

Help needed converting an HS2 script to HS3

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • Help needed converting an HS2 script to HS3

    I had a small script working for me under HS2 that extracted the Windspeed integer from an Environment Canada device string and created a device with the DeviceValue equal to Windspeed. I used this to power down inflatable decorations when the wind was too strong. Here is the HS2 script:
    sub main()
    Dim WindArr() as String
    Dim WindSpeed As Integer

    WindArr = Split(hs.DeviceValue("W89")
    WindSpeed = WindArr(1)
    hs.SetDeviceString("W99",WindAarr(1))
    hs.SetDeviceValue("W99",WindSpeed)
    end sub


    It would act on the Device below and set another Device Value to windspeed (14 in this example). I suppose ideally, if there is a 2nd number (ie. gust), then it should pull that number instead --- there is not always a gust speed though. I'd be happy just to get the first number. The script above does not work in HS3. Any help with this would be appreciated --- I didn't write the original script, it was provided by a helpful forum member.

    Thanks.
    WSW 14 km/h gust 32 km/h Weather Environment Canada Wind Speed/Direction Today
    3:27:21 PM
Working...
X