基于TCP/IP的Matlab Modbus与M340 PLC通讯

本人原创，代码拿出来供大家交流学习经验，勿作他用。

废话不多说，代码直接上。

1.创建链接

function link = connect_create(client_addr,port)%*****************************************************%   创建与PLC的链接%   client_addr    PLC地址%   port           端口号，默认为502%   例：%       client_addr = 10.64.15.101  //M340地址%       port        = 502           //modbus方式默认端口号%   调用方法为：t = connect_create('10.64.15.101',502)%*****************************************************port = 502;%   link = tcpip('127.0.0.1',502);%   link = tcpip('10.64.15.101',502);link = tcpip(client_addr,port);%设置缓冲区set(link, 'InputBufferSize', 30000); %打开链接fopen(link);

2.读寄存器(只写了读一位寄存器的函数，其他的依葫芦画瓢了......)

function date = read_reg_one(link,date_addr,date_num)%*****************************************************%   读取PLC寄存器的数据（一位）%   link        之前调用connect_create函数创建的链接%   date_addr   请求数据起始地址   date_addr_high  date_addr_low%   date_num    请求数据长度       date_num_high   date_num_low%   例子：%       link        = connect_create('10.64.15.101',502)%       date_addr   = 30%       date_num    = 1         //默认只读一位寄存器的值%       read_reg_one(link,30,1)%*****************************************************date_num    = 1;%处理数据%数据地址减一date_addr = date_addr -1;%数据地址分解为2个字节的16进制数date_addr_high = floor(date_addr/100);date_addr_low = mod(date_addr,100);%数据量分解为2个字节的16进制数date_num_high = floor(date_num/100);date_num_low = mod(date_num,100);%发送命令fwrite(link,0,'char')                      %事务元标识符        0x00fwrite(link,0,'char')                      %                   0x00fwrite(link,0,'char')                      %协议标识符          0x00fwrite(link,0,'char')                      %                   0x00fwrite(link,0,'char')                      %后续字节长度        0x00fwrite(link,6,'char')                      %                   0x06fwrite(link,255,'char')                    %单元标识符          0xfffwrite(link,3,'uint8')                     %命令字              0x03fwrite(link,date_addr_high,'uint8')        %数据起始地址highfwrite(link,date_addr_low,'uint8')         %数据起始地址lowfwrite(link,date_num_high,'uint8')         %数据长度highfwrite(link,date_num_low,'uint8')          %数据长度low%发送示例                               00 00 00 00 00 06 FF 03  00 1D 00 02 %返回数据                               00 00 00 00 00 07 FF 03  04 00 00 00 00 %返回数据的长度在返回信息的第9个字节%分3次读取%第一次读六个，得到后续信息的长度%第二次读后续3个字节，从第九个字节处，得到返回数据的长度%第三次只读取后面的数据out = fread(link,6,'char');                %第一次msg_back_num = out(6);out = fread(link,3,'char');                %第二次date_back_num = out(3);out = fread(link,date_back_num,'char');    %第三次%显示一下数据%disp(int2str(out))date = out(1) * 100 + out(2);

3.关闭链接

function connect_close(link)%*****************************************************%   关闭链接%   例：%       t=connect_create('10.64.15.101',502)%       connect_close(t)%*****************************************************fclose(link)delete(link)clear link

4.测试程序

%测试例程%将被调用函数的m文件，放到调用函数的文件夹下，即可%画图测试，时间不是很理想，稍长，待改进t=connect_create('10.64.15.101',502)for i = 1:1:100         dat = read_reg_one(t,30,1)endplot(dat)connect_close(t)