'發送資料
Private Sub senddata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles senddata.Click
Dim strincoming As String
Dim xx As String
Dim yy As String
Try
SerialPort1.Write(senddata.Text, 0, 4)
Threading.Thread.Sleep(1000)
If SerialPort1.BytesToRead > 0 Then
Threading.Thread.Sleep(100) '添加延時
strincoming = SerialPort1.ReadExisting.ToString '讀取緩沖區中的資料
SerialPort1.DiscardInBuffer()
RXbox.Text = strincoming
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
程式如上 senddata為發送資料，RXbox為接收資料框 ，串口已經打開，用串口助手除錯可發射和接收，自己編的程式senddata輸入1 接收RXbox里面都是空的 ，請大師指教
uj5u.com熱心網友回復：
同樣的問題無需問兩遍。見：http://bbs.csdn.net/topics/390985158?page=1#post-398891893轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/102520.html
標籤：VBA
上一篇：有哪些影像處理控制元件？
下一篇：office vba