通信學論文-Windows環境下的串行數據通信程序設計摘要該文詳細討論了MSCOMM.VBX通信控件在Windows平臺下的通信軟件設計方法,借助于VisualBasic所附的通信控件能非常方便地開發出高級和專業性通信軟件來滿足不同業務的需要。在Windows操作系統平臺上開發通信軟件時,雖然Windows3.1SDK提供了完備的API應用程序接口函數和以中斷方式驅動的通信設備驅動程序COMM.DRV,從而可以用C或C+來完成這類應用程序的設計,但其復雜化和專業化程度仍然很高。所以,目前許多軟件開發人員都在使用MicrosoftVisualBasic來開發Windows應用程序。本文將詳細敘述VB環境的通信軟件開發方法,通過對通信控件MSCOMM.VBX的分析,我們可以看到利用VB來開發Windows平臺下的通信軟件非常簡單。最后結合我們工作中的一個實例來完整地描述該類軟件的設計方法。一、MSCOMM.VBX的描述VB中的串行通信控件已全面提供了使用RS-232來進行數據通信軟件開發設計的所有細則,MicrosoftVisualBasic3.0中的MSCOMM.VBX(需要安裝在indowsystem目錄下)是1992年CrescentsoftwareInc.公司專為Microsoft的VB平臺設計的,它使用以下兩種不同的方式來處理和解決各類通信軟件的開發和設計問題。(1)事件驅動,它和我們用C/C+寫Windows軟件時的窗口回調函數類似,是一種功能強大的處理問題的方法。在實際工作中,往往要求我們處理許多通信中的相關事件。例如:當線路數據到達本端或CD(CarrierDetect)和RTS(RequestToSend)信號線狀態發生變化時,這就要求我們使用相應的事件來跟蹤和處理。在該控件中,是使用OnComm來實現的,它也包括檢測和處理通信錯誤等方面的問題。以下是MSCOMM詳細的錯誤和事件列表(讀者可參閱SKD或MSC/C+7.0等中的Windows.h有關的通信部分常數和函數原型):MSCOMM_ER_BREAKA收到一個Breaksignal.MSCOMM_ER_CDTOCD信號超時MSCOMM_ER_CTSTOCTS信號超時MSCOMM_ER_DSRTODSR信號超時MSCOMM_ER_FRAME幀錯誤發生MSCOMM_ER_OVERRUN接收數據丟失MSCOMM_ER_RXOVER接收緩沖器溢出MSCOMM_ER_RXPARITY糾驗錯MSCOMM_ER_TXFULL發送緩沖器滿MSCOMM_EV_CDCD信號改變MSCOMM_EV_CTSCTS信號改變MSCOMM_EV_DSRDSR信號改變MSCOMM_EV_EOF收到一個文本文件結束字符(26)MSCOMM_EV_RING檢測到一個振鈴信號MSCOMM_EV_RECEIVE接收到設定的字符數時產生該事件MSCOMM_EV_SEND發生緩沖器中的字符數低于設定的數值時產生該事件以上常數定義在CONSTANT.TXT文件中。(2)查詢方式,由程序設計者來負責讀取CommEvent的值并處理所發生的錯誤或事件。通常簡單的應用程序設計可采用這種方法。使用通信控件開發通信軟件時,能非常簡單地設計出同時訪問多個通信口的程序,這就是Windows的好處。例如使用Commi.OnComm,其中1in(n:當前可用的通信口),就可以設計多個通信串口處理程序。例如,一個基于電話網用來檢索信息資料的小型服務器的后臺軟件的設計應用就是一個很好的例子。MSCOMM.VBX中提供了27個關于通信控件方面的屬性,以下列出最重要的幾個:CommPort設置和返回通信口的數目Settings設置和返回以字符串形式給出的數據通信格式:波特率,校驗,數據位和停止位PortOpen設置和返回通信口的狀態(包括打開和關閉一個通信口)Input讀串行數據接收緩沖器Output發送一個串在MSCOMM.VBX中,有兩個與Input和Output性質相等同的函數；(1)輸入函數,從串行通信接收緩沖器中讀取字符串,句型如下:Comlnput(ByValhWndAsInteger,lpDataAsAny,ByValcbDataAsInteger)AsIntegerT8S14200.GIF；圖1返回值:本次讀操作實際讀取的字符數(2)輸出函數,向通信口發送一個字符串,句型如下:ComOutput(ByValhWndAsInteger,lpDataAsAny,ByValcbDataAsInteger)AsintegerT8S14201.GIF；圖2返回值:本次寫操作實際發送的字符數二、事件驅動和查詢方式下的兩種通信軟件開發模板這兩種方式分別對應我們通常使用匯編或C/C+來寫通信程序中的中斷和查詢方法。(1)事件驅動下例是一個使用事件驅動方式設計通信程序的模板,我們只需根據自己的實際情況來選擇在下列的Case語句中插入相應的代碼即可。SubComm_OnComm()SelectCaseCommi.CommEventi=1,2.錯誤部分CaseMSCOMM-ER_BREAK插入處理BREAK代碼CaseMSCOMM-ER_CDTO插入處理CD(RLSD)超時代碼CaseMSCOMM-ER_CTSTO插入處理CTS超時代碼CaseMSCOMM-ER_DSRTO插入處理DSR超時代碼CaseMSCOMM-ER_FRAME插入處理幀錯誤代碼CaseMSCOMM-ER_OVERRUN插入處理數據丟失代碼CaseMSCOMM-ER_RXOVER插入處理接收緩沖器溢出代碼CaseMSCOMM-ER_RXPARITY插入處理校驗錯誤代碼CaseMSCOMM-ER_TXFULL插入處理發送緩沖器滿代碼事件部分CaseMSCOMM-EV_CD插入處理CD信號改變代碼CaseMSCOMM-EV_CTS插入處理CTS信號改變代碼CaseMSCOMM-EV_DSR插入處理DST信號改變代碼CaseMSCOMM-EV_EOF插入處理收到一個文本文件結束字(26)代碼CaseMSCOMM-EV_RING插入處理檢測到一個振鈴信號代碼CaseMSCOMM-EV_RECEIVE插入接收到設定的字符數時產生該事件代碼CaseMSCOMM-EV_SEND插入處理發生緩沖器中的字符數低于設定的數值時產生該事件的代碼EndSelectEndSub(2)查詢方式查詢方式,就是每個命令(含數據塊)都要查詢等待對它的回答。詳細使用方法請見下文的實例敘述。三、一個完整例子該程序的設計背景是全軍醫藥信息網上電話撥號用戶前臺軟件中的自動撥號部分,為節省篇幅和說明問題,這里進行了重新編輯,但其本身是完整的。該程序幫助主人進行電話撥號以呼通被叫。調試環境:LEO486/50,HiTecMODEM,院內電話脈沖撥號,使用串行口1,PWIN3.1程序Form由下列部分組成:List1電話號碼顯示列表；Label1撥號狀態顯示；Dial,Cancel,Quit三個按鈕；MSCOMM.VBX通信控件。-VisualBasic3.0MSCOMM.VBX程序設計:使用MODEM撥號,人工通話程序名:MDIALER.TXT軍事醫學科學院計算中心夏云,1995.2.12運行:使用VBFILE中的LoadText項裝入,按F5或生成.EXE文件運行-OptionExplicitDimPhoneNumbers$()電話號碼存儲變量DimCancelFlagCancel按鈕狀態標志SubDial(Number$)撥號例程DimDialString$,FromModem$,dummy根據脈沖/雙音多頻撥號方式來選擇DT/DP；所撥號碼存放在變量PhoneNumbers$(Index)中；命令中的分號表示MODEM在撥號后重新回到命令狀態；每個命令由回車符Chr$(13)結束；DialString$=ATDT+Number$+；+Chr$(13)Commi.Settings=2400,N,8,1設置幀格式OnErrorResumeNext錯誤恢復Commi.PortOpen=True啟動該口工作IfErrThen如果該口不可啟動,則顯示信息MsgBox當前串行通信端口不能工作,請選擇使用另外端口?！盓xitSubEndifCommi.InBufferCount=0清除接收緩沖器Commi.Output=DialString$開始撥號Do等待MODEM返回“OK”回答dummy=DoEvents()進入等待方式,將資源提交系統管理IfCommi.InBufferCountThen若接收緩沖器中有數據存在,則讀FromModem$=FromModem$+Commi.InputIfInStr(FromModem$,OK)Then是否接收到“OK”Beep已經接收到“OK”,發蜂嗚聲MsgBox對方電話已經撥通,請摘話機并按回車或OK鈕”ExitDoEndIfEndIfIfCancelFlagThen若Cancel鈕按下則處理CancelFlag=FalseExitDoEndIfLoopCommi.Output=ATH+Chr$(13)掛斷命令Commi.PortOpen=False關閉該口EndSubSubDialButton_Click()Dial按鈕處理程序DimNumber$,Temp$DialButton.Enabled=FalseDial,Quit二個按鈕同時無效QuitButton.Enabled=FalseCancelButton.Enabled=True開放Cancel按鈕Number$=PhoneNumbers$(List1.ListIndex)獲得一個電話號碼Temp$=Status保存狀態Status$=“正在撥號碼:”+Number$DialNumber$撥號例程執行DialButton.Enabled=True撥號結束開放Dail,Quit按鈕DialButton.Enabled=TrueCancelButton.Enabled=False禁止Cancel按鈕Status=Temp$恢復狀態EndSubSubForm_Load()Commi.InputLen=0設置0值:讀全部接收緩沖器內容MDialer.Show顯示窗口List1.AddItem“四環醫學研究院計算中心”List1.AddItem“軍事醫學科學院情報所張華研究員”ReDimPhoneNumbers$(0ToList1.ListCount-1)PhoneNumbers$(0)=1-8233296PhoneNumber$(1)=1-8232255List1.ListIndex=0默認第一個號碼EndSubSubList1-DblClick()列表框選擇號碼啟動撥號DialButton-ClickEndSubSubCancelButton-Click()Cancel按鈕處理程序CancelFlag=True標識Cancel鈕已按下CancelButton.Enabled=False取消該鈕繼續活動EndSubSubQuitButton-Click()Quit按鈕End結束EndSubMSCOMM.VBX對