- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关于串口设置 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=113530)
-- 发布时间：2018/1/17 16:33:00
-- 关于串口设置
请问大大，串口如何设置才能达到这个效果，发过去东西一直没内容回来。。。谢谢！
此主题相关图片如下：1.png
-- 发布时间：2018/1/17 16:56:00
--
1、参考设置
http://www.foxtable.com/webhelp/scr/1976.htm
2、发送什么接收什么？你如何测试的？
-- 发布时间：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这个数值能否修改
-- 发布时间：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、接收数据，请在事件里面测试
-- 发布时间：2018/1/18 16:13:00
--
不能崇拜更多。。
-- 发布时间：2018/1/19 11:01:00
--
再请教一下，能否不使用串口监视器，在窗口中用按键实现发送一组数据，接收一组数据？
比如图上说的这个,没办法接收到数据。
此主题相关图片如下：212121.png
-- 发布时间：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)