三菱FX系列plc与pc机通讯

Ｅｌｓｅ

ＭａｋｅＨａｎｄＳｈａｋｉｎｇ ＝ ＦａｌｓｅＥｎｄ Ｉｆ

Ｅｎｄ Ｆｕｎｃｔｉｏｎ

（３）发送命令报文

Ｐｒｉｖａｔｅ Ｓｕｂ ＳｅｎｄＦｒａｍｅ()

Ｄｉｍ ＯｕｔＳｔｒｉｎｇ Ａｓ Ｓｔｒｉｎｇ

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

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

ＯｕｔＳｔｒｉｎ ＝ Ｃｈｒ(＆Ｈ２)＋″０″＋″１０Ｆ６０４″＋Ｃｈｒ(＆Ｈ３)＋″７４″ ＭＳＣｏｍｍ１．Ｏｕｔｐｕｔ ＝ ＯｕｔＳｔｒｉｎｇ

Ｅｎｄ Ｓｕｂ

（４）读取应答报文

Ｐｒｉｖａｔｅ Ｓｕｂ ＲｅｃｅｉｖｅＦｒａｍｅ()

Ｄｉｍ ＩｎＳｔｒｉｎｇ Ａｓ Ｓｔｒｉｎｇ

Ｄｏ

ＤｏＥｖｅｎｔｓ

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

Ｅｎｄ Ｓｕｂ

５ 结束语

以本文所述机制编写的通信程序已成功用于以ＦＸ２Ｎ型ＰＬＣ作为主控制器的高层建筑玻璃幕墙清洗机器人系统中，通过该通信程序，实现了ＰＣ机对ＰＬＣ的监视和控制。同时，本程序对ＰＣ机与其它型号ＰＬＣ之间的通信也有一定的借鉴意义。