您现在所在的是:

PLC论坛

回帖:2个,阅读:286 [上一页] [1] [下一页]
* 帖子主题:

pc机与PLC通信

685
工控界玩家
文章数:5
年度积分:50
历史总积分:685
注册时间:2012/7/27
发站内信
发表于:2013/3/14 11:24:24
#0楼
我现在用MODICON TSX3708的PLC,用MSCOMM控键走MODBUS协议的RTU格式,具体程序如下:
   procedure TForm1.Button1Click(Sender: TObject);
   var
   senddata:array[0..10] of byte;
   i:integer;
   begin
   senddata[0]:=$01;
   senddata[1]:=$06;
   senddata[2]:=$00;
   senddata[3]:=$38;
   senddata[4]:=$00;
   senddata[5]:=$01;
   senddata[6]:=$02;
   senddata[7]:=$51;
   senddata[8]:=$58;
   senddata[9]:=CRC16(senddata,9) Div 256;
   senddata[10]:=CRC16(senddata,9) mod 256;
   for i:=0 to 10 do
   MSComm1.Output:=IntToStr(senddata[i]);
   end;
   
   可是PLC没有返回任何信息,有哪位高手可以帮我一把!
1783
kachakacha
文章数:736
年度积分:50
历史总积分:1783
注册时间:2006/5/24
发站内信
发表于:2013/3/14 11:28:10
#1楼
以下是引用工控界玩家2013/3/14 11:24:24的发言:
我现在用MODICON TSX3708的PLC,用MSCOMM控键走MODBUS协议的RTU格式,具体程序如下:
   procedure TForm1.Button1Click(Sender: TObject);
   var
   senddata:array[0..10] of byte;
   i:integer;
   begin
   senddata[0]:=$01;
   senddata[1]:=$06;
   senddata[2]:=$00;
   senddata[3]:=$38;
   senddata[4]:=$00;
   senddata[5]:=$01;
   senddata[6]:=$02;
   senddata[7]:=$51;
   senddata[8]:=$58;
   senddata[9]:=CRC16(senddata,9) Div 256;
   senddata[10]:=CRC16(senddata,9) mod 256;
   for i:=0 to 10 do
   MSComm1.Output:=IntToStr(senddata[i]);
   end;
   
   可是PLC没有返回任何信息,有哪位高手可以帮我一把!
哇,Delphi唉………………

Good Luck~
有问题请在论坛提问……作为CVLSAM的马甲,我亚历山大……
Good Luck~
邮箱是anonymousfa@163.com但是我忘记密码了
17578
ahljj
文章数:3386
年度积分:50
历史总积分:17578
注册时间:2002/3/23
发站内信
发表于:2013/12/5 13:35:48
#2楼
pc机与PLC通信

关于我们 | 联系我们 | 广告服务 | 本站动态 | 友情链接 | 法律声明 | 非法和不良信息举报

工控网客服热线:0755-86369299
版权所有 工控网 Copyright©2025 Gkong.com, All Rights Reserved

46.8003