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

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

共有2001人关注过本帖树形打印复制链接主题：请教串口编程问题

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

有点甜

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

加好友

发短信

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

Post By：2018/6/4 14:24:00 [只看该作者]

编号和型号的格式不同吧？根据格式不同（比如，字符数不同等条件）

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

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

jinhetian

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

下一主题 >> << 上一主题

主题：请教串口编程问题