Domoticz

Code: Select all

--[[

        script to dynamically change max loading amperage of vehicle based on house usage / delivery

]]

local scriptVar = 'evCharger'

return
{
    on =
    {
        timer =
        {
            'every minute',
        },

        devices =
        {
            'evTrigger' -- for test only
        },

        httpResponses =
        {
            scriptVar .. '_*' ,
        },
    },

    logging =
    {
        level = domoticz.LOG_DEBUG,
        marker = 'evCharger',
    },

    execute = function(dz, item)

        -- enter you settings below this line

        local maxHouseCurrent = 15

        local chargingStationIP = '192.168.xxx.xxx'

        local evse = dz.devices('EVSEState') -- Selector switch with hidden Off level and levels 'Active' and 'not Active'
        local vehicle = dz.devices('vehicleState') -- Selector switch with hidden Off level and levels 'ready', 'detected' and 'charging'
        local evseCurrent = dz.devices('EVSECurrent') -- Ampere 1 phase
        local houseCurrent = dz.devices('houseCurrent') -- Ampere 1 phase

        local usage = dz.devices('Usage L1').actualWatt        -- smart meter usage electric
        local delivered = dz.devices('usageDelivered').actualWatt -- smart meter usage electric

        local testing = false

        -- no changes required below this line

        local getCall = 'getParameters'
        local setCall = 'setCurrent?current='

        local function sendURL(call, current)
            local url = 'http://' .. chargingStationIP .. '/' .. call .. (current or '')
            if testing then url
                   'http://dz:8084/json.htm?type=command&param=getversion'
            end
            dz.openURL(
            {
                url = url,
                callback = scriptVar .. '_' .. call,
            })
        end

        local function setCurrent(rt)
            dz.log('vehicleState: ' .. rt.vehiclState,dz.log_DEBUG )
            if rt.vehicleState == 'charging' then
                if rt.houseCurrent > maxHouseCurrent and rt.actualCurrent > 0 then
                    dz.log('decreasing',dz.log_DEBUG )
                    sendURL(setCall, rt.actualCurrent - 1 )
                elseif rt.houseCurrent < ( maxHouseCurrent - 1) and  rt.actualCurrent < ( rt.maxCurrent - 1 ) then
                    sendURL(setCall, rt.actualCurrent + 1)
                    dz.log('increasing',dz.log_DEBUG )
                end
            end
        end

        local function updateDevices(rt)
            -- set vehicleState
            vehicleStates = { 'ready','detected','charging'}
            local vehicleState =  vehicleStates[rt.vehicleState]
            if vehicle.state ~= vehicleState then
                vehicle.switchSelector(vehicleState)
            end

            -- set evseState
            if rt.evseState and evse.state ~= 'Active' then
                evse.switchSelector('Active')
            elseif not(rt.evseState) and evse.state ~= 'not Active' then
                evse.switchSelector('not Active')
            end

            -- set houseCurrent
            local current = dz.utils.round(( usage - delivered ) / 230 , 2)
            houseCurrent.updateCurrent(current)
            rt.houseCurrent = current

            -- set evseCurrent
            if evseCurrent.current ~= rt.actualCurrent then
                evseCurrent.updateCurrent(rt.actualCurrent)
            end
        end

        -- main
        if item.isTimer or item.isDevice then
           sendURL(getCall)
           return
        end

        -- handling response
        if item.isHTTPResponse and item.ok then
            if item.trigger:match('getParameters') then
                if testing then
                    local testJSON = '{"type":"parameters","list":[{"vehicleState":1,"evseState":false,"maxCurrent":15,"actualCurrent":10,"actualPower":0,"duration":0,"alwaysActive":false,"lastActionUser":"GUI","lastActionUID":"GUI","energy":0,"mileage":0,"meterReading":0,"currentP1":0,"currentP2":0,"currentP3":0}]}'
                    item.json = dz.utils.fromJSON(testJSON)
                end
                local rt = item.json.list[1]
                updateDevices(rt)
                setCurrent(rt)
            else
                dz.log('current successfully adjusted',dz.LOG_DEBUG)
            end
        else
            dz.log('There was a problem handling the request', dz.LOG_ERROR)
            dz.log(item, dz.LOG_ERROR)
        end
    end
}

Code: Select all

--[[

        script to dynamically change max loading amperage of vehicle based on house usage / delivery

        history:
        20200705: Initial release
        20200706: Mapped numeric vehicleState to string vehicleStateText

]]

local scriptVar = 'evCharger'

