Curtain Dooya dt82tv

[AEK]

You can't use a profile because this is a custom protocol not Modbus.

For testing purposes use an event script. Change baudrate, parity and command bytes as needed.

Code:

require('serial')

port = serial.open('/dev/RS485-1', {
  baudrate = 9600,
  parity = 'even',
  duplex = 'half'
})

command = string.char(0x55, 0x01, 0x01, 0x03, 0x02, 0xF9, 0x01)
port:write(command)

If the test script works then it can be modified to send different commands depending on the input value. 4-bit value should work (e.g. up/down/stop).

Thanks its working. Now i have another question, is it possible to give it a range with event script?

Hi, I made this integration/ see the scripts
This one make string comand to send to rs485 port (with CRC calculation)

Code:

function cmd_str_crc (t)
    if type(t) ~= 'table' then
      log('входная переменная не таблица')
      return
      end
    x, y = CRC16(t)
    --log(x,y)
    table.insert(t,x)
    table.insert(t,y)
    --log(t)
    s=''
    for i = 1 , #t do
      s = s..string.char(t[i])
      end
    return s
    end
 
  function And(num1,num2)
      local tmp1 = num1
      local tmp2 = num2
      local ret = 0
      local count = 0
      repeat
          local s1 = tmp1 % 2
          local s2 = tmp2 % 2
          if s1 == s2 and s1 == 1 then
              ret = ret + 2^count
          end
          tmp1 = math.modf(tmp1/2)
          tmp2 = math.modf(tmp2/2)
          count = count + 1
      until(tmp1 == 0 and tmp2 == 0)
      return ret
  end
   
  function Xor(num1,num2)
      local tmp1 = num1
      local tmp2 = num2
      local ret = 0
      local count = 0
      repeat
          local s1 = tmp1 % 2
          local s2 = tmp2 % 2
          if s1 ~= s2 then
              ret = ret + 2^count
          end
          tmp1 = math.modf(tmp1/2)
          tmp2 = math.modf(tmp2/2)
          count = count + 1
      until(tmp1 == 0 and tmp2 == 0)
      return ret
  end
   
  function bit_rshift(value,n)
      value = math.modf(value / (2^n))
      return value
  end
 
  function CRC16(arr)
      local tmp = 0xffff
      for i=1,#arr do
          tmp = Xor(arr[i],tmp)
          for j=1,8 do
              local tmp1 = And(tmp,0x01)
              if tmp1 == 1 then
                  tmp = bit_rshift(tmp,1)
                  tmp = Xor(tmp,0xa001)
              else
                  tmp = bit_rshift(tmp,1)
              end
          end
      end
      local ret1 = (tmp % 256)
      local ret2 = math.modf( tmp / 256)
      return ret1,ret2
  end
 
  function motor_up(cur_group, cur_adr)
    cmd = {cur_group, cur_adr, 0x03,0x01}
    s = cmd_str_crc (cmd)
    return s
    end
 
 
  function motor_down(cur_group, cur_adr)
    cmd = {cur_group, cur_adr, 0x03,0x02}
    s = cmd_str_crc (cmd)
    return s
    end
 
  function motor_stop(cur_group, cur_adr)
    cmd = {cur_group, cur_adr, 0x03,0x03}
    s = cmd_str_crc (cmd)
    return s
    end
 
  function motor_set_address(cur_group, cur_adr, new_group, new_adr)
    cmd = {cur_group, cur_adr,0x02, 0x00, 0x02, new_group, new_adr}
    s = cmd_str_crc (cmd)
    return s
    end

this one shows how to send 1 command

Code:

require('user.motor')
require('serial')
port = serial.open('/dev/RS485-1', {
  baudrate = 9600,
  databits = 8,
  stopbits = 1,
  parity = 'none',
  duplex = 'half'
})
-- движение
t = { 0x55, 0x03, 0x02, 0x03,0x01}
s = cmd_str_crc (t)
port:write(s)
os.sleep(2)
-- остановка
t = { 0x55, 0x03, 0x02, 0x03,0x03}
s = cmd_str_crc (t)
port:write(s)
--[[
-- запись адреса
t = { 0x55, 0x00, 0x00, 0x02,0x02, 0x01, 0x02}
s = cmd_str_crc (t)
port:write(s)
]]

And this is a deamon for several motors

Code:

-- kotov motors deamon
if not port then
    require('serial')
  port = serial.open('/dev/RS485-1', {
    baudrate = 9600,
    databits = 8,
    stopbits = 1,
    parity = 'none',
    duplex = 'half'
  })
  end
-- стуктура таблицы - id приводов BL - новер комнаты -номер привода = группа, номер
cmds = {
  'BL' = {
    ['27'] ={
      ['1'] = { 0x0C, 0x05 },
      ['2'] = { 0x0C, 0x06 },
      ['3'] = { 0x0C, 0x07 }
    },
    ['29'] ={
      ['1'] = { 0x0D, 0x08 },
      ['2'] = { 0x0E, 0x07 }
    }
  }
}
   
if not lb then
    require('user.motor')
  lb = require('localbus').new(0.5)
  function groupcallback(event)
    pref, cmd = unpack(grp.alias(event.dst):split('-'))
    val = event.getvalue()
    typ, room , num =unpack(pref:split('.'))
    if cmds[typ] then
      all_adr = cmds[typ][room][num]
      if cmd == 'short' then
        direction = 0x03
      elseif cmd == 'stop' then
        if val then
          direction =0x02
        else
          direction = 0x01
        end
      else
        log('некорректное имя группового адреса', grp.alias(event.dst))
      end
      port:write(motor_move(cur_group, cur_adr, direction))
   
    end
 
  --lb:sethandler('groupupdate', groupcallack)
  lb:sethandler('groupwrite', groupcallback)
  --lb:sethandler('groupresponse', groupcallback)
end
lb:step()
--log(lb)

GA names for  motors are next
BL.09.2-long
BL.09.2-stop