Page 1 of 2
Lamp dimmen met 2 buttons
Posted: Sat Dec 25, 2010 1:10 pm
by 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.
Posted: Sat Dec 25, 2010 8:44 pm
by TANE
Het moet mogelijk zijn zal een keer naar kijken.
Wat wel kan is via een event.
Re: Lamp dimmen met 2 buttons
Posted: Sun Dec 26, 2010 1:22 am
by 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?
Re: Lamp dimmen met 2 buttons
Posted: Sun Dec 26, 2010 12:36 pm
by 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
Re: Lamp dimmen met 2 buttons
Posted: Sun Dec 26, 2010 4:45 pm
by 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.
Re: Lamp dimmen met 2 buttons
Posted: Sun Dec 26, 2010 7:37 pm
by 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")
Re: Lamp dimmen met 2 buttons
Posted: Sun Dec 26, 2010 10:34 pm
by 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.
Re: Lamp dimmen met 2 buttons
Posted: Mon Dec 27, 2010 1:27 am
by 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.
Re: Lamp dimmen met 2 buttons
Posted: Mon Dec 27, 2010 10:40 am
by 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
Re: Lamp dimmen met 2 buttons
Posted: Mon Dec 27, 2010 8:43 pm
by 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.
Re: Lamp dimmen met 2 buttons
Posted: Mon Dec 27, 2010 10:45 pm
by 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.
Re: Lamp dimmen met 2 buttons
Posted: Mon Dec 27, 2010 11:30 pm
by 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.
Re: Lamp dimmen met 2 buttons
Posted: Mon Dec 27, 2010 11:57 pm
by 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%]
Re: Lamp dimmen met 2 buttons
Posted: Tue Dec 28, 2010 1:27 pm
by 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))
Re: Lamp dimmen met 2 buttons
Posted: Tue Dec 28, 2010 4:59 pm
by AshaiRey
@alexander
Dat zou weleens de juiste commando kunnen zijn.
@Antoon
&hs.ExecX10 "L6", "extended", 10, 49, False
Waar staat die 49 voor dan?