return
{
    on =
    {
        timer =
        {
            'every minute',
        },

        devices =
        {
            'evTrigger' -- for test only
        },

        httpResponses =
        {
            scriptVar .. '_*' ,
        },
    },

    logging =
    {
        level = domoticz.LOG_DEBUG,
        marker = 'evCharger',
    },

    execute = function(dz, item)

        -- enter you settings below this line

        local maxHouseCurrent = 15

        local chargingStationIP = '192.168.xxx.xxx'

        local evse = dz.devices('EVSEState') -- Selector switch with hidden Off level and levels 'Active' and 'not Active'
        local vehicle = dz.devices('vehicleState') -- Selector switch with hidden Off level and levels 'ready', 'detected' and 'charging'
        local evseCurrent = dz.devices('EVSECurrent') -- Ampere 1 phase
        local houseCurrent = dz.devices('houseCurrent') -- Ampere 1 phase

        local usage = dz.devices('Usage L1').actualWatt        -- smart meter usage electric
        local delivered = dz.devices('usageDelivered').actualWatt -- smart meter usage electric

        local testing = false

        -- no changes required below this line

        local getCall = 'getParameters'
        local setCall = 'setCurrent?current='

        local function sendURL(call, current)
            local url = 'http://' .. chargingStationIP .. '/' .. call .. (current or '')
            if testing then url
                   'http://dz:8084/json.htm?type=command&param=getversion'
            end
            dz.openURL(
            {
                url = url,
                callback = scriptVar .. '_' .. call,
            })
        end

        local function setCurrent(rt)
            dz.log('vehicleState: ' .. rt.vehicleStateText,dz.log_DEBUG )
            if rt.vehicleStateText == 'charging' then
                if rt.houseCurrent > maxHouseCurrent and rt.actualCurrent > 0 then
                    dz.log('decreasing',dz.log_DEBUG )
                    sendURL(setCall, rt.actualCurrent - 1 )
                elseif rt.houseCurrent < ( maxHouseCurrent - 1) and  rt.actualCurrent < ( rt.maxCurrent - 1 ) then
                    sendURL(setCall, rt.actualCurrent + 1)
                    dz.log('increasing',dz.log_DEBUG )
                end
            end
        end

        local function updateDevices(rt)
            -- set vehicleState
            vehicleStates = { 'ready','detected','charging'}
            rt.vehicleStateText =  vehicleStates[rt.vehicleState]
            if vehicle.state ~= rt.vehicleStateText then
                vehicle.switchSelector(rt.vehicleStateText)
            end

            -- set evseState
            if rt.evseState and evse.state ~= 'Active' then
                evse.switchSelector('Active')
            elseif not(rt.evseState) and evse.state ~= 'not Active' then
                evse.switchSelector('not Active')
            end

            -- set houseCurrent
            local current = dz.utils.round(( usage - delivered ) / 230 , 2)
            houseCurrent.updateCurrent(current)
            rt.houseCurrent = current

            -- set evseCurrent
            if evseCurrent.current ~= rt.actualCurrent then
                evseCurrent.updateCurrent(rt.actualCurrent)
            end
        end

        -- main
        if item.isTimer or item.isDevice then
           sendURL(getCall)
           return
        end

        -- handling response
        if item.isHTTPResponse and item.ok then
            if item.trigger:match('getParameters') then
                if testing then
                    local testJSON = '{"type":"parameters","list":[{"vehicleState":1,"evseState":false,"maxCurrent":15,"actualCurrent":10,"actualPower":0,"duration":0,"alwaysActive":false,"lastActionUser":"GUI","lastActionUID":"GUI","energy":0,"mileage":0,"meterReading":0,"currentP1":0,"currentP2":0,"currentP3":0}]}'
                    item.json = dz.utils.fromJSON(testJSON)
                end
                local rt = item.json.list[1]
                updateDevices(rt)
                setCurrent(rt)
            else
                dz.log('current successfully adjusted',dz.LOG_DEBUG)
            end
        else
            dz.log('There was a problem handling the request', dz.LOG_ERROR)
            dz.log(item, dz.LOG_ERROR)
        end
    end
}

Code: Select all

dz.log('vehicleState: ' .. rt.vehiclStateText,dz.log_DEBUG )

Code: Select all

dz.log('vehicleState: ' .. rt.vehicleStateText,dz.log_DEBUG )

Code: Select all

--[[

        script to dynamically change max loading amperage of vehicle based on house usage / delivery

        history:
        20200705: Initial release
        20200706: Mapped numeric vehicleState to string vehicleStateText
        20200706: Add default Current to be set when state is 'ready'

]]

local scriptVar = 'evCharger'

