串口数据怎么接收？？？？？？？？

[zhanshua]

接收的数据是二进制，以68开头，以16结尾，中间部分长度不固定，谁能告诉我怎么接收？
以前是这么写的：
Private Sub MSComm1_OnComm()

With MSComm1
Select Case .CommEvent
Case comEvReceive
ReDim ab(60) As Byte
.RThreshold = 0
TimeDelay 300 '等0.3秒，
av = .Input 'av为变体
ab = av ’ab为byte数组
.InBufferCount = 0 ’清空
.OutBufferCount = 0 '清空
End Select
.RThreshold = 1
End With
End Sub
中间用了延时，现在想不用延时，直接用看数据是不是16，是就结束，但不知道怎么写。

[Wenking003]

试试这样，我没调试过：
Private Sub MSComm1_OnComm()
Dim Ss As Variant
Dim I As Integer

With MSComm1
Select Case .CommEvent
Case comEvReceive
ReDim ab(60) As Byte
.RThreshold = 0
.InputLen = 1

I = 0
While ab(I) <> 16
While .InBufferCount = 0 ' 要保证一定会收到16
DoEvents
Wend

Ss = .Input 'av为变体
I = I + 1
ab(I) = Ss(0)
Wend ’有用的数据是ab(1)--ab(N)

.InBufferCount = 0 '清空
.OutBufferCount = 0 '清空
End Select
.RThreshold = 1
End With
End Sub

[zhanshua]

谢谢上面的，可以了，还是你的方法好。

[zhanshua]

不知道怎么结帖