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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 串口接受数据

共有4299人关注过本帖树形打印复制链接主题：串口接受数据

有点蓝

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

加好友

发短信

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

Post By：2019/3/19 20:38:00 [只看该作者]

19楼的代码会弹出msgbox？？？

lk15502

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

加好友

发短信

等级：三尾狐帖子：705 积分：4897 威望：0 精华：0 注册：2016/5/17 12:03:00

Post By：2019/3/19 20:52:00 [只看该作者]

太晚了19楼的没有试，15楼的试了，只要有窗口弹出就正常

lk15502

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

加好友

发短信

等级：三尾狐帖子：705 积分：4897 威望：0 精华：0 注册：2016/5/17 12:03:00

Post By：2019/3/19 20:55:00 [只看该作者]

我的笔记本装的是usb-rs232的转换线，装有相应的驱动，和这个有没有关系？？

有点蓝

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

加好友

发短信

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

Post By：2019/3/19 21:19:00 [只看该作者]

那就同样适用usb-rs232的转换线，装驱动试试。

先测试19楼。或者到这个电脑安装一个Foxtable激活后测试

lk15502

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

加好友

发短信

等级：三尾狐帖子：705 积分：4897 威望：0 精华：0 注册：2016/5/17 12:03:00

Post By：2019/3/20 11:14:00 [只看该作者]

在装电子秤台式机上装了foxtable;调试时加了msgbox(1),会跳出两个1的窗口；如果是msgbox(s),也是跳出两个窗口，第一个窗口显示“ST,NT,+”;第二个窗口显示“0.58kg”.说明电子秤每次发送的是两组信号，老师这应该怎么处理？？

有点甜

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

加好友

发短信

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

Post By：2019/3/20 11:20:00 [只看该作者]

对字符串进行判断，如果是kg结尾，就认为是一次，否则，累加字符串。如

static str As String

Dim s = e.Port.ReadExisting()

msgbox(s)

If s.endswith("kg") Then

msgbox(1)

s = str & s

str = ""

msgbox(s)

Else

msgbox(2)

str = str & s

msgbox(str)

End If

msgbox(3)

lk15502

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

加好友

发短信

等级：三尾狐帖子：705 积分：4897 威望：0 精华：0 注册：2016/5/17 12:03:00

Post By：2019/3/20 13:12:00 [只看该作者]

后来改成这样可以运行了，

Dim s = e.Port.ReadExisting()

If s.endswith("kg") Then

If forms("唛头打印").opened Then

Forms("唛头打印").Controls("TextBox7").Text = val(s)

End If

但是现在有一个新情况：当电子秤上放10kg的物件时，电子秤会传送一个数值10kg显示在textbox7上，当再在上面放5kg物件时，电子秤的显示是15kg，textbox7上面的数值还是10kg，因为电子秤串口传输数据要等归零后才会再次传输，能不能在程序中发送一个信号让电子秤归零，传输信息过来，或者有其他办法？？