Why doesn't this work?

[Demusman]

Sub SetVol (ByVal Parms() As String)
    Dim theDevice As Double
        theDevice = hs.DeviceValueEx(463)
            Dim cc as HomeSeerAPI.CAPI.CAPIControl = hs.CAPIGetSingleControl(theDevice, True, "(value)", False, False)
            cc.ControlValue = 0
            Dim cr as HomeSeerAPI.CAPI.CAPIControlResponse = hs.CAPIControlHandler(cc)
End Sub
'----------------

Error from Log

 [TABLE="cellspacing: 0"]
[TR]
[TD="colspan: 8, align: left"][COLOR=#FF0000]Running script C:\Program Files (x86)\HomeSeer HS3\scripts\Audio Zones.vb :Object of type 'System.String' cannot be converted to type 'System.String[]'.->Does entry point SetVol exist in script? at System.RuntimeType.TryChangeType(Object value, Binder binder, CultureInfo culture, Boolean needsSpecialCast) at System.RuntimeType.CheckValue(Object value, Binder binder, CultureInfo culture, BindingFlags invokeAttr) at System.Reflection.MethodBase.CheckArguments(Object[] parameters, Binder binder, BindingFlags invokeAttr, CultureInfo culture, Signature sig) at System.Reflection.RuntimeMethodInfo.InvokeArgumentsCheck(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture) at System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture) at Scheduler.clsRunVBNetScript.ExecuteScript()[/COLOR][/TD]
 		[/TR]
[/TABLE]

edited for more info.... This is supposed to run from a slider.
I set it to run from a button and it ran fine.
What's the difference?

[Demusman]

Here is the event.

[Guahtdim]

I think you are defining your sub wrong

Sub SetVol (ByVal Parms[B]()[/B] As String)

it should be

Sub SetVol (ByVal Parms As String)

[Demusman]

Tried that. No difference.

[Guahtdim]

Then I usually comment out all lines but the first line and try to run the script. If it works gradually add one and one line just to see where the error is.

[Demusman]

Well, here's the crazy thing. It actually is working.

But it still throws the error.

[Guahtdim]

Where is VolSlide? That is the thing that is making an error.
Edit: Is there more in the script that you are not showing?

[Demusman]

Just to update, I have been changing the script.
This is what it is now:

Sub VolSlide (ByVal Parms() As Object)
    Dim pParms As Short = CInt(Parms(0))
    Dim theDevice As Double
        theDevice = hs.DeviceValueEx(463)
            Dim cc as HomeSeerAPI.CAPI.CAPIControl = hs.CAPIGetSingleControl(theDevice, True, "(value)", False, False)
            cc.ControlValue = pParms
            Dim cr as HomeSeerAPI.CAPI.CAPIControlResponse = hs.CAPIControlHandler(cc)
            hs.writelog("Test", "This is the output: Zone= " & theDevice & " level= " & pParms)
End Sub
'----------------

[Guahtdim]

What are the params sendt into the sub from the event? Blank?
If you are sending a value maybe you should change from ByVal Parms() As Object
to
ByVal param as string
and just do a
Dim pParms As Short = CInt(param)

[Demusman]

It's coming from a slider. I read on here that it has to be object.
Is that not true?

[Guahtdim]

The error says that it cannot convert a string value to an array of objects. So the slider passes its value as a string to your script. But your script want to convert that string.
You might as well try my suggestion.

Sub VolSlide (ByVal Param As String)
Dim pParms As Short = CInt(Param)
Dim theDevice As Double
theDevice = hs.DeviceValueEx(463)
Dim cc as HomeSeerAPI.CAPI.CAPIControl = hs.CAPIGetSingleControl(theDevice, True, "(value)", False, False)
cc.ControlValue = pParms
Dim cr as HomeSeerAPI.CAPI.CAPIControlResponse = hs.CAPIControlHandler(cc)
hs.writelog("Test", "This is the output: Zone= " & theDevice & " level= " & pParms)
End Sub
'----------------

[Demusman]

I already tried it. Didn't run at all.

[Guahtdim]

No error message at all?
Edit: And it was exactly as it is show?

Sub VolSlide (ByVal Param As String)

and not

  
 Sub VolSlide (ByVal Param[B]()[/B] As String)

The key might be the parenthesis after Param

[Demusman]

It threw the same error but did not continue running. Didn't write to the log in other words.
I'll try the above now.

Just noticed you didn't change anything in the last post so, yeah, doesn't work like that either.

[ITguyHS]

There should not be a space after "Volslide". You're showing it as:

 
 Sub VolSlide (ByVal Param As String)

It should be:

 
 Sub VolSlide(ByVal Param As String)