【笔记】VB控件MSComm功能介绍

  VB中的MSComm 控件通过串行端口传输和接收数据,为应用程序提供串行通讯功能。MSComm控件在串口编程时非常方便,程序员不必去花时间去了解较为复杂的API函数,而且在VC、VB、Delphi等语言中均可使用。 Microsoft Communications Control(以下简称MSComm)是Microsoft公司提供的简化Windows下串行通信编程的ActiveX控件,它为应用程序提供了通过串行接口收发数据的简便方法。具体的来说,它提供了两种处理通信问题的方法:一是事件驱动(Event-driven)方法,一是查询法。

1.MSComm控件两种处理通讯的方式

  MSComm控件提供下列两种处理通讯的方式:事件驱动方式和查询方式。

  1.1 事件驱动方式

  事件驱动通讯是处理串行端口交互作用的一种非常有效的方法。在许多情况下,在事件发生时需要得到通知,例如,在串口接收缓冲区中有字符,或者 Carrier Detect (CD) 或 Request To Send (RTS) 线上一个字符到达或一个变化发生时。在这些情况下,可以利用 MSComm 控件的 OnComm 事件捕获并处理这些通讯事件。OnComm 事件还可以检查和处理通讯错误。所有通讯事件和通讯错误的列表,参阅 CommEvent 属性。在编程过程中,就可以在OnComm事件处理函数中加入自己的处理代码。这种方法的优点是程序响应及时,可靠性高。每个MSComm 控件对应着一个串行端口。如果应用程序需要访问多个串行端口,必须使用多个 MSComm 控件。

  1.2 查询方式

  查询方式实质上还是事件驱动,但在有些情况下,这种方式显得更为便捷。在程序的每个关键功能之后,可以通过检查 CommEvent 属性的值来查询事件和错误。如果应用程序较小,并且是自保持的,这种方法可能是更可取的。例如,如果写一个简单的电话拨号程序,则没有必要对每接收一个字符都产生事件,因为唯一等待接收的字符是调制解调器的“确定”响应。

2.MSComm 控件的常用属性

  MSComm 控件有很多重要的属性,但首先必须熟悉几个属性。

  CommPort  设置并返回通讯端口号。 
  Settings  以字符串的形式设置并返回波特率、奇偶校验、数据位、停止位。 
  PortOpen  设置并返回通讯端口的状态。也可以打开和关闭端口。
  Input  从接收缓冲区返回和删除字符。 
  Output  向传输缓冲区写一个字符串。

  下面分别描述:

  CommPort属性:设置并返回通讯端口号。

  语法 object.CommPort[value ] (value 一整型值,说明端口号。)

  说明 在设计时,value 可以设置成从 1 到 16 的任何数(缺省值为 1)。但是如果用 PortOpen 属性打开一个并不存在的端口时,MSComm 控件会产生错误 68(设备无效)。

  注意:必须在打开端口之前设置 CommPort 属性。

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

  语法:object.Rthreshold [ = value ](value 整型表达式,说明在产生 OnComm 事件之前要接收的字符数。 )

  说明:当接收字符后,若 Rthreshold 属性设置为 0(缺省值)则不产生 OnComm 事件。例如,设置 Rthreshold 为 1,接收缓冲区收到每一个字符都会使 MSComm 控件产生 OnComm 事件。

  CTSHolding 属性:确定是否可通过查询 Clear To Send (CTS) 线的状态发送数据。Clear To Send 是调制解调器发送到相联计算机的信号,指示传输可以进行。该属性在设计时无效,在运行时为只读。

  语法: object.CTSHolding(Boolean)
  Mscomm 控件的 CTSHolding 属性设置值:
  True Clear To Send 线为高电平。 
  False Clear To Send 线为低电平。 

  说明:如果 Clear To Send 线为低电平 (CTSHolding = False) 并且超时时,MSComm 控件设置 CommEvent 属性为 comEventCTSTO (Clear To Send Timeout) 并产生 OnComm 事件。

  Clear To Send 线用于 RTS/CTS (Request To Send/Clear To Send) 硬件握手。如果需要确定 Clear To Send 线的状态,CTSHolding 属性给出一种手工查询的方法。

  SThreshold 属性: MSComm 控件设置 CommEvent 属性为 comEvSend 并产生 OnComm 事件之前,设置并返回传输缓冲区中允许的最小字符数。
  语法 object.SThreshold [ = value ]             value 整形表达式,代表在 OnComm 事件产生之前在传输缓冲区中的最小字符数。 

  说明:若设置 Sthreshold 属性为 0(缺省值),数据传输事件不会产生 OnComm 事件。若设置 Sthreshold 属性为 1,当传输缓冲区完全空时,MSComm 控件产生 OnComm 事件。如果在传输缓冲区中的字符数小于 value,CommEvent 属性设置为 comEvSend,并产生 OnComm 事件。comEvSend 事件仅当字符数与 Sthreshold 交叉时被激活一次。例如,如果 Sthreshold 等于 5,仅当在输出队列中字符数从 5 降到 4 时,comEvSend 才发生。如果在输出队列中从没有比 Sthreshold 多的字符,comEvSend 事件将绝不会发生。
  
  Handshake 常数

  常数          值     描述 
  comNone      0      无握手。 
  comXonXoff     1      XOn/Xoff 握手。 
  comRTS       2      Request-to-send/clear-to-send 握手。 
  comRTSXOnXOff  3      Request-to-send 和 clear-to-send 握手皆可。 

  OnComm 常数

  常数          值     描述 
  comEvSend       1          发送事件。 
  comEvReceive    2      接收事件。 
  comEvCTS     3      clear-to-send 线变化。 
  comEvDSR     4      data-set ready 线变化。 
  comEvCD       5      carrier detect 线变化。 
  comEvRing     6      振铃检测。 
  comEvEOF     7      文件结束。 

  Settings 属性: 设置并返回波特率、奇偶校验、数据位、停止位参数。

  语法: object.Settings[ = value]
  说明:当端口打开时,如果 value 非法,则 MSComm 控件产生错误 380(非法属性值)。
  Value 由四个设置值组成,有如下的格式:
  "BBBB,P,D,S"
  BBBB 为波特率,P 为奇偶校验,D 为数据位数,S 为停止位数。value 的缺省值是:
  "9600,N,8,1"

  InputLen 属性:设置并返回 Input 属性从接收缓冲区读取的字符数。

  语法 object.InputLen [ = value]
  InputLen 属性语法包括下列部分:
  value 整型表达式,说明 Input 属性从接收缓冲区中读取的字符数。 
  说明:InputLen 属性的缺省值是 0。设置 InputLen 为 0 时,使用 Input 将使 MSComm 控件读取接收缓冲区中全部的内容。

  若接收缓冲区中 InputLen 字符无效,Input 属性返回一个零长度字符串 ("")。在使用 Input 前,用户可以选择检查 InBufferCount 属性来确定缓冲区中是否已有需要数目的字符。该属性在从输出格式为定长数据的机器读取数据时非常有用。



