LUA control shutter using reactor

[AEK]

I wonder if there is any script to control shutters (position, up/down, stop) using reactor digital outputs?

try this

1/1/1 - button up
1/1/2 - button down
1/1/3 - motor up
1/1/4 - motor down
1/1/5 - position setpoint
1/1/6 - position status

event script for button up (name = gate_up)

Code:

up = event.getvalue() status = grp.getvalue('1/1/6') time = 65             -- movement time (sec.) step = time/100         -- delay step if up == true then  script.disable('gate_up')  script.disable('gate_down')     grp.write('1/1/3', true)  while up == true do    up1 = grp.getvalue('1/1/1')      if up1 == false then      status = status - 0      grp.write('1/1/3', false)        grp.write('1/1/4', false)      grp.write('1/1/6', status)      break    end    status = status + 1    os.sleep(step)    grp.write('1/1/6', status)     end  script.enable('gate_up')  script.enable('gate_down') end

event based script for button down (name = 'gate_down')

Code:

down = event.getvalue() status = grp.getvalue('1/1/6') time = 60             -- movement time (sec.) step = time/100         -- delay step if down == true then  script.disable('gate_up')  script.disable('gate_down')     grp.write('1/1/4', true)  while down == true do    down1 = grp.getvalue('1/1/2')    if down1 == false then      status = status - 0      grp.write('1/1/3', false)        grp.write('1/1/4', false)      grp.write('1/1/6', status)      break    end    status = status - 1    os.sleep(step)    grp.write('1/1/6', status)     end  script.enable('gate_up')  script.enable('gate_down') end

event script for position setpoint (name = position)

Code:

proc = event.getvalue() status = grp.getvalue('1/1/6') time = 65             -- movement time (sec.) step = time/100          -- delay step if proc - status > 0 then  grp.write('1/1/3', false)  grp.write('1/1/4', false)  os.sleep(0.25)     grp.write('1/1/3', true)    while status ~= proc do    proc = grp.getvalue('1/1/5')      status = status + 1    os.sleep(step)    grp.write('1/1/6', status)    if proc == status then      grp.write('1/1/3', false)        grp.write('1/1/4', false)      grp.write('1/1/6', proc)    end     end elseif proc - status < 0 then time = 60                   -- movement time (sec.) step = time/100             -- delay step  grp.write('1/1/3', false)  grp.write('1/1/4', false)    os.sleep(0.25)     grp.write('1/1/4', true)  while status ~= proc do    proc = grp.getvalue('1/1/5')    status = status - 1    os.sleep(step)    grp.write('1/1/6', status)    if proc == status then      grp.write('1/1/3', false)        grp.write('1/1/4', false)      grp.write('1/1/6', proc)    end  end end