- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]串口读取数据问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=108965)
-- 发布时间：2017/11/1 15:17:00
-- [求助]串口读取数据问题
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:ac200.foxdb |
此主题相关图片如下：01.png
此主题相关图片如下：tim截图20171101150941.png
这里点击确定按钮出错.
-- 发布时间：2017/11/1 16:13:00
--
各位大神都这么忙啊
-- 发布时间：2017/11/1 16:21:00
--
不能直接用 parity.none 这些值，要对应改成 0、1、2、3 这样
0-None
1-Odd
2-Even
3-Mark
4-Space
--------------------StopBits 也是
0-None
1-One
2-Two
3-OnePointFive
-- 发布时间：2017/11/1 16:24:00
--
你在DataReceived事件，把接收到的信息都打印出来，看是否正确
Dim cnt As Integer = e.Port.BytesToRead
If cnt > 0 Then \'缓冲区是否有数据
Dim Val(cnt - 1) As Byte
e.Port.Read(val,0,cnt)
For Each s As object In val
output.show(s & " " & DecToHex(s))
Next
End If
-- 发布时间：2017/11/1 17:11:00
--
提示：
1、如果串口已经打开，则不能设置其属性，必须先关闭。
2、串口属性一般不需要设置，默认的属性设置符合大多数场合的需要。
示例
Ports.Add("COM2")
With Ports("COM2")
.Close()
.Parity = Parity.None
.Handshake = Handshake.None
.StopBits =
StopBits.One
.BaudRate = 9600
.DataBits = 8
.ReadBufferSize() = 4096
.WriteBufferSize() = 2048
.Open
End
With
-- 发布时间：2017/11/1 17:44:00
--
1、不一样的，字符串你不能直接当代码用的；
2、不应该，认真对比测试一下，肯定能正常读取到值的
-- 发布时间：2017/11/2 7:54:00
--
我再试试,还有就是怎么能把Ports.PortNames获得的串口名称设置为forms("主窗口").Controls("ck").ComboList
-- 发布时间：2017/11/2 8:11:00
--
.ReadBufferSize() = 4096
.WriteBufferSize() = 2048
-- 发布时间：2017/11/2 8:38:00
--
我再试试,还有就是怎么能把Ports.PortNames获得的串口名称设置为forms("主窗口").Controls("ck").ComboList
For Each p As String In Ports.PortNames
forms("主窗口").Controls("ck").items.add(p)
Next
-- 发布时间：2017/11/2 8:40:00
--
.ReadBufferSize() = 4096
.WriteBufferSize() = 2048
这两个的设置基本不影响，这两个是缓冲的大小值，基本都不会超出的。