25.04.2022, 09:48
Well, after a lot of trial/error, I got the result.
I think it can surely be simplified, so any suggestions are welcome.
This is triggered by events assigning the same tag on the input object and the lock object.
Every time the input object is activated (I do it with a 1 second toggle), the parameterized time starts. Activating the lock, locks the function, does not modify the output object, resets the timer, and removes it from storage.
I think it can surely be simplified, so any suggestions are welcome.
This is triggered by events assigning the same tag on the input object and the lock object.
Every time the input object is activated (I do it with a 1 second toggle), the parameterized time starts. Activating the lock, locks the function, does not modify the output object, resets the timer, and removes it from storage.
Code:
-- Set output address
AddressOutput = '39/0/1' -- 01. 1 bit (boolean)
--ID Detector Zone
i = 1
-- Set input address
AddressInput = '9/1/'..i -- 01. 1 bit (boolean)
-- Set external time address (optional)
AddressExternalTime = '38/1/'..i -- 07. 2 byte unsigned integer
-- Set feedback adress of time left indication (optional)
AddressTimeLeft = '38/2/'..i -- 255 byte string
-- Seconds or Minutes
SetSec = '38/3/'..i -- Set to false for Minutes or true for seconds
-- Set blocking address
AddressBlocking = '38/4/'..i -- 01. 1 bit (boolean)
-- Use time left indication
UseTimeLeft = true -- Set to false if no time left indication is used
-- Set time delay (Used when external time is not available)
SetDelay = 120 -- 2 minutes
-- Set factor delay (Multiplies Delay)
SetFac = 1
-- Logic can be turned of by value 0
Off_by_Value_Zero = not grp.getvalue(AddressBlocking)
-- ************************************** END PARAMETERS ************************************ --
-- *************************** DON'T CHANGE ANYTHING UNDER THIS LINE ************************ --
Input_Value = grp.getvalue(AddressInput)
if Off_by_Value_Zero == false and (Input_Value == false or Input_Value == 0) then
return
else
tpid = storage.get('PID:' .. _SCRIPTNAME)
if tpid == nil then
pid = os.getpid()
storage.set('PID:' .. _SCRIPTNAME, pid)
else
pid = os.getpid()
storage.set('PID:' .. _SCRIPTNAME, pid)
os.kill(tpid, signal.SIGKILL)
end
blocking = grp.getvalue(AddressBlocking)
if not blocking then
grp.checkwrite(AddressTimeLeft, '00:00:00')
storage.delete('PID:' .. _SCRIPTNAME)
return
end
function Calculate_Time(StairCaseTime)
if StairCaseTime > (86400 -1) then
StairCaseTime = (86400 -1)
end
local hours = math.floor(StairCaseTime / 3600 % 24)
local minutes = math.floor(StairCaseTime / 60 % 60)
local seconds = math.floor(StairCaseTime % 60)
time = {
day = 0,
hour = hours,
minute = minutes,
second = seconds,
}
time =string.format('%02d:%02d:%02d',time.hour,time.minute,time.second)
return time
end
if Input_Value == true or Input_Value == 1 then
ValueExternalTime = grp.getvalue(AddressExternalTime) or SetDelay
if grp.getvalue(SetSec) then
Multiply_Seconds = 1
else
Multiply_Seconds = 60
end
StairCaseTime = ValueExternalTime * Multiply_Seconds * SetFac
grp.checkwrite(AddressOutput, true)
if UseTimeLeft == true then
if StairCaseTime > 0 then
time = Calculate_Time(StairCaseTime)
grp.write(AddressTimeLeft, time)
repeat
StairCaseTime = StairCaseTime - 1
time = Calculate_Time(StairCaseTime)
grp.write(AddressTimeLeft, time)
os.sleep(1)
until StairCaseTime == 0
end
else
os.sleep(StairCaseTime)
end
grp.write(AddressOutput, false)
elseif Input_Value == false or Input_Value == 0 then
ValueOutput = grp.getvalue(AddressOutput)
if ValueOutput == false then
if UseTimeLeft == true then
time = Calculate_Time(0)
grp.write(AddressTimeLeft, time)
end
grp.write(AddressOutput, false)
end
end
storage.delete('PID:' .. _SCRIPTNAME)
end