VB：如何让程序等待串口反馈信息，而不至于使用循环导致死机？

2008-10-30 03:54:23 269 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

RS-485芯片频繁损坏？从差分传输原理到工业级防护的实战避坑指南 RS-485总线作为一种基于差分传输原理的通信标准，因其出色的抗共模干扰能力和支持多点通信的特性，在工业自动化、楼宇控制等长距离通信场景中广泛应用。其核心技术在于利用双绞线间的电压差来传递信号，从而有效抑制环境噪声。为确保通信的长期稳定，必须深入理解并妥善处理总线空闲状态、终端匹配、共模电压范围等关键设计要素。在实际工程中，诸如**热插拔**操作引发的浪涌电流、地电位差导致的**共模电压超标**、以及外部保护不足等问题，常常是导致RS-485收发器芯片损坏（表现为“只能收不能发”）的主要原因。本文将以一个经阅读详情



MSComm1.InputLen = 1

Do

   DoEvents

Loop Until MSComm1.InBufferCount >= 1

strDataReadedT = MSComm1.Input

我原来用上述代码等待串口反馈数据，似乎也能解决部分问题，但总感觉不是很好，有没有什么办法来代替？
当然也可以用Timer，但似乎也不好。

...全文

国赛E题实战：光电传感与PID控制实现运动目标自动追踪自动控制系统通过传感器获取环境信息，经控制器处理，驱动执行机构实现预定目标，其核心在于稳定、精准的闭环反馈。PID控制算法作为经典控制理论，通过比例、积分、微分环节的组合，能有效消除系统误差，提升动态响应性能，广泛应用于机器人、无人机、工业自动化等领域。本文聚焦于运动目标追踪这一具体应用场景，深入剖析了如何利用光电传感器阵列获取目标位置偏差，并结合PID控制算法驱动云台实现高精度、高鲁棒性的自动跟踪。文中详细分享了传感器信号调理、控制算法整定以及系统抗干扰设计等关键工程实践，为嵌入式控制系统开发提供了宝贵经阅读详情

baiyongming

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

wxrwan 2008-11-13

打赏
举报

MSComm控件有OnComm事件

xredhat 2008-11-13

打赏
举报

RThreshold 属性

在 MSComm 控件设置 CommEvent 属性为 comEvReceive 并产生 OnComm 之前，设置并返回的要接收的字符数。

语法

object.Rthreshold [ = value ]

Rthreshold 属性语法包括下列部分：

部分描述
object 对象表达式，其值是“应用于”列表中的对象。
value 整型表达式，说明在产生 OnComm 事件之前要接收的字符数。

说明

当接收字符后，若 Rthreshold 属性设置为 0（缺省值）则不产生 OnComm 事件。

例如，设置 Rthreshold 为 1，接收缓冲区收到每一个字符都会使 MSComm 控件产生 OnComm 事件。

数据类型

Integer

不要接受数据的时候，设置Rthreshold=1不就行了。

baiyongming 2008-11-13

打赏
举报

有一个问题，我的程序是间断接收数据，比如先执行一段程序，执行完后接收数据，接收完后再执行下面的程序，诸如此类，要怎么办？

zdingyun 2008-11-08

打赏
举报

如1楼3楼的建议使用MSCOMM控件的OMCOMM事件接收，注意设置
MSComm1.RThreshold = 1，产生OMCOMM事件



Option Explicit

    Dim strData As String



Private Sub MSComm1_OnComm()

    Dim strSj As String

    Dim nineng As Integer, huada As String

    Select Case Me.MSComm1.CommEvent

        Case comEvReceive

            strSj = Me.MSComm1.Input

            strData = strData & strSj

            Text1 = strData

            

    End Select

End Sub



Private Sub Form_Load()

    MSComm1.Settings = "9600,N,8,1"

    MSComm1.RThreshold = 1

    MSComm1.InputMode = comInputModeText

    MSComm1.PortOpen = True

End Sub

嗷嗷叫的老马 2008-10-30

打赏
举报

MSComm控件有OnComm事件通知,只需要把你的处理代码放在此事件里就行了:

'引用于MSDN:

OnComm 事件

      



无论何时当 CommEvent 属性的值变化时，就产生 OnComm 事件，标志发生了一个通讯事件或一个错误。



语法



Private Sub object_OnComm ()



OnComm 事件语法包括下列部分：



部分 描述 

object 对象表达式，其值是“应用于”列表中的对象。 





说明



CommEvent 属性包含实际错误或产生 OnComm 事件的数码。注意，设置 Rthreshold 或 Sthreshold 属性为 0，分别使捕获 comEvReceive 和 comEvSend 事件无效。

闲情漫步 2008-10-30

打赏
举报

我用sleep()来控制反馈信息时间

用户　昵称 2008-10-30

打赏
举报

串口控件应该有事件吧。不用死循环。

VB：如何让程序等待串口反馈信息，而不至于使用循环导致死机？

相关推荐