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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 天平串口数据接收问题

共有3606人关注过本帖树形打印复制链接主题：天平串口数据接收问题

benwong2013

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

加好友

发短信

等级：一尾狐帖子：486 积分：4086 威望：0 精华：0 注册：2015/12/16 8:22:00

天平串口数据接收问题 发帖心情

Post By：2023/9/8 15:56:00 [只看该作者]

项目的AfterOpenProject事件中加入代码：

Ports.Add("COM5")
Ports("COM5").Open()

在DataReceived

Dim cnt As Integer = Ports("COM5").BytesToRead

If cnt > 0 Then '缓冲区是否有数据
Dim Val(cnt - 1) As Byte
Ports("COM5").Read(val, 0, cnt)
Dim str As String = System.Text.Encoding.Default.GetString(Val)
msgbox（str）

End If

用串口测试软件可以接收数据，但foxtable能连接但接收不到数据，请问是什么问题？

此主题相关图片如下：qq截图20230908155438.jpg

有点蓝

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

加好友

发短信

等级：超级版主帖子：110728 积分：563560 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/9/8 16:14:00 [只看该作者]

代码打开串口有出错吗？先关闭所有其它使用这个串口的程序

试试设置一下参数：http://www.foxtable.com/webhelp/topics/1976.htm

benwong2013

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

加好友

发短信

等级：一尾狐帖子：486 积分：4086 威望：0 精华：0 注册：2015/12/16 8:22:00

Post By：2023/9/8 17:45:00 [只看该作者]

代码打开串口是可以的，并且用代码可以获取目前天平的所设置的参数，另外第三方工具是可以接收到天平所发送的数据，但狐表就无法接收到数据；

[此贴子已经被作者于2023/9/8 18:40:56编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：110728 积分：563560 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/9/9 8:09:00 [只看该作者]

怎么获取目前天平的所设置的参数的？

硬件的开发文档发上来看看

benwong2013

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

加好友

发短信

等级：一尾狐帖子：486 积分：4086 威望：0 精华：0 注册：2015/12/16 8:22:00

Post By：2023/9/9 12:46:00 [只看该作者]

重新设置了天平的参数，可以获取到天平的信息，但是乱码，用串口测试工具是正常显示的，请问如何处理？

Dim cnt As Integer = e.Port.BytesToRead
If cnt > 0 Then '缓冲区是否有数据
Dim Val(cnt - 1) As Byte
e.Port.Read(val, 0, cnt)
Dim str As String = System.Text.Encoding.Default.GetString(Val)
msgbox（str）
End If

此主题相关图片如下：qq截图20230909124406.jpg

此主题相关图片如下：12.jpg

[此贴子已经被作者于2023/9/9 12:47:15编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：110728 积分：563560 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/9/9 12:59:00 [只看该作者]

看看文档设备发送的是什么数据？字节，字符串？

看看开发文档数据格式是怎么样的，有没有开始位，停止位....

benwong2013

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

加好友

发短信

等级：一尾狐帖子：486 积分：4086 威望：0 精华：0 注册：2015/12/16 8:22:00

Post By：2023/9/9 14:36:00 [只看该作者]

Ports.Add("COM5")
With Ports("COM5")
    .Close()
    .Parity = Parity.None
    .Handshake = Handshake.None
    .StopBits = StopBits.One
    .BaudRate = 1200
    .DataBits = 8
    .Encoding = Encoding.ASCII
    .ReadBufferSize() = 4096
    .WriteBufferSize() = 2048
    .Open

End With

设置一下这个通信参数就可以了