'發送資料
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://download.csdn.net/detail/zdingyun/1070246uj5u.com熱心網友回復：
是不是設定不對啊，可以檢查一下uj5u.com熱心網友回復：
用串口監視下，你資料發過去了沒？uj5u.com熱心網友回復：
建議用http://www.onlinedown.net/soft/119517.htm 除錯一下
uj5u.com熱心網友回復：
如果你用的是SerialPort控制元件，請在SerialPort_DataReceived事件里取串口接收到的資料如果你用的是SerialPort類，可以參考
http://blog.csdn.net/citybird/article/details/44229025里面的代碼，只需要在Form上添加兩個TextBox和一個Button
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/101139.html
標籤：VBA
上一篇：vb能控制刻錄機嗎？