基于VB的遠程通訊程序

基于VB的遠程通訊程序

1　引言
　　計算機與通信的緊密結(jié)合極大地推動了工業(yè)自動化的進程。人們坐在計算機前就可以實現(xiàn)對遠端設(shè)備的集中監(jiān)控，從而提高了整個系統(tǒng)的穩(wěn)定性和可靠性。本文作者曾經(jīng)參與了電源遠程監(jiān)控系統(tǒng)軟件的開發(fā)工作。在運用VB開發(fā)監(jiān)控軟件的過程中，為實現(xiàn)遠程通訊功能，我們利用了VB提供的通訊控件MSComm。該控件屏蔽了通信過程中的底層操作，程序員只需設(shè)置和監(jiān)視MSComm控件的屬性和事件，就可以輕而易舉地實現(xiàn)串行異步通訊。

　　遠程監(jiān)控中心可以對分布的各個獨立的電源系統(tǒng)進行遙測、遙控。電源控制器可以現(xiàn)場監(jiān)測和控制電源系統(tǒng)的各項工作參數(shù)；可以接受遠端監(jiān)控中心的查詢、控制；并可以向中心上報工作狀態(tài)。為實現(xiàn)上述功能 ，首要任務(wù)是建立兩者之間的通訊。因此可分別將監(jiān)控中心計算機和電源控制器通過RS-232C接口與Modem相連，再通過Modem接入公用電話網(wǎng)（PSTN）,由PSTN實現(xiàn)本地Modem與電源端Modem的聯(lián)接，就可以實現(xiàn)監(jiān)控中心計算機與電源控制器間的通訊。

2　通訊控件簡介

　　MSComm 控件提供了一系列標(biāo)準(zhǔn)通訊屬性和方法。使用它可以建立起應(yīng)用程序與串行端口的聯(lián)接。為實現(xiàn)遠程通訊，還需要把調(diào)制解調(diào)器與串行端口通過RS-232C接口連接，這樣，在應(yīng)用程序中發(fā)出AT命令，就可以達到控制調(diào)制解調(diào)器的目的，進行遠程通訊。有關(guān)調(diào)制解調(diào)器的AT命令，本文不做討論，讀者可以參考相關(guān)的調(diào)制解調(diào)器手冊。
2．1　在項目中加入MSComm控件
　　啟動Visual Basic，建立一個新項目。
　　選Project菜單，從中選擇Components子菜單。
　　在彈出的Components對話框里的Controls標(biāo)簽下選擇Microsoft Comm Control 5.0項。
2．2　與程序設(shè)計有關(guān)的 MSComm控件屬性
　　CommPort　設(shè)置或返回通訊端口號。格式為：MSComm.CommPort［ = PortNumber ］。 在設(shè)計時，PortNumber 可以設(shè)置成從 1 到 16 的任何數(shù)（缺省值為 1）。但是如果用 PortOpen 屬性打開一個并不存在的端口時，就會產(chǎn)生錯誤 。還需注意的是必須在打開端口之前設(shè)置 CommPort 屬性。例如：MSComm.CommPort=2，即設(shè)置當(dāng)前通信串口為COM2口。
　　Settings　以字符串形式設(shè)置或返回波特率、奇偶校驗、數(shù)據(jù)位和停止位。格式為：
　　MSComm.Settings［=ParaString］。ParaString是一個包含四部分的字符串。第一部分為波特率，其可選值為110,300,600,1200,2400,4800,9600,14400,19200,28800。第二部分為奇偶校驗，N 表示不校驗,E 表示偶校驗,O表示奇校驗，S表示空格檢驗,M表示符號校驗。第三部分為數(shù)據(jù)位位數(shù)，其可選值為4,5,6,7,8。第四部分為停止位位數(shù)，其可選值為1，1.5,2 。Settings屬性的缺省值為“9600,N,8,1” 。
　　PortOpen　設(shè)置并返回通訊端口的狀態(tài)（打開或關(guān)閉）。在設(shè)計時無效。格式為：
　　MSComm.PortOpen［=TRUE/FALSE］ 。
　　Input　返回并刪除接收緩沖區(qū)中的數(shù)據(jù)流。該屬性在設(shè)計時無效，在運行時為只讀。
　　格式為：MSComm.Input。
　　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ù)目的字符。
　　InBufferCount　返回接收緩沖區(qū)中已接收的字符數(shù)。格式為： MSComm.InBufferCount［=0］。該屬性在設(shè)計時無效，但設(shè)置InBufferCount 屬性為0 可以清除接收緩沖區(qū)。
　　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 屬性以二進制形式取回。
　　Output　向發(fā)送緩沖區(qū)寫數(shù)據(jù)。該屬性在設(shè)計時無效，在運行時為只讀。格式為：MSComm.Output=OutData。OutData為要發(fā)送的數(shù)據(jù)，可以是文本數(shù)據(jù)或二進制數(shù)據(jù)。
　　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事件。
　　CommEvent　返回最近的通訊事件或錯誤的數(shù)字代碼。格式為：Mscomm.CommEvent。 當(dāng)CommEvent屬性值為常數(shù)ComEvReceive=2時，收到 Rthreshold 個字符，就會觸發(fā)OnComm事件，直到用 Input 屬性從接收緩沖區(qū)中取出數(shù)據(jù)。
　　DTREnable　確定在通訊時是否使 Data Terminal Ready (DTR) 線有效。Data Terminal Ready 是計算機發(fā)送到調(diào)制解調(diào)器的信號，指示計算機準(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)器進入命令狀態(tài)，執(zhí)行“ATH0”命令來掛斷電話。
2．3　MSComm控件的OnComm 事件
　　通訊控件產(chǎn)生的唯一事件是OnComm事件。每當(dāng)有通訊錯誤或某事件發(fā)生時，通訊控件就會產(chǎn)生此事件。事件或錯誤的數(shù)字代碼放在CommEvent屬性中。
3　程序設(shè)計

