Windows環(huán)境下的串行數(shù)據(jù)通信程序設(shè)計
發(fā)布時間：2008-04-03 10:46:56  來源：編程愛好者網(wǎng)站  作者：編程愛好者網(wǎng)站  點(diǎn)擊：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í)例來完整地描述該類軟件的設(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ù)類似,是一種功能強(qiáng)
大的處理問題的方法。在實(shí)際工作中,往往要求我們處理許多通信中的相關(guān)事件,。例如:當(dāng)
線路數(shù)據(jù)到達(dá)本端或CD(Carrier Detect)和RTS(Request To Send)信號線狀態(tài)發(fā)生變化時
,這就要求我們使用相應(yīng)的事件來跟蹤和處理,。在該控件中,是使用OnComm來實(shí)現(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糾驗(yàn)錯
    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ù)通信格式:波特率,校驗(yàn),數(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í)際讀取的字符數(shù)
    (2) 輸出函數(shù),向通信口發(fā)送一個字符串,句型如下:ComOutput(By Val hWnd As Inte
ger, lpData As Any,By Val cbData As Integer) As integer
@@T8S14201.GIF;圖2@@
    返回值:本次寫操作實(shí)際發(fā)送的字符數(shù)
    二、事件驅(qū)動和查詢方式下的兩種通信軟件開發(fā)模板
    這兩種方式分別對應(yīng)我們通常使用匯編或C/C++來寫通信程序中的中斷和查詢方法,。
    (1) 事件驅(qū)動
    下例是一個使用事件驅(qū)動方式設(shè)計通信程序的模板,我們只需根據(jù)自己的實(shí)際情況來選
擇在下列的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’插入處理校驗(yàn)錯誤代碼
      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í)例敘述,。
    三,、一個完整例子
    該程序的設(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
    ’ 運(yùn)行:使用VB FILE中的Load Text項(xiàng)裝入,按F5或生成.EXE文件運(yùn)行
    ’ ------------
    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)撥通,請摘話機(jī)并按回車或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ù)雜的實(shí)際問題。該通信控件不但包括了全
部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月)