VB与三菱PLC通信
VB源代码下载
www.dbank/download.action?t=40&k=MTQzOTcxMTM=&pcode=LCw1NTkwMzYsNTU5MDM2&rnd=5747
ＰＬＣ以卓越的可靠性和方便的可编程性广泛应用于工业控制领域。实现ＰＣ机与ＰＬＣ通信的目的是为了向用户提供诸如工艺流程图显示、动态数据画面显示、报表显示、窗口技术等多种功能，为ＰＬＣ提供良好的人机界面。本文详细介绍了ＦＸ系列ＰＬＣ的通信协议，并在Ｗｉｎｄｏｗｓ环境下，使用ＶＢ６．０开发通信程序，实现了ＰＣ机与ＦＸ系列ＰＬＣ之间的串行通信。本文对ＦＸ系列ＰＬＣ的通信协议进行了详细的介绍，并以ＶＢ为开发工具实现了ＰＣ机与ＦＸ系列ＰＬＣ的串行通信。
１ 前言
ＰＬＣ以卓越的可靠性和方便的可编程性广泛应用于工业控制领域。实现ＰＣ机与ＰＬＣ通信的目的是为了向用户提供诸如工艺流程图显示、动态数据画面显示、报表显示、窗口技术等多种功能，为ＰＬＣ提供良好的人机界面。本文详细介绍了ＦＸ系列ＰＬＣ的通信协议，并在Ｗｉｎｄｏｗｓ环境下，使用ＶＢ６．０开发通信程序，实现了ＰＣ机与ＦＸ系列ＰＬＣ之间的串行通信。
２ ＰＣ机与ＰＬＣ实现通信的条件
带异步通信适配器的ＰＣ机与ＰＬＣ只有满足如下条件，才能互联通信：
（１）带有异步通信接口的ＰＬＣ才能与带异步通信适配器的ＰＣ机互联。还要求双方采用的总线标准一致，否则要通过“总线标准变换单元”变换之后才能互联。
（２）双方的初始化，使波特率、数据位数、停止位数、奇偶校验都相同。
（３）要对ＰＬＣ的通信协议分析清楚，严格地按照协议的规定及帧格式编写ＰＣ机的通信程序。ＰＬＣ中配有通信机制，一般不需用户编程。
３ ＰＣ机及与ＦＸ系列ＰＬＣ的串行通讯
３．１ 硬件连接
ＰＣ机与ＦＸ系列ＰＬＣ不能直接连接，要经过ＦＸ－２３２ＡＷ单元进行ＲＳ２３２Ｃ／ＲＳ－４２２的变换，下图表示了它们之间的连接关系：
３．２ ＦＸ系列ＰＬＣ的通信协议
在ＰＣ机中必须依据互联的ＰＬＣ的通信协议来编写通信程序，因此先介绍ＦＸ系列ＰＬＣ的通信协议。
（１）数据格式
ＦＸ系列ＰＬＣ采用异步格式，由１位起始位、７位数据位、１位偶校验位及１位停止位组成，波特率为９６００ｂｐｓ，字符为ＡＳＣＩＩ码。
（２）通信命令
ＦＸ系列ＰＬＣ有４个通信命令，它们是读命令、写命令、强制通命令、强制断命令，如下表所示。表中Ｘ—输入继电器；Ｙ—输出继电器；Ｍ—辅助继电器；Ｓ—状态元件；Ｔ—定时器；Ｃ—计数器；Ｄ—数据寄存器。
（３）通信控制字符
ＦＸ系列ＰＬＣ采用面向字符的传输规程，用到５个通信控制字符，如下表所示。
*当ＰＬＣ对ＰＣ机发来的ＥＮＱ不理解时，用ＮＡＫ回答。
（４）报文格式
ＰＣ机向ＰＬＣ发送的报文格式如下：
其中ＳＴＸ为开始标志：０２Ｈ；ＥＴＸ为结束标志：０３Ｈ；ＣＭＤ为命令的ＡＳＣＩＩ码；ＳＵＭＨ，ＳＵＭＬ为从ＣＭＤ到ＥＴＸ按字节求累加和，溢出不计。由于每字节十六进制数变为两字节ＡＳＣＩＩ代码，故校验和为ＳＵＭＨ与ＳＵＭＬ。
数据段格式与含义如下：
*写命令的数据段有数据，读命令的数据段则无数据。
读／写字节数为０１Ｈ～４０Ｈ（１～６４）个。
ＰＬＣ向ＰＣ机发送的应答报文格式如下：
*对读命令的应答报文数据段为要读取的数据，一个数据占两个字节，分上位下位：
对写命令的应答报文无数据段，而用ＡＣＫ及ＮＡＫ作为应答内容。
（５）传输过程
ＰＣ机与ＦＸ系列ＰＬＣ之间采用应答方式通信，传输出错则组织重发。其传输过程如下：
ＰＬＣ根据ＰＣ机的命令，在每个循环扫描结束处的ＥＮＤ语句后组织自动应答，无需用户在ＰＬＣ一方编写程序。
４ 利用ＶＢ６．０编写通信程序
下面以一个简单的例子来说明编写通信程序的要点。假设ＰＣ机要求从ＰＬＣ中读入从Ｄ１２３开始的４个字节的数据(Ｄ１２３，Ｄ１２４)，其传输应答过程及报文如下（图略可向作者索取）：
命令报文中１０Ｆ６Ｈ为Ｄ１２３的地址，０４Ｈ表示要读入４个字节的数据。校验和ＳＵＭ＝３０Ｈ＋３１Ｈ＋３０Ｈ＋４６Ｈ＋３６Ｈ＋３０Ｈ＋３４Ｈ＋
０３Ｈ＝１７４Ｈ，溢出部分不计，故ＳＵＭＨ为＇７＇，ＳＵＭＬ为‘４’，相应的ＡＳＣＩＩ码为“３７Ｈ”，“３４Ｈ”。应答报文中４个字节的十六进制数，其相应的ＡＳＣＩＩ码为８个字节，故应答报文长度为１２个字节。
根据ＰＣ机与ＦＸ系列ＰＬＣ的传输应答过程编制出如下所示的通信程序流程图略。
利用ＶＢ的ＭＳＣｏｍｍ控件，按照流程图可以编写如下通信程序实现ＰＣ机与ＦＸ系列ＰＬＣ之间的串行通信以完成数据的读取。ＭＳＣｏｍｍ控件可以采用轮询或事件驱动的方法从端口获取数据。在这个例子中使用了轮询方法。
（１）通信口初始化
Ｐｒｉｖａｔｅ Ｓｕｂ Ｉｎｉｔｉａｌｉｚｅ()
ＭＳＣｏｍｍ１．ＣｏｍｍＰｏｒｔ ＝ １
ＭＳＣｏｍｍ１．Ｓｅｔｔｉｎｇｓ ＝ ″９６００,Ｅ,７,１″
ＭＳＣｏｍｍ１．ＩｎＢｕｆｆｅｒＳｉｚｅ ＝ １０２４
ＭＳＣｏｍｍ１．ＯｕｔＢｕｆｆｅｒＳｉｚｅ ＝ １０２４
ＭＳＣｏｍｍ１．ＩｎｐｕｔＬｅｎ ＝ ０
audia5ＭＳＣｏｍｍ１．ＩｎｐｕｔＭｏｄｅ ＝ ｃｏｍＩｎｐｕｔＭｏｄｅＴｅｘｔ
五万元买什么车好ＭＳＣｏｍｍ１．Ｈａｎｄｓｈａｋｉｎｇ ＝ ｃｏｍＮｏｎｅ
思皓e50 apro
ＭＳＣｏｍｍ１．ＰｏｒｔＯｐｅｎ ＝ Ｔｒｕｅ
Ｅｎｄ Ｓｕｂ
（２）请求通信与确认
Ｐｒｉｖａｔｅ Ｆｕｎｃｔｉｏｎ ＭａｋｅＨａｎｄＳｈａｋｉｎｇ() Ａｓ Ｂｏｏｌｅａｎ
无锡到厦门Ｄｉｍ ＩｎＰａｃｋａｇｅ Ａｓ Ｓｔｒｉｎｇ
ＭＳＣｏｍｍ１．ＯｕｔＢｕｆｆｅｒＣｏｕｎｔ ＝ ０
ＭＳＣｏｍｍ１．ＩｎＢｕｆｆｅｒＣｏｕｎｔ ＝ ０
ＭＳＣｏｍｍ１．Ｏｕｔｐｕｔ ＝ Ｃｈｒ(＆Ｈ５)
Ｄｏ
ＤｏＥｖｅｎｔｓ
Ｌｏｏｐ Ｕｎｔｉｌ ＭＳＣｏｍｍ１．ＩｎＢｕｆｆｅｒＣｏｕｎｔ ＝ １
ＩｎＰａｃｋａｇｅ ＝ ＭＳＣｏｍｍ１．Ｉｎｐｕｔ
Ｉｆ ＩｎＰａｃｋａｇｅ ＝ Ｃｈｒ(＆Ｈ６) Ｔｈｅｎ
ＭａｋｅＨａｎｄＳｈａｋｉｎｇ ＝ Ｔｒｕｅ
Ｅｌｓｅ
ＭａｋｅＨａｎｄＳｈａｋｉｎｇ ＝ ＦａｌｓｅＥｎｄ Ｉｆ
Ｅｎｄ Ｆｕｎｃｔｉｏｎ
（３）发送命令报文
Ｐｒｉｖａｔｅ Ｓｕｂ ＳｅｎｄＦｒａｍｅ()
Ｄｉｍ ＯｕｔＳｔｒｉｎｇ Ａｓ Ｓｔｒｉｎｇ
ＭＳＣｏｍｍ１．ＯｕｔＢｕｆｆｅｒＣｏｕｎｔ ＝ ０
ＭＳＣｏｍｍ１．ＩｎＢｕｆｆｅｒＣｏｕｎｔ ＝ ０
ＯｕｔＳｔｒｉｎ ＝ Ｃｈｒ(＆Ｈ２)＋″０″＋″１０Ｆ６０４″＋Ｃｈｒ(＆Ｈ３)＋″７４″
ＭＳＣｏｍｍ１．Ｏｕｔｐｕｔ ＝ ＯｕｔＳｔｒｉｎｇ
Ｅｎｄ Ｓｕｂ英菲尼迪 品牌
（４）读取应答报文
Ｐｒｉｖａｔｅ Ｓｕｂ ＲｅｃｅｉｖｅＦｒａｍｅ()
Ｄｉｍ ＩｎＳｔｒｉｎｇ Ａｓ Ｓｔｒｉｎｇ
Ｄｏ
ＤｏＥｖｅｎｔｓ
Ｌｏｏｐ Ｕｎｔｉｌ ＭＳＣｏｍｍ１．ＩｎＢｕｆｆｅｒＣｏｕｎｔ ＝ １２
ＩｎＳｔｒｉｎｇ ＝ ＭＳＣｏｍｍ１．Ｉｎｐｕｔ
Ｅｎｄ Ｓｕｂ
节能汽车推广目录
５ 结束语
以本文所述机制编写的通信程序已成功用于以ＦＸ２Ｎ型ＰＬＣ作为主控制器的高层建筑玻璃幕墙清洗机器人系统中，通过该通信程序，实现了ＰＣ机对ＰＬＣ的监视和控制。同时，本程序对ＰＣ机与其它型号ＰＬＣ之间的通信也有一定的借鉴意义。
下面是我自己写的一个VB与三菱FX系列PLC通讯的软件，如果想学习的可以下下来看看，下载地址在下面！--经过试验能够完成控制！
要源代码的留下邮箱！有什么不懂得也可以给我留言。我会做出解答的。
下载地址
www.dbank/download.action?t=40&k=MTMzNDg4MDg=&pcode=LCw1NTkwMzYsNTU5MDM2&rnd=7736