Cómo crear un sensor de lluvia DIY (parte IV)

4. Integración con HC2

Antes de proceder a instalar todo en la caja estanca, vamos a probar que el controlador recibe la información correcta.

Como comentamos al principio, en este tutorial haremos la integración con Fibaro HC2. Para ello necesitaremos la escena que creamos anteriormente cuando cargamos el firmware de la tarjeta ESP.

4.1 Escena LUA

Esta escena se encargará de gestionar en principio persianas, pero podemos adaptarla a otros elementos de nuestra instalación.

La escena se disparará desde el sensor de lluvia, de tal forma que, cuando comience a llover, se almacenarán las posiciones de todas las persianas afectadas y se bajarán. Cuando se detecte que ha dejado de llover, se llevarán las persianas a su posición inicial.

Abriremos la escena que creamos anteriormente y copiaremos y pegaremos en el espacio reservado al código LUA el siguiente texto:

--[[
%% properties
%% events %% globals
--]]

-- tabla de dispositivos
hT = json.decode(fibaro:getGlobalValue('HomeTable'))

--[[----- CONFIGURACION DE USUARIO -------------------------------------------]]
userOptions = {
 -- persianas afectadas
 roller = {hT.Despacho.Persiana, hT.Cocina.Persiana}
}
--[[----- FIN CONFIGURACION DE USUARIO
---------------------------------------]]

--[[-- confguración del LOG --]]
OFF=1;ERROR=2;INFO=3;DEBUG=4 -- referencia para el log
levelLog = DEBUG      -- nivel de log

--[[ Conjunto de funciones para compartir --]]
if not lin then lin = {
 __version = "1.0",
 variable =
 function(self, varName, value, ...)
  local isEnum = true
  local isTable = true
  local enumValue = {"Table"}
  -- si no existe se crea vacia
  if fibaro:getGlobalValue(varName) == nil then
     api.post("/globalVariables/", {name = varName})
  end
  -- si se ha pasado un valor se actualiza en la variable 
  if value then
     value = json.encode(value)
     api.put("/globalVariables/"..varName, {name = varName, value = value,
      isEnum = true, enumValues = enumValue} )
  end
  -- recuperar el valor actual de la variable
  local value = fibaro:getGlobalValue(varName) 
  -- si la variable contiene un valor
  if value then
  -- devolver valor como tabla
  return json.decode(fibaro:getGlobalValue(varName))
 end
 -- si la variable no tiene valor devolver false
 return false
end,

log =
function(self, level, mensaje, ...)
 if not mensaje then mensaje = 'nil' end
 if levelLog >= level then
   local color = 'yellow'
   if level == INFO then color = 'green' end
   if level == ERROR then color = 'red' end
   --fibaro:debug(
     --string.format(
       --'<%s style="color:%s;">%s</%s>', "span", color, mensaje, "span"
     --)
   --)
   fibaro:debug(
     '<span style="color:'..color..';">'..(mensaje or '<nil>')..'</span>')
 end
end,

savePositionDomn =
function (self, roller, rainSensor)
 local rollerPosition = {}
  -- recorrer las persianas afectadas
  for key, value in pairs(roller) do
  position = fibaro:getValue(value, 'value')
  -- almacenar cada uno de los estados de las persianas
  lin:log(DEBUG, 'almacenar cada uno de los estados de las persianas')
  rollerPosition[value] = position
  lin:log(DEBUG, 'id: '..value..' podición: '..rollerPosition[value])
  -- bajar las bajarPersianas
  fibaro:call(value, 'close');
 end
 -- salvar el estado de las persianas y el estado del sensor
 local rollerShutter = {rainSensor=rainSensor, rollerPosition=rollerPosition}
 return lin:variable('rollerShutter', rollerShutter)
end,

setPosition =
function(self, rollerPosition, rainSensor)
  -- recorrer la persianas
  for key, value in pairs(rollerPosition) do
   -- poner las persianas como estaban
   fibaro:call(key, 'setValue' , value);
  end
  -- salvar el estado de las persianas y el estado del sensor
  local rollerShutter = {rainSensor=rainSensor, rollerPosition=rollerPosition}
  fibaro:setGlobal('rollerShutter', json.encode(rollerShutter))
 end
} end
--[[ Conjunto de funciones para compartir --]]

-- leer rainSensor y rollerShutter

local rainSensor = json.decode(fibaro:getGlobalValue("rainSensor"))
local rollerShutter = lin:variable('rollerShutter')
lin:log(DEBUG, 'rainSensor: '.. json.encode(rainSensor))
lin:log(DEBUG, 'rollerShutter: '..json.encode(rollerShutter))

-- si rollerShutter tiene valores
if rollerShutter then
  -- si comienza a llover
  if rainSensor.rainSensor == 0 and rollerShutter.rainSensor == 1 then
    lin:log(INFO, 'comienza a llover')
    -- almacenar el estado actual de las persinas y bajarlas 
    lin:savePositionDomn(userOptions.roller, rainSensor.rainSensor)
-- si deja de llover
elseif rainSensor.rainSensor == 1 and rollerShutter.rainSensor == 0 then
  lin:log(INFO, 'deja de llover')
  -- volver las persianas a su posicion original
  lin:setPosition(rollerShutter.rollerPosition, rainSensor.rainSensor)
-- si sigue sin llover o si sigue lloviendo
else
  -- no hacer nada
  lin:log(INFO, 'nada que hacer')
 end
else
 -- si comienza a llover
 if rainSensor.rainSensor == 0 then
   lin:log(INFO, 'comienza a llover por primera vez')
   -- almacenar el estado actual de las persinas y bajarlas
   local rollerShutter = lin:savePositionDomn(userOptions.roller, rainSensor.rainSensor)
   lin:log(DEBUG, json.encode(rollerShutter))
 end
 -- no llueve
end

-- tabla de dispositivos
hT = json.decode(fibaro:getGlobalValue('HomeTable'))
--[[----- CONFIGURACION DE USUARIO -------------------------------------------]]
userOptions = {
 -- persianas afectadas
 roller = {hT.Despacho.Persiana, hT.Cocina.Persiana}
}
--[[----- FIN CONFIGURACION DE USUARIO ---------------------------------------]]

 hT = json.decode(fibaro:getGlobalValue('HomeTable'))

--[[----- CONFIGURACION DE USUARIO -------------------------------------------]]

roller = {hT.Despacho.Persiana, hT.Cocina.Persiana}