Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]怎样链接电子称称重？


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

主题：[求助]怎样链接电子称称重？
帅哥哟，离线，有人找我吗？
zto001
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1483 积分：10551 威望：0 精华：0 注册：2018/10/16 11:42:00 		[求助]怎样链接电子称称重？  发帖心情 Post By：2022/2/21 11:34:00 [显示全部帖子]

电子称通讯协议
图片点击可在新窗口打开查看此主题相关图片如下：接口.jpg
图片点击可在新窗口打开查看

要怎样写代码？
 回到顶部
帅哥哟，离线，有人找我吗？
zto001
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1483 积分：10551 威望：0 精华：0 注册：2018/10/16 11:42:00 		  发帖心情 Post By：2022/2/21 12:20:00 [显示全部帖子]

①

项目的AfterOpenProject事件中加入代码：

Ports.Add("COM2")
Ports("COM2").Open()


②

监视串口

将DataReceived事件代码设置为：

Select Case e.Port.PortName

    Case "COM1"
        Forms("窗口1").Controls("Label1").Text = e.Port.ReadExisting()
    Case "COM2"
        Forms("窗口1").Controls("Label2").Text = e.Port.ReadExisting()
End Select




是不是这样？

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


加好友 发短信
等级：六尾狐 帖子：1483 积分：10551 威望：0 精华：0 注册：2018/10/16 11:42:00 		  发帖心情 Post By：2022/2/24 20:45:00 [显示全部帖子]

dim s as string =e.Port.ReadExisting()

=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000=48.0000


这样怎么弄？
图片点击可在新窗口打开查看此主题相关图片如下：微信图片_20220224203615.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
zto001
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1483 积分：10551 威望：0 精华：0 注册：2018/10/16 11:42:00 		  发帖心情 Post By：2022/3/15 22:12:00 [显示全部帖子]

获得的缓存是这样的 我要怎样才能获取第一个值？
=23.3000=40.8000=28.9000=02.1100=63.0100=02.0100=60.0100=02.0100=03.0100=60.0100=22.9000

读取输入缓冲区中的所有字符。

示例

Dim s As String
s = Ports("COM2").ReadExisting()

这个代码能获取到所有的字符，没问题，但是我没办法用Split解析出来，老是出错。帮助里面提供的ReadLine、ReadTo、Read、ReadByte都不行


Ports.Add("COM6")

Ports("COM6").Open()

Output.Show( "第一" & Ports("COM6").ReadExisting())  '多个重量 =20.6000=47.5000=47.5000=27.5000=85.5000=86.1000=24.0000=80.4000=60.5000=89.6000=27.6000  '也有可能是这样的结果 0=06.6000=65.6000=22.0000=22.0000=22.0000=22.0000=22.0000=22.0000 所以不太好用解析

Output.Show( "第二" & Ports("COM6").ReadLine())  '操作超时

Output.Show( "第三" & Ports("COM6").ReadTo("=")) '这一步没有任何值

Dim cnt As Integer = Ports("COM6").BytesToRead 

If cnt > 0 Then '缓冲区是否有数据

    Dim Val(cnt - 1) As Byte

    Ports("COM6").Read(val,0,cnt)

    Output.Show( "第四" & Ports("COM6").Read(val,0,cnt)) '这一步只有一个 1

End If


Output.Show( "第五" & Ports("COM6").ReadByte()) '返回值是 48


我要如何才能获取到标红的值并且倒转？=20.6000=47.5000=47.5...应为6.02

0=06.6000=65.6000=22.0000...应为6.60
 回到顶部
帅哥哟，离线，有人找我吗？
zto001
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1483 积分：10551 威望：0 精华：0 注册：2018/10/16 11:42:00 		  发帖心情 Post By：2022/3/16 22:25:00 [显示全部帖子]

一个一个来还是一样的，该超时还是超时，返回不是想要的数据还是不是想要的数据

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


加好友 发短信
等级：六尾狐 帖子：1483 积分：10551 威望：0 精华：0 注册：2018/10/16 11:42:00 		  发帖心情 Post By：2022/3/16 22:26:00 [显示全部帖子]

Output.Show( "第一" & Ports("COM6").ReadExisting())  '多个重量 =20.6000=47.5000=47.5000=27.5000=85.5000=86.1000=24.0000=80.4000=60.5000=89.6000=27.6000
这个东西返回的值他为什么不能像正常的字符串进行解析？
 回到顶部
帅哥哟，离线，有人找我吗？
zto001
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1483 积分：10551 威望：0 精华：0 注册：2018/10/16 11:42:00 		  发帖心情 Post By：2022/6/14 23:57:00 [显示全部帖子]

请问下我写出来的代码扫描后条码录入迟钝，单如果不用重量的代码又能正常，需要怎样才才能跟正常一样？

串口接收数据后
If Forms("专用扫描").Opened Then
    If Forms("专用扫描").Controls("蓝牙称").value IsNot Nothing Then
        Dim s As String = Ports(Forms("专用扫描").Controls("蓝牙称").value  ).ReadTo("=")
        If s IsNot Nothing Then
            Dim i As Integer
            Dim 新 As String=""
            For i = s.Length-1 To 0 Step -1
                新 = 新 & s.Chars (i)
            Next
            Forms("专用扫描").Controls("重量").value=新
        End If
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
zto001
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1483 积分：10551 威望：0 精华：0 注册：2018/10/16 11:42:00 		  发帖心情 Post By：2022/6/15 11:20:00 [显示全部帖子]

不是，是去掉我发的这一段就是正常的，或者重量不显示到前台来就正常。这个里面没有绑定任何相关的代码

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


加好友 发短信
等级：六尾狐 帖子：1483 积分：10551 威望：0 精华：0 注册：2018/10/16 11:42:00 		  发帖心情 Post By：2022/6/16 10:22:00 [显示全部帖子]

我重新创建一个没有任何代码的窗口，只要这个窗口文本框或者文字接收重量值。扫描都会变慢

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


加好友 发短信
等级：六尾狐 帖子：1483 积分：10551 威望：0 精华：0 注册：2018/10/16 11:42:00 		  发帖心情 Post By：2022/6/16 10:24:00 [显示全部帖子]

如果是其他窗口也一样。只要有接收重量值，都会变慢

 回到顶部
总数 13 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 5 次数据查询