如何自动检测可用串口号

fyhx

如何自动检测可用串口号

zdingyun

参考以下代码：

1. Option Explicit
   
2. 
   
3. Private Sub Combo1_Click()
   
4.     MSComm1.CommPort = Mid(Combo1.Text, 4)
   
5. End Sub
   
6. 
   
7. Private Sub Command2_Click()
   
8.     If MSComm1.PortOpen = True Then MSComm1.PortOpen = False                          ' 先判断串口是否打开，如果打开则先关闭
   
9.     With MSComm1
   
10.         .Settings = "9600,N,8,1"   '设置通信口参数
    
11.         .InputMode = comInputModeBinary '设置接收数据模式为二进制形式
    
12.         .InputLen = 1                  '设置input一次从接收缓冲区读取字节数为1
    
13.         .InBufferCount = 0              '清除接收缓冲区，等待计算机接收的字符数为0
    
14.         .RThreshold = 1               '设置接收一个字节产生oncomm事件，打开接收
    
15.         .SThreshold = 0
    
16.         .PortOpen = True         
    
17.     End With
    
18. End Sub
    
19. 
    
20. Private Sub Form_Load()
    
21.     Me.Show
    
22.     Text1.Text = ""
    
23.     On Error GoTo errline                           '如果出错，进入错误处理程序
    
24.     Dim i As Integer                                '定义可访问的串口总数
    
25.     Dim Counter As Integer                          '用于记录经检查可以使用的串口号
    
26.     '=======================初始化串口列表====================
    
27.     Counter = 0                                     '计数器清零
    
28.     For i = 1 To 16                                 '循环检查可能存在的16个串口
    
29.         MSComm1.CommPort = i                        '依次打开每个串口
    
30.         MSComm1.PortOpen = True                     '打开串口
    
31.         If MSComm1.PortOpen = True Then             '如果打开成功，说明该串口可用
    
32.             MSComm1.PortOpen = False                '检查完毕，关闭串口
    
33.             Combo1.AddItem "COM" + CStr(i), Counter '将可用串口增加到组合框
    
34.             Counter = Counter + 1                   '计数器加1
    
35.         End If
    
36.     Next i
    
37.     Combo1.ListIndex = 0                            '将第一个可用串口设为默认值
    
38.     MSComm1.PortOpen = False
    
39.     Exit Sub
    
40. errline:
    
41.     If Err.Number = 8005 Then                       '若有的串口已被其他程序打开，也应该将其加入组合框内
    
42.         Combo1.AddItem "COM" + CStr(i), Counter  '将可用串口增加到组合框内
    
43.         Counter = Counter + 1                       '计数器加1
    
44.     End If
    
45.     Resume Next                                     '回到出错入口处，继续执行巡检串口程序
    
46. End Sub

复制代码

yu4241

代码写的很好，谢谢，方便大家了。。