VB.NET异步委托调用实现串口的自收自发

原贴地址:http://blog.sina.com.cn/s/blog_7223c1af0100nryn.html

PS:不用异步,有时问题很是莫名其妙,郁闷了很久才想到是这个的原因

本文在VB.NET中利用异步委托调用的方法，将串口的自收自发放进一个单独线程，具体实现如下：
（1）声明代理（委托）
Private Delegate Sub dele_1()
（2）定义自收自发函数
Private Sub Communicate()
SerialPort1.Open()
SerialPort1.WriteLine(txtSend.Text.Trim())
System.Threading.Thread.Sleep(100)
txtShow.Text = SerialPort1.ReadExisting()
SerialPort1.Close()
End Sub
（3）定义异步回调函数
Private Sub result(ByVal ar As IAsyncResult)
'获得委托对象的引用
Dim deleg As dele_1 = DirectCast(ar.AsyncState, dele_1)
deleg.EndInvoke(ar)
End Sub
（4）点击按钮Button时，开始异步掉用；在BeginInvoke的第一个参数中获得异步回调函数的地址，线程结束后自动执行异步回调函数
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim dele As New dele_1(AddressOf Communicate)
'开始异步调用
Dim ar As IAsyncResult
ar = dele.BeginInvoke(New AsyncCallback(AddressOf result), dele)
End Sub
（5）窗体Load事件
'下面这句话很重要，使得异步出来的线程可以访问主线程创建的控件
Control.CheckForIllegalCrossThreadCalls = False
'串口初始化
SerialPort1.PortName = "COM1"
SerialPort1.BaudRate = 9600
SerialPort1.StopBits = IO.Ports.StopBits.One
SerialPort1.Parity = IO.Ports.Parity.None
SerialPort1.ReadTimeout = 3000
SerialPort1.DataBits = 8
txtSend.Text = "11111111"
（6）调试运行
实现了串口的自收自发。
本文还有很多不足之处，请大家多多指点。

最后

以上就是失眠草丛为你收集整理的VB.NET异步委托调用实现串口的自收自发的全部内容，希望文章能够帮你解决VB.NET异步委托调用实现串口的自收自发所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。