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


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

主题:串口接受数据

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


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

调试的时候用的是笔记本,是正常的。发布后在笔记本也是正常的。就是装到台式机出现了楼上的情况?加入 msgbox(1)后发布的程序,装入台式机也好了,但不能每次电子秤的读数都有一次弹窗?


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


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

Forms("唛头打印")是独立窗口

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


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/3/18 20:40: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

然后打开命令窗口,看输出结果

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


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

有问题的电脑,没有装foxtable编译器在吗打开命令窗口??试用版不支持串口??


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


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

改成这样测试

 

msgbox("接收到数据,端口=" & 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
            msgbox("窗口没有打开,已丢弃接收到数据=" & s)
        End If
End Select

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


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

只要加了msgbox,就正常了,去掉还是不能显示电子秤数值

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


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

看看是否这个问题?

 

http://www.foxtable.com/webhelp/scr/1476.htm

 


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


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

试了,不是这个问题Application.DoEvents;老师怎么办?愁死了?

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


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

这样测试呢,状态栏有没有显示?

StatusBar.Message2 = date.now & "接收到数据,端口=" & 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
            msgbox("窗口没有打开,已丢弃接收到数据=" & s)
        End If
End Select

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


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

蓝老师,只要加入msgbox(1),每次的电子秤都有数值显示,顺着这个思路,有没有不让msgbox窗口不弹出,暂时解决了问题!

 回到顶部
总数 33 上一页 1 2 3 4 下一页