包含vb.net串口调试助手的词条

VB。net 串口接收数据，用串口调试助手发数据，只有第一次可以正常接收

你定义的委托需要带参数才行，DataReceived事件中没有接收数据代码，下面的代码经测试可用

Delegate Sub SetTextCallback(ByVal InputString As String)

Private Sub ShowString(ByVal comData As String)

txt_Rect.Text += comData '将收到的数据入接收文字框中

txt_Rect.SelectionStart = txt_Rect.Text.Length

txt_Rect.ScrollToCaret()

End Sub

Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived

Dim inData As String = SerialPort1.ReadExisting

Dim d As New SetTextCallback(AddressOf ShowString)

BeginInvoke(d, inData)

End Sub

相关问答

Q1: vb.net serialport 如何从串口通信缓存区每次4个字节的数据,缓存区中的数据大于4个字节

你可以等全部获取后 用mid函数去截取字符串 再赋值

dim a()

redim a(len(s)\4))

for i = 1 to len(s) step 4

a(j)=mid(s,i,4)

j=j+1

next

Q2: vb.net 串口接收问题

0x3F表示字符"?"

估计是vb.net串口调试助手你vb.net串口调试助手的发送指令不正确vb.net串口调试助手，设备返回vb.net串口调试助手你发送的指令后面加''vb.net串口调试助手？""

Q3: 请教用VB.NET向串口发送16进制的数的方法

应该是vb.net串口调试助手你的转换格式不正确vb.net串口调试助手，下面代码就是将文本框中以一个空格隔开的十六进制转为字节的代码，文本框中数字格式为：01 02 03

Dim TestArray() As String = Split(TextBox1.Text)

Dim hexBytes() As Byte

ReDim hexBytes(TestArray.Length - 1)

Dim i As Integer

For i = 0 To TestArray.Length - 1

hexBytes(i) = Val("h" TestArray(i))

Next

SerialPort.Write(hexBytes, 0, hexBytes.Length)

如果有问题可以再联系。

Q4: vb.net 怎么用事件触发的方式读取串口数据

首先vb.net串口调试助手：

textbox里没有显示，是因为SerialPort1和TextBox2不是同一线程创建vb.net串口调试助手的，需要跨线程操作。需要用到委托，这样才能显示出来。

其次vb.net串口调试助手：

我觉得用串口vb.net串口调试助手的接收数据事件更好一些。

下面代码供参考：

'----------------------

'串口接收数据事件，其实比用定时器更好，

'触发事件的条件可以自己在form_load中设置ReceivedBytesThreshold属性数值，默认为ReceivedBytesThreshold=1

Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived

Dim strRecvData As String = ""

strRecvData = SerialPort1.ReadExisting

Call disPlayComData(strRecvData)

End Sub

Delegate Sub callback(ByVal strT As String) '定义委托

Sub showString(ByVal comdata As String) '显示结果

Me.TextBox1.Text = "结果：" comdata

End Sub

Sub disPlayComData(ByVal strTmp As String) '判定是否为跨线程

If Me.TextBox1.InvokeRequired Then

Dim d As New callback(AddressOf showString)

Me.Invoke(d, New Object() {strTmp})

Else

Me.TextBox1.Text = strTmp

End If

End Sub

vb.net串口调试助手的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于、vb.net串口调试助手的信息别忘了在本站进行查找喔。