摘要：本文介绍了VB 进行串口通信的各种基本方式和三菱可编程控制器之间的通信的程序设计，重点介绍了利用MSCOMM.OCX进行串行通信的设计方法。
关键词：串行通信， PLC， Visual Basic 6.0
Abstract: Describes all kinds of basic serial port communication methods using Visual Basic 6.0 and design of free port communication program of MITSUBISH PLC, furthermore set focus on the designing method of serial port communication through dynamic linked library in Visual Basic 6.0
Key Words: Serial port communication, PLC, Visual Basic 6.0
一、引言
在工业生产中，人们常常面临着数据采集与管理。作为工厂自动化的三大支柱可编程控制器PLC（Programmable Logic Controller），由于其安全可靠，广泛的用于数据采集与控制。生产过程中，要监视PLC内部的数据与运行状况，选用市场上的人机界面或组态软件，虽然功能丰富，但大都价格昂贵，在一些中小规模的生产场合，人们希望能自己用高级语言开发一个简易实用的通信程序。微软公司推出的Visual Basic 6.0，开发串行通信程序时，有两种方法，一种是用Windows API函数，另一种是用VB支持的通信控件MSCOMM.OCX。利用Windows API函数是通过调用读写等函数来操作串口。两种比较，使用MSCOMM.OCX控件编程方便，具有更完善的发送和接收功能。这里采用了MSCOMM.OCX控件。
本文根据杭州某包装材料公司原料配料控制系统为背景，简述实现计算机与三菱FX系列PLC通信的实现过程。
二、硬件与选型
日本三菱公司是国际著名的工厂自动化设备制造商，工业可编程控制器在国内市场占有率一直保持前列。项目选用三菱FX2N-64MR型PLC，SC-09电缆作为计算机与PLC通信的连线。连接电缆的9针端连接在计算机串口上，另一端连接在PLC的RS-422编程口。
三、软件编程
软件设计主要包括PLC梯形图设计和计算机VB程序、数据库设计。计算机操作系统为Windows98，编程语言用Visual Basic 6.0，数据库选用Access97，梯形图程序在三菱PLC编程软件GPPWIN 软件环境设计。上位机软件实现计算机对PLC内部数据读取、写入参数和保存数据到数据库。
三菱FX2N型PLC编程口通信协议如下：
命令 命令字 控制元件 备注
读元件 0 X,Y,M,S,T,C,D 读字/位元件状态
写元件 1 X,Y,M,S,T,C,D 写字/位元件状态
置位 7 X,Y,M,S,T,C 位元件置位
复位 8 X,Y,M,S,T,C 位元件复位
通信格式：
起始符 命令字 首地址 数据区 结束符 和校验
波特率9600，偶校验，8位数据位，一位停止位。
在新建工程的表单上添加MSCOMM.OCX控件，初始化程序：
Private Sub Form_Load()
MSComm1.CommPort = 1 '选择COM1口
MSComm1.Settings = "9600,e,7,1"
End Sub
系统参数主画面如下图所示：
图二
数据读取子程序：
Public Function GetData(ByVal StartAddress As String, ByVal GetBytes As Integer, ByVal Hex_Bytes As String) As String
MSComm1.InputLen = GetBytes * 2 + 4
MSComm1.Output = STX + CMD_Read + StartAddress + Hex_Bytes + ETX + GetSumChk(CMD_Read + StartAddress + Hex_Bytes + ETX)
‘传送数据组成：起始符+命令+首地址+数据位+结束符+和检验码
GetData = MSComm1.Input
MSComm1.InBufferCount = 0
MSComm1.InputLen = 0
End Function
如需读取数据，通过调用GetData子程序。
参数设置程序可参考读取子程序，只是改变命令而已。
Access97数据库中包含三个表单，包括参数表、记录表、报警记录表。
通过如下子程序是将实际称量值（记录表）更新到数据库：
Private Sub SaveData()
Dim i As Integer
Dim valid As Boolean
On Error Resume Next
valid = True
Data1.Recordset.AddNew
Data1.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) ‘纯碱当前称量值
On Error Resume Next
Data1.Recordset.Update ‘更新数据库记录
Data1.Recordset.MovePrevious
End Sub
程序中，LF(i)变量对应为图二系统参数表单中实称值。
保存参数子程序只是对数据库操作，程序结构可参考以上子程序。
上位机与PLC通信质量的好坏，对系统的安全可靠运行影响极大，因此，编写程序时，除了在两者之间的通信协议上保持绝对一致和采取相应的容错技术外，还要考虑系统的整体容 |
自动化资料下载
自动化产品
