Keyfob's in events

[TANE]

Met de volgende script heb ik de hoeveelheid events in HS terug kunnen brengen naar een per keyfob.

Ik had het graag met condities tot een event voor meerdere keys terug willen brengen maar dat is helaas niet gelukt.


[img]uploaded/Chak/200861152036_Key-name.gif[/img]

[img]uploaded/Chak/20086115214_Key-trigger.gif[/img]

[img]uploaded/Chak/200861152131_Key-action.gif[/img]



Sub Main(parms As String)
Dim i As Integer
i = hs.DeviceValue (parms)
Select Case i
Case 2
''ArmAwayMaxDelay
hs.TriggerEvent ("Alarm Arm")
Case 5
''Disarm
hs.TriggerEvent ("Alarm Disarm")
Case 9
''Lightson2
hs.TriggerEvent ("Alarm Lightson2")
End Select
'' Reset Keyfob
hs.SetDeviceValue (parms,0)
End Sub