Page 2 of 2
Re: Lamp dimmen met 2 buttons
Posted: Wed Dec 29, 2010 1:44 am
by Antoon
Bram,
Ik heb geen flauw idee waar die voor staat.
Ik zie dat voorbij komen als ik de xanura dimmer bedien.
Als ik die waarde verander in Homeseer dan werkt het ook niet meer in ieder geval.
Ik ga dat commando van Alexander nog eens testen.
Is alleen dat commando genoeg,of moet dit in het script van Bram verwerkt worden?
Re: Lamp dimmen met 2 buttons
Posted: Wed Dec 29, 2010 1:47 am
by Antoon
Heb het even snel getest via control panel.
Het commando werkt goed,alleen als ik over de 100% ga dan gaat hij naar 0% en is de lamp uit.
Re: Lamp dimmen met 2 buttons
Posted: Wed Dec 29, 2010 11:31 am
by DJF3
Je zou dit goed werkende commando kunnen combineren met het eerder getoonde script die zorgt dat de waarde niet boven de 100 kan uitkomen.
DJ
Re: Lamp dimmen met 2 buttons
Posted: Wed Dec 29, 2010 11:33 am
by AshaiRey
En niet onder d 9 natuurlijk.
Antoon, nog een poging
(Dit is wel 'black-box' programmeren zeg
)
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 ]==--
' Haal de huidige Dim waarde op van het device
Dim HuidigeWaarde as Integer
HuidigeWaarde = hs.DeviceValue(Device)
' Zet wat limieten
If Stap < 0 Then
If HuidigeWaarde + Stap < 0 Then Stap = HuidigeWaarde * -1
End If
If HuidigeWaarde + Stap > 100 Then Stap = 100 - HuidigeWaarde
' Set de nieuwe waarde
hs.transmit(Device, "DDim", HuidigeWaarde + Stap))
End Sub
Re: Lamp dimmen met 2 buttons
Posted: Wed Dec 29, 2010 10:02 pm
by Antoon
Bram,
Ik krijg nu een foutmelding
29-12-2010 20:48:34 Error Script compile error: Einde van instructie wordt verwacht.on line 43
29-12-2010 20:48:34 SCR Option Strict Offimports Schedulerimports SystemPublic Module scriptcode44#Region "Automatically generated code, do not modify"'Automatically generated code, do not modify'Event Sources Begin Public WithEvents hs As Scheduler.hsapplication Public WithEvents hsp As scheduler.hsp Public WithEvents hssystem As scheduler.phone0'Event Sources End'End of automatically generated code#End RegionPublic 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 ]==-- ' Haal de huidige Dim waarde op van het device Dim HuidigeWaarde as Integer HuidigeWaarde = hs.DeviceValue(Device) ' Zet wat limieten If Stap < 0 Then If HuidigeWaarde + Stap < 0 Then Stap = HuidigeWaarde * -1 End If If HuidigeWaarde + Stap > 100 Then Stap = 100 - HuidigeWaarde ' Set de nieuwe waarde hs.transmit(Device, "DDim", HuidigeWaarde + Stap)) End SubEnd Module
Re: Lamp dimmen met 2 buttons
Posted: Wed Dec 29, 2010 10:40 pm
by AshaiRey
Per ongeluk een haakje mee gekopieerd.
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 ]==--
' Haal de huidige Dim waarde op van het device
Dim HuidigeWaarde as Integer
HuidigeWaarde = hs.DeviceValue(Device)
' Zet wat limieten
If Stap < 0 Then
If HuidigeWaarde + Stap < 0 Then Stap = HuidigeWaarde * -1
End If
If HuidigeWaarde + Stap > 100 Then Stap = 100 - HuidigeWaarde
' Set de nieuwe waarde
hs.transmit(Device, "DDim", HuidigeWaarde + Stap)
End Sub
Re: Lamp dimmen met 2 buttons
Posted: Thu Dec 30, 2010 12:03 am
by Antoon
Bram,
Bedankt,nu werkt het wel.
Enigste wat ik nog zie is dat de stapjes niet over het hele bereik met 10 omhoog gaan.
Ik denk dat hier weinig aan te doen is,en daar kan ik ook wel mee leven.