VB_MSCOMM控件簡介

1、VB 通 信 控 件Mscomm Mscomm 控 件 提 供 了 功 能 完 善 的 串 口 數(shù) 據(jù) 的 發(fā) 送 和 接 收 功 能，Mscomm 控 件 具 有 兩 種 處 理 方 式: 1 事 件 驅(qū) 動 方 式: 由Mscomm 控 件 的OnComm 事 件 捕 獲 并 處 理 通 信 錯 誤 及 事 件；2 查 詢 方 式: 通 過 檢 查CommEvent 屬 性 的 值 來 判 斷 事 件 和 錯 誤。 Mscomm 控 件 的 通 信 功 能 實 現(xiàn)， 實 際 上 是 調(diào) 用 了API 函 數(shù)， 而API 函 數(shù) 是 由Comm.drv 解 釋 并 傳 給 設(shè) 備 驅(qū) 動 程

2、 序 執(zhí) 行 的， 對 于VB 程 序 開 發(fā) 者 只 需 知 道Mscomm 控 件 的 屬 性 和 事 件 的 用 法 即 可 以 實 現(xiàn) 串 口 的 操 作。 以 下 是Mscomm 控 件 的 主 要 屬 性 和 方 法: 1)CommPort: 設(shè) 置 或 返 回 串 行 端 口 號， 其 取 值 范 圍 為1 99， 缺 省 為1。 2) Setting 設(shè) 置 或 返 回 串 行 端 口 的 波 特 率、 奇 偶 校 驗 位、 數(shù) 據(jù) 位 數(shù)、 停 止 位。 如:Mscomm.Setting=“9600，N，8，1”。 3)PortOpen: 打 開 或 關(guān) 閉 串 行 端 口，

3、 格 式 為:Mscomm.PortOpen=TRUE|FALSE。 4) InBufferSize: 設(shè) 置 或 返 回 接 收 緩 沖 區(qū) 的 大 小， 缺 省 為1024 字 節(jié)。 5) InBufferCount: 返 回 接 收 緩 沖 區(qū) 內(nèi) 的 等 待 讀 取 的 字 節(jié) 個 數(shù)， 可 通 過 設(shè) 置 該 屬 性 為0 來 清 除 接 收 緩 沖 區(qū)。 6) RThreshold: 該 屬 性 為 一 閥 值， 它 確 定 當(dāng) 接 收 緩 沖 區(qū) 內(nèi) 字 節(jié) 個 數(shù) 達(dá) 到 或 超 過 該 值 后 就 產(chǎn) 生 代 碼 為MSCOMM_EV_RECEIVE 的OnComm 事 件。

4、 7) InputLen: 設(shè) 置 或 返 回 接 收 緩 沖 區(qū) 內(nèi) 用Input 讀 入 的 個 數(shù)。 若 取0， 則INPUT 讀 取 整 個 緩 沖 區(qū) 的 內(nèi) 容。 8) Input: 該 屬 性 表 示 從 接 收 緩 沖 區(qū) 移 走 一 串 字 符。 9) OutBufferSize: 設(shè) 置 或 返 回 發(fā) 送 緩 沖 區(qū)， 缺 省 為512 字 節(jié)。 10) OutBufferCounter: 返 回 發(fā) 送 緩 沖 區(qū) 內(nèi) 等 待 發(fā) 送 的 字 符 數(shù)， 可 用 來 清 空 緩 沖 區(qū)。 11) Output: 向 發(fā) 送 緩 沖 區(qū) 傳 送 一 字 符 串。 12) E

5、OFEnable: 若 置TRUE， 則 當(dāng) 輸 入 中 出 現(xiàn)EOF， 就 停 止 輸 入 并 產(chǎn) 生OnComm 事 件。 如 果 在 通 信 過 程 中 發(fā) 生 錯 誤 或 事 件， 就 會 引 發(fā)OnComm 事 件 并 且 改 變 屬 性 值， 由CommEvent 屬 性 代 碼 反 映 錯 誤 類 型， 在 通 信 程 序 的 設(shè) 計 中 可 根 據(jù) 該 屬 性 值 來 執(zhí) 行 不 同 的 操 作， 以 下 是 部 分 屬 性 常 數(shù) 值 及 其 含 義: 1)ComEvSend: 其 值 為1， 發(fā) 送 緩 沖 區(qū) 的 內(nèi) 容 少 于SThreshold 指 定 的 值。 2)

