vb.net下的串口控件 vb串口通信程序

vb.net SerialPort控件接收数据问题，用串口调试助手发数据，只有第一次可以正常接收

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

成都创新互联是专业的三门峡网站建设公司，三门峡接单;提供网站设计制作、网站制作,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行三门峡网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!

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

直接发数字1。

一般可以直接发10进制的数字，当然要转换，比如16进制的21，你可以直接发33

.net中不用mscomm 而改用 searport

AxMSComm1.Input 只能一次，会把输入缓冲区的内容全都读出来并清空

如果没有产生Oncomm事件，你可以把输入经部区的大小改一下改成1就行了

当前文章：vb.net下的串口控件 vb串口通信程序
文章出自：http://ybzwz.com/article/dosogjp.html