三菱FX系列plc与pc机通讯(2)

三菱FX系列plc与pc机通讯

对写命令的应答报文无数据段，而用ＡＣＫ及ＮＡＫ作为应答内容。

（５）传输过程

ＰＣ机与ＦＸ系列ＰＬＣ之间采用应答方式通信，传输出错则组织重发。其传输过程如下： ＰＬＣ根据ＰＣ机的命令，在每个循环扫描结束处的ＥＮＤ语句后组织自动应答，无需用户在ＰＬＣ一方编写程序。

４ 利用ＶＢ６．０编写通信程序

下面以一个简单的例子来说明编写通信程序的要点。假设ＰＣ机要求从ＰＬＣ中读入从Ｄ１２３开始的４个字节的数据(Ｄ１２３，Ｄ１２４)，其传输应答过程及报文如下（图略可向作者索取）：

命令报文中１０Ｆ６Ｈ为Ｄ１２３的地址，０４Ｈ表示要读入４个字节的数据。校验和ＳＵＭ＝３０Ｈ＋３１Ｈ＋３０Ｈ＋４６Ｈ＋３６Ｈ＋３０Ｈ＋３４Ｈ＋

０３Ｈ＝１７４Ｈ，溢出部分不计，故ＳＵＭＨ为＇７＇，ＳＵＭＬ为 ４ ，相应的ＡＳＣＩＩ码为“３７Ｈ”，“３４Ｈ”。应答报文中４个字节的十六进制数，其相应的ＡＳＣＩＩ码为８个字节，故应答报文长度为１２个字节。

根据ＰＣ机与ＦＸ系列ＰＬＣ的传输应答过程编制出如下所示的通信程序流程图略。

利用ＶＢ的ＭＳＣｏｍｍ控件，按照流程图可以编写如下通信程序实现ＰＣ机与ＦＸ系列ＰＬＣ之间的串行通信以完成数据的读取。ＭＳＣｏｍｍ控件可以采用轮询或事件驱动的方法从端口获取数据。在这个例子中使用了轮询方法。

（１）通信口初始化

Ｐｒｉｖａｔｅ Ｓｕｂ Ｉｎｉｔｉａｌｉｚｅ()

ＭＳＣｏｍｍ１．ＣｏｍｍＰｏｒｔ ＝ １

ＭＳＣｏｍｍ１．Ｓｅｔｔｉｎｇｓ ＝ ″９６００,Ｅ,７,１″

ＭＳＣｏｍｍ１．ＩｎＢｕｆｆｅｒＳｉｚｅ ＝ １０２４

ＭＳＣｏｍｍ１．ＯｕｔＢｕｆｆｅｒＳｉｚｅ ＝ １０２４

ＭＳＣｏｍｍ１．ＩｎｐｕｔＬｅｎ ＝ ０

ＭＳＣｏｍｍ１．ＩｎｐｕｔＭｏｄｅ ＝ ｃｏｍＩｎｐｕｔＭｏｄｅＴｅｘｔ ＭＳＣｏｍｍ１．Ｈａｎｄｓｈａｋｉｎｇ ＝ ｃｏｍＮｏｎｅ

ＭＳＣｏｍｍ１．ＰｏｒｔＯｐｅｎ ＝ Ｔｒｕｅ

Ｅｎｄ Ｓｕｂ

（２）请求通信与确认

Ｐｒｉｖａｔｅ Ｆｕｎｃｔｉｏｎ ＭａｋｅＨａｎｄＳｈａｋｉｎｇ() Ａｓ Ｂｏｏｌｅａｎ

Ｄｉｍ ＩｎＰａｃｋａｇｅ Ａｓ Ｓｔｒｉｎｇ

ＭＳＣｏｍｍ１．ＯｕｔＢｕｆｆｅｒＣｏｕｎｔ ＝ ０

ＭＳＣｏｍｍ１．ＩｎＢｕｆｆｅｒＣｏｕｎｔ ＝ ０

ＭＳＣｏｍｍ１．Ｏｕｔｐｕｔ ＝ Ｃｈｒ(＆Ｈ５)

Ｄｏ

ＤｏＥｖｅｎｔｓ

Ｌｏｏｐ Ｕｎｔｉｌ ＭＳＣｏｍｍ１．ＩｎＢｕｆｆｅｒＣｏｕｎｔ ＝ １

ＩｎＰａｃｋａｇｅ ＝ ＭＳＣｏｍｍ１．Ｉｎｐｕｔ

Ｉｆ ＩｎＰａｃｋａｇｅ ＝ Ｃｈｒ(＆Ｈ６) Ｔｈｅｎ

ＭａｋｅＨａｎｄＳｈａｋｉｎｇ ＝ Ｔｒｕｅ