电脑有9针串口不好用了是什么原因?

来源:百度知道 编辑:UC知道 时间:2024/06/16 07:03:51
以前用的时候好用,不知道为什么现在不好用了,电脑显示这个设备运转正常
不知道和系统的版本有没有关系,
我用来连刻绘机的,以前用的就是这个口,好用,现在不好用了

用以下代码检测下,你的COM口是否正常:
Option Explicit
Dim a As Integer
Dim blnAutoSendFlag As Boolean
Dim openFlag As Boolean

Private Sub Form_Load()
MSComm1.Settings = "9600,n,8,1"
MSComm1.InputMode = comInputModeBinary '采用二进制传输
MSComm1.InBufferCount = 0 '清空接受缓冲区
MSComm1.OutBufferCount = 0 '清空传输缓冲区
MSComm1.RThreshold = 1 '产生MSComm事件
MSComm1.InBufferSize = 1024
Shape1.FillStyle = 0
OpenPortNum
End Sub

Private Sub OpenPortNum()
On Error GoTo uerror
For a = 1 To 16
MSComm1.CommPort = a
MSComm1.PortOpen = True
If MSComm1.PortOpen = True Then
Print "可用Com号= "; a
MSComm1.PortOpen = False
End If
Next
Exit Sub
uerror:
Print "出错或占用Com号= "; a
Resume Next
End Sub

你不会重新做