三菱FX系列m-powerplc菲亚特二手车与pc机通讯设置
ＰＣ机与ＰＬＣ实现通信的条件
带异步通信适配器的ＰＣ机与ＰＬＣ只有满足如下条件，才能互联通信：
（１）带有异步通信接口的ＰＬＣ才能与带异步通信适配器的ＰＣ机互联。还要求双方采用的总线标准一致，否则要通过“总线标准变换单元”变换之后才能互联。
（２）双方的初始化，使波特率、数据位数、停止位数、奇偶校验都相同。
（３）要对ＰＬＣ的通信协议分析清楚，严格地按照协议的规定及帧格式编写ＰＣ机的通信程序。ＰＬＣ中配有通信机制，一般不需用户编程。
３  ＰＣ机及与ＦＸ系列ＰＬＣ的串行通讯
３．１ 硬件连接
ＰＣ机与ＦＸ系列ＰＬＣ不能直接连接，要经过ＦＸ－２３２ＡＷ单元进行ＲＳ２３２Ｃ／ＲＳ－４２２的变换，下图表示了它们之间的连接关系：
３．２ ＦＸ系列ＰＬＣ的通信协议
在ＰＣ机中必须依据互联的ＰＬＣ的通信协议来编写通信程序，因此先介绍ＦＸ系列ＰＬＣ的通信协议。
（１）数据格式
ＦＸ系列ＰＬＣ采用异步格式，由１位起始位、７位数据位、１位偶校验位及１位停止位组成，波特率为９６００ｂｐｓ，字符为ＡＳＣＩＩ码。格式如下：
特斯拉起诉蔡老板胜诉（２）通信命令
ＦＸ系列ＰＬＣ有４个通信命令，它们是读命令、写命令、强制通命令、强制断命令，如下表所示。表中Ｘ—输入继电器；Ｙ—输出继电器；Ｍ—辅助继电器；Ｓ—状态元件；Ｔ—定时器；Ｃ—计数器；Ｄ—数据寄存器。
（３）通信控制字符
ＦＸ系列ＰＬＣ采用面向字符的传输规程，用到５个通信控制字符，如下表所示。
*当ＰＬＣ对ＰＣ机发来的ＥＮＱ不理解时，用ＮＡＫ回答。
（４）报文格式
ＰＣ机向ＰＬＣ发送的报文格式如下：
其中ＳＴＸ为开始标志：０２Ｈ；ＥＴＸ为结束标志：０３Ｈ；ＣＭＤ为命令的ＡＳＣＩＩ码；ＳＵＭＨ，ＳＵＭＬ为从ＣＭＤ到ＥＴＸ按字节求累加和，溢出不计。由于每字节十六进制数变为两字节ＡＳＣＩＩ代码，故校验和为ＳＵＭＨ与ＳＵＭＬ。
数据段格式与含义如下：
*写命令的数据段有数据，读命令的数据段则无数据。
读／写字节数为０１Ｈ～４０Ｈ（１～６４）个。
ＰＬＣ向ＰＣ机发送的应答报文格式如下：
*对读命令的应答报文数据段为要读取的数据，一个数据占两个字节，分上位下位：
对写命令的应答报文无数据段，而用ＡＣＫ及ＮＡＫ作为应答内容。
（５）传输过程
ＰＣ机与ＦＸ系列ＰＬＣ之间采用应答方式通信，传输出错则组织重发。其传输过程如下：
ＰＬＣ根据ＰＣ机的命令，在每个循环扫描结束处的ＥＮＤ语句后组织自动应答，无需用户在ＰＬＣ一方编写程序。
４ 利用ＶＢ６．０编写通信程序
下面以一个简单的例子来说明编写通信程序的要点。假设ＰＣ机要求从ＰＬＣ中读入从Ｄ１２３开始的４个字节的数据(Ｄ１２３，Ｄ１２４)，其传输应答过程及报文如下（图略可向作者索取）：
命令报文中１０Ｆ６Ｈ为Ｄ１２３的地址，０４Ｈ表示要读入４个字节的数据。校验和ＳＵＭ＝３０Ｈ＋３１Ｈ＋３０Ｈ＋４６Ｈ＋３６Ｈ＋３０Ｈ＋３４Ｈ＋
volvo s60
０３Ｈ＝１７４Ｈ，溢出部分不计，故ＳＵＭＨ为＇７＇，ＳＵＭＬ为‘４’，相应的ＡＳＣＩＩ码为“３７Ｈ”，“３４Ｈ”。应答报文中４个字节的十六进制数，其相应的ＡＳＣＩＩ码为８个字节，故应答报文长度为１２个字节。
根据ＰＣ机与ＦＸ系列ＰＬＣ的传输应答过程编制出如下所示的通信程序流程图略。
利用ＶＢ的ＭＳＣｏｍｍ控件，按照流程图可以编写如下通信程序实现ＰＣ机与ＦＸ系列ＰＬＣ之间的串行通信以完成数据的读取。ＭＳＣｏｍｍ控件可以采用轮询或事件驱动的方法从端口获取数据。在这个例子中使用了轮询方法。
（１）通信口初始化
Ｐｒｉｖａｔｅ Ｓｕｂ Ｉｎｉｔｉａｌｉｚｅ()
ＭＳＣｏｍｍ１．ＣｏｍｍＰｏｒｔ ＝ １
ＭＳＣｏｍｍ１．Ｓｅｔｔｉｎｇｓ ＝ ″９６００,Ｅ,７,１″
ＭＳＣｏｍｍ１．ＩｎＢｕｆｆｅｒＳｉｚｅ ＝ １０２４
ＭＳＣｏｍｍ１．ＯｕｔＢｕｆｆｅｒＳｉｚｅ ＝ １０２４
ＭＳＣｏｍｍ１．ＩｎｐｕｔＬｅｎ ＝ ０
ＭＳＣｏｍｍ１．ＩｎｐｕｔＭｏｄｅ ＝ ｃｏｍＩｎｐｕｔＭｏｄｅＴｅｘｔ
ＭＳＣｏｍｍ１．Ｈａｎｄｓｈａｋｉｎｇ ＝ ｃｏｍＮｏｎｅ
ＭＳＣｏｍｍ１．ＰｏｒｔＯｐｅｎ ＝ Ｔｒｕｅ
Ｅｎｄ Ｓｕｂ
（２）请求通信与确认
Ｐｒｉｖａｔｅ Ｆｕｎｃｔｉｏｎ ＭａｋｅＨａｎｄＳｈａｋｉｎｇ() Ａｓ Ｂｏｏｌｅａｎ
Ｄｉｍ ＩｎＰａｃｋａｇｅ Ａｓ Ｓｔｒｉｎｇ
ＭＳＣｏｍｍ１．ＯｕｔＢｕｆｆｅｒＣｏｕｎｔ ＝ ０
ＭＳＣｏｍｍ１．ＩｎＢｕｆｆｅｒＣｏｕｎｔ ＝ ０
ＭＳＣｏｍｍ１．Ｏｕｔｐｕｔ ＝ Ｃｈｒ(＆Ｈ５)
Ｄｏ
ＤｏＥｖｅｎｔｓ
Ｌｏｏｐ Ｕｎｔｉｌ ＭＳＣｏｍｍ１．ＩｎＢｕｆｆｅｒＣｏｕｎｔ ＝ １
ＩｎＰａｃｋａｇｅ ＝ ＭＳＣｏｍｍ１．Ｉｎｐｕｔ
Ｉｆ ＩｎＰａｃｋａｇｅ ＝ Ｃｈｒ(＆Ｈ６) Ｔｈｅｎ
ＭａｋｅＨａｎｄＳｈａｋｉｎｇ ＝ Ｔｒｕｅ
Ｅｌｓｅ
ＭａｋｅＨａｎｄＳｈａｋｉｎｇ ＝ ＦａｌｓｅＥｎｄ Ｉｆ
Ｅｎｄ Ｆｕｎｃｔｉｏｎ
（３）发送命令报文
Ｐｒｉｖａｔｅ Ｓｕｂ ＳｅｎｄＦｒａｍｅ()
Ｄｉｍ ＯｕｔＳｔｒｉｎｇ Ａｓ Ｓｔｒｉｎｇ
ＭＳＣｏｍｍ１．ＯｕｔＢｕｆｆｅｒＣｏｕｎｔ ＝ ０
ＭＳＣｏｍｍ１．ＩｎＢｕｆｆｅｒＣｏｕｎｔ ＝ ０
ＯｕｔＳｔｒｉｎ ＝ Ｃｈｒ(＆Ｈ２)＋″０″＋″１０Ｆ６０４″＋Ｃｈｒ(＆Ｈ３)＋″７４″
大庆车辆违章查询
ＭＳＣｏｍｍ１．Ｏｕｔｐｕｔ ＝ ＯｕｔＳｔｒｉｎｇ
Ｅｎｄ Ｓｕｂ
（４）读取应答报文
Ｐｒｉｖａｔｅ Ｓｕｂ ＲｅｃｅｉｖｅＦｒａｍｅ()
Ｄｉｍ ＩｎＳｔｒｉｎｇ Ａｓ Ｓｔｒｉｎｇ铃木雨燕1.3
Ｄｏ
ＤｏＥｖｅｎｔｓ
Ｌｏｏｐ Ｕｎｔｉｌ ＭＳＣｏｍｍ１．ＩｎＢｕｆｆｅｒＣｏｕｎｔ ＝ １２
ＩｎＳｔｒｉｎｇ ＝ ＭＳＣｏｍｍ１．Ｉｎｐｕｔ
Ｅｎｄ Ｓｕｂ