return
{
    on =
    {
        timer =
        {
            'every minute',
        },

        devices =
        {
            'evTrigger' -- for test only
        },

        httpResponses =
        {
            scriptVar .. '_*' ,
        },
    },

    logging =
    {
        level = domoticz.LOG_DEBUG,
        marker = 'evCharger',
    },

    execute = function(dz, item)

        -- enter you settings below this line

        local maxHouseCurrent = 15
        local defaultCurrent = 6

        local chargingStationIP = '192.168.xxx.xxx'

        local evse = dz.devices('EVSEState') -- Selector switch with hidden Off level and levels 'Active' and 'not Active'
        local vehicle = dz.devices('vehicleState') -- Selector switch with hidden Off level and levels 'ready', 'detected' and 'charging'
        local evseCurrent = dz.devices('EVSECurrent') -- Ampere 1 phase
        local houseCurrent = dz.devices('houseCurrent') -- Ampere 1 phase

        local usage = dz.devices('Usage L1').actualWatt        -- smart meter usage electric
        local delivered = dz.devices('usageDelivered').actualWatt -- smart meter usage electric

        local testing = false

        -- no changes required below this line

        local getCall = 'getParameters'
        local setCall = 'setCurrent?current='

        local function sendURL(call, current)
            local url = 'http://' .. chargingStationIP .. '/' .. call .. (current or '')
            if testing then url
                   'http://dz:8084/json.htm?type=command&param=getversion'
            end
            dz.openURL(
            {
                url = url,
                callback = scriptVar .. '_' .. call,
            })
        end

        local function setCurrent(rt)
            dz.log('vehicleState: ' .. rt.vehicleStateText,dz.LOG_DEBUG )
            if rt.vehicleStateText == 'charging' then
                if rt.houseCurrent > maxHouseCurrent and rt.actualCurrent > 0 then
                    dz.log('decreasing',dz.LOG_DEBUG )
                    sendURL(setCall, rt.actualCurrent - 1 )
                elseif rt.houseCurrent < ( maxHouseCurrent - 1) and  rt.actualCurrent < ( rt.maxCurrent - 1 ) then
                    sendURL(setCall, rt.actualCurrent + 1)
                    dz.log('increasing',dz.LOG_DEBUG )
                end
            elseif rt.vehicleStateText == 'ready' and rt.actualCurrent ~= defaultCurrent then
                sendURL(setCall, defaultCurrent)
            end
        end

        local function updateDevices(rt)
            -- set vehicleState
            vehicleStates = { 'ready','detected','charging'}
            rt.vehicleStateText =  vehicleStates[rt.vehicleState]
            if vehicle.state ~= rt.vehicleStateText then
                vehicle.switchSelector(rt.vehicleStateText)
            end

            -- set evseState
            if rt.evseState and evse.state ~= 'Active' then
                evse.switchSelector('Active')
            elseif not(rt.evseState) and evse.state ~= 'not Active' then
                evse.switchSelector('not Active')
            end

            -- set houseCurrent
            local current = dz.utils.round(( usage - delivered ) / 230 , 2)
            houseCurrent.updateCurrent(current)
            rt.houseCurrent = current

            -- set evseCurrent
            if evseCurrent.current ~= rt.actualCurrent then
                evseCurrent.updateCurrent(rt.actualCurrent)
            end
        end

        -- main
        if item.isTimer or item.isDevice then
           sendURL(getCall)
           return
        end

        -- handling response
        if item.isHTTPResponse and item.ok then
            if item.trigger:match('getParameters') then
                if testing then
                    local testJSON = '{"type":"parameters","list":[{"vehicleState":1,"evseState":false,"maxCurrent":15,"actualCurrent":10,"actualPower":0,"duration":0,"alwaysActive":false,"lastActionUser":"GUI","lastActionUID":"GUI","energy":0,"mileage":0,"meterReading":0,"currentP1":0,"currentP2":0,"currentP3":0}]}'
                    item.json = dz.utils.fromJSON(testJSON)
                end
                local rt = item.json.list[1]
                updateDevices(rt)
                setCurrent(rt)
            else
                dz.log('current successfully adjusted',dz.LOG_DEBUG)
            end
        else
            dz.log('There was a problem handling the request', dz.LOG_ERROR)
            dz.log(item, dz.LOG_ERROR)
        end
    end
}

Code: Select all

--[[

        script to dynamically change max loading amperage of vehicle based on house usage / delivery

        history:
        20200705: Initial release
        20200706: Mapped numeric vehicleState to string vehicleStateText
        20200706: Add default Current to be set when state is 'ready'
        20200711: Add frequency (trigger customEvent)

]]

local scriptVar = 'evCharger'

