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
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