|
圖1
2 通訊控件簡介
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)器手冊。
2．1 在項(xiàng)目中加入MSComm控件
啟動Visual
Basic，建立一個(gè)新項(xiàng)目。
選Project菜單，從中選擇Components子菜單。
在彈出的Components對話框里的Controls標(biāo)簽下選擇Microsoft
Comm Control 5.0項(xiàng)。
2．2 與程序設(shè)計(jì)有關(guān)的
MSComm控件屬性
CommPort 設(shè)置或返回通訊端口號。格式為：MSComm.CommPort［
= PortNumber ］。 在設(shè)計(jì)時(shí)，PortNumber 可以設(shè)置成從 1 到 16 的任何數(shù)（缺省值為 1）。但是如果用 PortOpen
屬性打開一個(gè)并不存在的端口時(shí)，就會產(chǎn)生錯(cuò)誤 。還需注意的是必須在打開端口之前設(shè)置 CommPort
屬性。例如：MSComm.CommPort=2，即設(shè)置當(dāng)前通信串口為COM2口。
Settings 以字符串形式設(shè)置或返回波特率、奇偶校驗(yàn)、數(shù)據(jù)位和停止位。格式為：
MSComm.Settings［=ParaString］。ParaString是一個(gè)包含四部分的字符串。第一部分為波特率，其可選值為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”
。
PortOpen 設(shè)置并返回通訊端口的狀態(tài)（打開或關(guān)閉）。在設(shè)計(jì)時(shí)無效。格式為：
MSComm.PortOpen［=TRUE/FALSE］
。
Input 返回并刪除接收緩沖區(qū)中的數(shù)據(jù)流。該屬性在設(shè)計(jì)時(shí)無效，在運(yùn)行時(shí)為只讀。
格式為：MSComm.Input。
InputLen 設(shè)置并返回
Input 屬性從接收緩沖區(qū)中每次讀取的字符數(shù)。格式為：MSComm.InputLen［=CharNumber］。InputLen 屬性的缺省值是
0。設(shè)置 InputLen 為 0 時(shí)，使用 Input 將使 MSComm
控件讀取接收緩沖區(qū)中全部的內(nèi)容。若接收緩沖區(qū)中的字符數(shù)小于InputLen 屬性設(shè)置的字符數(shù)，Input 屬性返回一個(gè)零長度字符串
("")。所以在使用Input 前，用戶可以通過檢查 InBufferCount
屬性來確定緩沖區(qū)中是否已有需要數(shù)目的字符。
InBufferCount 返回接收緩沖區(qū)中已接收的字符數(shù)。格式為：
MSComm.InBufferCount［=0］。該屬性在設(shè)計(jì)時(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
屬性以二進(jìn)制形式取回。
Output 向發(fā)送緩沖區(qū)寫數(shù)據(jù)。該屬性在設(shè)計(jì)時(shí)無效，在運(yùn)行時(shí)為只讀。格式為：MSComm.Output=OutData。OutData為要發(fā)送的數(shù)據(jù)，可以是文本數(shù)據(jù)或二進(jìn)制數(shù)據(jù)。
Rthreshold 設(shè)置或返回輸入緩沖區(qū)中存放接收字符的最小數(shù)。當(dāng)其屬性值為1時(shí)，則緩沖區(qū)中每接收到一個(gè)字符就引發(fā)一次OnComm事件，以便及時(shí)從緩沖區(qū)中取走數(shù)據(jù)；當(dāng)設(shè)為0時(shí)，則不引發(fā)OnComm事件；當(dāng)設(shè)為其它值時(shí)，如Rthreshold屬性值為5時(shí)，則緩沖區(qū)中每接收到5個(gè)字符引發(fā)一次OnComm事件。
CommEvent 返回最近的通訊事件或錯(cuò)誤的數(shù)字代碼。格式為：Mscomm.CommEvent。
當(dāng)CommEvent屬性值為常數(shù)ComEvReceive=2時(shí)，收到 Rthreshold 個(gè)字符，就會觸發(fā)OnComm事件，直到用 Input
屬性從接收緩沖區(qū)中取出數(shù)據(jù)。
DTREnable 確定在通訊時(shí)是否使 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)端口被打開時(shí) Data Terminal Ready 線設(shè)置為高電平（開），當(dāng)端口被關(guān)閉時(shí) Data
Terminal Ready 線設(shè)置為低電平（關(guān)）。 DTREnable 設(shè)置為 False，Data Terminal Ready
線始終保持為低電平。在很多情況下，當(dāng)Data Terminal Ready
線發(fā)生從開到關(guān)的轉(zhuǎn)換時(shí)，調(diào)制解調(diào)器進(jìn)入命令狀態(tài)，執(zhí)行“ATH0”命令來掛斷電話。
2．3 MSComm控件的OnComm
事件
通訊控件產(chǎn)生的唯一事件是OnComm事件。每當(dāng)有通訊錯(cuò)誤或某事件發(fā)生時(shí)，通訊控件就會產(chǎn)生此事件。事件或錯(cuò)誤的數(shù)字代碼放在CommEvent屬性中。
3 程序設(shè)計(jì)
MSComm
控件提供下列兩種處理通訊的方式：查詢方式和事件驅(qū)動方式。
3．1 查詢通訊
通過檢查InBufferCount
屬性值來判定輸入緩沖區(qū)中是否接收到相應(yīng)數(shù)目的字符或字節(jié)。若已接收到相應(yīng)數(shù)目的字符或字節(jié)，就可以用Input屬性來接收這些字符或字節(jié)；否則繼續(xù)查詢InBufferCount屬性值，直到滿足條件。
下面是用查詢方式實(shí)現(xiàn)的通訊程序。在下面給出的例子中，我們接收的數(shù)據(jù)都是48字節(jié)的定長二進(jìn)制數(shù)據(jù)。為實(shí)現(xiàn)該程序，需在窗體上加入一個(gè)通訊控件MSComm1，四個(gè)命令按鈕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位，無校驗(yàn)，一位停止位
MSComm1.Settings =
"2400,n,8,1"
MSComm1.InputMode = 1
'以二進(jìn)制形式從輸入緩沖區(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)機(jī)
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
”，以證實(shí)撥號成功，正確建立聯(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í)行掛機(jī)操作
Dim ret
ret =
MSComm1.DTREnable
'當(dāng)DTR信號發(fā)生從高電平到低電平的轉(zhuǎn)換時(shí)，調(diào)制解調(diào)器從傳輸狀態(tài)進(jìn)入命令狀態(tài)
MSComm1.DTREnable
= True
MSComm1.DTREnable = False
MSComm1.DTREnable =
ret
MSComm1.Output = "ATH0" 'ATH0是掛機(jī)命令
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)器向遠(yuǎn)端電源控制器發(fā)送查詢命令
ReceiveData '查詢接收48字節(jié)的數(shù)據(jù)
End
Sub
3．2 事件驅(qū)動通訊
事件驅(qū)動通訊是處理串行端口交互作用的一種非常有效的方法。在許多情況下，當(dāng)輸入緩沖區(qū)中收到字符或是輸出緩沖區(qū)空時(shí)，需要通知程序以便處理，在這些情況下，可以利用
MSComm 控件的 OnComm
事件捕獲并處理這些通訊事件。
下文給出的用事件驅(qū)動方法設(shè)計(jì)的通訊程序與上面的查詢通訊程序具有相同的窗口界面和功能。在實(shí)現(xiàn)過程中，要把查詢通訊程序的查詢接收子程序去掉，這是因?yàn)樵谑录?qū)動的通訊中，接收數(shù)據(jù)都是在OnComm事件過程里完成的。并且，在Form—load事件過程中將Rthreshold屬性值設(shè)為1。在程序設(shè)計(jì)時(shí)，還要引入一個(gè)窗體級變量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事件的具體原因，然后進(jìn)行不同的處理
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實(shí)現(xiàn)遠(yuǎn)程數(shù)據(jù)通訊的兩種方法。需要注意的是，用查詢方式進(jìn)行通訊程序設(shè)計(jì)時(shí)，要對輸入緩沖區(qū)中的數(shù)據(jù)及時(shí)處理，保證數(shù)據(jù)的正確接收。例如，在輸出調(diào)制解調(diào)器撥號命令后，程序就立即查詢調(diào)制解調(diào)器的回送結(jié)果碼；而向電源控制器發(fā)出查詢命令后，程序就立即查詢接收上報(bào)的數(shù)據(jù)。如果在數(shù)據(jù)量大，功能比較復(fù)雜的通訊程序中，就應(yīng)該采用事件驅(qū)動的通訊方法，保證通訊的可靠性。
任 俠 碩士生。研究方向：計(jì)算機(jī)網(wǎng)絡(luò)�！�陳國虎 助教。現(xiàn)致力于高頻開關(guān)電源遠(yuǎn)程監(jiān)控的系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)。
作者單位：解放軍信息工程學(xué)院 河南.鄭州(450002)
參考文獻(xiàn)
［1］ 張 威，等譯.Visual Basic 5.0開發(fā)與技巧.機(jī)械工業(yè)出版社
|