return
{
    on =
    {
        timer =
        {
            'every minute',
        },

        customEvents =
        {
            scriptVar,
        },

        httpResponses =
        {
            scriptVar .. '_*' ,
        },
    },

    logging =
    {
        level = domoticz.LOG_DEBUG,
        marker = scriptVar,
    },

    execute = function(dz, item)

        -- enter you settings below this line

        local maxHouseCurrent = 15
        local defaultCurrent = 6
        local scriptFrequency = 3 -- times a minute
        local chargingStationIP = '192.168.xxx.xxx'

        local evse = dz.devices('EVSEState') -- Selector switch with hidden Off level and levels 'Active' and 'not Active'
        local vehicle = dz.devices('vehicleState') -- Selector switch with hidden Off level and levels 'ready', 'detected' and 'charging'
        local evseCurrent = dz.devices('EVSECurrent') -- Ampere 1 phase
        local houseCurrent = dz.devices('houseCurrent') -- Ampere 1 phase

        local usage = dz.devices('Usage L1').actualWatt        -- smart meter usage electric
        local delivered = dz.devices('usageDelivered').actualWatt -- smart meter usage electric

        local testing = false

        -- no changes required below this line

        local getCall = 'getParameters'
        local setCall = 'setCurrent?current='

        local function sendURL(call, current)
            local url = 'http://' .. chargingStationIP .. '/' .. call .. (current or '')
            if testing then url
                   'http://dz:8084/json.htm?type=command&param=getversion'
            end
            dz.openURL(
            {
                url = url,
                callback = scriptVar .. '_' .. call,
            })
        end

        local function setCurrent(rt)
            dz.log('vehicleState: ' .. rt.vehicleStateText,dz.LOG_DEBUG )
            if rt.vehicleStateText == 'charging' then
                if rt.houseCurrent > maxHouseCurrent and rt.actualCurrent > 0 then
                    dz.log('decreasing',dz.LOG_DEBUG )
                    sendURL(setCall, rt.actualCurrent - 1 )
                elseif rt.houseCurrent < ( maxHouseCurrent - 1) and  rt.actualCurrent < ( rt.maxCurrent - 1 ) then
                    sendURL(setCall, rt.actualCurrent + 1)
                    dz.log('increasing',dz.LOG_DEBUG )
                end
            elseif rt.vehicleStateText == 'ready' and rt.actualCurrent ~= defaultCurrent then
                sendURL(setCall, defaultCurrent)
            end
        end

        local function updateDevices(rt)
            -- set vehicleState
            vehicleStates = { 'ready','detected','charging'}
            rt.vehicleStateText =  vehicleStates[rt.vehicleState]
            if vehicle.state ~= rt.vehicleStateText then
                vehicle.switchSelector(rt.vehicleStateText)
            end

            -- set evseState
            if rt.evseState and evse.state ~= 'Active' then
                evse.switchSelector('Active')
            elseif not(rt.evseState) and evse.state ~= 'not Active' then
                evse.switchSelector('not Active')
            end

            -- set houseCurrent
            local current = dz.utils.round(( usage - delivered ) / 230 , 2)
            houseCurrent.updateCurrent(current)
            rt.houseCurrent = current

            -- set evseCurrent
            if evseCurrent.current ~= rt.actualCurrent then
                evseCurrent.updateCurrent(rt.actualCurrent)
            end
        end

        local function repeatScript(frequency)
            local interval = math.floor(60/frequency)
            for secondsDelay = interval, (60 - interval), interval do
                dz.emitEvent(scriptVar).afterSec(secondsDelay)
           end
        end

        -- main
        if not(item.isHTTPResponse) then
            sendURL(getCall)
            if item.isTimer then repeatScript(scriptFrequency) end
            return
        end

        -- handling response
        if item.isHTTPResponse and item.ok then
            if item.trigger:match('getParameters') then
                if testing then
                    local testJSON = '{"type":"parameters","list":[{"vehicleState":1,"evseState":false,"maxCurrent":15,"actualCurrent":10,"actualPower":0,"duration":0,"alwaysActive":false,"lastActionUser":"GUI","lastActionUID":"GUI","energy":0,"mileage":0,"meterReading":0,"currentP1":0,"currentP2":0,"currentP3":0}]}'
                    item.json = dz.utils.fromJSON(testJSON)
                end
                local rt = item.json.list[1]
                updateDevices(rt)
                setCurrent(rt)
            else
                dz.log('current successfully adjusted',dz.LOG_DEBUG)
            end
        else
            dz.log('There was a problem handling the request', dz.LOG_ERROR)
            dz.log(item, dz.LOG_ERROR)
        end
    end
}