Foxtable(狐表)用户栏目专家坐堂 → 请教串口编程问题


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

主题:请教串口编程问题

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


加好友 发短信
等级:幼狐 帖子:81 积分:632 威望:0 精华:0 注册:2018/4/17 11:59:00
请教串口编程问题  发帖心情 Post By:2018/6/4 13:57:00 [显示全部帖子]

您好老师。现在窗口的串口通讯没有问题。几个窗口同时录入数据没有问题。但在一个窗口中需要有两个文本控件需要用扫码枪录入数据。如图所示:机器编码文本框("TextBox1")中扫码录入机器编号后自动填写型号,光标自动移动到检验结果文本框("TextBox3")中。在此文本框中扫码扫“f”表格讲自动录入数据。
但结果是检验结果文本框中扫入“f”,“f”出现在机器编码文本框中,也取代了原来的机器编号。我知道这是因为编码中指定了"COM6"接收到的数据送到("TextBox1")中导致。。。。。。。
请问想这种窗口中多个控件扫码时如何编程?

图片点击可在新窗口打开查看此主题相关图片如下:s.jpg
图片点击可在新窗口打开查看
谢谢!
Select Case e.Port.PortName
    
    Case "COM6"
        Forms("焊接调试检验").Controls("TextBox1").Text= Ports("COM6").ReadExisting()
        
    Case "COM7"
        Forms("组装检验").Controls("TextBox1").Text= Ports("COM7").ReadExisting()
End Select


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


加好友 发短信
等级:幼狐 帖子:81 积分:632 威望:0 精华:0 注册:2018/4/17 11:59:00
  发帖心情 Post By:2018/6/4 15:59:00 [显示全部帖子]

谢谢老师!

红色部分改成如下后问题解决了。

Dim txt As String = Ports("COM6").ReadExisting()

If txt.length >5 Then
    Forms("焊接调试检验").Controls("TextBox1").Text = txt
ElseIf txt.length < 5 Then
    Forms("焊接调试检验").Controls("TextBox3").Text = txt
End If


 回到顶部