local rs232 = require("luars232")
-- Windows
local port = "COM1"
local out = io.stderr
-- open port
local e, p = rs232.open(port)
if e ~= rs232.RS232_ERR_NOERROR then
-- handle error
out:write(string.format("can't open serial port '%s', error: '%s'\n", port, rs232.error_tostring(e)))
return
end
-- set port settings
assert(p:set_baud_rate(rs232.RS232_BAUD_115200) == rs232.RS232_ERR_NOERROR)
assert(p:set_data_bits(rs232.RS232_DATA_8) == rs232.RS232_ERR_NOERROR)
assert(p:set_parity(rs232.RS232_PARITY_NONE) == rs232.RS232_ERR_NOERROR)
assert(p:set_stop_bits(rs232.RS232_STOP_1) == rs232.RS232_ERR_NOERROR)
assert(p:set_flow_control(rs232.RS232_FLOW_OFF) == rs232.RS232_ERR_NOERROR)
--out:write(string.format("OK, port open with values '%s'\n", tostring(p)))
-- write without timeout
local e,size = p:write(string.char(38,218))
assert(e == rs232.RS232_ERR_NOERROR)
--out:write("write "..size.." bytes\n")
-- read with timeout
local read_len = 8 -- read one byte
local timeout = 1000 -- in miliseconds
local e,data_read,size = p:read(read_len, timeout)
assert(e == rs232.RS232_ERR_NOERROR)
far.Show(read_len, data_read)
--out:write("read "..size.." bytes: "..data_read.."\n")
-- close
assert(p:close() == rs232.RS232_ERR_NOERROR)
|
