- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 天平串口数据接收问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=188218)
-- 发布时间：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
-- 发布时间：2023/9/8 16:14:00
--
代码打开串口有出错吗？先关闭所有其它使用这个串口的程序
-- 发布时间：2023/9/8 17:45:00
--
代码打开串口是可以的，并且用代码可以获取目前天平的所设置的参数，另外第三方工具是可以接收到天平所发送的数据，但狐表就无法接收到数据；
[此贴子已经被作者于2023/9/8 18:40:56编辑过]
-- 发布时间：2023/9/9 8:09:00
--
怎么获取目前天平的所设置的参数的？
-- 发布时间：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
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编辑过]
-- 发布时间：2023/9/9 12:59:00
--
看看文档设备发送的是什么数据？字节，字符串？
看看开发文档数据格式是怎么样的，有没有开始位，停止位....
-- 发布时间：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
设置一下这个通信参数就可以了
-- 发布时间：2023/9/11 8:48:00
--
根据这个协议，直接针对com5发送读取数据代码没有响应，请问如何处理？
Ports("COM5").Write("ESC P CR LF")
此主题相关图片如下：通讯协议.jpg
[此贴子已经被作者于2023/9/11 8:49:13编辑过]
-- 发布时间：2023/9/11 9:16:00
--
按字节发送：http://www.foxtable.com/webhelp/topics/1979.htm
Dim Val() As Byte = New Byte() {1B,50,0D,0A}
Ports("COM2").Write(Val, 0, Val.Length)
Ports("COM2").Write(Val, 0, Val.Length)
此主题相关图片如下：1.png
[此贴子已经被作者于2023/9/11 9:16:51编辑过]
-- 发布时间：2023/9/11 9:24:00
--
出现以下的问题：
此主题相关图片如下：qq截图20230911092359.jpg