plc与计算机间的双线多线程快速串行通信

《plc与计算机间的双线多线程快速串行通信》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、1。上位机要能够通过PLC监控下层设备的状态2通行原理与方法上位机要能够通过PLC监控下层设备的状态，就要实现上位机与PLC间的通信，一般工业控制中都是采用RS232C实现。上位机首先向PLC发送查询数据的指令(实际上是查询PLC中端子的状态和DM区的值等)，PLC接收了上位的指令后，进行校验(FCS校验码)，看其是否正确，如果正确，则向上位机传送数据(包含首尾校验字节)。否则，PLC拒绝向上位机传送数据。上位接收到PLC传送的数据，也要判断正确与否，如果正确，则接收，否则，拒绝接收。由于CPM1A没有提供串行通信口，我们利用其提供的外设端口实现

2、通信。PLC与计算机之间的连接是通过OMRON提供的专用电缆CQM1-CIF01来实现的，其硬件连接图如图1所示。3PLC与计算机间的通信规约计算机与PLC间的通信是以“帧”为单位进行的，并且在通信的过程中，计算机具有更高的优先级。首先，计算机向PLC发出命令帧，然后，PLC作出响应，向计算机发送回响应帧。其中命令帧和响应帧的格式如下:(1)命令帧格式。为了方便计算机和PLC的通讯，CPM1A对在计算机连接通信中交换的命令和响应规定了相应的格式。当计算机发送一个命令时，命令数据主准备格式如图2所示。其中@放在首位，表示以@开始，设备号为上位机识别

3、所连接的PLC的设备号。识别码为命令代码，用来设置用户希望上位机完成的操作，FCS为帧检验代码，一旦通信出错，通过计算FCS可以及时发现。结束符为“*”和CR回车符，表示命令结束。(2)响应帧格式。由PLC发出的对应于命令格式的响应帧格式如图3所示。其中，异常码可以确定计算机发送的命令是否正确执行。其它的与正文中的含义相同。正文仅在有读出数据时有返回。4通信程序的设计为了充分利用计算机数据处理的强大功能，我们可以采用计算机有优先权的方式，在计算机上编写程序来实现计算机与PLC的通信，计算机向PLC发出命令发起通信，PLC自动返回响应。本文中采用V

4、B来编写计算机与PLC间的通讯程序。在VB中提供了通信控件—应用通信控件(MSCOMM)，实现通过串行端口传送和接受的功能。下面介绍MSCOMM控件的属性:*CommPort:设定通信连接端口代号，程序必须指定所要使用的串行端口号，Windows系统使用所设定的端口与外界通信。*PortOpen:设定通信口状态，若为真，通信端口打开，否则关闭。*Settings:设定通信口参数，其格式是"bbbb,p,d,s"，其中bbbb为通信速率(波特率)，p为通信检查方式(奇偶校验)，d为数据位数，s为停止位数，其设定应与PLC的设定一致。*Input:将

5、对方传送至输入缓冲区的字符读入到程序。*Output:将字符写入输出缓冲区。*InBufferCount:传回接收缓冲区中的字符数。*OutBufferCount:传回输出缓冲区中的字符数。*InputLen:设定串行端口读入字符串的长度。*InputMode:设定接收数据的方式。*Rthreshold:设定引发接收事件的字符数。*CommEvent:传回OnComm事件发生时的数值码*OnComm事件:无论是错误或事件发生，都会触发此事件。(1)控件参数的初始化。初始化程序如下:Mscomm.ComPort=2`使用串口Com2Mscomm.S

6、ettings="9600,E,7,2"`波特率9600，偶校验，7位数据位，2位停止位Mscomm.PortOpen=True`打开通信端口，准备通信(2)计算校验码FCS，计算FCS的VB自定义函数如下:FunctionFCS(ByValInputStrAsString)AsStringDimSlen,i,XorresultAsIntegerDimTempfesAsStringSlen=Len(InputStr)`求输入字符串长度Xorresult=0Fori=1ToSlenXorresult=XorresultXorAsc(Mid$(Inp

7、utStr,i,1))`按位异或NextiTempfes=Hex$(Xorresult)`转化为16进制IfLen(Tempfes)=1ThenTempfes=“0”+TempfesFCS=TempfesEndFunction(3)计算机与PLC通信程序。主要是一个自定义函数。FunctionReadData(ByValInputStrAsString,ByValNumAsInteger)AsStringDimOutputStrAsStringDimInStringAsStringDimReturnStrAsStringDimEndStringA

8、sStringDimFCSStringAsStringDimReturnFCSStringAsString)MSComm.InBuffe