Question

麻烦各位帮我用VB编写一段接收程序，用mscomm控件

这是我用串口调试接收的数据02 6C 02 6A 02 6C 02 6A 02 6C 02 6C 02 70 02 70 02 6C 02 6C 02 67 02 6A 02 69 02 67 02 6C 02 69 02 69 02 67 02 67 02 69 02 6C 02 70 02 6C 02 68 02 69 02 6B 02 6C 02 6C 02 6C 02 6C 02 6C 02 6C 02 6C 02 6E 02 6C 02 6C 02 67 02 67 02 69 02 6A 02 6C 02 69 02 69 02 6B 02 67 02 69 02 69 02 6A 02 6B 02 67 02 67 02 67 02 69 02 6C 02 6C 02 6C 02 6C 02 6A 02 6C 02 69 一共是120数据，将这些数据接收后存入一个数组中，因为这个数组我还要用来计算，谢谢了！

Answer 1

这些数据都是16进制吗?用文本框来接收
Private Sub MSComm1_OnComm()
On Error GoTo Err
Dim ReceiveArr() As Byte ' 接收数据数组
Dim receiveData As String ' 数据暂存
Dim Counter As Integer ' 接收数据个数计数器
Dim I As Integer ' 循环变量
If (MSComm1.InBufferCount > 0) Then
Counter = MSComm1.InBufferCount ' 读取接收数据个数
receiveData = "" ' 清缓冲

ReceiveArr = MSComm1.Input ' 数据放入数组

For I = 0 To (Counter - 1) Step 1 ' 数据格式处理

If (ReceiveArr(I) < 16) Then
receiveData = receiveData & "0" + Hex(ReceiveArr(I)) ' 小于16，前面加0
Else
receiveData = receiveData & Hex(ReceiveArr(I))
End If

Next I
text1.Text = text1.Text + receiveData
text1.SelStart = Len(text1.Text)
End If
Err:
End Sub
接收完数据就是字符串,然后再用循环MID(text1,2*n+1,2)存入数组就行了