Question

VB上动态显示单片机送来的数据 同时可以保存在 数据库Access 以后调用处理

你好，不知道我能不能加你QQ，我看你回答了一个关于VB程序的问题，我也有类似的问题希望你解答一下可以吗？

Answer 1

Dim intInputLen As Integer
Select Case Me.MSComm1.CommEvent
Case comEvReceive
'此处添加处理接收的代码
MSComm1.InputMode = comInputModeBinary '二进制接收
intInputLen = MSComm1.InBufferCount
ReDim bytInput(intInputLen)
bytInput = MSComm1.Input

For i = 0 To UBound(bytInput)
If Len(Hex(bytInput(i))) = 1 Then
strData = strData & "0" & Hex(bytInput(i))
Else
strData = strData & Hex(bytInput(i))
End If
Next

End Select