Lamp dimmen met 2 buttons

[Antoon]

Ik zou graag een lamp willen dimmen met 2 buttons.
Dus 1 button voor hoger en 1 button voor lager, bv in stapjes van 10%.
Ik denk dat dit alleen met een script mogelijk is,maar krijg het zo snel niet voor elkaar.
Zijn hier mensen die zoiets werkend hebben en dit willen delen.

[TANE]

Het moet mogelijk zijn zal een keer naar kijken.
Wat wel kan is via een event.

[Antoon]

Ik heb het nu tijdelijk met 4 knoppen gedaan.
Dus 0,50,75 en 100%
Enver hoe kan je het met een event doen,deze kan ik toch ook met HST aanspreken?

[AshaiRey]

Hoi Antoon.

Voor jou omdat het kerst is.

Schrijf dit 2x weg. Noem de ene bijvoorbeeld DimOp.vb en de andere DimNeer.vb
De button in HST laat je gewoon naar DimOp of DimNeer wijzen (alleen Main instellen en verder niets)

In het script moet je zelf het device (hier K7) en de STAP per klik instellen

Code: Select all

	Public Sub Main(ByVal Parms As String)
            ' Een lamp OP/NEER dimmen met 2 buttons.

            Dim Device as String
            Dim Stap as Integer
            
            
            ' --==[ VARIABELEN OM IN TE STELLEN ]==--
            'Device dat bewerkt moet worden
            Device = "K7"

	    'Level verschil per stap
	    'Positief voor OP en negatief voor NEER
	    Stap = 10
	    

	    ' --==[ START programma ]==--
            ' Zet wat leesbare waarden
            Dim UIT as Integer      = 3
            Dim AAN as Integer      = 2
            Dim DIMMEN as Integer   = 4  ' DIM kan niet omdat dit een gereseveerd Keywoord is van VB

  	    
	    ' OPM. Ik schrijf alle stappen apart uit voor leesbaarheid
	    ' Haal de huidige Dim waarde op van het device
	    Dim HuidigeWaarde as Integer
	    HuidigeWaarde = hs.DeviceValue(Device)
	    	    	    
	    ' Bewerk de waarde
	    HuidigeWaarde = HuidigeWaarde + Stap
	    
	    ' Zet wat limieten
	    If HuidigeWaarde > 100 Then HuidigeWaarde = 100
	    If HuidigeWaarde <   0 Then HuidigeWaarde =   0
	    
	    ' Geef de device ook de juiste status
	    If HuidigeWaarde > 0 Then 
	    	hs.SetDeviceStatus(Device, DIMMEN)
	    Else 
	    	hs.SetDeviceStatus(Device, UIT)
	    End If
	    
	    ' Zet de waarde terug
	    hs.SetDeviceValue(Device, HuidigeWaarde)
	End Sub

Groeten,
Bram

[Antoon]

Bram,

Bedankt voor het script,dit is porecies zoals ik het in gedachte had.
Ik heb echter 1 probleem.
Als ik + of - doe dan gaat dit mooi in stapjes van 10%.
Hij laat dat ook mooi zien op de status pagina van homeseer,echter alleen de lamp gaat niet branden.
Zie ook geen fouten in de log,sterker nog,ik zie niet eens dat het script gedraait wordt.

[AshaiRey]

Antoon,

Uiteraard heb ik hier het script nogeens getest.
Wat blijkt ik heb hier ook een lamp waarbij het niet wilt werken en de andere wel.
Het zijn allebei KaKu dimmers, type AWMR-210.
Waarschijnelijk oet ik die ene opnieuw de instellingen 'leren' want hij reageer helemaal niet meer op de RFXcom.
Dat is iets wat de laatste tijd vaker gebeurd.

Ik weet niet wat jij gebruikt maar je zou kunnen proberen om de twee hs.SetDeviceStatus te vervangen voor een hs.ExecX10(Device, "ON") en hs.ExecX10(Device, "OFF")

[TANE]

Met x10 modules was er een optie om dit via events te regelen.
maar het werkt niet meer met zwave.
Enige optie is inderdaad nu met scripting.

[Antoon]

Bram,
Ik gebruik momenteel nog Xanura modules.
Zal het andere commando nog eens proberen.
Als ik vanuit het controlpanel de volgende regel type werkt dat wel

&hs.ExecX10 "L6", "extended", 10, 49, False

Waarbij de 10 dan het dim percentage aangeeft.
Ik weet echter niet hoe ik dit in het script kan verwerken.

[AshaiRey]

Hoi Antoon,

Ik heb geen Xanura modules hier dus helaas kan ik het niet testen voor je.
Ik heb wel het door jou gegeven commando verwerkt in het onderstaande script. Ik hoop dat het zo voor je werkt, het leverde in ieder geval geen script error op voor me.

