Lamp dimmen met 2 buttons

[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?

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

[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

[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

[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

[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

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