Created device får ikke noen status

[Christian]

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

[Moskus]

2 timer siden, Christian skrev:

SVPair blir laget, men status er tom.

Kan du se den på "Status Graphics"?

 

(Har du 12 like "Auto"-knapper også?)

[Christian]

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

 

[Moskus]

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?

[Christian]

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

[Moskus]

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

 

[Christian]

Fikk samme resultat

[Christian]

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

[Moskus]

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"...

[Christian]

Testet nå med å lage to stykker uten noen form for for-løkke. det fungerte, men om jeg flytter 0 ut av for løkka og lager resten inni, så fungerer det ikke. 

[Moskus]

Det kan ikke være noe annet enn en syntax-feil et sted... jeg klarer bare ikke se den!

[Christian]

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.. 

[Moskus]

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...