Min tur til å dele litt funksjonellt her. Fikk kladdet sammen dette med god hjelp av w.vuyk, mannen bak JowieHue.
Med ikea hubben og en trådfri rgb pakke så kan man bla frem og tilbake mellom farger. Jeg har koblet vekk trådfri hubben og bruker conbee.
Ungene ville styre farger uten å måtte inn i HS3 på tlf. Så ville gjøre et forsøk på å gjenskape funksjonaliteten til Ikea, og kanskje utvide den litt.
På barnerommene har vi 2stk RGB pærer. Disse er gruppert sammen med en trådfri 5button knapp. Gruppering skjer i deconz web når pærer og bryter inkluderes.
Med disse to scriptene (kunne sikkert vært konsollidert til ett script) har vi nå mulighet til å styre farger både på pærene parvis, og enkeltvis.
Foreløpig har jeg bare en random funksjon på rgb verdiene, da jeg ikke har "mappet" dette til presets enda. Men det er planen for å få best resultat på trådfri. Har testet disse på Hue ledstrips, og der er det mye bedre farger på alle utfall av random. På Ikea er det mye blasse farger, ikke alle "smeller".
Jeg har satt opp 3 events styrt av trådfri bryteren (den som følger med RGB pærene).
1: Venstre pil (Previous): Sette lys til varmhvit. Slik at det er mulig å gjøre lekser og oppholde seg der uten å få epilepsi.
2: Høyre pil (Next): setter random farger på begge pærer (script rndcolor.vbs, parameter: Navn på gruppen i Deconz/Jowiehue)
3: Holde høyre pil (Next hold): setter random farger på pærene individuelt. (script: rndcolorindividual.vbs parameter: navnpære1|navnpære2)
script: rndcolor.vbs
Public Sub Main(ByVal param As String)
dim r,g,b,max,min as Integer
max=255
min=0
randomize
r = Int((max-min+1)*Rnd+min)
g = Int((max-min+1)*Rnd+min)
b = Int((max-min+1)*Rnd+min)
dim rgbstring as string = r & "," & g & "," & b
hs.writelog("rndcolor", "Lys: [" ¶m &"] skiftet farge til " & rgbstring)
hs.PluginFunction("JowiHue", "", "SetLightsRGB", {True, param, Nothing, rgbstring,5})
End Sub
script: rndcolorindividual.vbs
Public Sub Main(ByVal param As String)
Dim Data() As String = Param.Split("|")
Dim param1 As String = Data(0)
Dim param2 As String = Data(1)
dim r,g,b,max,min as Integer
max=255
min=0
randomize
r = Int((max-min+1)*Rnd+min)
g = Int((max-min+1)*Rnd+min)
b = Int((max-min+1)*Rnd+min)
dim rgbstring as string = r & "," & g & "," & b
hs.writelog("rndcolor", "Lys: [" ¶m1 &"] skiftet farge til " & rgbstring)
hs.PluginFunction("JowiHue", "", "SetLightsRGB", {False, param1, Nothing, rgbstring,5})
randomize
r = Int((max-min+1)*Rnd+min)
g = Int((max-min+1)*Rnd+min)
b = Int((max-min+1)*Rnd+min)
rgbstring = r & "," & g & "," & b
hs.writelog("rndcolor", "Lys: [" ¶m1 &"] skiftet farge til " & rgbstring)
hs.PluginFunction("JowiHue", "", "SetLightsRGB", {False, param2, Nothing, rgbstring,5}
)
End Sub
Resultat: