当前位置:编程学习 > C#/ASP.NET >>

RS232通讯 VB.NET 语句编写

例:发送命令:focusoffset -w -w 12
   接收信息:wide focus offset value written in eeprom is 0x12 (18 in decimal)。。。长度不定。

代码怎么编写?

--------------------编程问答--------------------


Delegate Sub CallBack(ByVal data As String)
Private sp As SerialPort

Private Sub ConnPort()
        sp = New SerialPort("com2", 9600)
        AddHandler sp.DataReceived, AddressOf SerialPort_DataReceived
        sp.DataBits = 8
        sp.Parity = Parity.None
        sp.StopBits = 1
        sp.Open()
        sp.Write("test")
End Sub

Private Sub GetData(ByVal data As String)
        MessageBox.Show(data)
End Sub

Private Sub SerialPort_DataReceived(ByVal o As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs)
        Dim data As String = sp.ReadExisting()
        Dim cb As New CallBack(AddressOf GetData)
        Invoke(cb, data)
End Sub

--------------------编程问答-------------------- 代码有测试,会丢失数据,但用超级终端测试OK,参考附图。 --------------------编程问答-------------------- 顶二楼吧,那样写应该就没有什么问题了。串口相对还是好操作的 --------------------编程问答-------------------- 操作是简单,丢数据就麻烦。
--------------------编程问答-------------------- 怎么让接受速度加快?貌似有些数据丢失,求解。
补充:.NET技术 ,  VB.NET
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,