Denne linja:
Dim cc As HomeSeerAPI.CAPIControl = hs.CAPIGetSingleControl(DeviceRef, True, "Dim (value)%", False, False)
... forutsetter at lysene som skal dimmes har "labels" som begynner med "Dim ". Og i de siste årene har HomeSeer strøket "Dim " foran. Du kan istedenfor prøve med:
Dim cc As HomeSeerAPI.CAPIControl = hs.CAPIGetSingleControl(DeviceRef, True, "(value)%", False, False)
...hvis ikke det fungerer, så er det bedre å loope gjennom verdiene som skal settes og hente riktig CAPI derfra:
'Find the correct CAPI based on device value...
Dim CAPIcontrol As HomeSeerAPI.CAPIControl = Nothing
For Each cc As HomeSeerAPI.CAPIControl In hs.CAPIGetControl(d.deviceRef)
If cc.ControlValue = DIN_VERDI_ELLER_VARIABEL_HER Then
CAPIcontrol = cc
Exit For
End If
Next
'... And execute it
hs.CAPIControlHandler(CAPIcontrol)
Du burde kunne bruke det over hvis du erstatter "DIN_VERDI_ELLER_VARIABEL_HER" med "DeviceValue"