VB显示可用串口程序
2013-04-17 15:29
176 查看
Private Sub Form_Load() On Error GoTo errline '如果出错,进入错误处理程序 Dim i As Integer '定义可访问的串口总数 Dim Counter As Integer '用于记录经检查可以使用的串口号 Counter = 0 '计数器清零 For i = 1 To 16 '循环检查可能存在的16个串口 MSComm1.CommPort = i '依次打开每个串口 MSComm1.PortOpen = True '打开串口 If MSComm1.PortOpen = True Then '如果打开成功,说明该串口可用 MSComm1.PortOpen = False '检查完毕,关闭串口 Combo1.AddItem "COM" + CStr(i), Counter '将可用串口增加到组合框 Counter = Counter + 1 '计数器加1 End If Next i Combo1.ListIndex = 0 '将第一个可用串口设为默认值 Exit Sub errline: If Err.Number = 8005 Then '若有的串口已被其他程序打开,也应该将其加入组合框内 Combo1.AddItem "COM" + CStr(i), Counter '将可用串口增加到组合框内 Counter = Counter + 1 '计数器加1 End If Resume Next '回到出错入口处,继续执行巡检串口程序 End Sub
程序中加入Mscomm控件,加入ComboBox控件
点此下载工程
相关文章推荐
- ADC0832作AD转换及串口显示程序
- keil编译的程序 “汉字显示不全、串口发送汉字接收后乱码缺失”问题
- 自动检测可用串口实现串口通讯程序(可实现串口热插拔检测)
- ADC0832作AD转换及串口显示程序
- VB程序在有的电脑上字体显示不全的原因
- vb.net CPU & RAM 显示程序
- [VB.NET]如何在程序启动后让视图正好显示datagridview的最后一行?
- C# winform 串口通信时检测电脑可用串口并显示
- tiny4412 裸机程序 九、串口排查驱动原因及字符图片显示
- VB程序运行时显示 ocx 控件的属性页的方法
- VB串口通信技术资料:媒体/源码/论文/书籍/视频/控件/程序
- vb.net 编写的简易串口调试程序
- 自动检测可用串口实现串口通讯程序(可实现串口热插拔检测)
- 优化VB程序显示速度
- VB程序启动后如何在通知区域显示
- STC15F2K60S2/STC15系列读取MPU6050陀螺仪角度加速度串口显示程序代码
- 在VB程序中快速将DataGrid控件中的数据显示在文本框中
- VB写串口程序时如何发送大于128的字符
- VB程序启动后如何在通知区域显示
- vb.net 编写的简易串口调试程序