　　MSComm 控件提供下列兩種處理通訊的方式：查詢方式和事件驅(qū)動方式。
3．1　查詢通訊
　　通過檢查InBufferCount 屬性值來判定輸入緩沖區(qū)中是否接收到相應(yīng)數(shù)目的字符或字節(jié)。若已接收到相應(yīng)數(shù)目的字符或字節(jié)，就可以用Input屬性來接收這些字符或字節(jié)；否則繼續(xù)查詢InBufferCount屬性值，直到滿足條件。
　　下面是用查詢方式實現(xiàn)的通訊程序。在下面給出的例子中，我們接收的數(shù)據(jù)都是48字節(jié)的定長二進制數(shù)據(jù)。為實現(xiàn)該程序，需在窗體上加入一個通訊控件MSComm1，四個命令按鈕cmdDial，cmdHangUp，cmdOrder，cmdExit。
　　窗體文件清單（只給出主要的程序代碼）
Dim ret '定義窗體級變量
Dim databuffer() As Byte 'databuffer是存放接收數(shù)據(jù)的數(shù)組
Private Sub Form—Load()
'設(shè)置當(dāng)前通信串口為COM2口
MSComm1.CommPort = 2
'設(shè)置串口傳輸速率為2400bps，數(shù)據(jù)位8位，無校驗，一位停止位
MSComm1.Settings = "2400,n,8,1"
MSComm1.InputMode = 1 '以二進制形式從輸入緩沖區(qū)中讀數(shù)據(jù)
MSComm1.RThreshold = 0 '接收到數(shù)據(jù)不引發(fā)OnComm事件
MSComm1.InputLen = 0 '一次讀出輸入緩沖區(qū)中的所有數(shù)據(jù)
MSComm1.PortOpen = True '打開串口
End Sub
Private Sub cmdDial—Click() '撥號聯(lián)機
Static Num As String
Num = InputBox$("Enter Phone Number:", "Dial Number", Num) '輸入電話號碼
If Num = "" Then Exit Sub
If Not MSComm1.PortOpen Then
MSComm1.PortOpen = True
If Err Then Exit Sub
End If
MSComm1.Output = "ATDT" & Num & vbCrLf
'ATDT通知調(diào)制解調(diào)器以音頻方式撥號
cmdHangUp.Enabled = True
cmdDial.Enabled = False
MSComm1.InBufferCount = 0
'查詢InBufferCount 屬性值來確定輸入緩沖區(qū)中是否接收到調(diào)制解調(diào)器回送的字符串“10  ”，以證實撥號成功，正確建立聯(lián)接
Do
DoEvents
Loop Until MSComm1.InBufferCount =3
End Sub
Sub ReceiveData() '接收數(shù)據(jù)子程序
Dim temp
MSComm1.InBufferCount = 0 '清空輸入緩沖區(qū)
'查詢InBufferCount 屬性值來確定輸入緩沖區(qū)中是否有接收到48字節(jié)的數(shù)據(jù)
Do
DoEvents
Loop Until MSComm1.BufferCount = 48
temp = MSComm1.Input
databuffer = temp '將接收到的數(shù)據(jù)的類型轉(zhuǎn)換為字節(jié)數(shù)組類型
End Sub
Private Sub cmdHangUp—Click() '數(shù)據(jù)通訊結(jié)束后，執(zhí)行掛機操作
Dim ret
ret = MSComm1.DTREnable
'當(dāng)DTR信號發(fā)生從高電平到低電平的轉(zhuǎn)換時，調(diào)制解調(diào)器從傳輸狀態(tài)進入命令狀態(tài)
MSComm1.DTREnable = True
MSComm1.DTREnable = False
MSComm1.DTREnable = ret
MSComm1.Output = "ATH0"　　　　'ATH0是掛機命令
cmdHangUp.Enabled = False
cmdDial.Enabled = True
If Err Then MsgBox Error$, 48
End Sub
Private Sub cmdExit—Click() '單擊退出按鈕觸發(fā)的事件過程
Mscomm1.Portopen=False '關(guān)閉串口
End
End Sub
Private Sub cmdOrder—Click() '單擊查詢按鈕觸發(fā)的事件過程
Dim temp
Dim order() As Byte
order = StrConv(Chr(0) + "aa" + Chr(13), vbFromUnicode) '查詢命令串
'strconv()函數(shù)的功能是將Unicode字符串轉(zhuǎn)換為ASCII碼字符串
temp = order
MSComm1.Output = temp
'通過與串口聯(lián)接的調(diào)制解調(diào)器向遠端電源控制器發(fā)送查詢命令
ReceiveData '查詢接收48字節(jié)的數(shù)據(jù)
End Sub

