VB拔掉已经打开的串口问题

2013-08-30 01:56:54 1.4k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

串口调试助手，VB6.0开发 1、为什么要自己开发一个串口调试助手通常我们都是：在网上直接下载一个串口助手，可执行文件，直接使用，并无法得到其源码，在此我们提供了一个VB6.0开发的串口助手：（1）让你极速掌握串口开发的要点；（2）提供源码，并且源代码中有详细注释；（3）极速开发出上位机，并与下位机（单片机）等通讯；（4）使用自己的串口助手，高大上支持的功能：（1）支持串口设置：串口号，波特率，校验... 阅读详情

VB软件打开了某个串口后正在运行，怎么实现当串口线拔掉后该打开的串口也跟着关闭。不然再插回串口线后继续发送数据的时候就会卡机,软件就会没响应了,只能重现打开软件才可以。

...全文

VB6使用API实现串口通信需要和客户的产品通讯，但波特率是非常规的，MScomm无法实现，原有的软件框架和条件又不能转用VC开发底层，于是用VB6调用API实现了这个通讯功能，虽然在VB6下这个程序还是单进程的，但实现了异步非阻塞的通信，性能相当稳定，下面是测试程序代码 Private Sub cmdSend_Click()Sub cmdSend_Click() 定义文件读写属性结构 Di 阅读详情

忽如远行客

控件 1,453 成员 41,351 内容

+ 关注 + 加入社区

切换为时间正序

肚皮向上的鱼 2013-12-25

打赏
举报

请问楼主你解决了吗？我现在也遇到这个问题，串口本来在正常工作，现在假设突然拔出串口，本来想通过注册表中的COM口列表来判断，可是拔出后那个口还存在，只有关掉程序才会消失。所以现在不知道怎么处理，拔掉的话这个COM口居然一直是打开着的，还不能关掉它（会提示这个COM口不存在），真是郁闷啊

startbin 2013-10-09

打赏
举报

有2个解决方案 1,是监视WM_DEVICECHANGE消息然后枚举硬件设备看看你的虚拟usb串口是否还在 2,是每次需要用的时候才打开串口发消息发完后关闭串口

of123 2013-10-08

打赏
举报

你需要清理的是，对串口设备操作的层面问题。 1 所谓打开和关闭串口，实际上是对 PC 端控件的操作。只要本机该端口存在且没有打开，就可以无错误地打开串口。 2 当 PC 端发送数据时，本机硬件会改变接口上 TXD 脚的电平。无论是否真有线路连接，都不会出错。 3 当 PC 端接收数据时，如果你的代码是定长循环的，且线路断开或外部设备没有正确回应，则会停留在循环中。因此，你的解决之道至少有两种： 1 在你的循环中加入超时处理（可以借助 Timer）。 2 如果你的架构是通过中断方式接收（而不是发送代码中的死循环接收），且通过设置公共变量标志来确定成功接收到最后发送的数据的应答。则可以在发送持续中，显示一个 Reset 按钮。如果长时间没有得到应答，按此按钮，将公共变量恢复为允许发送的状态。

drowsihead 2013-10-08

打赏
举报


Public Class 通讯
Friend m串口 As New System.IO.Ports.SerialPort


Public Property 连接() As Boolean
 Get
    Return m串口.IsOpen
 Set(ByVal value As Boolean)
If value Then
 If m串口.IsOpen = False Then
    Try
      m串口.Open()
    Catch ex As Exception
                               
    End Try
  End If
  Else
     m串口.Close()
End If
End Class

zaxife 2013-10-05

打赏
举报

引用 41 楼 drowsihead 的回复:

[quote=引用 40 楼 drowsihead 的回复:] 这里真热闹啊。我觉得可以这样：每次通讯时构造串口，用完关掉。出错也关掉。这样，只要系统有串口就会通讯。

我们现在的通讯就是这样实现的，设备关闭，打开均可以实现通讯，不关闭软件绝对没问题。[/quote] 嗯，API里面是这样搞很安逸。

drowsihead 2013-09-30

打赏
举报

引用 40 楼 drowsihead 的回复:

这里真热闹啊。我觉得可以这样：每次通讯时构造串口，用完关掉。出错也关掉。这样，只要系统有串口就会通讯。

我们现在的通讯就是这样实现的，设备关闭，打开均可以实现通讯，不关闭软件绝对没问题。

忽如远行客 2013-09-30

打赏
举报

