Forum Domoticz en français

Code : Tout sélectionner

--~/domoticz/scripts/lua/script_device_givreauto.lua
--auteur : papoo&deennoo
--version : on s'en fiche
--MAJ : 18/01/2017
--création : 06/05/2016
--Principe :
--a une heure donnée, va chercher les previsions de temperature pour dans 12h puis va calculer
 --le point de givre
--puis en comparant ensuite le point de givre et la température reçue, création d'une alerte givre.
 
 
 
  
 
 
--------------------------------------------
------------ Variables à éditer ------------
-------------------------------------------- 
local debugging = true                        -- true pour voir les logs dans la console log Dz ou false pour ne pas les voir
local dew_point_idx =20                -- idx de l'éventuel dummy température point de rosée si vous souhaitez le suivre
local freeze_point_idx =21             -- idx du dummy température point de givre
local freeze_alert_idx =18             -- idx du dummy alert point de givre
local heure =18                               -- heure de declenchement
local minute =30                               -- minute de declenchement
local api ="becfe64f6bbe792d334b383d2e45b85a" -- votre cle api darksky
local lat =49.676701                          -- votre latitude 
local long =5.156064                         -- votre longitude
--------------------------------------------
----------- Fin variables à éditer ---------
-------------------------------------------- 
 
--parser le json forcast io
 
-- decomenter la ligne qui vous concerne et commenter les autres avec des -- au debut
-- json = (loadfile "/root/domoticz/scripts/lua/JSON.lua")()  -- For tunning Linux
-- json = (loadfile "D:\\Domoticz\\scripts\\lua\\json.lua")()  -- For Windows
-- json = (loadfile "/volume1/@appstore/domoticz/var/scripts/lua/JSON.lua")()  -- For Syno
json = (loadfile "/home/pi/domoticz/scripts/lua/JSON.lua")()  -- For PI
 
commandArray = {}
 
 
 
now=os.date("*t")
if (now.min == minute and now.hour == heure) then
--if now.min % 1 == 0 then -- toutes les  minutes
config=assert(io.popen('/usr/bin/curl https://api.forecast.io/forecast/'..api..'/'..lat..','..long..'?units=ca&exclude=currently,minutely,daily,alerts,flags'))
blocjson = config:read('*all')
config:close()
jsonValeur = json:decode(blocjson)
temp  = jsonValeur.hourly.data[12].apparentTemperature
dew   = jsonValeur.hourly.data[12].dewPoint
--print('temp: '..temp..' dew: '..dew)
 
--------------------------------------------
---------------- Fonctions -----------------
-------------------------------------------- 
function voir_les_logs (s, debbuging)
    if (debugging) then 
      if s ~= nil then
        print ("<font color='#f3031d'>".. s .."</font>");
      else
      print ("<font color='#f3031d'>aucune valeur affichable</font>");
      end
    end
end   
function round(value, digits)
  local precision = 10^digits
  return (value >= 0) and
      (math.floor(value * precision + 0.5) / precision) or
      (math.ceil(value * precision - 0.5) / precision)
end
 
function freezing_point(d, t) 
  if d > t then
    return nil, " La température du point de rosée est supérieure à la température. Puisque la température du point de rosée ne peut être supérieure à la température de l'air , l\'humidité relative a été fixée à nil."
    end
 
T = t + 273.15
Td = d + 273.15
return (Td + (2671.02 /((2954.61/T) + 2.193665 * math.log(T) - 13.3448))-T)-273.15
   
end 
--------------------------------------------
-------------- Fin Fonctions ---------------
-------------------------------------------- 
voir_les_logs("=========== Point de rosée et point de givrage (full auto) ===========",debugging)
voir_les_logs("--- --- --- Température Ext : ".. temp,debugging)
voir_les_logs("--- --- --- Point de Rosée : ".. dew,debugging)
FreezingPoint = round(freezing_point(dew, tonumber(temp)),2)
voir_les_logs("--- --- --- Point de Givrage : ".. FreezingPoint,debugging)
       if dew_point_idx ~= nil then
    commandArray[1] = {['UpdateDevice'] = dew_point_idx .. "|0|" .. dew} -- Mise à jour point de rosée
       end
           if freeze_point_idx ~= nil then
        commandArray[2] = {['UpdateDevice'] = freeze_point_idx .. "|0|" .. FreezingPoint} -- Mise à jour point de givrage
           end
 
               if(tonumber(temp)<=1 and tonumber(FreezingPoint)<=0)then
            voir_les_logs("--- Givre Demain Matin ---",debugging)
                  commandArray[3]={['UpdateDevice'] = freeze_alert_idx..'|4|'..FreezingPoint}
                  commandArray['SendNotification'] = 'Alert#Présence de givre demain matin!'
               elseif(tonumber(Temp)<=3 and tonumber(FreezingPoint)<=0)then
            voir_les_logs("--- Risque de Givre Demain Matin ---",debugging)
                  commandArray[3]={['UpdateDevice'] = freeze_alert_idx..'|2|'..FreezingPoint}
                  commandArray['SendNotification'] = 'Alert#Risque de givre demain matin!'
               else
            voir_les_logs("--- --- --- Aucun risque de Givre --- --- ---",debugging)
                  commandArray[3]={['UpdateDevice'] = freeze_alert_idx..'|1|'..'Pas de givre'}
            voir_les_logs("=========== Fin Point de rosée et point de givrage (v1.0) ===========",debugging)
 
            end 
end
 
return commandArray