基于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')                      %事务元标识符        0x00
fwrite(link,0,'char')                      %                   0x00
fwrite(link,0,'char')                      %协议标识符          0x00
fwrite(link,0,'char')                      %                   0x00
fwrite(link,0,'char')                      %后续字节长度        0x00
fwrite(link,6,'char')                      %                   0x06
fwrite(link,255,'char')                    %单元标识符          0xff
fwrite(link,3,'uint8')                     %命令字              0x03
fwrite(link,date_addr_high,'uint8')        %数据起始地址high
fwrite(link,date_addr_low,'uint8')         %数据起始地址low
fwrite(link,date_num_high,'uint8')         %数据长度high
fwrite(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)
end
plot(dat)
connect_close(t)