Question

VB的mscomm控件oncomm事件中怎么用收到的数据不同值作为条件写条件语句

Answer 1

'假设控件名称为com
Private Sub com_OnComEvent(ByVal comEvent As Integer, ByVal eError As Integer)
Dim ss As String
Dim ff As String
Select Case comEvent
Case 0:
Case 1: ‘ 收到数据，处理数据
ss = com.Read
While (Trim(ss) <> "")
ff = ff + ss
ss = com.Read
Wend
Debug.Print ff '这个ff就是收到的数据，你想怎么判断使用就怎么使用。
End Select

End Sub

追问

如果想要将接收的数据（字符型 ）存入一个字符变量中，需要将这个赋值语句写到 ON_COMM事件中么？
比如 dim strbuff as string
strbuff=MSComm1.Input '这句话必须要写到ON_COMM事件中么

追答

我上面的代码中ff就是接收到的数据。

Answer 2

Option Explicit
Dim sendvar(0) As Byte
Dim i As Integer
Dim sum As Integer
Private Sub Command1_Click()
For i = 0 To 15
sendvar(0) = i
MSComm1.Output = sendvar
Next
End Sub

Private Sub Command2_Click()
MSComm1.Output = " df s"
End Sub

Private Sub Form_Load()
MSComm1.PortOpen = True
MSComm1.SThreshold = 1
End Sub

Private Sub MSComm1_OnComm()
Dim bytInput() As Byte
Dim intInputLen As Integer
Select Case MSComm1.CommEvent
Case comEvSend
sum = sum + 1 '统计comEvSend次数
Label1.Caption = sum
'MsgBox "afadfaf", vbOKOnly, ""
End Select
End Sub

追问

如果想要将接收的数据（字符型 ）存入一个字符变量中，需要将这个赋值语句写到 ON_COMM事件中么？
比如 dim strbuff as string
strbuff=MSComm1.Input '这句话必须要写到ON_COMM事件中么

追答

一般 先 用 variant 变量接收，然后再转换

一开始 就用 string 赋值 可能会 丢失非字符数据

推荐看书
Visual_Basic与_RS-232_串行通信控制