Sliter med et slave script

[Fermate]

Fikk dette scriptet av @Moskus for en tid siden og det kjører fint for å la en dimmer følge en annen på de stedene der lampene er så langt fra hverandre at de må få hver sin dimmer men likevel reguleres synkront.Men disse dimmerne har alle vært Fibaro Gen 1 dimmere.I dag satte jeg inn en nyere Fibaro dimmer og den reagerer bare dersom det er fullt ON eller OFF men ikke på dimming. (Bytte på hvem som er master og slave gir samme resultat) Noen tips om noe debug eller noe jeg kan gjøre for å finne ut av det?

 

Sub Main(ByVal parms As String)
        Dim input() As String = parms.ToString.Split("|")
        Dim control As String = input(0).ToString
        Dim devs() As String = input(1).ToString.Split("+")
        Dim devicevalue As Double = hs.DeviceValueEx(control)

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

        For Each d as String In devs
            Dim dev As Scheduler.Classes.DeviceClass = hs.GetDeviceByRef(d)
            If CAPIcontrol.Label.ToLower.Contains("dim") Then
                If dev.Can_Dim(Nothing) Then
                    Dim capi As HomeSeerAPI.CAPIControl = Nothing
                    For Each cc As HomeSeerAPI.CAPIControl In hs.CAPIGetControl(d)
                        If cc.Label = CAPIcontrol.Label Then
                            capi = cc
                            Exit For
                        End If
                    Next
                    hs.CAPIControlHandler(capi)
                Else
                    Dim off As HomeSeerAPI.CAPIControl = Nothing
                    For Each cc As HomeSeerAPI.CAPIControl In hs.CAPIGetControl(d)
                        If cc.Label.ToLower = "off" Then
                            off = cc
                            Exit For
                        End If
                    Next
                    hs.CAPIControlHandler(off)
                End If
            Else
                Dim capi As HomeSeerAPI.CAPIControl = Nothing
                For Each cc As HomeSeerAPI.CAPIControl In hs.CAPIGetControl(d)
                    If cc.Label = CAPIcontrol.Label Then
                        capi = cc
                        Exit For
                    End If
                Next
                hs.CAPIControlHandler(capi)
            End If

        Next
    End Sub

 

 

[Fermate]

hehe som vanlig hjelp det å stille spørsmålet her.

 

Det viste seg at CAPI.label ikke inneholdt ordet "dim" på den nye Fibaroen:

 

 

Og da slo jo ikke denne testen til:

If cc.Label = CAPIcontrol.Label Then

 

Ved å strippe av "dim " gikk det fint.

 

Jeg regner med at @Moskus har en (mere) elegant måte å gjøre det på  så jeg overlater til ham å poste det oppdaterte scriptet.

(Eller som vanlig bare gjøre meg oppmerksom på at det ble postet ett eller annet sted her allerede for 1 år siden  )

[Moskus]

6 timer siden, Fermate skrev:

Jeg regner med at @Moskus har en (mere) elegant måte å gjøre det på  så jeg overlater til ham å poste det oppdaterte scriptet.

Nei, faktisk ikke. Men det var noe å gjøre, takk for tipset! Kan gå over til å bruke "value" istedenfor "Label".  

[Andreas]

Du kan jo også sette opp hver device til å følge den andre.

Under avansert tror jeg..

[ZoRaC]

36 minutter siden, Andreas skrev:

Du kan jo også sette opp hver device til å følge den andre.

Under avansert tror jeg..

 

Stemmer, kom i HS for noen måneder siden.

"Linked device" heter det, inne på device-siden.

[Moskus]

Ja. Ulempen med den måten er at man ikke kan ha forbehold når linkingen skal skje. Men ellers fungerer det fint.

 

Mulig den også bruker device label og ikke value, for det er noe krøll når det linkes mot JowiHue-devicer (hvis man ikke velger en vanlig dimme-skala istedenfor 0-254).

[Fermate]

16 timer siden, Andreas skrev:

Du kan jo også sette opp hver device til å følge den andre.

Under avansert tror jeg..

 

Ah det hadde jeg ikke fått med meg.

 

17 timer siden, Moskus skrev:

Nei, faktisk ikke. Men det var noe å gjøre, takk for tipset! Kan gå over til å bruke "value" istedenfor "Label".  

 

Will try