Gå til innhold
  • Bli medlem
Støtt hjemmeautomasjon.no!

SetRootDevice.vb - Sett root og child devicer


Moskus

Anbefalte innlegg

Lar deg sette en vilkårlig device som Root med vilkårlige devicer som Child Devices.

Parameter: RooTID|child1ID,child2ID,etc

 

Sub Main(ByVal params As String)
        Dim lines() As String = params.ToString.Split("|")
        Dim rootRef As Integer = lines(0)
        Dim children() As String = lines(1).Split(",")

        Dim rootDevice As Scheduler.Classes.DeviceClass = hs.GetDeviceByRef(rootRef)
        rootDevice.Relationship(hs) = HomeSeerAPI.Enums.eRelationship.Parent_Root

        Dim childDevice As Scheduler.Classes.DeviceClass
        For Each c As Integer In children
            childDevice = hs.GetDeviceByRef(c)
            rootDevice.AssociatedDevice_Add(hs, c)
            childDevice.Relationship(hs) = HomeSeerAPI.Enums.eRelationship.Child
            childDevice.AssociatedDevice_Add(hs, rootRef)
        Next

    End Sub

 

  • Like 1
Lenke til kommentar
Del på andre sider

Bli med i samtalen

Du kan publisere innhold nå og registrere deg senere. Hvis du har en konto, logg inn nå for å poste med kontoen din.

Gjest
Skriv svar til emnet...

×   Du har limt inn tekst med formatering.   Lim inn uten formatering i stedet

  Du kan kun bruke opp til 75 smilefjes.

×   Lenken din har blitt bygget inn på siden automatisk.   Vis som en ordinær lenke i stedet

×   Tidligere tekst har blitt gjenopprettet.   Tøm tekstverktøy

×   Du kan ikke lime inn bilder direkte. Last opp eller legg inn bilder fra URL.

×
×
  • Opprett ny...

Viktig informasjon

Vi har plassert informasjonskapsler/cookies på din enhet for å gjøre denne siden bedre. Du kan justere dine innstillinger for informasjonskapsler, ellers vil vi anta at dette er ok for deg.