Code:
Sub Main(ByVal Parms As Object) Dim Immersun As Double Immersun = hs.DeviceValueEx(68) Dim dateValue As Date = #21:55# Dim Evref as Integer dim Ok as Boolean dim CC as CAPIControl dim DeviceRef As Integer = 228 'deviceref of the device I want to control Dim StopDateTime As Date Select Case Immersun Case < 1 StopDateTime = dateValue.AddMinutes(39) Case 1.0 To 1.5 StopDateTime = dateValue.AddMinutes(30) Case 1.5 To 2 StopDateTime = dateValue.AddMinutes(20) Case 2.0 To 2.5 StopDateTime = dateValue.AddMinutes(15) Case 2.5 To 3 StopDateTime = dateValue.AddMinutes(10) End Select If Immersun <= 3 Then Evref = hs.NewEventEx("Testevent", "Test","") ' set the trigger time of the event Ok = hs.EventSetTimeTrigger(Evref, CStr(StopDateTime)) ' set the event to delete itself after it runs hs.DeleteAfterTrigger_Set(Evref) ' add a device action to the event CC = hs.CAPIGetSingleControlByUse(DeviceRef, ePairControlUse._Off) hs.AddDeviceActionToEvent(Evref, CC) hs.EnableEventByRef(Evref) End If End Sub
Al
Leave a comment: