[求助]串口读取数据问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]串口读取数据问题

共有2281人关注过本帖树形打印复制链接主题：[求助]串口读取数据问题

YDS

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：635 积分：3639 威望：0 精华：0 注册：2011/5/21 18:05:00

[求助]串口读取数据问题 发帖心情

Post By：2017/11/1 15:17:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:ac200.foxdb

此主题相关图片如下：01.png

这是通讯协议,我现在遇到两个问题,请指导

一.

此主题相关图片如下：tim截图20171101150941.png

这里点击确定按钮出错.

二.建立通讯以后,我从控制器里面用ReadExisting命令读取的值都有问题,用Read(buffer, offset, count)命令读取出来的值也不对,请帮帮忙,谢谢!

YDS

小大 2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：635 积分：3639 威望：0 精华：0 注册：2011/5/21 18:05:00

Post By：2017/11/1 16:13:00 [只看该作者]

各位大神都这么忙啊

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

YDS

小大 5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：635 积分：3639 威望：0 精华：0 注册：2011/5/21 18:05:00

Post By：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