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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]串口传输问题

共有6681人关注过本帖树形打印复制链接主题：[求助]串口传输问题

foxtable-pc

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

加好友

发短信

等级：婴狐帖子：38 积分：311 威望：0 精华：0 注册：2015/7/20 15:25:00

Post By：2015/7/20 17:02:00 [只看该作者]

我用10楼的代码

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

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

Dim Val(cnt - 1) As Byte

Ports("COM1").Read(sj,0,cnt)

Msgbox(cnt)

End If

你的意思接收数据是没有问题的只是显示程序不对？

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/7/20 17:04:00 [只看该作者]

是的，贴出你显示程序的代码看看。

sj 你定义在哪里，怎么定义，又怎么显示。

foxtable-pc

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

加好友

发短信

等级：婴狐帖子：38 积分：311 威望：0 精华：0 注册：2015/7/20 15:25:00

Post By：2015/7/20 17:27:00 [只看该作者]

sj 全局变量里定义

Public Dim sj(0 To 128)As Byte

窗口显示：

MessageBoxshow (si(19))

版主帮忙看一下：

另如果版主有简单的串口接收程序发一个（发送的我这里没有问题）

foxtable-pc

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

加好友

发短信

等级：婴狐帖子：38 积分：311 威望：0 精华：0 注册：2015/7/20 15:25:00

Post By：2015/7/20 17:28:00 [只看该作者]

MessageBoxshow (sj(19))

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/7/20 17:30:00 [只看该作者]

Dim cnt As Integer = Ports("COM1").BytesToRead
If cnt > 0 Then '缓冲区是否有数据
    Dim Val(cnt - 1) As Byte
    Ports("COM1").Read(val,0,cnt)
    Msgbox(cnt)
    Dim str As String = ""
    For Each s As Byte In val
        str &= s & ","
    Next
    msgbox(str)
End If