Vb0实现计算机与三菱PLC的通信概要VIP免费

Vb6.0实现计算机与三菱PLC的通信来源：www.plc100.com摘要：本文介绍了VB进行串口通信的各种基本方式和三菱可编程控制器之间的通信的程序设计，重点介绍了利用MSCOMM.OCX进行串行通信的设计方法。关键词：串行通信，PLC，VisualBasic6.0Abstract:DescribesallkindsofbasicserialportcommunicationmethodsusingVisualBasic6.0anddesignoffreeportcommunicationprogramofMITSUBISHPLC,furthermoresetfocusonthedesigningmethodofserialportcommunicationthroughdynamiclinkedlibraryinVisualBasic6.0KeyWords:Serialportcommunication,PLC,VisualBasic6.0一、引言在工业生产中，人们常常面临着数据采集与管理。作为工厂自动化的三大支柱可编程控制器PLC（ProgrammableLogicController），由于其安全可靠，广泛的用于数据采集与控制。生产过程中，要监视PLC内部的数据与运行状况，选用市场上的人机界面或组态软件，虽然功能丰富，但大都价格昂贵，在一些中小规模的生产场合，人们希望能自己用高级语言开发一个简易实用的通信程序。微软公司推出的VisualBasic6.0，开发串行通信程序时，有两种方法，一种是用WindowsAPI函数，另一种是用VB支持的通信控件MSCOMM.OCX。利用WindowsAPI函数是通过调用读写等函数来操作串口。两种比较，使用MSCOMM.OCX控件编程方便，具有更完善的发送和接收功能。这里采用了MSCOMM.OCX控件。本文根据杭州某包装材料公司原料配料控制系统为背景，简述实现计算机与三菱FX系列PLC通信的实现过程。二、硬件与选型日本三菱公司是国际著名的工厂自动化设备制造商，工业可编程控制器在国内市场占有率一直保持前列。项目选用三菱FX2N-64MR型PLC，SC-09电缆作为计算机与PLC通信的连线。连接电缆的9针端连接在计算机串口上，另一端连接在PLC的RS-422编程口。系统框图如图一所示：SC-09电缆计算机三菱PLC图一三、软件编程软件设计主要包括PLC梯形图设计和计算机VB程序、数据库设计。计算机操作系统为Windows98，编程语言用VisualBasic6.0，数据库选用Access97，梯形图程序在三菱PLC编程软件GPPWIN软件环境设计。上位机软件实现计算机对PLC内部数据读取、写入参数和保存数据到数据库。三菱FX2N型PLC编程口通信协议如下：命令命令字控制元件备注读元件0X,Y,M,S,T,C,D读字/位元件状态写元件1X,Y,M,S,T,C,D写字/位元件状态置位7X,Y,M,S,T,C位元件置位复位8X,Y,M,S,T,C位元件复位通信格式：起始符命令字首地址数据区结束符和校验波特率9600，偶校验，8位数据位，一位停止位。在新建工程的表单上添加MSCOMM.OCX控件，初始化程序：PrivateSubForm_Load()MSComm1.CommPort=1'选择COM1口MSComm1.Settings="9600,e,7,1"EndSub系统参数主画面如下图所示：图二数据读取子程序：PublicFunctionGetData(ByValStartAddressAsString,ByValGetBytesAsInteger,ByValHex_BytesAsString)AsStringMSComm1.InputLen=GetBytes*2+4MSComm1.Output=STX+CMD_Read+StartAddress+Hex_Bytes+ETX+GetSumChk(CMD_Read+StartAddress+Hex_Bytes+ETX)‘传送数据组成：起始符+命令+首地址+数据位+结束符+和检验码GetData=MSComm1.InputMSComm1.InBufferCount=0MSComm1.InputLen=0EndFunction如需读取数据，通过调用GetData子程序。参数设置程序可参考读取子程序，只是改变命令而已。Access97数据库中包含三个表单，包括参数表、记录表、报警记录表。通过如下子程序是将实际称量值（记录表）更新到数据库：PrivateSubSaveData()DimiAsIntegerDimvalidAsBooleanOnErrorResumeNextvalid=TrueData1.Recordset.AddNewData1.Recordset.Fields("dtime")=TimeSerial(OnHour,OnMinute,OnSecond)Data1.Recordset.Fields("systime")=Time‘系统时间Data1.Recordset.Fields("get_xl")=LF(1)‘小料当前称量值Data1.Recordset.Fields("get_fjs")=LF(2)‘方解石当前称量值Data1.Recordset.Fields("get_cs")=LF(3)‘长石当前称量值Data1.Recordset.Fields("get_sys")=LF(4)‘石英砂当前称量值Data1.Recordset.Fields("get_cj")=LF(5)‘纯碱当前称量值OnErrorResumeNextData1.Recordset.Update‘更新数据库记录Data1.Recordset...