转载于:https://www.cnblogs.com/kongtiao/archive/2011/05/17/2048963.html

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
VB 中,使用 MSCOMM 控件来实现串口通信是很常见的。下面是一个简单的示例代码,演示了如何使用 MSCOMM 控件来发送和接收数据: 首先,在你的 VB 项目中添加 MSCOMM 控件。可以通过选择 "工具" -> "组件",然后在弹出的对话框中勾选 "Microsoft Comm Control"。 接下来,在你的表单上添加一个 MSCOMM 控件(通常命名为 MSComm1)。 然后,你可以在代码中使用以下代码示例: ```vb Private Sub Form_Load() MSComm1.CommPort = 1 ' 设置串口号,例如 1 表示 COM1 MSComm1.Settings = "9600,N,8,1" ' 设置串口配置,例如 9600 波特率,无校验位,8 数据位,1 停止位 MSComm1.PortOpen = True ' 打开串口 End Sub Private Sub Command1_Click() Dim data As String data = "Hello, World!" ' 要发送的数据 MSComm1.Output = data ' 发送数据 End Sub Private Sub MSComm1_OnComm() Dim receivedData As String If MSComm1.CommEvent = comEvReceive Then ' 接收事件触发 receivedData = MSComm1.Input ' 接收数据 MsgBox "Received: " & receivedData End If End Sub Private Sub Form_Unload(Cancel As Integer) MSComm1.PortOpen = False ' 关闭串口 End Sub ``` 上述代码中,Form_Load 事件在窗体加载时打开串口,并设置串口配置。Command1_Click 事件用于发送数据。MSComm1_OnComm 事件在接收到数据时触发,将接收到的数据显示在消息框中。Form_Unload 事件在窗体关闭时关闭串口。 请注意,上述代码仅为示例,你可能需要根据实际情况进行适当的修改和扩展。另外,还可以通过 MSCOMM 控件提供的其他属性和方法来实现更多功能,例如设置超时时间、检测数据流控制等。你可以参考 MSCOMM 控件的文档或其他资源来深入了解其更多用法和功能

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值