Question

我现在做一个数据采集系统，在用VB设计上位机时，如何在textbox显示串口接收单片机发来的全部数据？

用以下程序只能显示一个字节的数据，无法保存显示接收的全部数据在接收文本框里

Private Sub MSComm1_OnComm() '有数据传送时触发

Dim indata As Variant '定义变量
Dim arr(0) As Byte '定义字节数组
Select Case MSComm1.CommEvent ''CommEvent
Case comEvReceive '有接收事件
indata = MSComm1.Input '接收到的数据存放到indata里
arr(0) = AscB(indata) '返回indata的值
Text1.Text = arr(0) '在text1中显示数据
MSComm1.InBufferCount = 0 ' 清空接收缓冲区
End Select
End Sub

麻烦VB高手慷慨相助，帮我修改下程序，或者自己贴上能实现功能的程序，拜谢了！

Answer 1

''''''''''''''''''''''''''''''''''''''请先说明，你是什么方式采集的？？字符串？？字节？？'''''''''''''''''''''''''''''''''''''''''''

Private Sub Form_Load()
On Error GoTo error
With Me.MSComm1
.CommPort = 5
.InputMode = comInputModeText '字符串格式
'.InputMode =comInputModeBinary'字节格式
.PortOpen = True
End With
Exit Sub
error:
MsgBox "...."
MSComm1.PortOpen = False
End
End Sub

Private Sub MSComm1_OnComm()
Dim arr As String
If MSComm1.CommEvent = comEvReceive Then
arr = MSComm1.Input
Text1.Text = arr
MSComm1.Input = 0
End If
End Sub