VB_MSCOMM控件简介.pdf

《VB_MSCOMM控件简介.pdf》由会员分享，可在线阅读，更多相关《VB_MSCOMM控件简介.pdf（4页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、.VB 通 信 控 件 Mscomm Mscomm 控 件 提 供 了 功 能 完 善 的 串 口 数 据 的 发 送 和 接 收 功 能，Mscomm 控 件 具 有 两 种 处 理 方 式:1 事 件 驱 动 方 式:由Mscomm 控 件 的 OnComm 事 件 捕 获 并 处 理 通 信 错 误 及 事 件；2 查 询 方 式:通 过 检 查 CommEvent 属 性 的 值 来 判 断 事 件 和 错 误。Mscomm 控 件 的 通 信 功 能 实 现，实 际 上 是 调 用 了 API 函 数，而 API 函 数 是 由 Comm.drv 解 释 并 传 给 设 备 驱 动

2、程 序 执 行 的，对 于 VB 程 序 开 发 者 只 需 知 道 Mscomm 控 件 的 属 性 和 事 件 的 用 法 即 可 以 实 现 串 口 的 操 作。以 下 是 Mscomm 控 件 的 主 要 属 性 和 方 法:1)CommPort:设 置 或 返 回 串 行 端 口 号，其 取 值 范 围 为 1 99，缺 省 为 1。2)Setting 设 置 或 返 回 串 行 端 口 的 波 特 率、奇 偶 校 验 位、数 据 位 数、停 止 位。如:Mscomm.Setting=“9600，N，8，1”。3)PortOpen:打 开 或 关 闭 串 行 端 口，格 式 为:Ms

3、comm.PortOpen=TRUE|FALSE。4)InBufferSize:设 置 或 返 回 接 收 缓 冲 区 的 大 小，缺 省 为 1024 字 节。5)InBufferCount:返 回 接 收 缓 冲 区 内 的 等 待 读 取 的 字 节 个 数，可 通 过 设 置 该 属 性 为 0 来 清 除 接 收 缓 冲 区。6)RThreshold:该 属 性 为 一 阀 值，它 确 定 当 接 收 缓 冲 区 内 字 节 个 数 达 到 或 超 过 该 值 后 就 产 生 代 码 为MSCOMM_EV_RECEIVE 的 OnComm 事 件。7)InputLen:设 置 或 返

4、 回 接 收 缓 冲 区 内 用 Input 读 入 的 个 数。若 取 0，则 INPUT 读 取 整 个 缓 冲 区 的 内 容。8)Input:该 属 性 表 示 从 接 收 缓 冲 区 移 走 一 串 字 符。9)OutBufferSize:设 置 或 返 回 发 送 缓 冲 区，缺 省 为 512 字 节。10)OutBufferCounter:返 回 发 送 缓 冲 区 内 等 待 发 送 的 字 符 数，可 用 来 清 空 缓 冲 区。11)Output:向 发 送 缓 冲 区 传 送 一 字 符 串。12)EOFEnable:若 置 TRUE，则 当 输 入 中 出 现 EOF

5、，就 停 止 输 入 并 产 生 OnComm 事 件。如 果 在 通 信 过 程 中 发 生 错 误 或 事 件，就 会 引 发 OnComm 事 件 并 且 改 变 属 性 值，由 CommEvent 属 性 代 码 反 映 错 误 类 型，在 通 信 程 序 的 设 计 中 可 根 据 该 属 性 值 来 执 行 不 同 的 操 作，以 下 是 部 分 属 性 常 数 值 及 其 含 义:.1)ComEvSend:其 值 为 1，发 送 缓 冲 区 的 内 容 少 于 SThreshold 指 定 的 值。2)ComEvReceive:其 值 为 2，接 收 缓 冲 区 内 字 符 数

6、达 到 RThreshold 值，该 事 件 在 缓 冲 区 中 数 据 被 移 走 前 将 持 续 产 生。3)ComEventFrame:其 值 为 1004，硬 件 检 测 到 帧 错 误。4)ComEventRxOver:其 值 为 1008，接 收 缓 冲 区 溢 出。5)ComEventTxFull:其 值 为 1010，发 送 缓 冲 区 溢 出。6)ComEventRxParity:其 值 为 1009，奇 偶 校 验。7)ComEvEOF:其 值 为 7，接 收 数 据 中 出 现 文 件 结 束（ASCII 码 为 26）字 符。程 序 样 例 采 用 Mscomm 控 件

7、 实 现 串 口 通 信 时，首 先 添 加 一 Mscomm 控 件 到 窗 体 中，该 控 件 一 般 不 在 通 用 工 具 窗 口 中，而 是 需 通 过 菜 单 项“工 程（P）部 件(O)”进 入 选 择 窗 口，在 控 件 tab 页 中 选 取 Microsoft Comm Control 5.0，此 时 工 具 窗 口 中 出 现 Mscomm 图 标，即 可 被 使 用。以 下 是 事 件 驱 动 方 式 的 接 收 程 序 的 主 要 部 分：Private Sub getdatafromserial_Click()CommonDialog1.InitDir=“c:tem

8、p CommonDialog1.ShowSave mainfrm.MSComm1.CommPort=1 hfile=FreeFile 打 开 存 储 接 收 数 据 的 文 件 Open CommonDialog1.For Output As hfile 设 接 收 缓 冲 区 的 大 小，可 按 量 确 定 mainfrm.MSComm1.InBufferSize=4096 If Not mainfrm.MSComm1.PortOpen Then 打 开 串 口 -mainfrm.MSComm1.PortOpen=True End If If Err Then MsgBox“Communca

9、tion port cannot be opened!清 接 收 缓 冲 区 mainfrm.MSComm1.InBufferCount=0 设 一 次 读 入 的 长 度，可 根 据 数 据 格 式 设 置 mainfrm.MSComm1.InputLen=77 .设 置 接 收 事 件 触 发 的 阀 值 mainfrm.MSComm1.RThreshold=77 counter=Timer 10 Do If Timer counter Then mainfrm.Label1.Caption=“正 在 通 信.mainfrm.Label1.Refresh counter=Timer 10

10、End If DoEvents Loop End Sub 以 下 为 事 件 处 理 子 程 序，flag 为 一 静 态 变 量 记 录 读 取 次 数，以 便 改 变 接 收 数 据 的 长 度，读 者 可 根 据 实 际 需 要 添 加 其 它 处 理 内 容：Private Sub MSComm1_OnComm()Select Case MSComm1.CommEvent Case comEvReceive If flag 246 Then MSComm1.InputLen=0:MSComm1.RThreshold=32 End If buffer=MSComm1.Input temp

11、=buffer Print hfile，temp counter=Timer 10 Do While Timer counter Do Events Loop flag=flag 1 Case comEvEOF EVMsg =“检 测 到 文 件 结 尾!Case comFrame ERMsg =“帧 出 错!Case comRxParity ERMsg =“奇 偶 错!End Select.If Len(EVMsg)Then Text1.Text=“Status:EVMsg ElseIf Len(ERMsg)Then Text1.Text=“Status:ERMsg Beep Ret=MsgBox(ERMsg，1，“Click Cancel to quit，OK to ignore.)MSComm1.PortOpen=False End If End Sub