Hi Mkoff,
Do you know the way to trigger the Fibaro RGBW module "Rainbow" mode?
Chin
Do you know the way to trigger the Fibaro RGBW module "Rainbow" mode?
Chin
If this is your first visit, be sure to check out the FAQ. You must register before you can post.
IMPORTANT: Your first post will be checked for appropriate content. This may take a bit of time.
Sub Main
End Sub
Sub SetParam(ByVal parms As String)
Dim param As String() = parms.Split(",")
Dim HomeID As String = "11111EEF"
Dim NodeID As String = param(0)
Dim FunctionID As String = param(1)
Dim Value As String = param(2)
Dim ConfigResult As Integer = 0
Dim ConfigResultVal(3) As String
ConfigResultVal(0) = "Unknown"
ConfigResultVal(1) = "Success"
ConfigResultVal(2) = "Queued"
ConfigResultVal(3) = "Failed"
ConfigResult = hs.PluginFunction("Z-Wave", "", "Configuration_Set", {HomeID, Convert.ToByte(NodeID), Convert.ToByte(FunctionID), Convert.ToByte(1), Convert.ToInt32(Value)})
hs.WriteLog("Param Set", "Parameter Set " & ConfigResultVal(ConfigResult))
End Sub
Sub Main
End Sub
Sub SetParam(ByVal parms As String)
Dim param As String() = parms.Split(",")
Dim HomeID As String = "11111EEF"
Dim NodeID As String = param(0)
Dim FunctionID As String = param(1)
Dim Value As String = param(2)
Dim ConfigResult As Integer = 0
Dim ConfigResultVal(3) As String
ConfigResultVal(0) = "Unknown"
ConfigResultVal(1) = "Success"
ConfigResultVal(2) = "Queued"
ConfigResultVal(3) = "Failed"
ConfigResult = hs.PluginFunction("Z-Wave", "", "Configuration_Set", {HomeID, Convert.ToByte(NodeID), Convert.ToByte(FunctionID), Convert.ToByte(1), Convert.ToInt32(Value)})
hs.WriteLog("Param Set", "Parameter Set " & ConfigResultVal(ConfigResult))
End Sub
Comment