串口接收问题

Question

Private Sub Timer1_Timer()
Dim Send_Repeater() As Byte
MSComm1.InBufferCount = 0
ReDim Send_Repeater(5)
Send_Repeater(1) = &HA7
Send_Repeater(2) = &HA6
Send_Repeater(3) = &HB6
Send_Repeater(4) = &HB7
Send_Repeater(5) = &HB8
MSComm1.Output = Send_Repeater
Do
DoEvents
Loop Until MSComm1.InBufferCount >= 10
End sub
。
===============
这是其中一段
串口发送send_repeater，当接收到10个字节时正常，并进行下一步为这样不对，，请教。

Answer 1

Option ExplicitPrivate Sub Command1_Click()
    Timer1.Enabled = True
End SubPrivate Sub Form_Load()
    Timer1.Interval = 1000
    MSComm1.RThreshold = 1
    MSComm1.PortOpen = True
End SubPrivate Sub Timer1_Timer()
    Dim Send_Repeater() As Byte
    MSComm1.InBufferCount = 0
    ReDim Send_Repeater(4)
    Send_Repeater(0) = &HA7
    Send_Repeater(1) = &HA6
    Send_Repeater(2) = &HB6
    Send_Repeater(3) = &HB7
    Send_Repeater(4) = &HB8
    MSComm1.Output = Send_Repeater
    Do
        DoEvents
    Loop Until MSComm1.InBufferCount >= 10
    Label1 = MSComm1.InBufferCount
End Sub

Answer 2

Private Sub Timer1_Timer() 
Dim Send_Repeater(1 To 5) As Byte 
MSComm1.InBufferCount = 0 
ReDim Send_Repeater(5) 
Send_Repeater(1) = &HA7 
Send_Repeater(2) = &HA6 
Send_Repeater(3) = &HB6 
Send_Repeater(4) = &HB7 
Send_Repeater(5) = &HB8 
MSComm1.Output = Send_Repeater 
Do 
DoEvents 
Loop Until MSComm1.InBufferCount >= 10 
End sub