Home Automation Domotica Forum Europe, Bwired Forum

Code: Select all

 3.33 (Unknown ZDK Version) App: 4.21
 3.33 (Unknown ZDK Version) App: 4.20

Code: Select all

Sub main(parm as Object)
    Dim deviceId As String
    Dim deviceIdCurrentPower As String
    Dim powerLevel as Integer
    Dim previousPower as Integer
    Dim currentPower as Integer

    Dim arrParm() As String

    ' Extract parameters
    arrParm = parm.ToString.Split(";")
    deviceId = arrParm(0)
    deviceIdCurrentPower = arrParm(1)
    powerLevel = arrParm(2)

    previousPower = hs.DeviceValue(deviceIdCurrentPower)

    ' Get current power consumption for devices
    hs.PollDevice(deviceIdCurrentPower )
    hs.WaitSecs(0.1)
    currentPower = hs.DeviceValue(deviceIdCurrentPower)

    ' Turn off device:
    ' if device is On
    ' and was on in previous check also (to prevent switching off device directly)
    if hs.IsOn(deviceId) 
      if previousPower > 0 AND previousPower < powerLevel AND currentPower < powerLevel
        hs.Transmit(deviceId, "off")
      end if
    end if

End Sub

Code: Select all

<scriptname>.vb("main", <device Id>;<device Id 2>;<power in 0.01 Watt>")

Code: Select all

3.33 (Unknown ZDK Version) App: 4.21