[VB6 ] 自動掃描 comport 的程式
各位大大好..
小弟最近在寫一個GPS資料讀取程式
看到一套很常用的 GPS Viewer 可以自動 Scan Comport
很想也寫出來，但一直有問題..
以下是在網路上找到的一份範例
卻怎樣也 Run不出來
MSComm總是跳出錯誤要求偵錯...
不知道有無辦法像此程式一樣辨認錯誤碼，而不跳出錯誤視窗呢?
請幫我看一下好嗎^^? , 感謝各位大大!!
----
Dim intCom As Integer 'Com最高有16個連接埠
For intCom = 1 To 16
MSComm1.CommPort = intCom
MSComm1.PortOpen = True
If Err.Number = 0 Then
Print "COM-" & intCom & "-開啟正常"
MSComm1.PortOpen = False
ElseIf Err.Number = 8002 Then
Print "COM-" & intCom & "-不存在"
MSComm1.PortOpen = False
ElseIf Err.Number = 8005 Then
Print "COM-" & intCom & "-開啟佔用錯誤"
MSComm1.PortOpen = False
Else
Print "COM-" & intCom & "-狀態錯誤"
MSComm1.PortOpen = False
End If
Next
----
--
/\ \ /\__\ /\__\ 科 來
/::\ \ /:/ _/_ /:/ _/_ 技 自
/::\:\__\ /:/_/\__\ /::-"\__\ 始 於 墮
\/\::/ / \:\/:/ / \;:;-",-" 終 性
/:/ / \::/ / |:| | ！
\/__/ \/__/ \|__|
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.127.112.235
討論串 (同標題文章)