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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]求一段串口代码

共有2469人关注过本帖树形打印复制链接主题：[求助]求一段串口代码

谢天钰

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

等级：童狐帖子：211 积分：3044 威望：0 精华：0 注册：2012/4/13 12:44:00

回复：（有点色）14楼的错误，是你com3没有写对，你开... 发帖心情

Post By：2017/6/23 9:06:00 [显示全部帖子]

代码写成了，谢谢老师的悉心教导~！~！

Select Case e.port.portname

Case "COM5"

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

If cnt = 1 Then '缓冲区是否有数据

Dim v As Byte = Ports("COM5").ReadByte

If v = 16 OrElse v = 15 Then

Dim val() As Byte = new Byte() {06}

ports("COM5").write(val,0,val.length)

End If

Dim zf As String = e.Port.ReadExisting()

Dim jswb As WinForm.TextBox = Forms("虚拟串口驱动").Controls("接收文本")

jswb.Text = jswb.Text & zf

End Select

总数 12 上一页 1 2

主题：[求助]求一段串口代码