UC知道VB串口数据丢失的问题怎么解决
来源：百度知道 编辑：UC知道 时间：2024/06/26 05:23:29
我囫囵吞枣的从GOOGLE上搜索了几段串口通讯代码,拼了起来.可以实现串口发送和接收的功能:我发送指令,就能接收到一串返回的数据.但是当我要接收的是512字节的数据时,总是只能接收到一半左右的字节,其他的字节莫名的丢失了,试了10次,10茨接收的数据各不相同,但都丢失了数据.以下是串口接收的代码:
Private Sub MSComm1_OnComm()
Dim wyh As String
Dim buffer As Variant
Dim i As Integer
Select Case MSComm1.CommEvent
Case comEvCD
Case comEvCTS
Case comEvDSR
Case comEvRing
Case comEvReceive
buffer = MSComm1.Input
For i = LBound(buffer) To UBound(buffer)
If Len(Hex(buffer(i))) = 1 Then
RichTextBox1.Text = RichTextBox1.Text & "0" & Hex(buffer(i)) & Chr(32)
Else
RichTextBox1.Text = RichTextBox1.Text
Private Sub MSComm1_OnComm()
Dim wyh As String
Dim buffer As Variant
Dim i As Integer
Select Case MSComm1.CommEvent
Case comEvCD
Case comEvCTS
Case comEvDSR
Case comEvRing
Case comEvReceive
buffer = MSComm1.Input
For i = LBound(buffer) To UBound(buffer)
If Len(Hex(buffer(i))) = 1 Then
RichTextBox1.Text = RichTextBox1.Text & "0" & Hex(buffer(i)) & Chr(32)
Else
RichTextBox1.Text = RichTextBox1.Text
http://topic.csdn.net/u/20071029/15/f2635fd1-7f77-4306-b7b9-76cf74e47ff8.html
请参阅上述连接的讨论，问题出在发送部分，需控制发送节奏。
你这样看不到预先设定的接收缓冲区和接收数据的长度。