script SCRIPT: RandomValue.vb - Sett en tilfeldig verdi på en eller flere devicer

[Moskus]

RandomValue.vb

Setter en eller flere lamper eller en av flere RGB-devicer til en vilkårlig verdi. Festlig for ungene hvis det brukes på en RGB-lampe/stripe!

 

Parameter: 100,101,102

... der 100-102 er device ref'er til f.eks R, G og B for en led-stripe. Eller helt uavhengige lamper.

Sub Main(ByVal input As Object)
    '© Moskus
    Dim generator As New Random
    Dim devices() As String = input.ToString.Split(",")

    For Each d As String In devices
        Dim ref As Integer = CInt(d.Trim)
        Dim newValue As Integer = generator.Next(0, 99)

        Dim CAPIcontrol As HomeSeerAPI.CAPIControl = Nothing
        For Each cc As HomeSeerAPI.CAPIControl In hs.CAPIGetControl(ref)
            If newValue = cc.ControlValue Then
                CAPIcontrol = cc
                Exit For
            End If
        Next

        If CAPIcontrol IsNot Nothing Then
            hs.CAPIControlHandler(CAPIcontrol)
            CAPIcontrol = Nothing
        Else
            hs.WriteLog("RandomValue script", "CAPI not found for random value " & newValue & " on device " & ref)
        End If

    Next
    generator = Nothing

End Sub