引言

    在工业生产中，人们常常面临着数据采集与管理。作为工厂自动化的三大支柱可编程控制器PLC（Programmable Logic Controller），由于其安全可靠，广泛的用于数据采集与控制。生产过程中，要监视PLC内部的数据与运行状况，选用市场上的人机界面或组态软件，虽然功能丰富，但大都价格昂贵，在一些中小规模的生产场合，人们希望能自己用高级语言开发一个简易实用的通信程序。使用Visual Basic 6.0，开发串行通信程序时，有两种方法，一种是用Windows API函数，另一种是用VB支持的通信控件MSCOMM。以下介绍使用通信控件方式实现通讯
1.硬件



    采用SC-09编程电缆，连接PC串口与PLC编程口实现通讯。




2．PLC编程口的通信协议简介
    
    通信格式：
    
    波特率9600，偶校验，8位数据位，一位停止位。 具体请参考有关资料，以下举例说明其通讯格式 PLC资料网 http://www.plcclub.com

    1）、DEVICE READ（读出软设备状态值）

    计算机向PLC发送：
    

3．具体程序说明


    MSComm控件简介用来提供简单的串行端口通信功能，也可以用来创建功能完备、事件驱动的高级通信工具。Mscomm控件提供了一系列标准通信命令的使用界面。使用它可以建立与串行端口的连接，通过串行端口再连接到其它设备（如调制解调器、PLC），发出命令，交换数据，以及监视和响应串行连接中发生的事件和错误。

    数据读与写采用函数input和output

（1）窗口加载程序
    Private Sub Form_Load（）
    MSComm1.CommPort = 1 ‘选择COM1口
    MSComm1.Settings = "9600,e,7,1"
    If mscomm1.portopen=false then mscomm1.portopen=true
    End Sub

（2）数据读取子程序：

    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

)

谢谢楼主分享，

感谢楼主无私分享