6、 ComEvReceive: 其 值 為2， 接 收 緩 沖 區(qū) 內(nèi) 字 符 數(shù) 達(dá) 到 RThreshold 值， 該 事 件 在 緩 沖 區(qū) 中 數(shù) 據(jù) 被 移 走 前 將 持 續(xù) 產(chǎn) 生。 3) ComEventFrame: 其 值 為1004， 硬 件 檢 測 到 幀 錯 誤。 4) ComEventRxOver: 其 值 為1008， 接 收 緩 沖 區(qū) 溢 出。 5) ComEventTxFull: 其 值 為1010， 發(fā) 送 緩 沖 區(qū) 溢 出。 6) ComEventRxParity: 其 值 為1009， 奇 偶 校 驗。 7) ComEvEOF: 其 值 為7， 接 收

7、數(shù) 據(jù) 中 出 現(xiàn) 文 件 結(jié) 束（ASCII 碼 為 26） 字 符。 程 序 樣 例 采 用Mscomm 控 件 實 現(xiàn) 串 口 通 信 時， 首 先 添 加 一Mscomm 控 件 到 窗 體 中， 該 控 件 一 般 不 在 通 用 工 具 窗 口 中， 而 是 需 通 過 菜 單 項“ 工 程（P） 部 件(O)” 進(jìn) 入 選 擇 窗 口， 在 控 件tab 頁 中 選 取Microsoft Comm Control 5.0 ， 此 時 工 具 窗 口 中 出 現(xiàn)Mscomm 圖 標(biāo)， 即 可 被 使 用。 以 下 是 事 件 驅(qū) 動 方 式 的 接 收 程 序 的 主 要 部 分：

8、 Private Sub getdatafromserial_Click() CommonDialog1.InitDir = “c:temp" CommonDialog1.ShowSave mainfrm.MSComm1.CommPort=1 hfile = FreeFile 打 開 存 儲 接 收 數(shù) 據(jù) 的 文 件 Open CommonDialog1.filename For Output As hfile 設(shè) 接 收 緩 沖 區(qū) 的 大 小， 可 按 量 確 定 mainfrm.MSComm1.InBufferSize = 4096 If Not mainfrm.MSComm

9、1.PortOpen Then 打 開 串 口 - mainfrm.MSComm1.PortOpen = True End If If Err Then MsgBox “Communcation port cannot be opened!" 清 接 收 緩 沖 區(qū) mainfrm.MSComm1.InBufferCount = 0 設(shè) 一 次 讀 入 的 長 度， 可 根 據(jù) 數(shù) 據(jù) 格 式 設(shè) 置 mainfrm.MSComm1.InputLen = 77 設(shè) 置 接 收 事 件 觸 發(fā) 的 閥 值 mainfrm.MSComm1.RThreshold = 77 counter

10、= Timer 10 Do If Timer > counter Then mainfrm.Label1.Caption = “ 正 在 通 信." mainfrm.Label1.Refresh counter = Timer 10 End If DoEvents Loop End Sub 以 下 為 事 件 處 理 子 程 序，flag 為 一 靜 態(tài) 變 量 記 錄 讀 取 次 數(shù)， 以 便 改 變 接 收 數(shù) 據(jù) 的 長 度， 讀 者 可 根 據(jù) 實 際 需 要 添 加 其 它 處 理 內(nèi) 容： Private Sub MSComm1_OnComm()Select Cas

11、e MSComm1.CommEventCase comEvReceiveIf flag > 246 ThenMSComm1.InputLen = 0: MSComm1.RThreshold = 32End Ifbuffer = MSComm1.Inputtemp = bufferPrint hfile， tempcounter = Timer 10Do While Timer > counterDo EventsLoopflag = flag 1Case comEvEOFEVMsg = “ 檢 測 到 文 件 結(jié) 尾!"Case comFrameERMsg = “ 幀 出 錯!"Case comRxParityERMsg = “ 奇 偶 錯!"End SelectIf Len(EVMsg ) ThenText1.Text = “Status: &