Forum Domoticz en français

Code : Tout sélectionner

-- thermostat device script
-- script names have three name components: script_trigger_name.lua
-- trigger can be 'time' or 'device', name can be any string
-- domoticz will execute all time and device triggers when the relevant trigger occurs
-- 
-- copy this script and change the "name" part, all scripts named "demo" are ignored. 
--
-- Make sure the encoding is UTF8 of the file
--

function round(num, dec)
    local mult = 10^(dec or 0)
    return math.floor(num * mult + 0.5) / mult
end 

function round5(num, dec)
    return round(num/5,dec)*5
end 

hysteresis=0.5
Pieces=
{ 
    ['Chambre parents']={'Chambre parents','Consigne chambre parents','Chauffage chambre parents'};
    ['Chambre Mathéo']={'Chambre Mathéo','Consigne chambre Mathéo','Chauffage chambre Mathéo'};
    ['Salon']={'Salle de bain','Consigne salon','Chauffage salon'}
    --[NOM_PIECE]={'NOM SONDE TEMPERATURE'},{'NOM THERMOSTAT VIRTUEL'},{NOM SWITCH CORRESPONDANT'}
}
Distances={'Distance David','Distance Estelle'}
SwitchChauffages={'Chauffage chambre parents','Chauffage chambre Mathéo','Chauffage salon','Force chauffage'}
SwitchChaudiere='Chaudière'

commandArray = {}

distanceChanged = false
minDistance = 100
--for i, v in pairs(otherdevices_svalues) do print(i..' '..v) end
-- Gestion des distances et caclul de la distance la plus proche
for a,b in pairs(Distances) do
    if devicechanged[b] then
        distanceChanged = true
    end
    dist = tonumber(otherdevices_svalues[b])
    if minDistance > dist then minDistance = dist end
end
   
-- Gestion des sondes de températures
for a,b in pairs(Pieces) do
    if (devicechanged[b[1]] or devicechanged[b[2]] or distanceChanged) then        
        -- On recupère la température actuel et on calcul la consigne en fonction de la distance    
        tempActuel = tonumber(otherdevices_svalues[b[1]]:match("([^;]+).+"))
        tempConsigne = round5(tonumber(otherdevices_svalues[b[2]]) * math.pow((100-minDistance)/100,1/2),1)
        --print ('Consigne pour '..a..' : '..tempConsigne..' - Température actuel : '..round(tempActuel,1))
        if (tempConsigne < 17) then tempConsigne = 17 end
        -- On active/desactive le chauffage en cas de besoin
        if ((tempActuel < tempConsigne - hysteresis) and otherdevices[b[3]] == "Off")  then
            print (a..' : Temperature trop basse'..'. Activation '..b[3])
            commandArray[b[3]]='On'
        elseif ((tempActuel > tempConsigne + hysteresis) and otherdevices[b[3]] == "On") then
            print (a..' : Temperature trop haute'..'. Désactivation '..b[3])
            commandArray[b[3]]='Off'
        end
    end
end

-- Gestion des switch et allumage/Extinction chaudières
for a,b in pairs(SwitchChauffages) do
    if (devicechanged[b]) then
        if (devicechanged[b] == "On" and otherdevices[SwitchChaudiere] == "Off") then
            commandArray[SwitchChaudiere]='On'
        elseif (devicechanged[b] == "Off" and otherdevices[SwitchChaudiere] == "On") then
            -- On vérifie si aucun des switchs n'est encore actif
            needStop = true
            for c,d in pairs(SwitchChauffages) do 
                if otherdevices[d] == "On" then needStop = false end 
            end
            if (needStop == true) then
                commandArray[SwitchChaudiere]='Off'
            end
        end
    end
end

return commandArray