采用中断方式,例如接收到5个字节产生中断,那么 mscomm1.RThreshold=5Private Sub MSComm_OnComm () Select Case MSComm1.CommEvent Case comEvReceive ' 收到 RThreshold # of chars. '接收数据在这里处理 data$=mscomm1.input ....... End Select End Sub
采用查询方式,例如接收到5个字节产生中断,那么 do while mscomm1.input>5 loop
mscomm1.RThreshold=5Private Sub MSComm_OnComm ()
Select Case MSComm1.CommEvent
Case comEvReceive ' 收到 RThreshold # of chars.
'接收数据在这里处理
data$=mscomm1.input
.......
End Select
End Sub
do while mscomm1.input>5 loop