Det hadde jeg gjort.
To forslag:
1. En counter som du øker med 1 til den når MAX, og så begynner på 1 (eller 0) igjen. Så et script som henter ferdig definerte fargekoder og setter fargen ut fra tabellen.
2. En ny random farge med mitt script:
Sub Main(ByVal params As String)
'Moskus 2017
Dim input() As String = params.Split(",")
Dim customRef As Integer = input(0)
Dim generator As New Random
Dim color(2) As Integer
For i As Integer = 0 To color.GetLength(0) - 1
color(i) = generator.Next(0, 255)
Next
'Dim colorString = "#" & color(0).ToString("X2") & color(1).ToString("X2") & color(2).ToString("X2")
Dim colorString = color(0).ToString("X2") & color(1).ToString("X2") & color(2).ToString("X2")
Dim cc As HomeSeerAPI.CAPI.CAPIControl = hs.CAPIGetSingleControl(customRef, True, "Custom Color(value)", False, False)
cc.ControlString = colorString
Dim ret = hs.CAPIControlHandler(cc)
End Sub
Input er en "custom RGB" device ref, som denne:
... og er egentlig tilhørende en Fibaro RGBW-controller. Nå husker jeg ikke i farten om Ikea-pærene har det samme muligheten, men da må vi bare omprogrammere litt.