引用 41 楼 drowsihead 的回复:

[quote=引用 40 楼 drowsihead 的回复:] 这里真热闹啊。我觉得可以这样：每次通讯时构造串口，用完关掉。出错也关掉。这样，只要系统有串口就会通讯。

我们现在的通讯就是这样实现的，设备关闭，打开均可以实现通讯，不关闭软件绝对没问题。[/quote] 您是怎么实现的？

drowsihead 2013-09-18

打赏
举报

这里真热闹啊。我觉得可以这样：每次通讯时构造串口，用完关掉。出错也关掉。这样，只要系统有串口就会通讯。

of123 2013-09-12

打赏
举报

串口不是即插即用设备，你这样的需求就有点离谱。按理说，串口线是不允许热插拔的。即使是 U 转串，也必须是拔掉 U 口端才能用系统消息来感知（USB 是即插即用）。所以，你的需求可能要在主机和设备端建立应答机制。主机向设备发送查询命令，设备返回一个状态。主机端可以利用 Timer 定时查询。因为串口的超时需要很久，可以用 Timer 在发出查询命令后计时处理。这样的方式可以适合各种串口。

msdtx 2013-09-09

打赏
举报

不接收就检测 OutBufferCount .实在搞不定再联系我。

忽如远行客 2013-09-09

打赏
举报

引用 33 楼 of123 的回复:

用 U 转串倒好办了。只要监控 OnDeviceChange 消息。

那这个虚拟串口的该怎么弄呢。。我卡这儿好多天了，一直没解决

忽如远行客 2013-09-09

打赏
举报

引用 32 楼 msdtx 的回复:

[quote=引用 24 楼 zdingyun 的回复:] 串口打开的时候进行拔插会出现了8021错误 If Err.Number = 8021 Then MsgBox "端口检索设备错误！", vbOKOnly + vbExclamation, "提示" MSComm1.PortOpen = False exit sub end if 详细参阅：http://bbs.csdn.net/topics/360133044

我用这个8021 错误成功的检测并处理拔USB 头的问题，是在检测InbufCount 时产生异常的。你接收数据的代码可能有问题。[/quote] 啊，那能共享一下您的这段接收代码吗，我学习一下

of123 2013-09-09

打赏
举报

用 U 转串倒好办了。只要监控 OnDeviceChange 消息。

忽如远行客 2013-09-09

打赏
举报

引用 36 楼 msdtx 的回复:

[quote=引用 34 楼 rtgchym 的回复:] [quote=引用 32 楼 msdtx 的回复:] [quote=引用 24 楼 zdingyun 的回复:] 串口打开的时候进行拔插会出现了8021错误 If Err.Number = 8021 Then MsgBox "端口检索设备错误！", vbOKOnly + vbExclamation, "提示" MSComm1.PortOpen = False exit sub end if 详细参阅：http://bbs.csdn.net/topics/360133044

[/quote] 原始代码混在工程逻辑里，更显得麻烦。你付费我可以代你做。[/quote] 啊。代做倒不用了。。您要能解决这个问题就感激不尽了。。现在我的程序还没有任何接收数据，就是我只负责在按键按下的时候发送数据，平时什么都不做，不需要接收数据的，所以您说的接收代码可能有问题有待商榷

msdtx 2013-09-09

打赏
举报

引用 34 楼 rtgchym 的回复:

[quote=引用 32 楼 msdtx 的回复:] [quote=引用 24 楼 zdingyun 的回复:] 串口打开的时候进行拔插会出现了8021错误 If Err.Number = 8021 Then MsgBox "端口检索设备错误！", vbOKOnly + vbExclamation, "提示" MSComm1.PortOpen = False exit sub end if 详细参阅：http://bbs.csdn.net/topics/360133044

[/quote] 原始代码混在工程逻辑里，更显得麻烦。你付费我可以代你做。

msdtx 2013-09-08

打赏
举报

引用 24 楼 zdingyun 的回复:

串口打开的时候进行拔插会出现了8021错误 If Err.Number = 8021 Then MsgBox "端口检索设备错误！", vbOKOnly + vbExclamation, "提示" MSComm1.PortOpen = False exit sub end if 详细参阅：http://bbs.csdn.net/topics/360133044

我用这个8021 错误成功的检测并处理拔USB 头的问题，是在检测InbufCount 时产生异常的。你接收数据的代码可能有问题。

忽如远行客 2013-09-08