vb.net连接串口 vbnet串口通信如何编写

vb.net serialport 打开串口 如果不操作 会自动关闭该如何处理

我在开始程序运行时候 同时打开两个串口 比如 COM1 和 COM2 当一开始只用到COM1 过段时间后 COM2 会自动关闭？ COM2 暂时还没用到。 ------解决方案-------------------------------------------------------- 沙发，帮顶！ ------解决方案-------------------------------------------------------- 不会,除非代码中有BUG. ------解决方案-------------------------------------------------------- 不会自动关闭的 或者通过代码关闭 ------解决方案-------------------------------------------------------- 打开后必须关闭的，应该不会自动关闭 ------解决方案-------------------------------------------------------- 用两个SerialPort 对象，分别打开两个串口，应该不会出现你这样的问题。MSDN: SerialPort.Open 方法 每个 SerialPort 对象只能有一个打开的连接。 对于所有应用程序，最佳做法是在调用 Close 方法之后和尝试调用 Open 方法之前等待一会 儿，因为端口可能未即时关闭。 ------解决方案-------------------------------------------------------- 用线程控制个时间，及时开关 不会自动关闭。

目前成都创新互联公司已为成百上千的企业提供了网站建设、域名、虚拟空间、网站托管运营、企业网站设计、清河网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。

VB.NET使用AxMSComm实现串口通信的发送读取问题？

上面的代码看不出问题，如果初始化串口控件时已经注册了AxMSComm1_OnComm，有数据接收应该能触发，至于为什么没有触发，要看看你的接收方是否已经收到你的发出指令，是否已经有响应数据回发。

建议分开调试，用一个通用的串口助手，如格西烽火串口助手之类的，分别调试你的上位机和下位机。格西烽火串口助手能轻松的定制如你上面的发送数据。

vb.net程序如何实现向电脑的Com口发送一段字符串信息，之后再接收显示发送的字符串信息？

'vb.net的串口接收数据要用到委托

Delegate Sub SetTextCallback(ByVal InputString As String) '声明一个委派类，并声明符合函数参数有一个，而其型态是字符串

Private Sub ShowString(ByVal comData As String)

txt_Re.Text = comData '将收到的数据入接收文字框中--- txt_Re.Text 是接收用的文本框

txt_Re.SelectionStart = txt_Re.Text.Length

txt_Re.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)

Invoke(d, inData)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '发送指令

SerialPort1.Write("123")

End Sub

vb.net与rs232串口的通讯

Dim str As String

Dim str1() As String

str = "xxm+0000.00yym+0000.00zzm+0000.00"

str1 = str.Split("+")

结果在str1()中

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

首先：

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

其次：

我觉得用串口的接收数据事件更好一些。

下面代码供参考：

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

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

'触发事件的条件可以自己在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