Alternative for Qees power strip?

[gvdham]

after buying the powerstrip and the aeon stick 2 I tied to install it according to the manual on domotiga.nl. I started the zwave commander and saw 1 device, it looks like this is the stick itself. I tried to add and it says to push the button on the device but nothing happens. Can someone give me a go on how to get it started in domotiga?

[gvdham]

after reading a lot i now see besides the stick two devices in the commander and a lot of log files stating that zwave device 2, 2.1, 2.2 and so on cannot be found. Do i have to add the devices now by hand?

[raymonvdm]

You have to detach the usb device from your computer and push once on the button (device wil be blinking slowly) after that you push the small buton on the side of the powerstrip. If al goes wel the stick should blink fast. Press the button again to shutdown the stick. Place the stick back in your domotiga and restart

[gvdham]

yeah!! I can now add a zwave device and select zwave appliance module with address 2:2 and power it on/off.
Maybe this wasn't the smartest device combination to start with. How can I make it show the power usage?

[criple]

Why polling all devices seperately? Just poll the root device to update all the devices...

[Broes]

Slightly changed the script Geert Jan wrote but it won't work in HS3.
I get the error "VB.Net script exception(0), re-starting: Object reference not set to an instance of an object."
In HS2 everything works at it should.
Has anyone experienced something simular or does anyone know what has to be changed in the vb code to get it working in HS3?

@criple I want to poll only one device (polling 6 devices takes a long time).

Code: Select all

' scriptname = Nuon_Poll_Standby.vb
' Parm0 deviceId = the device to switch off
' Parm1 deviceIdTotalPower = the device that gives the total power consumption
' Parm2 deviceIdCurrentPower = the device that gives the current power consumption
' Parm3 powerLevel = the limit to switch off 'deviceId'. The power is in units of 0.01 Watt, i.e. 200 means 2 Watt

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

    Dim arrParm() As String

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

    previousPower = hs.DeviceValue(deviceIdCurrentPower)

    ' Get total power consumption for devices
    hs.PollDevice(deviceIdTotalPower)
    hs.WaitSecs(0.1)
    totalPower = hs.DeviceValue(deviceIdTotalPower)

    ' 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