Windows環(huán)境下的串行數(shù)據(jù)通信程序設(shè)計
發(fā)布時間：2008-04-03 10:46:56 來源：編程愛好者網(wǎng)站 作者：編程愛好者網(wǎng)站 點擊：375 夏云
摘 要 該文詳細(xì)討論了MSCOMM.VBX通信控件在Windows平臺下的通信軟件設(shè)計方法,借
助于Visual Basic所附的通信控件能非常方便地開發(fā)出高級和專業(yè)性通信軟件來滿足不同
業(yè)務(wù)的需要。
關(guān)鍵詞 Windows Visual Basic 通信控件 通信軟件
在Windows操作系統(tǒng)平臺上開發(fā)通信軟件時,雖然Windows 3.1 SDK提供了完備的API應(yīng)
用程序接口函數(shù)和以中斷方式驅(qū)動的通信設(shè)備驅(qū)動程序COMM.DRV,從而可以用C或C++來完成
這類應(yīng)用程序的設(shè)計,但其復(fù)雜化和專業(yè)化程度仍然很高。所以,目前許多軟件開發(fā)人員都
在使用Microsoft Visual Basic來開發(fā)Windows應(yīng)用程序。本文將詳細(xì)敘述VB環(huán)境的通信軟
件開發(fā)方法,通過對通信控件MSCOMM.VBX的分析,我們可以看到利用VB來開發(fā)Windows平臺下
的通信軟件非常簡單。最后結(jié)合我們工作中的一個實例來完整地描述該類軟件的設(shè)計方法
。
一、MSCOMM.VBX的描述
VB中的串行通信控件已全面提供了使用RS-232來進(jìn)行數(shù)據(jù)通信軟件開發(fā)設(shè)計的所有細(xì)
則,Microsoft Visual Basic 3.0中的MSCOMM.VBX(需要安裝在indowsystem＼目錄下)是199
2年Crescent software Inc. 公司專為Microsoft的VB平臺設(shè)計的,它使用以下兩種不同的
方式來處理和解決各類通信軟件的開發(fā)和設(shè)計問題。
(1) 事件驅(qū)動,它和我們用C/C++寫Windows軟件時的窗口回調(diào)函數(shù)類似,是一種功能強
大的處理問題的方法。在實際工作中,往往要求我們處理許多通信中的相關(guān)事件。例如:當(dāng)
線路數(shù)據(jù)到達(dá)本端或CD(Carrier Detect)和RTS(Request To Send)信號線狀態(tài)發(fā)生變化時
,這就要求我們使用相應(yīng)的事件來跟蹤和處理。在該控件中,是使用OnComm來實現(xiàn)的,它也包
括檢測和處理通信錯誤等方面的問題。以下是MSCOMM詳細(xì)的錯誤和事件列表(讀者可參閱S
KD或MSC/C++ 7.0等中的Windows.h有關(guān)的通信部分常數(shù)和函數(shù)原型):
MSCOMM_ER_BREAKA收到一個Break signal.
MSCOMM_ER_CDTOCD信號超時
MSCOMM_ER_CTSTOCTS信號超時
MSCOMM_ER_DSRTODSR信號超時
MSCOMM_ER_FRAME幀錯誤發(fā)生
MSCOMM_ER_OVERRUN接收數(shù)據(jù)丟失
MSCOMM_ER_RXOVER接收緩沖器溢出
MSCOMM_ER_RXPARITY糾驗錯
MSCOMM_ER_TXFULL發(fā)送緩沖器滿
MSCOMM_EV_CDCD信號改變
MSCOMM_EV_CTSCTS信號改變
MSCOMM_EV_DSRDSR信號改變
MSCOMM_EV_EOF收到一個文本文件結(jié)束字符(26)
MSCOMM_EV_RING檢測到一個振鈴信號
MSCOMM_EV_RECEIVE接收到設(shè)定的字符數(shù)時產(chǎn)生該事件
MSCOMM_EV_SEND發(fā)生緩沖器中的字符數(shù)低于設(shè)定的數(shù)值時產(chǎn)生該事件
以上常數(shù)定義在CONSTANT.TXT文件中。
(2) 查詢方式,由程序設(shè)計者來負(fù)責(zé)讀取CommEvent的值并處理所發(fā)生的錯誤或事件。
通常簡單的應(yīng)用程序設(shè)計可采用這種方法。
使用通信控件開發(fā)通信軟件時,能非常簡單地設(shè)計出同時訪問多個通信口的程序,這就
是Windows的好處。例如使用Commi.OnComm,其中1≤i≤n(n:當(dāng)前可用的通信口),就可以設(shè)
計多個通信串口處理程序。例如,一個基于電話網(wǎng)用來檢索信息資料的小型服務(wù)器的后臺軟
件的設(shè)計應(yīng)用就是一個很好的例子。MSCOMM.VBX中提供了27個關(guān)于通信控件方面的屬性,以
下列出最重要的幾個:
CommPort設(shè)置和返回通信口的數(shù)目
Settings設(shè)置和返回以字符串形式給出的數(shù)據(jù)通信格式:波特率,校驗,數(shù)據(jù)位和停止
位
PortOpen設(shè)置和返回通信口的狀態(tài)(包括打開和關(guān)閉一個通信口)
Input讀串行數(shù)據(jù)接收緩沖器
Output發(fā)送一個串
在MSCOMM.VBX中,有兩個與Input和Output性質(zhì)相等同的函數(shù);
(1) 輸入函數(shù),從串行通信接收緩沖器中讀取字符串,句型如下:
Comlnput(By Val hWnd As Integer, lpData As Any,By Val cbData As Integer) A
s Integer
@@T8S14200.GIF;圖1@@
返回值:本次讀操作實際讀取的字符數(shù)
(2) 輸出函數(shù),向通信口發(fā)送一個字符串,句型如下:ComOutput(By Val hWnd As Inte
ger, lpData As Any,By Val cbData As Integer) As integer
@@T8S14201.GIF;圖2@@
返回值:本次寫操作實際發(fā)送的字符數(shù)
二、事件驅(qū)動和查詢方式下的兩種通信軟件開發(fā)模板
這兩種方式分別對應(yīng)我們通常使用匯編或C/C++來寫通信程序中的中斷和查詢方法。
(1) 事件驅(qū)動
下例是一個使用事件驅(qū)動方式設(shè)計通信程序的模板,我們只需根據(jù)自己的實際情況來選
擇在下列的Case語句中插入相應(yīng)的代碼即可。
Sub Comm_OnComm()
Select Case Commi.CommEvent’i=1,2...
’ 錯誤部分
Case MSCOMM-ER_BREAK’插入處理BREAK代碼
Case MSCOMM-ER_CDTO’插入處理CD(RLSD)超時代碼
Case MSCOMM-ER_CTSTO’插入處理CTS超時代碼
Case MSCOMM-ER_DSRTO’插入處理DSR超時代碼
Case MSCOMM-ER_FRAME’插入處理幀錯誤代碼
Case MSCOMM-ER_OVERRUN’插入處理數(shù)據(jù)丟失代碼
Case MSCOMM-ER_RXOVER’插入處理接收緩沖器溢出代碼
Case MSCOMM-ER_RXPARITY’插入處理校驗錯誤代碼
Case MSCOMM-ER_TXFULL’插入處理發(fā)送緩沖器滿代碼
’事件部分
Case MSCOMM-EV_CD’插入處理CD信號改變代碼
Case MSCOMM-EV_CTS’插入處理CTS信號改變代碼
Case MSCOMM-EV_DSR’插入處理DST信號改變代碼
Case MSCOMM-EV_EOF’插入處理收到一個文本文件結(jié)束字(26)代碼
Case MSCOMM-EV_RING’插入處理檢測到一個振鈴信號代碼
Case MSCOMM-EV_RECEIVE’插入接收到設(shè)定的字符數(shù)時產(chǎn)生該事件代碼
Case MSCOMM-EV_SEND’插入處理發(fā)生緩沖器中的字符數(shù)低于設(shè)定的數(shù)值時產(chǎn)生該
事件的代碼
End Select
End Sub
(2) 查詢方式
查詢方式,就是每個命令(含數(shù)據(jù)塊)都要查詢等待對它的回答。詳細(xì)使用方法請見下文
的實例敘述。
三、一個完整例子
該程序的設(shè)計背景是全軍醫(yī)藥信息網(wǎng)上電話撥號用戶前臺軟件中的自動撥號部分,為節(jié)
省篇幅和說明問題,這里進(jìn)行了重新編輯,但其本身是完整的。該程序幫助主人進(jìn)行電話撥
號以呼通被叫。
調(diào)試環(huán)境:LEO 486/50,HiTec MODEM,院內(nèi)電話脈沖撥號,使用串行口1,PWIN 3.1
程序Form由下列部分組成:List1電話號碼顯示列表;Label1撥號狀態(tài)顯示;Dial,Canc
el,
Quit三個按鈕;MSCOMM.VBX通信控件。
’ ------------
’ Visual Basic 3.0 MSCOMM.VBX程序設(shè)計:使用MODEM撥號,人工通話
’ 程序名:MDIALER.TXT
’ 軍事醫(yī)學(xué)科學(xué)院計算中心 夏云,1995.2.12
’ 運行:使用VB FILE中的Load Text項裝入,按F5或生成.EXE文件運行
’ ------------
Option Explicit
Dim PhoneNumbers$()’電話號碼存儲變量
Dim CancelFlag’Cancel按鈕狀態(tài)標(biāo)志
Sub Dial(Number$)’撥號例程
Dim DialString$,FromModem$,dummy
’根據(jù)脈沖/雙音多頻撥號方式來選擇DT/DP;
’所撥號碼存放在變量PhoneNumbers$(Index)中;
’命令中的分號表示MODEM在撥號后重新回到命令狀態(tài);
’每個命令由回車符Chr$(13)結(jié)束;
DialString$="ATDT"+Number$+";"+Chr$(13)
Commi.Settings="2400,N,8,1"’設(shè)置幀格式
On Error Resume Next’錯誤恢復(fù)
Commi.PortOpen=True’啟動該口工作
If Err Then’如果該口不可啟動,則顯示信息
MsgBox"當(dāng)前串行通信端口不能工作,請選擇使用另外端口?！?
Exit Sub
End if
Commi.InBufferCount=0’清除接收緩沖器
Commi.Output=DialString$’開始撥號
Do’等待MODEM返回“OK”回答
dummy=DoEvents()’進(jìn)入等待方式,將資源提交系統(tǒng)管理
If Commi.InBufferCount Then’若接收緩沖器中有數(shù)據(jù)存在,則讀
FromModem$=FromModem$+Commi.Input
If InStr(FromModem$,"OK")Then ’是否接收到“OK”
Beep’已經(jīng)接收到“OK”,發(fā)蜂嗚聲
MsgBox"對方電話已經(jīng)撥通,請摘話機并按回車或OK鈕”
Exit Do
End If
End If
If CancelFlag Then’若Cancel鈕按下則處理
CancelFlag=False
Exit Do
End If
Loop
Commi.Output="ATH"+Chr$(13)’掛斷命令
Commi.PortOpen=False’關(guān)閉該口
End Sub
Sub DialButton_Click()’Dial按鈕處理程序
Dim Number$,Temp$
DialButton.Enabled=False’Dial,Quit二個按鈕同時無效
QuitButton.Enabled=False
CancelButton.Enabled=True’開放Cancel按鈕
Number$=PhoneNumbers$(List1.ListIndex))’獲得一個電話號碼
Temp$=Status’保存狀態(tài)
Status$=“正在撥號碼:”+Number$
Dial Number$’撥號例程執(zhí)行
DialButton.Enabled=True’撥號結(jié)束開放Dail,Quit按鈕
DialButton.Enabled=True
CancelButton.Enabled=False’禁止Cancel按鈕
Status=Temp$’恢復(fù)狀態(tài)
End Sub
Sub Form_Load()
Commi.InputLen=0’設(shè)置0值:讀全部接收緩沖器內(nèi)容
MDialer.Show’顯示窗口
List1.AddItem“四環(huán)醫(yī)學(xué)研究院計算中心”
List1.AddItem“軍事醫(yī)學(xué)科學(xué)院情報所張華研究員”
ReDim PhoneNumbers$(0 To List1.ListCount-1)
PhoneNumbers$(0)="1-8233296"
PhoneNumber$(1)="1-8232255"
List1.ListIndex=0’默認(rèn)第一個號碼
End Sub
Sub List1-DblClick()’列表框選擇號碼啟動撥號
DialButton-Click
End Sub
Sub CancelButton-Click()’Cancel按鈕處理程序
CancelFlag=True’標(biāo)識Cancel鈕已按下
CancelButton.Enabled=False’取消該鈕繼續(xù)活動
End Sub
Sub QuitButton-Click()’Quit按鈕
End’結(jié)束
End Sub
MSCOMM.VBX對開發(fā)Windows平臺下的通信軟件的確方便容易,使用事件驅(qū)動能設(shè)計良好
的后臺通信程序、開發(fā)終端仿真軟件和解決更復(fù)雜的實際問題。該通信控件不但包括了全
部Windows API中關(guān)于串行通信的16個函數(shù)所完成的功能,而且開拓了更多的使用戶設(shè)計方
便的對象屬性來滿足不同用戶不同業(yè)務(wù)的需求。因此我們可以應(yīng)用上文討論的內(nèi)容和方法
,利用Windows環(huán)境,使用VB工具來開發(fā)設(shè)計所有串行通信的軟件。另外,MSCOMM為了能在下
一個高速調(diào)制解調(diào)設(shè)備標(biāo)準(zhǔn)中直接使用,它提供了14.4Kbps一檔的速率接口。
(作者地址:北京太平路27號計算中心,100039;收稿日期:1995年3月)
聯(lián)系客服