Groeten,
bram

Code: Select all

   Public Sub Main(ByVal Parms As String)
            ' Een lamp OP/NEER dimmen met 2 buttons.

            Dim Device as String
            Dim Stap as Integer
            
            
            ' --==[ VARIABELEN OM IN TE STELLEN ]==--
            'Device dat bewerkt moet worden
            Device = "L6"

       'Level verschil per stap
       'Positief voor OP en negatief voor NEER
       Stap = 10
       

       ' --==[ START programma ]==--
            ' Zet wat leesbare waarden
            Dim UIT as Integer      = 3
            Dim AAN as Integer      = 2
            Dim DIMMEN as Integer   = 4  ' DIM kan niet omdat dit een gereseveerd Keywoord is van VB

         
       ' OPM. Ik schrijf alle stappen apart uit voor leesbaarheid
       ' Haal de huidige Dim waarde op van het device
       Dim HuidigeWaarde as Integer
       HuidigeWaarde = hs.DeviceValue(Device)
                     
       ' Bewerk de waarde
       HuidigeWaarde = HuidigeWaarde + Stap
       
       ' Zet wat limieten
       If HuidigeWaarde > 100 Then HuidigeWaarde = 100
       If HuidigeWaarde <   0 Then HuidigeWaarde =   0
       
       ' Geef de device ook de juiste status
       If HuidigeWaarde > 0 Then 
           hs.ExecX10(Device, "extended", HuidigeWaarde , 49, False)
       Else 
          hs.ExecX10(Device, "extended", 0 , 49, False)
       End If
       
       ' Zet de nieuwe waarde terug
       hs.SetDeviceValue(Device, HuidigeWaarde)
   End Sub

[Antoon]

Bram,

De Lamp gaat nu inderdaad branden.
Echter ik kan alleen omhoog dimmen in stappen van 10%
Als ik omlaag wil dan gaat hij toch omhoog.
Ik had dit trouwens gister ook al met het eerste script,alhoewel het in eerste instantie wel werkte.

[AshaiRey]

Antoon,

In het tweede script, het script dat je gebruikt kan je dit aanpassen

Code: Select all

       'Level verschil per stap
       'Positief voor OP en negatief voor NEER
       Stap = 10

Stap = -10

OF je doet het hier.

Code: Select all

       ' Bewerk de waarde
       HuidigeWaarde = HuidigeWaarde + Stap

HuidigeWaarde = HuidigeWaarde - Stap

Je hebt dus 2 scripts nodig. Een voor omhoog en een voor omlaag.

[Antoon]

Bram,

Ja ik had de + en - al aangepast in de scripts.
Het werkt nu wel tot ongeveer 60%.
Bij 70% gaat de lamp vol branden en daarna is hij volledig de weg kwijt.
Ga ik dan door naar 80% dan gaat hij ineens naar 20% ofzo.

[Antoon]

Als ik via de status pagina van Homeseer de lamp op ga dimmen ziet het er als volgt uit.

27-12-2010 22:51:54 Device Control Device: Livingroom Verlichting Light Table (L6) Extended 6,3 [10%]
27-12-2010 22:51:58 Device Control Device: Livingroom Verlichting Light Table (L6) Extended 12,6 [20%]
27-12-2010 22:52:01 Device Control Device: Livingroom Verlichting Light Table (L6) Extended 18,9 [30%]
27-12-2010 22:52:04 Device Control Device: Livingroom Verlichting Light Table (L6) Extended 25,2 [40%]
27-12-2010 22:52:07 Device Control Device: Livingroom Verlichting Light Table (L6) Extended 31,5 [50%]
27-12-2010 22:52:09 Device Control Device: Livingroom Verlichting Light Table (L6) Extended 37,8 [60%]
27-12-2010 22:52:12 Device Control Device: Livingroom Verlichting Light Table (L6) Extended 44,1 [70%]
27-12-2010 22:52:15 Device Control Device: Livingroom Verlichting Light Table (L6) Extended 50,4 [80%]
27-12-2010 22:52:17 Device Control Device: Livingroom Verlichting Light Table (L6) Extended 56,7 [90%]
27-12-2010 22:52:20 Device Control Device: Livingroom Verlichting Light Table (L6) Extended 63 [100%]

[Alexander]

Alternatief (niet kunnen testen aangezien mijn homeseer machine down is):

"A1" vervangen door je house+devicecode van het desbetreffende device:

&hs.transmit("A1", "DDim", hs.devicevalue("A1")+10))

&hs.transmit("A1", "DDim", hs.devicevalue("A1")-10))

[AshaiRey]

@alexander

Dat zou weleens de juiste commando kunnen zijn.

@Antoon

&hs.ExecX10 "L6", "extended", 10, 49, False

Waar staat die 49 voor dan?