Forum Domoticz en français

Code : Tout sélectionner

 --------- Tableau des intérupteurs des PIR
local PIR={}
PIR['0']='PIR Salon'
PIR['1']='PIR Salle'
PIR['2']='PIR Bureau'

-- Nom de l'interupteur virtuel de type motion detector
local PIRVirtuel = 'PIR Virtuel'

-- Nom de la variable qui stock le dernier PIR detecté
local PIRVirtuel_detected = 'PIR detected'

-- IP:PORT du serveur Domoticz
local ip = '192.168.1.100:8080'   -- user:pass@ip:port de domoticz

-- Variables
local detection=false
local PIRdeclanche = ' '
local nbdetecteur = 0

commandArray = {}

function timedifference(s)
   year = string.sub(s, 1, 4)
   month = string.sub(s, 6, 7)
   day = string.sub(s, 9, 10)
   hour = string.sub(s, 12, 13)
   minutes = string.sub(s, 15, 16)
   seconds = string.sub(s, 18, 19)
   t1 = os.time()
   t2 = os.time{year=year, month=month, day=day, hour=hour, min=minutes, sec=seconds}
   difference = os.difftime (t1, t2)
   return difference
end

function urlencode(str)
   if (str) then
    str = string.gsub (str, "\n", "\r\n")
    str = string.gsub (str, "([^%w ])",
    function (c) return string.format ("%%%02X", string.byte(c)) end)
    str = string.gsub (str, " ", "+")
    end
   return str
end

for key, valeur in pairs(PIR) do
    -- Création de la variable si elle n'existe pas
    if(uservariables['V_'..valeur] == nil) then
        print('PIR Virtuel : création variable V_'..valeur)
        commandArray[tonumber(key)]={['OpenURL']=ip..'/json.htm?type=command&param=saveuservariable&vname=V_'..urlencode(valeur)..'&vtype=2&vvalue='..urlencode(otherdevices_lastupdate[valeur])}
    end
    -- test de fiabilité déclanchement
    local etat=tostring(devicechanged[valeur])
    local last=timedifference(uservariables['V_'..valeur])
    if (etat=='On' and last<30) then
        commandArray['Variable:V_'..valeur]=otherdevices_lastupdate[valeur]
        PIRdeclanche=valeur
        detection=true
    elseif (etat=='On') then
        commandArray['Variable:V_'..valeur]=otherdevices_lastupdate[valeur]
        PIRdeclanche=PIRdeclanche..' '..valeur
    end
    --compte le nombre de detecteur dans les 30 dernière secondes
    if (last<30) then
        nbdetecteur=nbdetecteur+1
    end
end

-- Si plus d'1 detecteur sont sur On 
if (detection==false and nbdetecteur>=2) then
    detection=true
end

-- Mise à jour du detecteur virtuel si la dernière mise à jour à plus de 3mn
if (timedifference(otherdevices_lastupdate[PIRVirtuel])>180 and detection==true) then
    commandArray['Variable:'..PIRVirtuel_detected]=PIRdeclanche
    print('PIR Virtuel Script: '..PIRdeclanche..' detecté ('..nbdetecteur..')')
    commandArray[PIRVirtuel]='On'
end

return commandArray