Energy Management by Wiser

[domotiqa]

Work with EER31600, with EER31800 don't knwo ?

in user library

WiserLinkIP.lua

Code:

-- ******************************************** --
--               SCHNEIDER ELECTRIC             --
--                                              --
-- Author : Valentin THOMAS                     --
-- Version : 1.0                                --
-- Update Date : 17/10/2017                     --
-- Name : WISER_LINK.lua                        --
--                                              --
-- ******************************************** --


WISER_LINK = function ()
  local self = {script={}}

  local debug = false
  local history = false

  local json = require('json')
  local http = require("socket.http")


  -- -------------------------------------------------------------------
  --- This function
  -- @param (none)
  --
  -- @return (none)
  function round(nb)
    i,f=math.modf(nb)
    return i+(math.ceil(f/0.0625)*0.0625)
  end


  -- -------------------------------------------------------------------
  --- This function
  -- @param (none)
  --
  -- @return (none)
  function self.getData(_ip, _login, _password)
   
    local wiser_data = {}
    local datas, http_code, header, err = http.request("http://".._login..":".._password.."@".._ip.."/vesta/UsageMeter")
   
    --Si le code HTTP de la réponse est 200
    if http_code == 200 then

      if not datas then

        error('Cannot fetch data at : '..ip_address)
   
      else
         
        local datas=json.decode(datas)

        for index,usage in pairs (datas.UsageMeterList)do
           
          usage_name=string.gsub(usage.Type," ","_")--Remplacement de l'espace par un underscore

          wiser_data["Power_"..usage_name]=round(usage.Power)
          wiser_data["Energy_"..usage_name]=round(usage.EnergyConsumed)
         
        end
       
      end
       
    else
      msg=string.format("Error in HTTP request, code:%s, Message:%s",http_code,err)
       
      error(msg)
      log(msg)
      alert(msg)
    end

  end

  -- -------------------------------------------------------------------
  --- This function
  -- @param (none)
  --
  -- @return (none)
  function self.script.event(event, _params)

  end


  -- -------------------------------------------------------------------
  --- This function
  -- @param (none)
  --
  -- @return (none)
  function self.script.cycle( _params )

  end


  -- -------------------------------------------------------------------
  --- This function
  -- @param (none)
  --
  -- @return (none)
  function self.script.scheduler( _params )
   
  end
 
  return self
end

class_var =  WISER_LINK()
return class_var


-- CODE POUR SCRIPTS CLIENT
--[[
WISER_LINK = require('user.WISER_LINK')


params = {
  tag_name = 'record',              -- tag to add to each knx object to record
  records_delay = 1,                -- delay between 2 records in minutes
  records_limit = 50000,            -- limit of the sql table (adviced 50 000 - 10% de la mémoire)

  export_delay = 60,                -- delay between 2 exports on usb key in minutes
  export_value_separator  = ';',    -- name of the export file on the usb key
  export_line_separator = '\r\n',   -- name of the export file on the usb key
  export_file_name = 'log.csv'      -- name of the export file on the usb key
}

]]--

cycling script:

Code:

nb_compt = 6
DEBUG = true

require('user.WiserLinkIP')

--[[ Description du nom des usages

Hot_Water = Eau Chaude Sanitaire
Cooling = Refroidissement
Heating = Chauffage
Sockets = Prises
Others = Autres
Electricity_Meter = Total issu du TIC

]]--


ADD_IP="192.168.1.11" -- Adresse IP du module Wiser Link IP
PORT=80 --Précision d'un numero de port si NAT sinon laisser 80

LOGIN="admin"--Login
PASS="admin"--Mot de passe

if not my_wiser then
  my_wiser=WiserLinkIP.new(ADD_IP..":"..PORT,LOGIN,PASS)
end


-- Récupération des données depuis le module Wiser Link IP
-- Le rafraichissment est basé sur le temps de cycle du présent script

my_wiser:fetchDatas()

--Rafraichissment des valeurs sur KNX/IP
--log(my_wiser)

-- UPDATE KNX VARIABLES
-- Energies
grp.update('6/0/1', my_wiser.Energy_Heating)     --Chauffage
grp.update('6/0/2', my_wiser.Energy_Sockets)     --Prises
grp.update('6/0/3', my_wiser.Energy_Electricity_Meter) --Total
grp.update('6/0/4', my_wiser.Energy_Hot_Water)     --Eau Chaude
grp.update('6/0/5', my_wiser.Energy_Others)     --Autre
grp.update('6/0/6', my_wiser.Energy_Cooling)     --Eau Froide


-- Puissances
--grp.update('6/1/0',my_wiser.Power_Sockets)
--grp.update('8/2/2',my_wiser.Power_Hot_Water)
--grp.update('8/2/3',my_wiser.Power_Heating)
--grp.update('8/2/4',my_wiser.Power_Cooling)
--grp.update('8/2/5',my_wiser.Power_Electricity_Meter)
--grp.update('8/2/6',my_wiser.Power_Others)