串口开闭
open_serial ('COM1', SerialHandle)
set_serial_param (SerialHandle, 115200, 8, 'none', 'none', 1, 500, 'unchanged')
clear_serial (SerialHandle, 'in_out')
* 发送接收业务代码
close_serial (SerialHandle)
业务代码摘录
示例一:modbus读寄存器
* 读寄存器2和3的内容
Addr:=0001
Val:=-1
CRC:=0xD5CA
Send := [0x01,0x03,Addr/256,Addr%256,0x00, 0x01, CRC/256,CRC%256]
clear_serial (SerialHandle, 'input')
* 发送
write_serial (SerialHandle, Send)
* 接收
read_serial (SerialHandle, 7, Recv)
if (|Recv|>5)
Val := Data[4]+Data[3]*256
endif
示例二:modbus写寄存器
* 往寄存器1中写入1
Addr:=0001
Val:=1
CRC:=0x6641
TupleSend := [0x01,0x10,Addr/256,Addr%256,0x00, 0x01, 0x02,Val/256,Val%256, CRC/256,CRC%256]
write_serial (SerialHandle, TupleSend)