Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何清空串口缓存信息？


  共有2851人关注过本帖树形打印复制链接

主题：如何清空串口缓存信息？
帅哥哟，离线，有人找我吗？
54292550
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：287 积分：4201 威望：0 精华：0 注册：2011/8/19 10:07:00 		如何清空串口缓存信息？  发帖心情 Post By：2015/6/11 11:19:00 [只看该作者]

串口缓存信息如何清除？
怎样用代码实现？

串口发送数据1ms一次，狐表这边处理不了。
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/6/11 11:21:00 [只看该作者]

 串口基础看完了吗？

 

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

 
 回到顶部
帅哥哟，离线，有人找我吗？
54292550
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：287 积分：4201 威望：0 精华：0 注册：2011/8/19 10:07:00 		  发帖心情 Post By：2015/6/11 12:07:00 [只看该作者]

下位机给通过串口给狐表发送数据，发送频率1000Hz，接收出现问题，报错。
用串口调试助手给狐表发送数据，都没有问题。找了找原因，可能就是串口调试助手达不到下位机那么高的发送频率。
这个有什么办法解决？
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/6/11 12:27:00 [只看该作者]

 具体是报什么错？

 

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

 
 回到顶部
帅哥哟，离线，有人找我吗？
54292550
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：287 积分：4201 威望：0 精华：0 注册：2011/8/19 10:07:00 		  发帖心情 Post By：2015/6/11 13:12:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：报错.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
54292550
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：287 积分：4201 威望：0 精华：0 注册：2011/8/19 10:07:00 		  发帖心情 Post By：2015/6/11 13:39:00 [只看该作者]

用串口调试助手最高的频率发送都没问题。。。一用下位机发就有问题。

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/6/11 14:11:00 [只看该作者]

 贴出代码。

 回到顶部
帅哥哟，离线，有人找我吗？
54292550
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：287 积分：4201 威望：0 精华：0 注册：2011/8/19 10:07:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：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

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询