VB编程串口通信

硬件上要将串口的RXD和TXD脚短路
代码需要的话留个E-MAIL地址

做根线,232 to 232 ,做的时候要注意2脚接3脚,(如两个头是A和B)也就是A的2接B头的3,A的3脚接B的2脚,5接5.
然后用添加两个MSCOMM控件(Microsoft Communications Control（以下简称MSComm）是Microsoft公司提供的简化Windows下串行通信编程的ActiveX控件，它为应用程序提供了通过串行接口收发数据的简便方法。具体的来说，它提供了两种处理通信问题的方法：一是事件驱动(Event－driven)方法，一是查询法。)
.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 '打开通信口

下面是响应Mycomm_OnComm事件的处理程序，对数据库采集的处理程序采用MSComm事件驱动方式。

Private Sub MyComm_OnComm()
With MyComm
Select case .CommEvent
Case .comEvReceive
' 接收数据
' 对数据进行处理
case .comEVSend
'发送数据
case .comEventRxParity
'对奇偶校验错误进行处理
end select
end with
end sub