'发送数据
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里面都是空的 ,请大师指教
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里面都是空的 ,请大师指教
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货