Forum Domoticz en français

Code : Tout sélectionner

--[[Script to read infos from espeasy/pzem-004t and disptach it in correct devices]]--

-- Edit the dummies name below to match yours
local dev_HC      ="Heures Creuses"
local dev_pzem1   ="pzem" 
local dev_V1      ="Tension"
local dev_A1      ="Intensité"
local dev_W1      ="Puissance"

-- End of user-edit part

function UpdateVar(variable,valeur)
    --Update une variable Domoticz
    commandArray[#commandArray+1] = {['Variable:'..variable] = tostring(valeur)}
end

function UpdateDev(device,nvalue,svalues)
    --Met à jour un device numérique Domoticz
    commandArray[#commandArray+1] = {['UpdateDevice'] = otherdevices_idx[device]..'|'..tostring(nvalue)..'|'..tostring(svalues)}
end

function pzem_read(pzem,HC,dev_V,dev_A,dev_W)
    --[[Read values from a 3ph-amp dummies and dispatch them in sensor for voltage, current, and power
    
    Input :
    pzem : type 3ph amp, updated by espeasy
    HC : switch "On"=happy hours for electricity
    
    Output :
    dev_V : type voltage
    dev_A : type current
    dev_W : P1 smart counter
    ]]--

    local u1, u2, p1, p2
    local val_V,val_A,val_W,val_Wh
    local local_dbg=0

    old_Wh=uservariables[pzem.."_idx"]

    u1, u2, p1, p2 = string.match(otherdevices_svalues[dev_W],"(.-);(.-);(.-);(.-);.*")
    -- Usefull for newly created counters
    u1=u1 or 0
    u2=u2 or 0
    p1=p1 or 0
    p2=p2 or 0

    val_V,val_A,val_W,val_Wh=string.match(otherdevices_svalues[pzem],"(.-);(.-);(%d*);(%d*)")

    if local_dbg==1 then
        print(otherdevices_svalues[pzem])
        print(val_V)
        print(val_A)
        print(val_W)
        print(val_Wh)
    end

    if tonumber(val_V)>1 then UpdateDev(dev_V,0,val_V) end
    if tonumber(val_A)>1 then UpdateDev(dev_A,0,val_A) end
    if tonumber(val_Wh)>=tonumber(old_Wh) then 
        if otherdevices[HC] == 'Off' then
            -- svalue=USAGE1;USAGE2;RETURN1;RETURN2;CONS;PROD
            UpdateDev(dev_W,0,tostring(u1+val_Wh-old_Wh)..';'..tostring(u2)..';0;0;'..tostring(val_W)..';0')
        else
            UpdateDev(dev_W,0,tostring(u1)..';'..tostring(u2+val_Wh-old_Wh)..';0;0;'..tostring(val_W)..';0')
        end
        UpdateVar(pzem.."_idx",val_Wh)
    end
end

commandArray = {}

if devicechanged[dev_pzem1] then pzem_read(dev_pzem1,dev_HC,dev_V1,dev_A1,dev_W1) end
	 
return commandArray

Code : Tout sélectionner

preactive= val_V * val_A

Code : Tout sélectionner

UpdateDev('nom de ton device',0,tostring(val_V * val_A))

Code : Tout sélectionner

--[[Script to read infos from espeasy/pzem-004t and disptach it in correct devices]]--

-- Edit the dummies name below to match yours
local dev_HC      ="Heures Creuses"
local dev_pzem1   ="pzem" 
local dev_V1      ="Tension"
local dev_A1      ="Intensité"
local dev_W1      ="Puissance"
local dev_VA1     ="Puissance Totale"

-- End of user-edit part

function UpdateVar(variable,valeur)
    --Update une variable Domoticz
    commandArray[#commandArray+1] = {['Variable:'..variable] = tostring(valeur)}
end

function UpdateDev(device,nvalue,svalues)
    --Met à jour un device numérique Domoticz
    commandArray[#commandArray+1] = {['UpdateDevice'] = otherdevices_idx[device]..'|'..tostring(nvalue)..'|'..tostring(svalues)}
end

function pzem_read(pzem,HC,dev_V,dev_A,dev_W,dev_VA)
    --[[Read values from a 3ph-amp dummies and dispatch them in sensor for voltage, current, and power
    
    Input :
    pzem : type 3ph amp, updated by espeasy
    HC : switch "On"=happy hours for electricity
    
    Output :
    dev_V : type voltage
    dev_A : type current
    dev_W and dev_VA : P1 smart counter
    ]]--

    local u1, u2, p1, p2, v1, v2, q, q2
    local val_V,val_A,val_W,val_Wh,val_VA,val_VAh
    local local_dbg=0

    old_Wh= uservariables[pzem.."_idx"]
    old_upt=uservariables[pzem.."_upt"] -- contient l'heure (en sec) de la dernière mise à jour du pzem par la wemos
    
    -- on calcule la durée en secondes depuis l'update précédent, et on la limite à 5min (300 sec) pour éviter de trop grosses erreurs d'estimations en cas de perte de communication
    time = os.time()
    old_upt=old_upt or time -- Utile lorsque la variable vient juste d'être créée mais non encore initialisée
    duree=math.max(time-old_upt,300)
    
    u1, u2, p1, p2 = string.match(otherdevices_svalues[dev_W] ,"(.-);(.-);(.-);(.-);.*")
    v1, v2, q1, q2 = string.match(otherdevices_svalues[dev_VA],"(.-);(.-);(.-);(.-);.*")
    -- Usefull for newly created counters
    u1=u1 or 0; u2=u2 or 0; p1=p1 or 0; p2=p2 or 0
    v1=v1 or 0; v2=v2 or 0; q1=q1 or 0; q2=q2 or 0
    
    val_V,val_A,val_W,val_Wh=string.match(otherdevices_svalues[pzem],"(.-);(.-);(%d*);(%d*)")
    
    --[[ Pour avoir les VAh, on n'a pas de méthode précise :-( car pour être bien fait, le calcul devrait être fait dans le pzem
    En faisant le calcul dans domoticz, on a deux méthodes, qui ont chacune leurs avantages et inconvénients
    Méthode 1 : on intégre les VA dans domoticz. 
    Ceci nécessite de connaître dans domoticz la fréquence de lecture paramétrée dans l'esp, et on ignore tout ce qui peut se passer entre deux réception de valeur dans domoticz. Donc si le courant varie fortement, ou si le wifi est instable; l'estimation est peu précise.
    Méthode 2 : on recalcule les VAh sur la base des Wh (qui eux sont exact) et du cos phi moyen entre deux échantillonnages. l'avantage est qu'on se dispense de savoir la fréquence d'échantillonnage ; l'inconvénient est que si le cos phi varie fortement, l'estimation est peu précise.
    
    On implémente ici la méthode 1 ; la fréquence d'échantillonnage est mesurée comme la durée entre deux update du device pzem
    ]]--
    val_VA=val_V*val_A
    
    if local_dbg==1 then
        print(otherdevices_svalues[pzem])
        print(val_V)
        print(val_A)
        print(val_W)
        print(val_Wh)
        print(val_VA)
    end

    if tonumber(val_V)>1 then UpdateDev(dev_V,0,val_V) end
    if tonumber(val_A)>1 then UpdateDev(dev_A,0,val_A) end
    if tonumber(val_Wh)>=tonumber(old_Wh) then 
        if otherdevices[HC] == 'Off' then
            -- svalue=USAGE1;USAGE2;RETURN1;RETURN2;CONS;PROD
            UpdateDev(dev_W ,0,tostring(u1+val_Wh-old_Wh)..';'..tostring(u2)..';0;0;'..tostring(val_W) ..';0')
            UpdateDev(dev_VA,0,tostring(v1+val_VA*duree) ..';'..tostring(v2)..';0;0;'..tostring(val_VA)..';0')
        else
            UpdateDev(dev_W ,0,tostring(u1)..';'..tostring(u2+val_Wh-old_Wh)..';0;0;'..tostring(val_W) ..';0')
            UpdateDev(dev_VA,0,tostring(v1)..';'..tostring(v2+val_VA*duree) ..';0;0;'..tostring(val_VA)..';0')
        end
        UpdateVar(pzem.."_idx",val_Wh)
        UpdateVar(pzem.."_upt",time)
    end
end

commandArray = {}

if devicechanged[dev_pzem1] then pzem_read(dev_pzem1,dev_HC,dev_V1,dev_A1,dev_W1,dev_VA1) end
	 
return commandArray

Code : Tout sélectionner

duree=math.max(time-old_upt,300)/3600