Setting a device value to a variable

[Gogs]

I am trying to set a device vale to a variable. I am using "a = hs.DeviceValue(2395)
a=a+1
hs.SetDeviceValueByRef(2404, a, True)", does not work.

any ideas?

[Michael McSharry]

has 'a' been declared in a Dim statement?

How about hs.SetDeviceValueByRef(2404, hs.DeviceValue(2395), True)?

I do not expect type conversion issues, but by memory is that DeviceValue is an integer and SetDeviceValue is a Double. Explicit type management may be needed. I think there is a method DeviceValueEx that returns a Double.

[tenholde]

The following works for me (I changed DevRef to match my system):

Dim a As Integer
a = hs.DeviceValue(1777)
a = a + 1
hs.SetDeviceValueByRef(1777, a, True)

[Gogs]

Thanks tenholde, I get his error

Dec-08 10:41:29

Error

Running script, script run or compile error in file: C:/Program Files (x86)/HomeSeer HS3/scripts/Temp up.txt1025:Expected end of statement in line 2 More info: Expected end of statement/quote

My full script is

sub main()
Dim a As Integer
a = hs.DeviceValue(2395)
a = a + 1
hs.SetDeviceValueByRef(2395, a, True)
end sub

[jon00]

Try this. Make sure it has a script name with a .vb extension (not .txt)

    Sub Main(ByVal Parm As Object)
        Dim a As Integer
        a = hs.DeviceValue(2395)
        a = a + 1
        hs.SetDeviceValueByRef(2395, a, True)
    End Sub

[Gogs]

Thanks for your help. I fumbled about till I eventually got it to work! Final txt script is this:

sub main()
Dim a
a = hs.DeviceValue(2395)
a = a + 1
if a=30 then
a=5
end if
hs.SetDeviceValueByRef(2395), a, (True)
end sub

Thanks again.

[jon00]

You need to wean yourself off VBScript... its not even supported on Linux HS systems 😉

[Gogs]

😉

[Gogs]

You need to wean yourself off VBScript... its not even supported on Linux HS systems 😉

OK thought I would try modifying one of your scripts, immediately got into sh1. trying to set the time of a event to variable, My latest disaster is :-

Sub Main(ByVal Parm As Object)

Dim h As Integer
dim m As Integer
dim s As Integer

hs.enableevent("GC Alarm")

h = hs.DeviceValue(2405)
m = hs.DeviceValue(2406)
s = "00"



Dim d As Date = DateTime.Parse(DateTime.Today.AddDays(1),h,m,s)
Dim RefVal As Integer = hs.GetEventRefByName("GC Alarm")
Dim res As Boolean = hs.EventSetTimeTrigger(RefVal, d)
hs.SaveEventsDevices()
hs.EnableEvent("GC Alarm")
hs.speak ("Gordon's alarm set for 03:40")
hs.SetDeviceString(819, "03:10", True)
hs.CAPIControlHandler(hs.CAPIGetSingleControl(729,true ,"on",false,true))


End Sub

I know it's a mess.

can anyone help?

[jon00]

Dim d As Date = DateTime.Parse(DateTime.Today.AddDays(1).AddHours(h).AddMinutes(m).AddSeconds(s))

[Gogs]

Thanks Jon00, worked perfectly.

[langenet]

Is vbscript still supported on hs4 for windows?

[jon00]

Is vbscript still supported on hs4 for windows?

Yes!

[JimSpy]

You need to wean yourself off VBScript... its not even supported on Linux HS systems 😉

What do you recommend over VBScript? (Please don't say C#! What a mess!)

[George]

IBM System 370 machine language!

If you wrote operating system code the Load PSW (LPSW) command was your best buddy and forgiver of sins! LOL