Question

VB 串口通信接收数据为什么是乱码呢？

我写的一个PC与单片机的一个测试的程序，接收单片机发送过来的数据显示在Text里面，但我在Text里面看到是乱码呢？
Dim a As Variant
Dim b() As Byte

Private Sub Form_Load()
MSComm1.InBufferSize = 1024
MSComm1.CommPort = 1
Timer1.Interval = 500
Timer1.Enabled = True
MSComm1.InputMode = 1
End Sub

Private Sub Timer1_Timer()
MSComm1.Settings = "9600,n,8,1"
MSComm1.InputLen = 10
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
End If
If MSComm1.InBufferCount > 0 Then
a = MSComm1.Input
b = a
Text1.Text = b

End If
End Sub
1楼的朋友，
为什么在调试时对这一句“For i = 0 To UBound(b) ”会出现“下标越界”的提示呢？

Answer 1

抱歉FOR NEXT循环漏了NEXT句：
Dim a As Variant
Dim b() As Byte
Dim strData As String

Private Sub Form_Load()
MSComm1.InBufferSize = 1024
MSComm1.CommPort = 1
Timer1.Interval = 500
Timer1.Enabled = True
MSComm1.InputMode = 1
End Sub

Private Sub Timer1_Timer()
MSComm1.Settings = "9600,n,8,1"
MSComm1.InputLen = 10
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
End If
If MSComm1.InBufferCount > 0 Then
a = MSComm1.Input
b = a
Dim i As Integer
For i = 0 To UBound(b)
IF Hex(b(i))=1 Then
strData = strData & "0" & Hex(b(i))
Else
strData = strData & Hex(b(i))
End If
Next i
Text1.Text = strData
End If
End Sub

Answer 2

我看是下面单片机程序的问题,我想,你可能是ASSII码没有搞清楚,打个比较,你想在上面收到1,你在单片机中发1行不行,我告诉你,不行,你要发31H．也就是1的ASII码．