为啥总是提示串口已打开

[阿门BIT]

编程的时候机器总是提示串口已打开，无奈加了这句话
If MSComm1.PortOpen = False Then MSComm1.PortOpen = True
程序运行到该句的时候仍然提示串口已打开
这不是自我矛盾了吗，到底怎么回事呀

[goosen]

还有代码呢..就这句怎么判断矛盾

[luofenghen]

最简单你前面关闭它

[luofenghen]

MSComm1.PortOpen = False
If MSComm1.PortOpen = False Then MSComm1.PortOpen = True

[cbm6666]

MSComm1.CommPort = 1
这行端口号你指定了吗?

MSComm1.CommPort = 1
If MSComm1.PortOpen Then MSComm1.PortOpen = False
With MSComm1
.InBufferCount = 0
.Settings = "4800,n,8,1"
.InputLen = 0
.InputMode = 0
.InBufferCount = 0
.RThreshold = 1
End With
If Not MSComm1.PortOpen Then MSComm1.PortOpen = True

[Tiger_Zhao]

1)其他程序打开并占用了端口
2)调试时没有执行关闭端口就直接结束

[贝隆]

单步调试一下，看看问题出在什么地方，如果提示COM口占用，那么肯定是被打开了的

[现在还是人类]

用错误处理好点

on error resume next
MSComm1.PortOpen = True 
If Err.Number <> 0 Then
   Err.Clear
   '这里是提示错误，也可以做别的处理，如关闭串口再打开
   MsgBox "错误" & Err.Number & ":" & Err.Description, 16, "错误提示"
   Exit Sub
End If
...

[PIBOT]

每天回帖即可获得10分可用分

[msdtx]

串口是容易坏的，检查一下串口是否坏了（或在别的串口上是否运行正常）。我遇到过这种故障串口。