作者auk109 (大邪)
看板Visual_Basic
标题[VB6 ] 自动扫描 comport 的程式
时间Wed Nov 14 05:04:16 2007
各位大大好..
小弟最近在写一个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