基于VB的遠程通訊程序

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

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

2　通訊控件簡介

　　MSComm 控件提供了一系列標準通訊屬性和方法。使用它可以建立起應用程序與串行端口的聯接。為實現遠程通訊，還需要把調制解調器與串行端口通過RS-232C接口連接，這樣，在應用程序中發出AT命令，就可以達到控制調制解調器的目的，進行遠程通訊。有關調制解調器的AT命令，本文不做討論，讀者可以參考相關的調制解調器手冊。
2．1　在項目中加入MSComm控件
　　啟動Visual Basic，建立一個新項目。
　　選Project菜單，從中選擇Components子菜單。
　　在彈出的Components對話框里的Controls標簽下選擇Microsoft Comm Control 5.0項。
2．2　與程序設計有關的 MSComm控件屬性
　　CommPort　設置或返回通訊端口號。格式為：MSComm.CommPort［ = PortNumber ］。 在設計時，PortNumber 可以設置成從 1 到 16 的任何數（缺省值為 1）。但是如果用 PortOpen 屬性打開一個并不存在的端口時，就會產生錯誤 。還需注意的是必須在打開端口之前設置 CommPort 屬性。例如：MSComm.CommPort=2，即設置當前通信串口為COM2口。
　　Settings　以字符串形式設置或返回波特率、奇偶校驗、數據位和停止位。格式為：
　　MSComm.Settings［=ParaString］。ParaString是一個包含四部分的字符串。第一部分為波特率，其可選值為110,300,600,1200,2400,4800,9600,14400,19200,28800。第二部分為奇偶校驗，N 表示不校驗,E 表示偶校驗,O表示奇校驗，S表示空格檢驗,M表示符號校驗。第三部分為數據位位數，其可選值為4,5,6,7,8。第四部分為停止位位數，其可選值為1，1.5,2 。Settings屬性的缺省值為“9600,N,8,1” 。
　　PortOpen　設置并返回通訊端口的狀態（打開或關閉）。在設計時無效。格式為：
　　MSComm.PortOpen［=TRUE/FALSE］ 。
　　Input　返回并刪除接收緩沖區中的數據流。該屬性在設計時無效，在運行時為只讀。
　　格式為：MSComm.Input。
　　InputLen　設置并返回 Input 屬性從接收緩沖區中每次讀取的字符數。格式為：MSComm.InputLen［=CharNumber］。InputLen 屬性的缺省值是 0。設置 InputLen 為 0 時，使用 Input 將使 MSComm 控件讀取接收緩沖區中全部的內容。若接收緩沖區中的字符數小于InputLen 屬性設置的字符數，Input 屬性返回一個零長度字符串 ("")。所以在使用Input 前，用戶可以通過檢查 InBufferCount 屬性來確定緩沖區中是否已有需要數目的字符。
　　InBufferCount　返回接收緩沖區中已接收的字符數。格式為： MSComm.InBufferCount［=0］。該屬性在設計時無效，但設置InBufferCount 屬性為0 可以清除接收緩沖區。
　　InputMode　設置或返回 Input 屬性取回的數據的類型。格式為MSComm.InputMode［=ModeValue］。若數據只用 ANSI 字符集，設置InputMode屬性值為0（缺省），數據通過 Input 屬性以文本形式取回。如數據中有嵌入控制字符、Nulls 等等，可設置InputMode屬性值為1，數據通過 Input 屬性以二進制形式取回。
　　Output　向發送緩沖區寫數據。該屬性在設計時無效，在運行時為只讀。格式為：MSComm.Output=OutData。OutData為要發送的數據，可以是文本數據或二進制數據。
　　Rthreshold　設置或返回輸入緩沖區中存放接收字符的最小數。當其屬性值為1時，則緩沖區中每接收到一個字符就引發一次OnComm事件，以便及時從緩沖區中取走數據；當設為0時，則不引發OnComm事件；當設為其它值時，如Rthreshold屬性值為5時，則緩沖區中每接收到5個字符引發一次OnComm事件。
　　CommEvent　返回最近的通訊事件或錯誤的數字代碼。格式為：Mscomm.CommEvent。 當CommEvent屬性值為常數ComEvReceive=2時，收到 Rthreshold 個字符，就會觸發OnComm事件，直到用 Input 屬性從接收緩沖區中取出數據。
　　DTREnable　確定在通訊時是否使 Data Terminal Ready (DTR) 線有效。Data Terminal Ready 是計算機發送到調制解調器的信號，指示計算機準備就緒，可以開始傳輸數據。格式為：MSComm.DTREnable［=TRUE/FALSE］。 DTREnable 設置為 True，當端口被打開時 Data Terminal Ready 線設置為高電平（開），當端口被關閉時 Data Terminal Ready 線設置為低電平（關）。 DTREnable 設置為 False，Data Terminal Ready 線始終保持為低電平。在很多情況下，當Data Terminal Ready 線發生從開到關的轉換時，調制解調器進入命令狀態，執行“ATH0”命令來掛斷電話。
2．3　MSComm控件的OnComm 事件
　　通訊控件產生的唯一事件是OnComm事件。每當有通訊錯誤或某事件發生時，通訊控件就會產生此事件。事件或錯誤的數字代碼放在CommEvent屬性中。
3　程序設計

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

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