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

Created device får ikke noen status


Christian

Anbefalte innlegg

Jeg har laget noen devicer, men på verdien null, så blir det ikke laget noe status. SVPair blir laget, men status er tom. Jeg har gjort som følger

 		Dim i As Integer        	
		For i = 0 To 12

            Dim SVpair As New HomeSeerAPI.VSPair(HomeSeerAPI.ePairStatusControl.Status)
            Dim VGpair As New HomeSeerAPI.VGPair
            VGpair.PairType = HomeSeerAPI.VSVGPairType.SingleValue
            SVpair.PairType = HomeSeerAPI.VSVGPairType.SingleValue
            Select Case i
                Case 0
                    SVpair.Value = i
                    SVpair.Status = "Auto"
                    VGpair.Set_Value = i
                    VGpair.Graphic = "images/Xian/auto.jpg"
                    hs.DeviceScriptButton_AddButton(devref, "Auto", i, "Melcloud.vb", "Buttonpress", "VSwing_Auto", 1, 1, 1)
			..
			..
			..
			End Select
		
			        hs.DeviceVSP_AddPair(devref, SVpair)
            hs.DeviceVGP_AddPair(devref, VGpair)
        Next


        Return devref

Alle de andre blir created successful

Lenke til kommentar
Del på andre sider

2 timer siden, Moskus skrev:

Kan du se den på "Status Graphics"?

 

Ja, den ligger under Status Graphics.

 

.. Nei, har ikke 12 like. Her er hele select case setninga : 

 		Dim i As Integer        	
		For i = 0 To 12

            Dim SVpair As New HomeSeerAPI.VSPair(HomeSeerAPI.ePairStatusControl.Status)
            Dim VGpair As New HomeSeerAPI.VGPair
            VGpair.PairType = HomeSeerAPI.VSVGPairType.SingleValue
            SVpair.PairType = HomeSeerAPI.VSVGPairType.SingleValue
            Select Case i
                Case 0
                    SVpair.Value = i
                    SVpair.Status = "Auto"
                    VGpair.Set_Value = i
                    VGpair.Graphic = "images/Xian/auto.jpg"
                    hs.DeviceScriptButton_AddButton(devref, "Auto", i, "Melcloud.vb", "Buttonpress", "VSwing_Auto", 1, 1, 1)
			    Case 1 To 5
                    SVpair.Value = i
                    SVpair.Status = "Position " & i
                    VGpair.Set_Value = i
                    VGpair.Graphic = "images/Xian/VSwing" & i & ".jpg"
                    hs.DeviceScriptButton_AddButton(devref, i, i, "Melcloud.vb", "Buttonpress", "VSwing-" & i, 1, i + 1, 1)
                Case 7
                    SVpair.Value = i
                    SVpair.Status = "Swing"
                    VGpair.Set_Value = i
                    VGpair.Graphic = "images/Xian/vswing.jpg"
                    hs.DeviceScriptButton_AddButton(devref, "Swing", i, "Melcloud.vb", "Buttonpress", "VSwing", 1, i, 1)
            End Select

    		hs.DeviceVSP_AddPair(devref, SVpair)
            hs.DeviceVGP_AddPair(devref, VGpair)
        Next

 

Lenke til kommentar
Del på andre sider

1 time siden, Christian skrev:

Ja, den ligger under Status Graphics.

Screenshot av hva du ser på device-siden og hva som ligger på Status Graphics hadde vært praktisk nå...

 

 

Ser ut som om du legger til VS-par og VG-par for alle i fra 0 til 12. Men kun spesifiserer labels, grafikk og knapper for i = 0 og i = 7? Hvorfor bruke en for-løkke da?

Lenke til kommentar
Del på andre sider

26 minutter siden, Moskus skrev:

Screenshot av hva du ser på device-siden og hva som ligger på Status Graphics hadde vært praktisk nå...

Er Vedlagt

 

26 minutter siden, Moskus skrev:

Ser ut som om du legger til VS-par og VG-par for alle i fra 0 til 12. Men kun spesifiserer labels, grafikk og knapper for i = 0 og i = 7? Hvorfor bruke en for-løkke da?

 

Kunne vel ha skrevet 0 og 12 rett ut, og så 1-5 i en for løkke

Screen Shot 2018-04-06 at 12.49.56.png

Screen Shot 2018-04-06 at 12.50.12.png

Screen Shot 2018-04-06 at 12.50.19.png

Lenke til kommentar
Del på andre sider

Av og til hender det at .NET ikke er glad i å bruke variablene i en for-løkke (Visual Studio vil kunne finne på å advare mot dette). Det kan enkelt forbigås ved å ta en kopi av telle-variabelen til en ny variabel.

 

Kan du prøve dette?

 

       For i As Integer = 0 To 12
            Dim currentValue As Integer = i

            Dim SVpair As New HomeSeerAPI.VSPair(HomeSeerAPI.ePairStatusControl.Status)
            Dim VGpair As New HomeSeerAPI.VGPair
            VGpair.PairType = HomeSeerAPI.VSVGPairType.SingleValue
            SVpair.PairType = HomeSeerAPI.VSVGPairType.SingleValue
            Select Case i
                Case 0
                    SVpair.Value = currentValue
                    SVpair.Status = "Auto"
                    VGpair.Set_Value = currentValue
                    VGpair.Graphic = "images/Xian/auto.jpg"
                    hs.DeviceScriptButton_AddButton(devref, "Auto", currentValue, "Melcloud.vb", "Buttonpress", "VSwing_Auto", 1, 1, 1)
                Case 1 To 5
                    SVpair.Value = i
                    SVpair.Status = "Position " & i
                    VGpair.Set_Value = i
                    VGpair.Graphic = "images/Xian/VSwing" & i & ".jpg"
                    hs.DeviceScriptButton_AddButton(devref, i, i, "Melcloud.vb", "Buttonpress", "VSwing-" & i, 1, i + 1, 1)
                Case 7
                    SVpair.Value = i
                    SVpair.Status = "Swing"
                    VGpair.Set_Value = i
                    VGpair.Graphic = "images/Xian/vswing.jpg"
                    hs.DeviceScriptButton_AddButton(devref, "Swing", i, "Melcloud.vb", "Buttonpress", "VSwing", 1, i + 1, 1)
            End Select

            hs.DeviceVSP_AddPair(devref, SVpair)
            hs.DeviceVGP_AddPair(devref, VGpair)
        Next

 

Lenke til kommentar
Del på andre sider

7 minutter siden, Christian skrev:

Jeg forsøkte å flytte Auto ut av for-løkka, men med samme resultat. Hvis jeg bare lager auto så fungerer det. 

Hva betyr dette?

 

Hvis du lager et script som kun lager "Auto", så fungerer det fint, men hvis du lager flere så fungerer det ikke?

Høres merkelig ut! Hvis du endrer "Auto" til "Automatisk"...

Lenke til kommentar
Del på andre sider

14 timer siden, Christian skrev:

Løsninga er at HS ikke liker at det er hull i den rekka av  VG/SV parene den skal lage, så når jeg sa at det skulle være fra 0-6 så gikk det bra.. 

Da er det nok heller sannsynligvis en feil et sted i løkke-logikken. HS takler fint hull i VS-par etter min erfaring...

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.