SmartToggle.vb
"Toggler" en device mellom "Off" og "On Last Level" hvis den finnes (altså er en Z-wave device). Kun mellom "Off" og "On" ellers.
Parameter: 400
... der 400 er device ref til device'n du vil toggle.
Public Sub Main(ByVal input As Object)
'© Moskus 2015
Dim control As String = input
Dim devicevalue As Double = hs.DeviceValueEx(control)
Dim capi As HomeSeerAPI.CAPIControl = Nothing
If devicevalue = 0 Then 'device is off, so let's trigg