Fibaro RGBW sunset simulation.

[ajachierno]

The following script simulates the sunrise, should just need to change the device numbers to match your device numbers. With current settings it takes about 10 minutes to run. It isnt the cleanest code but it gets the job done. The core of the code is borrowed from billt's code he posted earlier. Edit: Sorry that should have said sunrise NOT sunset

Public Sub Main(ByVal Parms As Object)

for z As Integer = 0 To 20

Dim ce As HomeSeerAPI.CAPI.CAPIControl = hs.CAPIGetSingleControl(886, True, "Blue Level (value)", False, False)
ce.ControlValue = z
Dim ct As HomeSeerAPI.CAPI.CAPIControlResponse = hs.CAPIControlHandler(ce)

hs.waitsecs(1.0)
next
'-----------------------------------------------------------------------------------------
for x As Integer = 0 To 150

Dim ce As HomeSeerAPI.CAPI.CAPIControl = hs.CAPIGetSingleControl(886, True, "Blue Level (value)", False, False)
ce.ControlValue = x*7.5/4+20
Dim ct As HomeSeerAPI.CAPI.CAPIControlResponse = hs.CAPIControlHandler(ce)

Dim cc As HomeSeerAPI.CAPI.CAPIControl = hs.CAPIGetSingleControl(884, True, "Red Level (value)", False, False)
cc.ControlValue = x*5/4
Dim cr As HomeSeerAPI.CAPI.CAPIControlResponse = hs.CAPIControlHandler(cc)

Dim cd As HomeSeerAPI.CAPI.CAPIControl = hs.CAPIGetSingleControl(885, True, "Green Level (value)", False, False)
cd.ControlValue = x/4
Dim cs As HomeSeerAPI.CAPI.CAPIControlResponse = hs.CAPIControlHandler(cd)

hs.waitsecs(1.0)
next

'----------------------------------------------------------------------------------------

for y As Integer = 0 To 240

Dim ce As HomeSeerAPI.CAPI.CAPIControl = hs.CAPIGetSingleControl(886, True, "Blue Level (value)", False, False)
ce.ControlValue = 240 - y
Dim ct As HomeSeerAPI.CAPI.CAPIControlResponse = hs.CAPIControlHandler(ce)

Dim cc As HomeSeerAPI.CAPI.CAPIControl = hs.CAPIGetSingleControl(884, True, "Red Level (value)", False, False)
cc.ControlValue = y*.3 + 183
Dim cr As HomeSeerAPI.CAPI.CAPIControlResponse = hs.CAPIControlHandler(cc)

Dim cd As HomeSeerAPI.CAPI.CAPIControl = hs.CAPIGetSingleControl(885, True, "Green Level (value)", False, False)
cd.ControlValue = y*.05 + 59
Dim cs As HomeSeerAPI.CAPI.CAPIControlResponse = hs.CAPIControlHandler(cd)

hs.waitsecs(.25)
next

'----------------------------------------------------------------------------------------

for k As Integer = 0 To 128

Dim cf As HomeSeerAPI.CAPI.CAPIControl = hs.CAPIGetSingleControl(883, True, "Warm White Level (value)", False, False)
cf.ControlValue = k
Dim cu As HomeSeerAPI.CAPI.CAPIControlResponse = hs.CAPIControlHandler(cf)

hs.waitsecs(.1)
next

'----------------------------------------------------------------------------------------
for h As Integer = 0 To 255

Dim cf As HomeSeerAPI.CAPI.CAPIControl = hs.CAPIGetSingleControl(883, True, "Warm White Level (value)", False, False)
cf.ControlValue = 128+h
Dim cu As HomeSeerAPI.CAPI.CAPIControlResponse = hs.CAPIControlHandler(cf)

Dim ce As HomeSeerAPI.CAPI.CAPIControl = hs.CAPIGetSingleControl(886, True, "Blue Level (value)", False, False)
ce.ControlValue = h
Dim ct As HomeSeerAPI.CAPI.CAPIControlResponse = hs.CAPIControlHandler(ce)

Dim cc As HomeSeerAPI.CAPI.CAPIControl = hs.CAPIGetSingleControl(884, True, "Red Level (value)", False, False)
cc.ControlValue = 255-h
Dim cr As HomeSeerAPI.CAPI.CAPIControlResponse = hs.CAPIControlHandler(cc)

Dim cd As HomeSeerAPI.CAPI.CAPIControl = hs.CAPIGetSingleControl(885, True, "Green Level (value)", False, False)
cd.ControlValue = 71-h
Dim cs As HomeSeerAPI.CAPI.CAPIControlResponse = hs.CAPIControlHandler(cd)

hs.waitsecs(.1)
next

End Sub