this is what i have
Public Class Newscriptname
Public Sub Main(ByVal Parms As Object)
Dim ParmArray(10) As String
'' Extract script parameters into ParmArray()
ParmArray(0) = ""
If Parms.ToString.Contains("|") Then
ParmArray = Parms.ToString.Split(Convert.ToChar("|"))
Else
ParmArray(0) = Parms.ToString
End If
hs.WriteLog("turning On the light", "scriptrunning")
If hs.DeviceValueEx(hs.GetDeviceRefByName("EnvisaLink Shock Sensor Z6")) = 1 Then
hs.CAPIControlHandler(hs.CAPIGetSingleControl(hs.GetDeviceRe fByName("Lights office Office Light"), True, "On", False, False))
End If
End Sub
End Class
and I get an error message
BC30188 Declaration expected
Microsoft Visual Studio Community 2019
Version 16.6.3
Thanks
Paul.
Public Class Newscriptname
Public Sub Main(ByVal Parms As Object)
Dim ParmArray(10) As String
'' Extract script parameters into ParmArray()
ParmArray(0) = ""
If Parms.ToString.Contains("|") Then
ParmArray = Parms.ToString.Split(Convert.ToChar("|"))
Else
ParmArray(0) = Parms.ToString
End If
hs.WriteLog("turning On the light", "scriptrunning")
If hs.DeviceValueEx(hs.GetDeviceRefByName("EnvisaLink Shock Sensor Z6")) = 1 Then
hs.CAPIControlHandler(hs.CAPIGetSingleControl(hs.GetDeviceRe fByName("Lights office Office Light"), True, "On", False, False))
End If
End Sub
End Class
and I get an error message
BC30188 Declaration expected
Microsoft Visual Studio Community 2019
Version 16.6.3
Thanks
Paul.
Comment