Edit Status Graphic for device

[Ruud]

Jeg har en liste med mange ikoner som er satt opp for en divice. Den samme grafikken ønsker jeg på flere divicer. Noen som vet om det er mulig å kopiere dette fra en divice til en anden, det hadde vert mye enklere enn å trykke dette inn manuelt på alle devicene mine som skal ha samme grafikk status.

[Moskus]

Det skal være en plugin for å få til akkurat dette (bl.a.), men jeg er ikke kar om å finne den igjen...

[Ruud]

Takk for at du prøvde

[Frankis78]

Er det denne du leter etter https://forums.homeseer.com/showthread.php?t=186040 ?

Den fungerte fint device image, men ikke for Thumbnails,

For dersom du legger til Thumbnail med plugin, og deretter skal skifte et device image på selve devicen, så slettes bildet fra homeseer.

(homeseer lager uansett thumbnail ifra device image, så du trenger ikke gjøre dette fra noen plugin.

 

[Moskus]

Ja, det var den jeg tenkte på, men kan den ikke sette Status graphics også? Det er jo ikke særlig vanskelig å automatisere...

[Frankis78]

Den setter bare device graphic, of ikkje status graphic. Vet det var andre som spørte om han kunne legge til status graphic.

[Ruud]

Hei igjen. Jeg skal lage et skript som setter Status Text for device og Status Graphic for device.

Det blir en ca. 60 statuser med 60 forskjellige grafikker og dette skal være likt på minst 4 devicer, derfor tenkte jeg det var lurt å scripte isteden for å gjøre det manuelt.

Jeg har selvfølgelig klippet og limt fra noen andre sitt script men mistet orginalscripte jeg klippet fra. Når jeg prøver med vedlagt test script får jeg 2 feilmeldinger i loggen som jeg ikke forstår, noen som skjønner dette?

 

mar-20 21:36:41

Error

Compiling script C:\Program Files (x86)\HomeSeer HS3\scripts\Menneske Grapic setting.vb: Property 'Value' is 'ReadOnly'.

mar-20 21:36:41

Error

Compiling script C:\Program Files (x86)\HomeSeer HS3\scripts\Menneske Grapic setting.vb: Namespace or type specified in the Imports 'System.Core' doesn't contain any public member or cannot be found. Make sure the namespace or the type is defined and contains at least one public member. Make sure the imported element name doesn't use any aliases.

mar-20 21:36:40

Event

Running script in background: C:/Program Files (x86)/HomeSeer HS3/scripts/Menneske Grapic setting.vb

Sub Main(Optional ByVal Parms As String = "")
    Dim intDevices() As Integer = {203} 'oppdater
    Dim ImagePath As String = "images/Ruuds-pic/Icons8-Office/"

    Dim dvRef As Integer
    Dim vPair As VSPair
    Dim gPair As VGPair

    For i As Integer = 0 To ubound(intDevices)
        dvRef = intDevices(i)

        If hs.DeviceExistsRef(dvRef) Then
            Try
                hs.DeviceVSP_ClearAll(dvRef, True)
                hs.DeviceVGP_ClearAll(dvRef, True)

                vPair = New VSPair(1)
                vPair.PairType = VSVGPairType.SingleValue
                vPair.Value = 20  
                vPair.Status = "er hjemme"
                hs.DeviceVSP_AddPair(dvRef, vPair)

                gPair = New VGPair
                gPair.PairType = VSVGPairType.SingleValue
                gPair.Value = 20
                gPair.Graphic = ImagePath & "020-erHjemme-hus.png"
                hs.DeviceVGP_AddPair(dvRef, gPair)

                hs.SaveEventsDevices()
                hs.WriteLog("Info", "VS/VG pairs reset complete for dvRef: " & dvRef)

            Catch ex As Exception
                hs.WriteLog("Error", "Error processing dvRef: " & dvRef & " : " & ex.message)
            End Try

        Else
            hs.WriteLog("Error", "dvRef: " & dvRef & " doesn't exist in HS!")
        End If
    Next

    vPair = Nothing
    gPair = Nothing
End Sub

 

Endret 23. mars 2020 av Ruud

[Moskus]

Det er bedre om du poster scriptet istedenfor et screensot... vi har til og med en kode-tag her på forumet.  

[Ruud]

16 timer siden, Moskus skrev:

Det er bedre om du poster scriptet istedenfor et screensot... vi har til og med en kode-tag her på forumet.  

Helt enig, ble tul med screenshot.. har endret nå.

Har du peiling på hvorfor jeg får Property 'Value' is 'ReadOnly'.?

 

[Moskus]

Ja, det er en feil der. Ulogisk, helt enig, men slik er det.

 

Denne linja:

gPair.Value = 20

 

endrer du til dette:

gPair.Set_Value = 20

 

[Ruud]

På 23.3.2020 den 9.49, Moskus skrev:

gPair.Set_Value = 20

Tusen takk, dette fungerte ?