Foxtable(狐表)用户栏目专家坐堂 → 天平串口数据接收问题


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

主题:天平串口数据接收问题

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


加好友 发短信
等级:一尾狐 帖子:486 积分:4098 威望:0 精华:0 注册:2015/12/16 8:22:00
天平串口数据接收问题  发帖心情 Post By:2023/9/8 15:56:00 [显示全部帖子]

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

Ports.Add("COM5")
Ports(
"COM5").Open()

在DataReceived
Dim cnt As Integer = Ports("COM5").BytesToRead
If cnt > 0 Then '缓冲区是否有数据
    Dim Val(cnt - 1) As Byte
    Ports("COM5").Read(val, 0, cnt)
Dim str As String = System.Text.Encoding.Default.GetString(Val)
msgbox(str)
End If

用串口测试软件可以接收数据,但foxtable能连接但接收不到数据,请问是什么问题?


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20230908155438.jpg
图片点击可在新窗口打开查看


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


加好友 发短信
等级:一尾狐 帖子:486 积分:4098 威望:0 精华:0 注册:2015/12/16 8:22:00
  发帖心情 Post By:2023/9/8 17:45:00 [显示全部帖子]

 代码打开串口是可以的,并且用代码可以获取目前天平的所设置的参数,另外第三方工具是可以接收到天平所发送的数据,但狐表就无法接收到数据;
[此贴子已经被作者于2023/9/8 18:40:56编辑过]

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


加好友 发短信
等级:一尾狐 帖子:486 积分:4098 威望:0 精华:0 注册:2015/12/16 8:22:00
  发帖心情 Post By:2023/9/9 12:46:00 [显示全部帖子]

重新设置了天平的参数,可以获取到天平的信息,但是乱码,用串口测试工具是正常显示的,请问如何处理?
Dim cnt As Integer = e.Port.BytesToRead
If cnt > 0 Then '缓冲区是否有数据
    Dim Val(cnt - 1) As Byte
    e.Port.Read(val, 0, cnt)
Dim str As String = System.Text.Encoding.Default.GetString(Val)
msgbox(str)
End If

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20230909124406.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:12.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2023/9/9 12:47:15编辑过]

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


加好友 发短信
等级:一尾狐 帖子:486 积分:4098 威望:0 精华:0 注册:2015/12/16 8:22:00
  发帖心情 Post By:2023/9/9 14:36:00 [显示全部帖子]

 Ports.Add("COM5")
With Ports("COM5")
    .Close()
    .Parity = Parity.None
    .Handshake = Handshake.None
    .StopBits = StopBits.One
    .BaudRate = 1200
    .DataBits = 8
    .Encoding = Encoding.ASCII
    .ReadBufferSize() = 4096
    .WriteBufferSize() = 2048
    .Open
End With

设置一下这个通信参数就可以了

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


加好友 发短信
等级:一尾狐 帖子:486 积分:4098 威望:0 精华:0 注册:2015/12/16 8:22:00
  发帖心情 Post By:2023/9/11 8:48:00 [显示全部帖子]

根据这个协议,直接针对com5发送读取数据代码没有响应,请问如何处理?

Ports("COM5").Write("ESC P CR LF")

 
图片点击可在新窗口打开查看此主题相关图片如下:通讯协议.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2023/9/11 8:49:13编辑过]

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


加好友 发短信
等级:一尾狐 帖子:486 积分:4098 威望:0 精华:0 注册:2015/12/16 8:22:00
  发帖心情 Post By:2023/9/11 9:24:00 [显示全部帖子]

出现以下的问题:
 
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20230911092359.jpg
图片点击可在新窗口打开查看

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


加好友 发短信
等级:一尾狐 帖子:486 积分:4098 威望:0 精华:0 注册:2015/12/16 8:22:00
  发帖心情 Post By:2023/9/11 11:30:00 [显示全部帖子]

谢谢蓝总!!终于搞定

 回到顶部