3．2　事件驅(qū)動通訊
　　事件驅(qū)動通訊是處理串行端口交互作用的一種非常有效的方法。在許多情況下，當(dāng)輸入緩沖區(qū)中收到字符或是輸出緩沖區(qū)空時，需要通知程序以便處理，在這些情況下，可以利用 MSComm 控件的 OnComm 事件捕獲并處理這些通訊事件。
　　下文給出的用事件驅(qū)動方法設(shè)計的通訊程序與上面的查詢通訊程序具有相同的窗口界面和功能。在實現(xiàn)過程中，要把查詢通訊程序的查詢接收子程序去掉，這是因為在事件驅(qū)動的通訊中，接收數(shù)據(jù)都是在OnComm事件過程里完成的。并且，在Form—load事件過程中將Rthreshold屬性值設(shè)為1。在程序設(shè)計時，還要引入一個窗體級變量comstate，指示串口當(dāng)前的狀態(tài)。下面只給出OnComm 事件過程。
Private Sub MSComm1—OnComm()
Dim temp As Variant
Dim tempbyte() As Byte
Select Case MSComm1.CommEvent
'根據(jù)不同的CommEvent屬性的值來確定引起OnComm事件的具體原因，然后進行不同的處理
Case 2 'MSCOMM—EV—RECEIVE=2
temp = MSComm1.Input '從緩沖區(qū)中讀出接收到的數(shù)據(jù)
tempbyte= temp '將接收到的數(shù)據(jù)的類型轉(zhuǎn)換為字節(jié)數(shù)組類型
Dim k As Integer
Static i As Integer
For k = LBound(tempbyte) To UBound(tempbyte)
If comstate=0 Then 'comstate=0, 串口處在撥號狀態(tài)
If tempbyte(k)=13 Then
'判斷是否收到調(diào)制解調(diào)器回送的結(jié)果碼結(jié)束符回車符
comstate=1 '撥號成功
End If
Else 'comstate=1,串口處在接收數(shù)據(jù)狀態(tài)
databuffer(i)=tempbyte(k)
i=i+1
If i=47 Then
i=0
End If
Next k
End Select
End Sub
　　以上，我們討論了用VB實現(xiàn)遠程數(shù)據(jù)通訊的兩種方法。需要注意的是，用查詢方式進行通訊程序設(shè)計時，要對輸入緩沖區(qū)中的數(shù)據(jù)及時處理，保證數(shù)據(jù)的正確接收。例如，在輸出調(diào)制解調(diào)器撥號命令后，程序就立即查詢調(diào)制解調(diào)器的回送結(jié)果碼；而向電源控制器發(fā)出查詢命令后，程序就立即查詢接收上報的數(shù)據(jù)。如果在數(shù)據(jù)量大，功能比較復(fù)雜的通訊程序中，就應(yīng)該采用事件驅(qū)動的通訊方法，保證通訊的可靠性。