如何检测一个串口是否已经被占用？

zhang_dq 2003-08-23 05:00:37

如何检测一个串口是否已经被占用？
用MSCOMM控件

...全文

686 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

sss2002 2003-12-29

打赏
举报

用串口查询控件

这里下载
http://www.refound.net/download/soft.asp?id=25

Alicky 2003-08-25

打赏
举报

Private Function MsCommOpen(ComInfo As typComInfo) As String
On Error GoTo OpenErr
'指定使用的COM口
MSComm1.CommPort = ComInfo.Port
'波特，奇偶校验，数据位，停止位(例如："9600,N,8,1")
MSComm1.Settings = ComInfo.Baud & "," & ComInfo.CurBit & "," & ComInfo.DataBit & "," & ComInfo.StopBit
'握手
MSComm1.Handshaking = 0
'打开端口
MSComm1.PortOpen = True
MsCommOpen = "ok"
Exit Function
OpenErr:
MsCommOpen = Err.Description
End Function

hxy2003 2003-08-25

打赏
举报

If MSComm1.PortOpen = True Then

sunrise10 2003-08-25

打赏
举报

学习

liul17 2003-08-25

打赏
举报

dyx(天火) 正解

flc 2003-08-25

打赏
举报

xuexi

dyx 2003-08-23

打赏
举报

On Error Resume Next

MSComm1.CommPort = 1 '要打开的串口
MSComm1.PortOpen = True
'判断状态
If MSComm1.PortOpen = True Then
msgbox "串口1未被占用"
MSComm1.PortOpen = False
Err.Clear
ElseIf Err.Number = 8005 Then '端口已打开
msgbox "串口1已被占用"
MSComm1.PortOpen = False
Err.Clear
End If