Forum Domoticz en français

Code : Tout sélectionner

-- Script pour dispatcher la consommation électrique dans différents compteurs selon l'utilisation des appareils
-- 1. Télévision
-- 2. Pompe Piscine
-- 3. Chauffe-eau

local mesure = "owl"			-- Compteur de consommation totale de la maison, en kWh
local HCSw = "Heures creuses EDF"  -- Dummy switch d'indication des heures pleines/creuses, sur planning. On=Heures creuses, Off=Heures pleines

-- 1. Télévision
local c1_cpt = "Consommation TV"  --Dummy P1 smart counter pour logger la consommation de la TV
local c1_W=120  -- Puissance consommée de la TV
local c1_Sw="TV Salon" -- Switch indiquant si la TC est allumée

-- 2. Pompe piscine
local c2_cpt = "Consommation Piscine"
local c2_W=300
local c2_Sw="Filtration piscine"

-- 3. Chauffe eau
local c3_cpt = "Consommation chauffe-eau"
local c3_W = 2200 -- Watt
local c3_UV_CEOn = "CE_Marche"

-- Variables internes
local c1_idx = otherdevices_idx[c1_cpt]
local c2_idx = otherdevices_idx[c2_cpt]
local c3_idx = otherdevices_idx[c3_cpt]
local c4_idx = otherdevices_idx[c4_cpt]
local cmd_idx=1
local freq = 5  -- Fréquence d'exécution du script, en minutes

-- Bibliothèque de fonctions
function round(num, dec)
    if num == 0 then
        return 0
    else
        local mult = 10^(dec or 0)
        return math.floor(num * mult + 0.5) / mult
    end
end

function lastupdate(capteur)
    -- retourne le nombre de minutes écoulées depuis la dernière mise à jour d'un capteur
    s=otherdevices_lastupdate[capteur]

    s_year = string.sub(s, 1, 4)
    s_month = string.sub(s, 6, 7)
    s_day = string.sub(s, 9, 10)
    s_hour = string.sub(s, 12, 13)
    s_minutes = string.sub(s, 15, 16)
    s_seconds = string.sub(s, 18, 19)

    t2 = os.time{year=s_year, month=s_month, day=s_day, hour=s_hour, min=s_minutes, sec=s_seconds}
    return os.difftime (os.time(), t2)/60
end
-- Fin bibliothèque de fonctions

commandArray = {}
print ("-------------------------- New minute --------------------------------")
time = os.date("*t")

-- Run every "freq" minutes. 
if  (((time.min - 1)% freq)==0)  then 
    c1_u1, c1_u2 = string.match(otherdevices_svalues[c1_cpt],"(.-);(.-);.*")
    c2_u1, c2_u2 = string.match(otherdevices_svalues[c2_cpt],"(.-);(.-);.*")
    c3_u1, c3_u2 = string.match(otherdevices_svalues[c3_cpt],"(.-);(.-);.*")
    
    actual_conso, compteur, dum2 = string.match(otherdevices_svalues[mesure],"(%d+.%d*);(%d+).(%d*)")

    -- Télévision
    if otherdevices[c1_Sw] == 'On' then
        c1_conso=c1_W
    else
        c1_conso=0.6
    end

    -- Piscine
    if otherdevices[c2_Sw] == 'On' then
        c2_conso=c2_W
    else
        c2_conso=0.4
    end

    -- Chauffe-eau
    -- Le chauffe-eau ne marche que sur tarif de nuit et consomme 2200W, soit plus que tout autre machine de nuit
    -- Il démarre dès le début des heures creuses et s'arrête quand la conso instantanée < 2200W
    
    if otherdevices[HCSw] == 'On' and lastupdate(HCSw)<=freq then 
    --Première exécution du script depuis le début des HC
        commandArray['Variable:'..c3_UV_CEOn] = "On"
    end
    
    if otherdevices[HCSw] == 'On' and tonumber(actual_conso) >= c3_W and uservariables[c3_UV_CEOn] == "On" then
            c3_conso=c3_W
    else
            c3_conso=0
    end
    
    if otherdevices[HCSw] == 'On' and tonumber(actual_conso) < c3_W and uservariables[c3_UV_CEOn] == "On" then
    	-- Une fois qu'on a vu la consommation tomber sous 2200W dans la nuit, la chauffe est terminée. Si, plus tard, un autre appareil consommant plus de 2200W se met en route, il ne sera pas comptabiliser comme étant le chauffe-eau
        commandArray['Variable:'..c3_UV_CEOn] = "Off"
    end

    -- date_stamp=os.date("%Y-%m-%d %H:%M:%S")

    -- print ('HPHC '..otherdevices[HCSw])
    -- print ('C1_Sw '..otherdevices[conso1_Sw])
    -- print (date_stamp.." "..math.floor(actual_conso+0.5).." W") 
    -- print ("u1 "..usage1.." u2 "..usage2)
    -- print ("Wh "..Wh)

    -- Mise à jour des capteurs
    if otherdevices[HCSw] == 'Off' then
        -- svalue=USAGE1;USAGE2;RETURN1;RETURN2;CONS;PROD
        commandArray[cmd_idx] = {['UpdateDevice'] = tostring(c1_idx)..'|0|'..tostring(c1_u1+c1_conso*freq/60)..';'..tostring(c1_u2)..';0;0;'..tostring(c1_conso)..';0'}
        cmd_idx=cmd_idx+1
        commandArray[cmd_idx] = {['UpdateDevice'] = tostring(c2_idx)..'|0|'..tostring(c2_u1+c2_conso*freq/60)..';'..tostring(c2_u2)..';0;0;'..tostring(c2_conso)..';0'}
        cmd_idx=cmd_idx+1
        commandArray[cmd_idx] = {['UpdateDevice'] = tostring(c3_idx)..'|0|'..tostring(c3_u1+c3_conso*freq/60)..';'..tostring(c3_u2)..';0;0;'..tostring(c3_conso)..';0'}
        cmd_idx=cmd_idx+1
    else
        commandArray[cmd_idx] = {['UpdateDevice'] = tostring(c1_idx)..'|0|'..tostring(c1_u1)..';'..tostring(c1_u2+c1_conso*freq/60)..';0;0;'..tostring(c1_conso)..';0'}
        cmd_idx=cmd_idx+1
        commandArray[cmd_idx] = {['UpdateDevice'] = tostring(c2_idx)..'|0|'..tostring(c2_u1)..';'..tostring(c2_u2+c2_conso*freq/60)..';0;0;'..tostring(c2_conso)..';0'}
        cmd_idx=cmd_idx+1
        commandArray[cmd_idx] = {['UpdateDevice'] = tostring(c3_idx)..'|0|'..tostring(c3_u1)..';'..tostring(c3_u2+c3_conso*freq/60)..';0;0;'..tostring(c3_conso)..';0'}
        cmd_idx=cmd_idx+1
    end
end
    
return commandArray