android usb转串口 速率慢,用usb转串口代替电脑本身的端口时，数据传输速度变慢了...

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

主要代码：

'接受按钮事件

Private Sub Command1_Click()

On Error GoTo err Command1.Enabled = False

Ctime = Format(Now, "yyyymmdd_hhmmss")

MSComm1.CommPort = Combo1.ListIndex + 1

MSComm1.Settings = CStr(Combo2) & "," & CStr(Combo3) & "," & CStr(Combo5) & "," & CStr(Combo6)

'MSComm1.Settings = "115200,N,8,1"

MSComm1.InputMode = comInputModeBinary

'MSComm1.Handshaking = comNone

MSComm1.InBufferSize = 512

MSComm1.InputLen = 0

MSComm1.RThreshold = 1

MSComm1.InBufferCount = 0

If Not MSComm1.PortOpen Then

MSComm1.PortOpen = True

If err Then

MsgBox "串口通信无效。"

Exit Sub

End If

End If

err: If err.Number <> 0 Then MsgBox "错误代码：" & err.Number & vbCrLf & "错误信息：" & err.Description End Sub

'端口事件启动Private Sub MSComm1_OnComm()

Dim i%

Case comEvReceive ' 收到 RThreshold # ofchars.

getLen = MSComm1.InBufferCount

Open ".\GetLen.txt" For Append As #1

Print #1, getLen

Close #1

av = MSComm1.Input

getBytes = av

For i = 0 To getLen - 1

Open ".\Data.txt" For Append As #1

Print #1, getBytes(i)

Close #1

Next

Countnumb = Countnumb + 1

Label2.Caption = Countnumb

Case Else

End Select

End Sub