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


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

主题:串口接受数据

帅哥哟,离线,有人找我吗?
lk15502
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:705 积分:4891 威望: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


加好友 发短信
等级:三尾狐 帖子:705 积分:4891 威望: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


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

我用笔记本调试包括打包的程序,都能正常显示电子秤的数值变化,可是放到台式机就不能显示电子秤的数值了,重装系统也没有用


 回到顶部
帅哥哟,离线,有人找我吗?
lk15502
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

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


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

这是什么原因?老师?

 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望: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


加好友 发短信
等级:三尾狐 帖子:705 积分:4891 威望: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


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望: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 下一页