VB 6.0串口自動(dòng)查詢串口代碼

ID:60076 · 發(fā)表于 2014-4-25 23:50

Public Function set_comm_pro(com_pro As Integer) AsInteger
On Error ResumeNext       '屏蔽錯(cuò)誤
MSComm1.CommPort = com_pro  '設(shè)置COM口
MSComm1.PortOpen = True
If ErrThen                '如果打開(kāi)com口錯(cuò)誤返回 -1
   set_comm_pro = -1
Else
   set_comm_pro = com_pro  '否則返回COM口號(hào)
End If
MSComm1.PortOpen =False '關(guān)閉串口
End Function
Public Function find_comm() As Integer
Dim com_proAsInteger    '定義發(fā)現(xiàn)的COM口號(hào)
Dim com_findAsInteger '定義COM口上限

On Error ResumeNext          '屏蔽錯(cuò)誤
For com_find= 0 To16    '循環(huán)發(fā)現(xiàn)COM口
   If set_comm_pro(com_find) <> -1Then    '返回值不等于-1 即查找到COM口
         Combo1.Text = "COM" &(set_comm_pro(com_find))  '顯示COM口并且設(shè)置COM口
         find_comm = set_comm_pro(com_find)
         Exit For
   End If
Nextcom_find

End Function

帳號(hào)		自動(dòng)登錄	找回密碼
密碼			立即注冊(cè)

久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费

VB 6.0串口 自動(dòng)查詢串口代碼

VB 6.0串口自動(dòng)查詢串口代碼