接受部分 每次都不能完整的接受第一個資料
Dim buffer As String
Dim cando As Boolean
Do Until Len(MSComm1.Input) > 0
Text2.Text = "未檢測到資料！"
DoEvents
Loop
Text2.Text = "正在接受資料，請稍等......."
Do Until cando = True
Sleep 1000
If MSComm1.InBufferCount <> 0 Then
buffer = buffer + MSComm1.Input
Else
cando = True
Text2.Text = "資料接收完畢！"
End If
Text1.Text = buffer
DoEvents
'Wend
發送部分 儀器沒辦法接受到資料
Open CommonDialog2.FileName For Input As #5
Do Until EOF(5)
DoEvents
Line Input #5, Ls3
Text2.Text = Ls3
MSComm1.Output = Ls3
Sleep 100
Loop
求各位大佬幫忙
uj5u.com熱心網友回復：
串口引數到底設定對了沒有uj5u.com熱心網友回復：
引數設定對的uj5u.com熱心網友回復：
問題比較多，懶的說了，接收部分至少也該是這樣寫的。
Private Sub MSComm1_OnComm()
Dim C As Long, Data() As Byte
Select Case MSComm1.CommEvent
Case comEvReceive
Do
C = MSComm1.InBufferCount
Sleep 10
Loop Until C = MSComm1.InBufferCount
Data = MSComm1.Input
'一般接收代碼需要這樣處理，雖然你收到的是asc字符，但是最好用一個陣列來接收，然后轉成string，ascii值在128~254的符號用字串來接收是可能丟失的
Case Else
End Select
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/45230.html
上一篇：VB關于SQL select from where讀取ACCESS的問題
下一篇：vb問題求解