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


  共有5126人关注过本帖树形打印复制链接

主题：串口接受数据
帅哥哟，离线，有人找我吗？
lk15502
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：706 积分：4908 威望：0 精华：0 注册：2016/5/17 12:03:00 		串口接受数据  发帖心情 Post By：2019/3/14 7:46:00 [只看该作者]

电子秤链接电脑，在设备监视器的DataReceived事件写入代码：
Select Case e.Port.PortName
    Case "COM1"
        Forms("唛头打印").Controls("TextBox1").Text &= e.Port.ReadExisting()
End Select
打开项目的第一次能接受到电子秤的数据，去掉秤上的货物texbox1也能显示空白，但第二次把货物放到电子秤texbox1就没有反应了；老师这是什么原因？怎么解决？、
 回到顶部
帅哥哟，离线，有人找我吗？
lk15502
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：706 积分：4908 威望：0 精华：0 注册：2016/5/17 12:03:00 		  发帖心情 Post By：2019/3/14 7:47:00 [只看该作者]

是Forms("唛头打印").Controls("TextBox1").Text = e.Port.ReadExisting()

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/3/14 9:30:00 [只看该作者]

在事件顶部，加入代码，如 msgbox(1) 看能否弹出窗口。
 回到顶部
帅哥哟，离线，有人找我吗？
lk15502
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：706 积分：4908 威望：0 精华：0 注册：2016/5/17 12:03:00 		  发帖心情 Post By：2019/3/17 13:53:00 [只看该作者]

我用笔记本调试包括打包的程序，都能正常显示电子秤的数值变化，可是放到台式机就不能显示电子秤的数值了，重装系统也没有用
 回到顶部
帅哥哟，离线，有人找我吗？
lk15502
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：706 积分：4908 威望：0 精华：0 注册：2016/5/17 12:03:00 		  发帖心情 Post By：2019/3/17 13:53:00 [只看该作者]

在台式机上用串口小助手，能显示电子秤的数值变化

 回到顶部
帅哥哟，离线，有人找我吗？
lk15502
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：706 积分：4908 威望：0 精华：0 注册：2016/5/17 12:03:00 		  发帖心情 Post By：2019/3/17 14:39:00 [只看该作者]

这是什么原因？老师？

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111427 积分：567211 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/3/18 9:31:00 [只看该作者]

事件能不能触发？在事件第一行，加入代码，如 msgbox(1) 看能否弹出窗口。

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/3/18 10:39:00 [只看该作者]

 

在事件顶部，加入代码，如 msgbox(1) 看能否弹出窗口？

 

 
 回到顶部
帅哥哟，离线，有人找我吗？
lk15502
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：706 积分：4908 威望：0 精华：0 注册：2016/5/17 12:03:00 		  发帖心情 Post By：2019/3/18 20:08:00 [只看该作者]

事件的代码：
Select Case e.Port.PortName
    Case "COM1"
        Dim s As String = e.Port.ReadExisting()
        Dim A As Integer = s.LastIndexOf(" ")
        s = s.SubString(a+1)
        s = Val(s)
        Forms("唛头打印").Controls("TextBox7").Text = s
End Select
这样的代码只会在打开时，显示电子秤的数值，加入msgbox(1)后，正常了就是买次要弹出1；老师这是什么原因？
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111427 积分：567211 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/3/18 20:15:00 [只看该作者]

Output.Show("接收到数据，端口=" & e.Port.PortName)
Select Case e.Port.PortName
    Case "COM1"
        Dim s As String = e.Port.ReadExisting()
        Dim A As Integer = s.LastIndexOf(" ")
        s = s.SubString(a+1)
        s = Val(s)
if Forms("唛头打印").opened then
        Forms("唛头打印").Controls("TextBox7").Text = s
else
Output.Show("窗口没有打开，已丢弃接收到数据=" & s)
end if
End Select

然后打开命令窗口，看输出结果
 回到顶部
总数 33 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03516 秒, 4 次数据查询