以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何清空串口缓存信息?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=69810)

--  作者:54292550
--  发布时间:2015/6/11 11:19:00
--  如何清空串口缓存信息?
串口缓存信息如何清除?
怎样用代码实现?

串口发送数据1ms一次,狐表这边处理不了。

--  作者:大红袍
--  发布时间:2015/6/11 11:21:00
--  

 串口基础看完了吗?

 

http://www.foxtable.com/help/topics/1966.htm

 


--  作者:54292550
--  发布时间:2015/6/11 12:07:00
--  
下位机给通过串口给狐表发送数据,发送频率1000Hz,接收出现问题,报错。
用串口调试助手给狐表发送数据,都没有问题。找了找原因,可能就是串口调试助手达不到下位机那么高的发送频率。
这个有什么办法解决?

--  作者:大红袍
--  发布时间:2015/6/11 12:27:00
--  

 具体是报什么错?

 

 http://www.foxtable.com/help/topics/1976.htm

 


--  作者:54292550
--  发布时间:2015/6/11 13:12:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:报错.jpg
图片点击可在新窗口打开查看



--  作者:54292550
--  发布时间:2015/6/11 13:39:00
--  
用串口调试助手最高的频率发送都没问题。。。一用下位机发就有问题。
--  作者:大红袍
--  发布时间:2015/6/11 14:11:00
--  
 贴出代码。
--  作者:54292550
--  发布时间:2015/6/12 9:16:00
--  
例如:JKQ1=|21.30000|24.300000|4.5700000|10.600000


datareceived事件代码:
Dim CK As String = e.Port.ReadLine()                ;;;;;;;;;;;///(用ReadExisting试了一下,还不如ReadLine的效果呢。)
Dim Values() As String = CK.split("|")
Dim v1 As String = Values(1)
Dim v2 As String= Values(2)
Dim v3 As String= Values(3)
Dim v4 As String= Values(4)
Forms("主窗口").Controls("Label6").Text = v1
Forms("主窗口").Controls("Label7").Text = v2
Forms("主窗口").Controls("Label8").Text = v3
Forms("主窗口").Controls("Label10").Text = v4

--  作者:大红袍
--  发布时间:2015/6/12 9:22:00
--  
Dim CK As String = e.Port.ReadLine()                ;;;;;;;;;;;///(用ReadExisting试了一下,还不如ReadLine的效果呢.)
Dim Values() As String = CK.split("|")
output.show(values.length)
If values.Length >= 5 Then

    Dim v1 As String = Values(1)
    Dim v2 As String= Values(2)
    Dim v3 As String= Values(3)
    Dim v4 As String= Values(4)
    Forms("主窗口").Controls("Label6").Text = v1
    Forms("主窗口").Controls("Label7").Text = v2
    Forms("主窗口").Controls("Label8").Text = v3
    Forms("主窗口").Controls("Label10").Text = v4
End If