Script met twee opties
Posted: Mon Apr 06, 2009 11:41 pm
Om de status van een plugwise module op de HST zichtbaar te maken heb ik wat events gebouwd die de status van een virtuele device bij werken deze vraag ik dan via HST op voor status.
Dit werk goed maar per device heb ik twee events.
Het kan simpeler met 1 event + wat scripting. Script krijg ik nog niet helemaal goed..
Dit werkt
Als Optie geef ik dan op:
("Main","S3")
<b>Optimalisatie:</b>
Een tweede optie die de [25 kan vervangen
kan nog beter
Event wordt getriggerd via [25
Deze zou dan automatisch als tweede optie meegegeven kunnen worden.
any tips?
Dit werk goed maar per device heb ik twee events.
Het kan simpeler met 1 event + wat scripting. Script krijg ik nog niet helemaal goed..
Dit werkt
Als Optie geef ik dan op:
("Main","S3")
Code: Select all
Public Sub Main(ByVal Parms As String)
Dim i As Integer
i = hs.DeviceStatus("[25")
Select Case i
Case 2
'' Device ON,
hs.ExecX10(Parms, "On")
Case 3
'' Device OFF
hs.ExecX10(Parms, "Off")
End Select
End Sub
<b>Optimalisatie:</b>
Een tweede optie die de [25 kan vervangen
kan nog beter
Event wordt getriggerd via [25
Deze zou dan automatisch als tweede optie meegegeven kunnen worden.
any tips?