Private Sub Form_Load()
MSComm2.CommPort = 1 '选用com1串行口
MSComm2.Settings = "9600,n,8,1" '波特率9600,无奇偶校验位,8位数据位1位停止位
MSComm2.InputLen = 0 'input将读取接收缓冲区的全部内容
MSComm2.InBufferSize = 1024 '设置接收缓冲区的字节长度
MSComm2.InBufferCount = 0 '清除发送缓冲区数据
MSComm2.OutBufferCount = 0 '清除接收缓冲区数据
MSComm2.RThreshold = 1
MSComm2.PortOpen = True '打开通信口
End Sub'
Private Sub MSComm2_OnComm()
Dim LX Select Case MSComm2.CommEvent
Case comEvCD 'CD线的状态发生变化
LX = 1
Case comEvCTS 'CTS线的状态发生变化
LX = 2
Case comEvDSR 'DSR线的状态发生变化
LX = 3
Case comEvRing 'Ring Indicator变化
LX = 4
Case comEvReceive '收到RThreshold # of
LX = 5
End SelectEnd Sub
以上程序在接收232串口数据的数据时正常,接收USB口数据时根本就不触发OnComm事件,在设置上有什么区别吗?
MSComm2.CommPort = 1 '选用com1串行口
MSComm2.Settings = "9600,n,8,1" '波特率9600,无奇偶校验位,8位数据位1位停止位
MSComm2.InputLen = 0 'input将读取接收缓冲区的全部内容
MSComm2.InBufferSize = 1024 '设置接收缓冲区的字节长度
MSComm2.InBufferCount = 0 '清除发送缓冲区数据
MSComm2.OutBufferCount = 0 '清除接收缓冲区数据
MSComm2.RThreshold = 1
MSComm2.PortOpen = True '打开通信口
End Sub'
Private Sub MSComm2_OnComm()
Dim LX Select Case MSComm2.CommEvent
Case comEvCD 'CD线的状态发生变化
LX = 1
Case comEvCTS 'CTS线的状态发生变化
LX = 2
Case comEvDSR 'DSR线的状态发生变化
LX = 3
Case comEvRing 'Ring Indicator变化
LX = 4
Case comEvReceive '收到RThreshold # of
LX = 5
End SelectEnd Sub
以上程序在接收232串口数据的数据时正常,接收USB口数据时根本就不触发OnComm事件,在设置上有什么区别吗?
USB 需要用到API