Question

看到的用VB 编写的上位机代码中的通信函数，求大神解释下

Private Sub MSComm1_OnComm()
Dim count As Integer
Dim ReceiveArr() As Byte ' 接收数据数组
On Error GoTo Err
Select Case MSComm1.CommEvent ' 每接收1个数就触发一次
Case comEvReceive
count = MSComm1.InBufferCount
ReceiveArr = MSComm1.Input

If (receivedCount = 0) Then
receivedStall = ReceiveArr(0) + 1
End If

For i = 0 To (count - 1) Step 1 ' 数据格式处理
If (ReceiveArr(i) < 16) Then
receiveData = receiveData & "0" + Hex(ReceiveArr(i)) & Space(1) ' 小于16，前面加0
Else
receiveData = receiveData & Hex(ReceiveArr(i)) & Space(1) ' 加空格显示
End If
receivedCount = receivedCount + 1
Next i

If (receivedCount >= receivedStall) Then

Call hexReceive ' 十六进制接收
MSComm1.InBufferCount = 0
receivedCount = 0
receiveData = ""

End If
End Select
Err:
End Sub

Answer 1

这个可以百度vb6 mscomm,
去了解控件的初始化、事件的触发、数据的接收。