|
|
|
基于VB的遠(yuǎn)程通訊程序</P><P> 任俠 陳國虎</P><P> 摘 要 本文描述了VB的通訊控件MSComm的屬性、事件和方法，并著重介紹了如何利用MSComm控 件進(jìn)行遠(yuǎn)程通訊程序的設(shè)計(jì)。</P><P> 關(guān)鍵詞 RS-232C，Modem，串行異步通訊，控件</P><P> 1 引言</P><P> 計(jì)算機(jī)與通信的緊密結(jié)合極大地推動了工業(yè)自動化的進(jìn)程。人們坐在計(jì)算機(jī)前就可以實(shí)現(xiàn)對遠(yuǎn)端設(shè)備的集中監(jiān)控，從而提高了整個系統(tǒng)的穩(wěn)定性和可靠性。本文作者曾經(jīng)參與了電源遠(yuǎn)程監(jiān)控系統(tǒng)軟件的開發(fā)工作。在運(yùn)用VB開發(fā)監(jiān)控軟件的過程中，為實(shí)現(xiàn)遠(yuǎn)程通訊功能，我們利用了VB提供的通訊控件MSComm。該控件屏蔽了通信過程中的底層操作，程序員只需設(shè)置和監(jiān)視MSComm控件的屬性和事件，就可以輕而易舉地實(shí)現(xiàn)串行異步通訊。<BR> 遠(yuǎn)程監(jiān)控中心可以對分布的各個獨(dú)立的電源系統(tǒng)進(jìn)行遙測、遙控。電源控制器可以現(xiàn)場監(jiān)測和控制電源系統(tǒng)的各項(xiàng)工作參數(shù)；可以接受遠(yuǎn)端監(jiān)控中心的查詢、控制；并可以向中心上報(bào)工作狀態(tài)。為實(shí)現(xiàn)上述功能 ，首要任務(wù)是建立兩者之間的通訊。因此可分別將監(jiān)控中心計(jì)算機(jī)和電源控制器通過RS-232C接口與Modem相連，再通過Modem接入公用電話網(wǎng)（PSTN）,由PSTN實(shí)現(xiàn)本地Modem與電源端Modem的聯(lián)接，就可以實(shí)現(xiàn)監(jiān)控中心計(jì)算機(jī)與電源控制器間的通訊。如圖1所示。<BR> </P><P> <br><A HREF="/editor/uploadfiles/learns01/2003102316172291282.gif" TARGET=_blank><IMG SRC="/editor/uploadfiles/learns01/2003102316172291282.gif" border=0 alt=按此在新窗口瀏覽圖片 onload="javascript:if(this.width>580)this.width=580"></A></P><P> 圖1</P><P> 2 通訊控件簡介</P><P> MSComm 控件提供了一系列標(biāo)準(zhǔn)通訊屬性和方法。使用它可以建立起應(yīng)用程序與串行端口的聯(lián)接。為實(shí)現(xiàn)遠(yuǎn)程通訊，還需要把調(diào)制解調(diào)器與串行端口通過RS-232C接口連接，這樣，在應(yīng)用程序中發(fā)出AT命令，就可以達(dá)到控制調(diào)制解調(diào)器的目的，進(jìn)行遠(yuǎn)程通訊。有關(guān)調(diào)制解調(diào)器的AT命令，本文不做討論，讀者可以參考相關(guān)的調(diào)制解調(diào)器手冊。<BR> 2．1 在項(xiàng)目中加入MSComm控件<BR> 啟動Visual Basic，建立一個新項(xiàng)目。<BR> 選Project菜單，從中選擇Components子菜單。<BR> 在彈出的Components對話框里的Controls標(biāo)簽下選擇Microsoft Comm Control 5.0項(xiàng)。<BR> 2．2 與程序設(shè)計(jì)有關(guān)的 MSComm控件屬性<BR> CommPort 設(shè)置或返回通訊端口號。格式為：MSComm.CommPort［ = PortNumber ］。 在設(shè)計(jì)時，PortNumber 可以設(shè)置成從 1 到 16 的任何數(shù)（缺省值為 1）。但是如果用 PortOpen 屬性打開一個并不存在的端口時，就會產(chǎn)生錯誤 。還需注意的是必須在打開端口之前設(shè)置 CommPort 屬性。例如：MSComm.CommPort=2，即設(shè)置當(dāng)前通信串口為COM2口。<BR> Settings 以字符串形式設(shè)置或返回波特率、奇偶校驗(yàn)、數(shù)據(jù)位和停止位。格式為：<BR> MSComm.Settings［=ParaString］。ParaString是一個包含四部分的字符串。第一部分為波特率，其可選值為110,300,600,1200,2400,4800,9600,14400,19200,28800。第二部分為奇偶校驗(yàn)，N 表示不校驗(yàn),E 表示偶校驗(yàn),O表示奇校驗(yàn)，S表示空格檢驗(yàn),M表示符號校驗(yàn)。第三部分為數(shù)據(jù)位位數(shù)，其可選值為4,5,6,7,8。第四部分為停止位位數(shù)，其可選值為1，1.5,2 。Settings屬性的缺省值為“9600,N,8,1” 。<BR> PortOpen 設(shè)置并返回通訊端口的狀態(tài)（打開或關(guān)閉）。在設(shè)計(jì)時無效。格式為：<BR> MSComm.PortOpen［=TRUE/FALSE］ 。<BR> Input 返回并刪除接收緩沖區(qū)中的數(shù)據(jù)流。該屬性在設(shè)計(jì)時無效，在運(yùn)行時為只讀。<BR> 格式為：MSComm.Input。<BR> InputLen 設(shè)置并返回 Input 屬性從接收緩沖區(qū)中每次讀取的字符數(shù)。格式為：MSComm.InputLen［=CharNumber］。InputLen 屬性的缺省值是 0。設(shè)置 InputLen 為 0 時，使用 Input 將使 MSComm 控件讀取接收緩沖區(qū)中全部的內(nèi)容。若接收緩沖區(qū)中的字符數(shù)小于InputLen 屬性設(shè)置的字符數(shù)，Input 屬性返回一個零長度字符串 ("")。所以在使用Input 前，用戶可以通過檢查 InBufferCount 屬性來確定緩沖區(qū)中是否已有需要數(shù)目的字符。<BR> InBufferCount 返回接收緩沖區(qū)中已接收的字符數(shù)。格式為： MSComm.InBufferCount［=0］。該屬性在設(shè)計(jì)時無效，但設(shè)置InBufferCount 屬性為0 可以清除接收緩沖區(qū)。<BR> InputMode 設(shè)置或返回 Input 屬性取回的數(shù)據(jù)的類型。格式為MSComm.InputMode［=Modevalue］。若數(shù)據(jù)只用 ANSI 字符集，設(shè)置InputMode屬性值為0（缺�。瑪�(shù)據(jù)通過 Input 屬性以文本形式取回。如數(shù)據(jù)中有嵌入控制字符、Nulls 等等，可設(shè)置InputMode屬性值為1，數(shù)據(jù)通過 Input 屬性以二進(jìn)制形式取回。<BR> Output 向發(fā)送緩沖區(qū)寫數(shù)據(jù)。該屬性在設(shè)計(jì)時無效，在運(yùn)行時為只讀。格式為：MSComm.Output=OutData。OutData為要發(fā)送的數(shù)據(jù)，可以是文本數(shù)據(jù)或二進(jìn)制數(shù)據(jù)。<BR> Rthreshold 設(shè)置或返回輸入緩沖區(qū)中存放接收字符的最小數(shù)。當(dāng)其屬性值為1時，則緩沖區(qū)中每接收到一個字符就引發(fā)一次OnComm事件，以便及時從緩沖區(qū)中取走數(shù)據(jù)；當(dāng)設(shè)為0時，則不引發(fā)OnComm事件；當(dāng)設(shè)為其它值時，如Rthreshold屬性值為5時，則緩沖區(qū)中每接收到5個字符引發(fā)一次OnComm事件。<BR> CommEvent 返回最近的通訊事件或錯誤的數(shù)字代碼。格式為：Mscomm.CommEvent。 當(dāng)CommEvent屬性值為常數(shù)ComEvReceive=2時，收到 Rthreshold 個字符，就會觸發(fā)OnComm事件，直到用 Input 屬性從接收緩沖區(qū)中取出數(shù)據(jù)。<BR> DTREnable 確定在通訊時是否使 Data Terminal Ready (DTR) 線有效。Data Terminal Ready 是計(jì)算機(jī)發(fā)送到調(diào)制解調(diào)器的信號，指示計(jì)算機(jī)準(zhǔn)備就緒，可以開始傳輸數(shù)據(jù)。格式為：MSComm.DTREnable［=TRUE/FALSE］。 DTREnable 設(shè)置為 True，當(dāng)端口被打開時 Data Terminal Ready 線設(shè)置為高電平（開），當(dāng)端口被關(guān)閉時 Data Terminal Ready 線設(shè)置為低電平（關(guān)）。 DTREnable 設(shè)置為 False，Data Terminal Ready 線始終保持為低電平。在很多情況下，當(dāng)Data Terminal Ready 線發(fā)生從開到關(guān)的轉(zhuǎn)換時，調(diào)制解調(diào)器進(jìn)入命令狀態(tài)，執(zhí)行“ATH0”命令來掛斷電話。<BR> 2．3 MSComm控件的OnComm 事件<BR> 通訊控件產(chǎn)生的唯一事件是OnComm事件。每當(dāng)有通訊錯誤或某事件發(fā)生時，通訊控件就會產(chǎn)生此事件。事件或錯誤的數(shù)字代碼放在CommEvent屬性中。</P><P> 3 程序設(shè)計(jì)</P><P> MSComm 控件提供下列兩種處理通訊的方式：查詢方式和事件驅(qū)動方式。<BR> 3．1 查詢通訊<BR> 通過檢查InBufferCount 屬性值來判定輸入緩沖區(qū)中是否接收到相應(yīng)數(shù)目的字符或字節(jié)。若已接收到相應(yīng)數(shù)目的字符或字節(jié)，就可以用Input屬性來接收這些字符或字節(jié)；否則繼續(xù)查詢InBufferCount屬性值，直到滿足條件。<BR> 下面是用查詢方式實(shí)現(xiàn)的通訊程序。在下面給出的例子中，我們接收的數(shù)據(jù)都是48字節(jié)的定長二進(jìn)制數(shù)據(jù)。為實(shí)現(xiàn)該程序，需在窗體上加入一個通訊控件MSComm1，四個命令按鈕cmdDial，cmdHangUp，cmdOrder，cmdExit。<BR> 窗體文件清單（只給出主要的程序代碼）<BR> Dim ret '定義窗體級變量<BR> Dim databuffer() As Byte 'databuffer是存放接收數(shù)據(jù)的數(shù)組<BR> Private Sub Form—Load()<BR> '設(shè)置當(dāng)前通信串口為COM2口<BR> MSComm1.CommPort = 2<BR> '設(shè)置串口傳輸速率為2400bps，數(shù)據(jù)位8位，無校驗(yàn)，一位停止位<BR> MSComm1.Settings = "2400,n,8,1"<BR> MSComm1.InputMode = 1 '以二進(jìn)制形式從輸入緩沖區(qū)中讀數(shù)據(jù)<BR> MSComm1.RThreshold = 0 '接收到數(shù)據(jù)不引發(fā)OnComm事件<BR> MSComm1.InputLen = 0 '一次讀出輸入緩沖區(qū)中的所有數(shù)據(jù)<BR> MSComm1.PortOpen = True '打開串口<BR> End Sub<BR> Private Sub cmdDial—Click() '撥號聯(lián)機(jī)<BR> Static Num As String<BR> Num = InputBox$("Enter Phone Number:", "Dial Number", Num) '輸入電話號碼<BR> If Num = "" Then Exit Sub<BR> If Not MSComm1.PortOpen Then<BR> MSComm1.PortOpen = True<BR> If Err Then Exit Sub<BR> End If<BR> MSComm1.Output = "ATDT" & Num & vbCrLf<BR> 'ATDT通知調(diào)制解調(diào)器以音頻方式撥號<BR> cmdHangUp.Enabled = True<BR> cmdDial.Enabled = False<BR> MSComm1.InBufferCount = 0<BR> '查詢InBufferCount 屬性值來確定輸入緩沖區(qū)中是否接收到調(diào)制解調(diào)器回送的字符串“10 ”，以證實(shí)撥號成功，正確建立聯(lián)接<BR> Do<BR> DoEvents<BR> Loop Until MSComm1.InBufferCount >=3<BR> End Sub<BR> Sub ReceiveData() '接收數(shù)據(jù)子程序<BR> Dim temp<BR> MSComm1.InBufferCount = 0 '清空輸入緩沖區(qū)<BR> '查詢InBufferCount 屬性值來確定輸入緩沖區(qū)中是否有接收到48字節(jié)的數(shù)據(jù)<BR> Do<BR> DoEvents<BR> Loop Until MSComm1.BufferCount >= 48<BR> temp = MSComm1.Input<BR> databuffer = temp '將接收到的數(shù)據(jù)的類型轉(zhuǎn)換為字節(jié)數(shù)組類型<BR> End Sub<BR> Private Sub cmdHangUp—Click() '數(shù)據(jù)通訊結(jié)束后，執(zhí)行掛機(jī)操作<BR> Dim ret<BR> ret = MSComm1.DTREnable<BR> '當(dāng)DTR信號發(fā)生從高電平到低電平的轉(zhuǎn)換時，調(diào)制解調(diào)器從傳輸狀態(tài)進(jìn)入命令狀態(tài)<BR> MSComm1.DTREnable = True<BR> MSComm1.DTREnable = False<BR> MSComm1.DTREnable = ret<BR> MSComm1.Output = "ATH0" 'ATH0是掛機(jī)命令<BR> cmdHangUp.Enabled = False<BR> cmdDial.Enabled = True<BR> If Err Then MsgBox Error$, 48<BR> End Sub<BR> Private Sub cmdExit—Click() '單擊退出按鈕觸發(fā)的事件過程<BR> Mscomm1.Portopen=False '關(guān)閉串口<BR> End<BR> End Sub<BR> Private Sub cmdOrder—Click() '單擊查詢按鈕觸發(fā)的事件過程<BR> Dim temp<BR> Dim order() As Byte<BR> order = StrConv(Chr(0) + "aa" + Chr(13), vbFromUnicode) '查詢命令串<BR> 'strconv()函數(shù)的功能是將Unicode字符串轉(zhuǎn)換為ASCII碼字符串<BR> temp = order<BR> MSComm1.Output = temp<BR> '通過與串口聯(lián)接的調(diào)制解調(diào)器向遠(yuǎn)端電源控制器發(fā)送查詢命令<BR> ReceiveData '查詢接收48字節(jié)的數(shù)據(jù)<BR> End Sub</P><P> 3．2 事件驅(qū)動通訊<BR> 事件驅(qū)動通訊是處理串行端口交互作用的一種非常有效的方法。在許多情況下，當(dāng)輸入緩沖區(qū)中收到字符或是輸出緩沖區(qū)空時，需要通知程序以便處理，在這些情況下，可以利用 MSComm 控件的 OnComm 事件捕獲并處理這些通訊事件。<BR> 下文給出的用事件驅(qū)動方法設(shè)計(jì)的通訊程序與上面的查詢通訊程序具有相同的窗口界面和功能。在實(shí)現(xiàn)過程中，要把查詢通訊程序的查詢接收子程序去掉，這是因?yàn)樵谑录?qū)動的通訊中，接收數(shù)據(jù)都是在OnComm事件過程里完成的。并且，在Form—load事件過程中將Rthreshold屬性值設(shè)為1。在程序設(shè)計(jì)時，還要引入一個窗體級變量comstate，指示串口當(dāng)前的狀態(tài)。下面只給出OnComm 事件過程。<BR> Private Sub MSComm1—OnComm()<BR> Dim temp As Variant<BR> Dim tempbyte() As Byte<BR> Select Case MSComm1.CommEvent<BR> '根據(jù)不同的CommEvent屬性的值來確定引起OnComm事件的具體原因，然后進(jìn)行不同的處理<BR> Case 2 'MSCOMM—EV—RECEIVE=2<BR> temp = MSComm1.Input '從緩沖區(qū)中讀出接收到的數(shù)據(jù)<BR> tempbyte= temp '將接收到的數(shù)據(jù)的類型轉(zhuǎn)換為字節(jié)數(shù)組類型<BR> Dim k As Integer<BR> Static i As Integer<BR> For k = LBound(tempbyte) To UBound(tempbyte)<BR> If comstate=0 Then 'comstate=0, 串口處在撥號狀態(tài)<BR> If tempbyte(k)=13 Then<BR> '判斷是否收到調(diào)制解調(diào)器回送的結(jié)果碼結(jié)束符回車符<BR> comstate=1 '撥號成功<BR> End If<BR> Else 'comstate=1,串口處在接收數(shù)據(jù)狀態(tài)<BR> databuffer(i)=tempbyte(k)<BR> i=i+1<BR> If i>=47 Then<BR> i=0<BR> End If<BR> Next k<BR> End Select<BR> End Sub<BR> 以上，我們討論了用VB實(shí)現(xiàn)遠(yuǎn)程數(shù)據(jù)通訊的兩種方法。需要注意的是，用查詢方式進(jìn)行通訊程序設(shè)計(jì)時，要對輸入緩沖區(qū)中的數(shù)據(jù)及時處理，保證數(shù)據(jù)的正確接收。例如，在輸出調(diào)制解調(diào)器撥號命令后，程序就立即查詢調(diào)制解調(diào)器的回送結(jié)果碼；而向電源控制器發(fā)出查詢命令后，程序就立即查詢接收上報(bào)的數(shù)據(jù)。如果在數(shù)據(jù)量大，功能比較復(fù)雜的通訊程序中，就應(yīng)該采用事件驅(qū)動的通訊方法，保證通訊的可靠性。</P><P> 任 俠 碩士生。研究方向：計(jì)算機(jī)網(wǎng)絡(luò)。 陳國虎 助教�，F(xiàn)致力于高頻開關(guān)電源遠(yuǎn)程監(jiān)控的系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)。</P><P> 作者單位：解放軍信息工程學(xué)院 河南.鄭州(450002)</P><P> 參考文獻(xiàn)</P><P> ［1］ 張 威，等譯.Visual Basic 5.0開發(fā)與技巧.機(jī)械工業(yè)出版社</P><P> <BR>
|
|
狀 態(tài)：
離線
公司簡介
產(chǎn)品目錄
|
|
|
公司名稱：
|
中華工控網(wǎng)
|
| 聯(lián) 系 人： |
客服中心
|
| 電 話： |
0755-26546361
|
| 傳 真： |
0755-26585268 |
| 地 址： |
深圳市南山區(qū)創(chuàng)業(yè)路現(xiàn)代城華庭1棟6A |
| 郵 編： |
518054 |
| 主 頁： |
|
|
|
|
|
