① vb怎麼讀取單片機串口數據
先是VB發送一段14位的十六進制數據過去，字頭和檢驗位正確後，單片機接收後回發給一段13位的十六進制數據給VB，VB判斷這個數據是單片機告訴自己發送正確（錯誤），如果錯誤的再發數據。
② 求助VB如何讀計算機串口數據
VB6.0MsComm控制項可以利用OnComm事件連續獲取來自外設發送的信號。
基於：
1）MsComm控制項的RThreshold 屬性不為0和恰當的接收代碼。
2）使用電腦主板物理COM口或PCI多串口卡上的COM口COM，這樣的COM口是全雙工的，發送與接收不會沖突。
3）高質量的接收代碼和符合通信協議和數據幀規約的接收處理代碼。
實例代碼：
Private Sub Form_Load() MSComm1.InputMode = comInputModeBinary '採用二進制傳輸 MSComm1.InBufferCount = 0 '清空接受緩沖區 MSComm1.OutBufferCount = 0 '清空傳輸緩沖區 MSComm1.RThreshold = 1 '產生MSComm事件 MSComm1.InBufferSize = 1024 TxtSend = "" TxtSend = "" txtReceive = "" Text2 = ""End Sub Private Sub MSComm1_OnComm() '接收數據 Dim strBuff As String Select Case MSComm1.CommEvent Case 2 MSComm1.InputLen = 0 strBuff = MSComm1.Input BytReceived() = strBuff jieshou lenInput = Len(strData) Text2 = lenInput \ 2 '數據處理代碼 End SelectEnd Sub Public Function jieshou() '接收數據處理為16進制 Dim i As Integer For i = 0 To UBound(BytReceived) If Len(Hex(BytReceived(i))) = 1 Then strData = strData & "0" & Hex(BytReceived(i)) Else strData = strData & Hex(BytReceived(i)) End If Next txtReceive = strDataEnd Function