Question

VB6.0 编程 RS-232串行通信培训？

最好是北京，或网络，多谢指点 aa8051@163.com

Answer 1

用一个MSComm控件就可以完成。

下面给出在Win2000下利用VB6.0的MSComm控件开发计算机与一智能采集模块进行串行通信的程序实现。在工控领域内，智能采集模块有着相当重要的地位，它可以通过串口通讯协议（RS232、RS485等）或其他通讯协议与PC机相连，并与外界现场信号直接相连或与由传感器转换过的外界信号相连，由PC机中的程序控制并实现采集现场的模拟信号，并处理采集到的现场信号并输出模拟控制信号、开关量输入输出等功能。因此，智能采集模块在工业控制领域内有着极其广泛的应用。本例子中的智能采集模块与计算机进行通信时，采用一位开始位、一位停止位、7位数据位、偶校验方式，波特率为9600bps.
（1）在窗体中添加名为MyComm的MSComm控件，并设置空间的属性，如下：
.CommPort=2 ‘使用COM2
.Setting=”9600,e,7,1” ‘波特率9600，偶校验，7个数据位，1个停止位
.InBufferSize=40 ‘设置MyComm接收缓冲区为40个字节
.OutBufferSize=2 ‘设置MyComm发送缓冲区为2个字节
.InputMode=comInputModeBinary
‘设置接收数据模式为二进制模式
.InputLen=1 ‘设置一次从接收缓冲区读取字节数为1
.Sthreshold=1 ‘设置一次从发送缓冲区读取字节数为1
.PortOpen=True ‘打开通信口

‘其他属性设置省略

（2）下面是响应Mycomm_OnComm事件的处理程序，对数据库采集的处理程序采用MSComm事件驱动方式。
Private Sub MyComm_OnComm()
With MyComm
Select case .CommEvent
Case .comEvReceive
‘ 接收数据
‘ 对数据进行处理
case .comEVSend
‘发送数据
case .comEventRxParity
‘对奇偶校验错误进行处理
end select
end with
end sub