Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于串口设置


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

主题：关于串口设置
帅哥哟，离线，有人找我吗？
tcmhl
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：159 积分：1718 威望：0 精华：0 注册：2014/9/1 0:35:00 		关于串口设置  发帖心情 Post By：2018/1/17 16:33:00 [只看该作者]

请问大大，串口如何设置才能达到这个效果，发过去东西一直没内容回来。。。谢谢！
图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/1/17 16:56:00 [只看该作者]

1、参考设置

 

http://www.foxtable.com/webhelp/scr/1976.htm

 

2、发送什么接收什么？你如何测试的？
 回到顶部
帅哥哟，离线，有人找我吗？
tcmhl
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：159 积分：1718 威望：0 精华：0 注册：2014/9/1 0:35:00 		  发帖心情 Post By：2018/1/18 12:42:00 [只看该作者]

发送"xxxxx" 换行

接受 设备的版本号

通过accessport可以发送接收 但是通过 foxtable 无法接收到数据

Ports.Add("COM4")
Ports("COM4").ReadBufferSize() = 8192
Ports("COM4").WriteBufferSize() = 8192
Ports("COM4").Parity = Parity.None
Ports("COM4").StopBits = StopBits.One
Ports("COM4").BaudRate = 38400
Ports("COM4").DataBits = 8
Ports("COM4").Handshake=Handshake.None
Ports("COM4").ReadTimeout=0
Ports("COM4").WriteTimeout=-1
Ports("COM4").Encoding=Encoding.ASCII
Ports("COM4").Open
Ports("COM4").Write("ATI" & vbcrlf)
Dim s As String 
s = Ports("COM4").ReadExisting()
messagebox.show(s)
Ports("COM4").close()
Ports.Remove("COM4")


另想问一下readintervaltiomeout这个数值能否修改
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/1/18 14:48:00 [只看该作者]

1、启动串口这样写

 

Ports.Add("COM4")
Ports("COM4").ReadBufferSize() = 8192
Ports("COM4").WriteBufferSize() = 8192
Ports("COM4").Parity = Parity.None
Ports("COM4").StopBits = StopBits.One
Ports("COM4").BaudRate = 38400
Ports("COM4").DataBits = 8
Ports("COM4").Handshake=Handshake.None
Ports("COM4").ReadTimeout=0
Ports("COM4").WriteTimeout=-1
Ports("COM4").Encoding=Encoding.ASCII
Ports("COM4").Open
 
2、发送数据这样写
 
Ports("COM4").Write("ATI" & vbcrlf)

 

 

3、接收数据，请在事件里面测试

 

http://www.foxtable.com/webhelp/scr/1967.htm

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


加好友 发短信
等级：幼狐 帖子：159 积分：1718 威望：0 精华：0 注册：2014/9/1 0:35:00 		  发帖心情 Post By：2018/1/18 16:13:00 [只看该作者]

不能崇拜更多。。图片点击可在新窗口打开查看

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


加好友 发短信
等级：幼狐 帖子：159 积分：1718 威望：0 精华：0 注册：2014/9/1 0:35:00 		  发帖心情 Post By：2018/1/19 11:01:00 [只看该作者]

再请教一下，能否不使用串口监视器，在窗口中用按键实现发送一组数据，接收一组数据？


比如图上说的这个,没办法接收到数据。



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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/1/19 11:59:00 [只看该作者]

试试这样写

 

Ports("COM4").Write("ATI" & vbcrlf)
Dim s As String = ""

Do While s = ""
    s = Ports("COM4").ReadExisting()
    application.doevents
Loop

msgbox(s)

 回到顶部
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 次数据查询