Gå til innhold
  • Bli medlem
Støtt hjemmeautomasjon.no!

Dimme-script?


Erling

Anbefalte innlegg

  • 3 uker senere...

OK, litt generell der ja.

 

Scriptet fant jeg på www, en viss @Moskus var nevnt:

 

Sub LightUp(ByVal _input As Object)
	Dim newvalue As Integer = hs.DeviceValue(_input) + 10
	If newvalue > 100 Then newvalue = 0
	ControlDevice(_input, "dim", newvalue)
End Sub

Sub LightDown(ByVal _input As Object)
	Dim newvalue As Integer = hs.DeviceValue(_input) - 10
	If newvalue < 0 Then newvalue = 100
	ControlDevice(_input, "dim", newvalue)
End Sub

Public Sub ControlDevice(ByVal DeviceRef As Integer, ByVal command As String, Optional ByVal dimvalue As Integer = -1)
	command = command.ToLower
	If dimvalue = 0 Then command = "off"
	If dimvalue >= 99 Then command = "on"
	If command = "dim" AndAlso dimvalue = -1 Then dimvalue = 1

	Select Case command
		Case Is = "dim"
		For Each CAPIcontrol As HomeSeerAPI.CAPIControl In hs.CAPIGetControl(DeviceRef)
			If CAPIcontrol.Label.ToLower.Contains("dim") Then
				Dim DimValueInteger As Integer = CAPIcontrol.Label.ToLower.Replace("dim", "").Replace("%", "").Trim()
				If DimValueInteger = dimvalue Then
				hs.CAPIControlHandler(CAPIcontrol)
				hs.WriteLog("ControlDevice", "Device " & DeviceRef & " is dimmed to " & dimvalue & "%")
				End If
			End If
		Next

	Case Is = "on", "off"
		For Each CAPIcontrol As HomeSeerAPI.CAPIControl In hs.CAPIGetControl(DeviceRef)
			If CAPIcontrol.Label.ToLower = command Then
				hs.CAPIControlHandler(CAPIcontrol)
				hs.WriteLog("ControlDevice", "Device " & DeviceRef & " is turned " & command)
			End If
		Next
	End Select
End Sub

 

Det fungerer forøvrig ikke på hue-lysene.

 

Kjøres på samme måte som ved en Fibaro z-wave dimmer.

 

Hue lar seg dimme fra 0 til 254, ser at scriptet må modifiseres, men når jeg endret 100 til 254 har den kun av og på som reaksjon når scriptet kjøres.

 

Slik ser valgene ut:

 

5ad4f09f4dbce_Skjermbilde2018-04-16kl_20_39_48.thumb.jpg.cbca116bb037771cd8ae849a58103207.jpg

 

Er milevis utenfor min komfortsone, bestiller heller brød fra morgenlevering.no nå og håper på fint vær i morgen.

 

Hvis noen med "peiling" som også har hue-lys hadde det vært gøy om dere ville dele løsningen med meg.

 

Takk.

Lenke til kommentar
Del på andre sider

Bli med i samtalen

Du kan publisere innhold nå og registrere deg senere. Hvis du har en konto, logg inn nå for å poste med kontoen din.

Gjest
Skriv svar til emnet...

×   Du har limt inn tekst med formatering.   Lim inn uten formatering i stedet

  Du kan kun bruke opp til 75 smilefjes.

×   Lenken din har blitt bygget inn på siden automatisk.   Vis som en ordinær lenke i stedet

×   Tidligere tekst har blitt gjenopprettet.   Tøm tekstverktøy

×   Du kan ikke lime inn bilder direkte. Last opp eller legg inn bilder fra URL.

×
×
  • Opprett ny...

Viktig informasjon

Vi har plassert informasjonskapsler/cookies på din enhet for å gjøre denne siden bedre. Du kan justere dine innstillinger for informasjonskapsler, ellers vil vi anta at dette er ok for deg.