Forum Domoticz en français

Code : Tout sélectionner

------------------------------------------------------------------------------
--
-- Copyright © 2016 Le TisseurDeToile <webmaster@tisseurdetoile.net> and released under
-- the GNU General Public License, v2 or later.
-- NOTA : don't forget to create variable
--
-- Installation :
-- Créer les variables Utilisateurs suivantes : EDF_LAST, EDF_LAST_HC, EDF_LAST_HP
-- Créer deux capteur virtuel : Capteur electrique ent noter leur index
------------------------------------------------------------------------------
--
-- Tarif EDF 2016 TTC 9kVA
local prix_abonnement = 126.52
local prix_hc = 0.1150
local prix_hp = 0.1636
--
local capteurGlobal = 'EDF Total'
local debug = 'OUI'                 -- mode debug
local meter_base = 'EDF_LAST'
local flagHC = 'Heures creuses'
local delta = 0
local inc = 0 
local idxCptHP = '219' 
local idxCptHC = '220' 
local idxFacture   = '221' 
------------------------------------------------------------------------------
function round(x, n)
    n = math.pow(10, n or 0) 
    x = x * n 
    if x >= 0 then x = math.floor(x + 0.5) else x = math.ceil(x - 0.5) end
    return x / n
end


-- Fonction de mise à jour
function update(id, power, energy) 
    commandArray[inc]= {['UpdateDevice'] = id .. "|0|" .. power .. ";" .. energy} 
    inc = inc + 1 
    return  
end

commandArray = {}

if (devicechanged[capteurGlobal]) then
    
    conso_last = tonumber(uservariables['EDF_LAST'])
    
    if not conso_last then 
        conso_last = 0
    end
    
    -- Recuperation des valeurs du compteur global
    local consoCumule
    local consoInstant
    consoInstant, consoCumule = otherdevices_svalues[capteurGlobal]:match("([^;]+);([^;]+)")
    consoInstant = tonumber(consoInstant)
    consoCumule = tonumber(consoCumule)
    
    delta = consoCumule - conso_last
    
    commandArray['Variable:EDF_LAST'] = tostring(consoCumule)
    
        local conso_hc = tonumber(uservariables['EDF_LAST_HC'])
    local conso_hp = tonumber(uservariables['EDF_LAST_HP'])

    local factureHP = round(conso_hp * prix_hp / 1000, 2)
    local factureHC = round(conso_hc * prix_hc / 1000, 2)
    local factureAn = prix_abonnement + factureHP + factureHC

    if (debug == 'OUI') then
--      print('EDF>>> conso_last = '..tostring(conso_last))
--      print('EDF>>> delta   = '..tostring(delta))
        print('EDF>>> Instant = '..tostring(consoInstant) .. 'Wh')
--      print('EDF>>> Cumul   = '..tostring(consoCumule))
--      print('EDF>>> Prix abo = '..tostring(prix_abonnement))
        print('EDF>>> Conso HP TTC = ' .. tostring(round(conso_hp/1000),0) .. 'kWh / ' ..tostring(factureHP) .. '€')
        print('EDF>>> Conso HC TTC = ' .. tostring(round(conso_hc/1000),0) .. 'kWh / ' ..tostring(factureHC) .. '€')
        print('EDF>>> Facture  TTC = '..tostring(factureAn) .. '€')

--      if (otherdevices[flagHC] == 'On') then
--          print('EDF>>> Période : Heure Creuse')
--      else
--          print('EDF>>> Période : Heure Pleine')
--      end
    end

    if (otherdevices[flagHC] == 'On') then
        -- Periode heures creuse
        commandArray['Variable:EDF_LAST_HC'] = tostring(conso_hc + delta)
        update(idxCptHC, consoInstant, conso_hc)
        update(idxCptHP, 0, conso_hp)
    else
        commandArray['Variable:EDF_LAST_HP'] = tostring(conso_hp + delta)
        update(idxCptHP, consoInstant, conso_hp)
        update(idxCptHC, 0, conso_hc)
    end

    update(idxFacture, factureAn, factureAn)

end

return commandArray