Script: Set dim level in line with light intensity needed

[dutchdevil83]

I want to share my first LUA script to set a dimmer based on light intensity measured and when motion is detected. It has build in error handling so everybody should get this working. Its my first script so please be gently

Filename : Script_device_luxdimmer.lua
Version: 0.1
Author: M van Meurs
Date: 23-11-2016
Purpose: Set a light device dimming level in line with light intensity (Lux) needed when there is motion
Requirements: A light device capable of dimming and a motion sensor with lux measurement (all in the same room)
Tested: Yes, tested with a Fibaro FGMS001 Motion Sensor and a RFX433 KaKu/CoCo Dimming Module

Code: Select all

--[[ 
Filename : Script_device_luxdimmer.lua
Version: 0.1
Author: M van Meurs
Date: 23-11-2016
Purpose: Set a light device dimming level in line with light intensity (Lux) needed when there is motion
Requirements: A light device capable of dimming and a motion sensor with lux measurement (all in the same room)
Tested: Yes, tested with a Fibaro FGMS001 Motion Sensor and a RFX433 KaKu/CoCo Dimming Module
--]]

--Set user variables below this line (need to edit)

DeviceDimmer = 'Dummy_Dimmer'	-- The EXACT name of your dimming device
DeviceLux = 'Dummy_Lux'			-- The EXACT name of your sensor with lux measurement
DeviceSensor = 'Dummy_Sensor'	-- The EXACT name of your motion sensor
MinValue =	1					-- Minimum Lux level when your lights need to be 100%
MaxValue = 100					-- Maximum Lux level when your lights doesn`t need to be switched on (for example 100 lux for a hallway and 500 lux for a working space)
debug = false					-- Set to 'true' when you want to debug to domoticz log

--Program below this line (no need to edit)

--Error handling of user variables (regardless of debug setting)
assert(otherdevices[DeviceDimmer],"ERROR:Variable DeviceDimmer not filled in correct! '"..DeviceDimmer.."' name is incorrect,please change to correct name")
assert(otherdevices[DeviceLux],"ERROR:Variable DeviceLux not filled in correct! '"..DeviceLux.."' name is incorrect,please change to correct name")
assert(otherdevices[DeviceSensor],"ERROR:Variable DeviceSensor not filled in correct! '"..DeviceSensor.."' name is incorrect,please change to correct name")
if MinValue>=MaxValue then print ("ERROR:Variable MinValue must be smaller then variable MaxValue! Please correct value")end

--Set variables needed later on
local LuxRealtime = tonumber(otherdevices_svalues[DeviceLux]) --write the current lux value 

--Function to round a number
function round(num, idp)
  local mult = 10^(idp or 0)
  return math.floor(num * mult + 0.5) / mult
end

commandArray = {}

--Set the dimlevel needed
if LuxRealtime<=MinValue then DimLevel = 100
elseif LuxRealtime>MaxValue then DimLevel = 0
else
DimFactor = (MinValue/MaxValue-1)*-1 --Get the logarithmic scale for dimming between Lux level settings defined in Min/MaxValue
DimLevel = round((((LuxRealtime/DimFactor)/MaxValue-1)*100)*-1, 0) --Set the needed dimlevel in % (rounded)
end 

--Set the dimmer to calculated level when there is motion detected
if (devicechanged[DeviceSensor] == 'On' and otherdevices[DeviceDimmer] == 'Off') then
	commandArray[DeviceDimmer]='Set Level '..(DimLevel)
--Turn of the dimmer when there is no motion detected
--Set your motion cancellation delay higher on your sensor if the offtime is too short
--++TO DO:Add time based script for motion sensors that doesn`t have motion cancellation delay settings 
elseif (devicechanged[DeviceSensor] == 'Off' and otherdevices[DeviceDimmer] ~= 'Off') then
	commandArray[DeviceDimmer]='Off'
end

--Print debug information when debug = true

if (debug) then 
	print ("*** DEBUGINFO ***")
	print ("Stored Lux Value: ".. LuxRealtime)
	print ("Minimum Value set: ".. MinValue.." Lux")
	print ("Maximum Value set: ".. MaxValue.." Lux")
	print ("Dimming level calculated: "..DimLevel.."%")
	print ("STATUS "..DeviceSensor.." "..otherdevices[DeviceSensor])
	print ("STATUS "..DeviceDimmer.." "..otherdevices[DeviceDimmer])
	for i, v in pairs(commandArray) do print('Setting [' .. i .. '] to ' .. v) end
end 

return commandArray

[salvacalatayud]

Thanks, I'll try

And one question, my lights can be set to diferent colour, is there a way of seting the color aswell as dimming?