图4 通信界面
//程序初始化:
tform1.init_plc(nport:integer);
begin
if mscomm.portopen then
mscomm.portopen:=false;
mscomm.commport:=nport;
//通信端口选择
mscomm.settings:='9600,e,7,1';
//1位起始位,7位数据位,偶效验,2位停止位,9600bps
mscomm.portopen:=true;//打开串口
end;
//fcs校验
function fcs(s:string):variant;
var
i,len,tmpvar:integer;
datacheck:byte;
上一页 [1] [2] [3] [4] [5] [6] 下一页