Windows環境下的串行數據通信程序設計

論文類別:工學論文 > 通信學論文
論文標簽:數據通信論文 環境設計論文
論文作者: 夏雲
上傳時間:2008/8/5 10:33:00

摘 要 該文詳細討論了MSCOMM.VBX通信控件在Windows平台下的通信軟件設計方法,借助於Visual Basic所附的通信控件能非常方便地開發出高級和專業性通信軟件來滿足不同業務的需要。
在Windows操作系統平臺上開發通信軟件時,雖然Windows 3.1 SDK提供了完備的API應用程序接口函數和以中斷方式驅動的通信设備驅動程序COMM.DRV,從而可以用C或C++來完成這類应用程序的設計,但其復雜化和專業化程度仍然很高。所以,目前許多軟件開发人員都在使用Microsoft Visual Basic來開发Windows應用程序。本文將詳細敘述VB環境的通信軟件開发方法,通過對通信控件MSCOMM.VBX的分析,我們可以看到利用VB來開發Windows平臺下的通信軟件非常簡單。最后結合我們工作中的一个實例來完整地描述該类軟件的設計方法。
一、MSCOMM.VBX的描述
VB中的串行通信控件已全面提供了使用RS-232來进行數據通信軟件開發設计的所有細則,Microsoft Visual Basic 3.0中的MSCOMM.VBX(需要安裝在indowsystem\目錄下)是1992年Crescent software Inc. 公司專為Microsoft的VB平臺設計的,它使用以下兩種不同的方式來處理和解決各類通信軟件的開發和設計問題。
(1) 事件驅動,它和我們用C/C++寫Windows軟件時的窗口回調函數類似,是一種功能強大的處理問題的方法。在實际工作中,往往要求我們处理許多通信中的相关事件。例如:當線路数據到達本端或CD(Carrier Detect)和RTS(Request To Send)信號線狀態發生變化時,這就要求我們使用相應的事件來跟蹤和處理。在該控件中,是使用OnComm來实現的,它也包括檢測和處理通信錯誤等方面的問題。以下是MSCOMM詳細的錯误和事件列表(讀者可參閱SKD或MSC/C++ 7.0等中的Windows.h有關的通信部分常數和函數原型):
MSCOMM_ER_BREAKA收到一個Break signal.
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,其中1≤i≤n(n:当前可用的通信口),就可以設計多個通信串口處理程序。例如,一個基於電話網用來檢索信息資料的小型服務器的後臺軟件的設計應用就是一個很好的例子。MSCOMM.VBX中提供了27個關於通信控件方面的屬性,以下列出最重要的几個:
CommPort設置和返回通信口的數目
Settings設置和返回以字符串形式給出的数據通信格式:波特率,校驗,數據位和停止位
PortOpen設置和返回通信口的狀態(包括打開和關閉一個通信口)
Input讀串行數據接收缓沖器
Output發送一个串
在MSCOMM.VBX中,有兩個与Input和Output性質相等同的函數;
(1) 輸入函數,從串行通信接收緩沖器中讀取字符串,句型如下:
Comlnput(By Val hWnd As Integer, lpData As Any,By Val cbData As Integer) A
s Integer
@@T8S14200.GIF;圖1@@
返回值:本次讀操作實際讀取的字符數
(2) 輸出函數,向通信口發送一個字符串,句型如下:ComOutput(By Val hWnd As Inte
ger, lpData As Any,By Val cbData As Integer) As integer
@@T8S14201.GIF;圖2@@
返回值:本次寫操作實際發送的字符數
二、事件驅动和查詢方式下的兩種通信軟件開發模板
這兩種方式分別對應我們通常使用匯編或C/C++來寫通信程序中的中斷和查詢方法。
(1) 事件驅動
下例是一個使用事件驅動方式设計通信程序的模板,我們只需根據自己的實際情況來選擇在下列的Case語句中插入相應的代碼即可。
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'插入處理数據丟失代碼
Case MSCOMM-ER_RXOVER'插入處理接收緩沖器溢出代码
Case MSCOMM-ER_RXPARITY'插入處理校验錯誤代碼
Case MSCOMM-ER_TXFULL'插入處理發送缓沖器滿代碼
'事件部分
Case MSCOMM-EV_CD'插入處理CD信號改變代碼
Case MSCOMM-EV_CTS'插入處理CTS信號改變代碼
Case MSCOMM-EV_DSR'插入處理DST信號改变代碼
Case MSCOMM-EV_EOF'插入處理收到一個文本文件結束字(26)代碼
Case MSCOMM-EV_RING'插入處理检測到一個振鈴信號代碼
Case MSCOMM-EV_RECEIVE'插入接收到設定的字符數時產生該事件代碼
Case MSCOMM-EV_SEND'插入處理發生緩沖器中的字符數低於設定的數值時產生該
事件的代碼End Select
End Sub
(2) 查詢方式
查詢方式,就是每個命令(含數據塊)都要查詢等待對它的回答。詳細使用方法請見下文的實例敘述。

免費論文下載中心 http://www.hi138.com 三、一個完整例子
該程序的設計背景是全軍醫藥信息網上電話撥號用戶前臺软件中的自動撥號部分,為節省篇幅和說明問題,這裏进行了重新編輯,但其本身是完整的。該程序幫助主人進行電話撥號以呼通被叫。
調試環境:LEO 486/50,HiTec MODEM,院內電話脈沖拨號,使用串行口1,PWIN 3.1
程序Form由下列部分组成:List1電話號碼顯示列表;Label1撥號狀態显示;Dial,Canc
el,
Quit三個按鈕;MSCOMM.VBX通信控件。
' ------------
' Visual Basic 3.0 MSCOMM.VBX程序設計:使用MODEM撥號,人工通話
' 程序名:MDIALER.TXT
' 軍事医學科學院計算中心 夏雲,1995.2.12
' 運行:使用VB FILE中的Load Text项裝入,按F5或生成.EXE文件運行
' ------------
Option Explicit
Dim PhoneNumbers$()'電話號碼存儲變量
Dim CancelFlag'Cancel按鈕狀態標誌
Sub Dial(Number$)'撥號例程
Dim DialString$,FromModem$,dummy
'根據脈冲/雙音多頻撥號方式來選擇DT/DP;
'所撥號碼存放在變量PhoneNumbers$(Index)中;
'命令中的分號表示MODEM在撥號後重新回到命令狀態;
'每個命令由回車符Chr$(13)結束;
DialString$="ATDT"+Number$+";"+Chr$(13)
Commi.Settings="2400,N,8,1"'設置幀格式
On Error Resume Next'錯誤恢復
Commi.PortOpen=True'啟動該口工作
If Err Then'如果該口不可啟动,則顯示信息
MsgBox"當前串行通信端口不能工作,請選擇使用另外端口。”
Exit Sub
End if
Commi.InBufferCount=0'清除接收缓沖器
Commi.Output=DialString$'開始撥號
Do'等待MODEM返回“OK”回答
dummy=DoEvents()'進入等待方式,將資源提交系統管理
If Commi.InBufferCount Then'若接收緩沖器中有數據存在,則讀
FromModem$=FromModem$+Commi.Input
If InStr(FromModem$,"OK")Then '是否接收到“OK”
Beep'已經接收到“OK”,發蜂嗚聲
MsgBox"對方電話已經撥通,請摘話機並按回車或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'關閉該口
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'保存狀態
Status$=“正在撥號碼:”+Number$
Dial Number$'撥号例程執行
DialButton.Enabled=True'拨號結束開放Dail,Quit按鈕
DialButton.Enabled=True
CancelButton.Enabled=False'禁止Cancel按鈕
Status=Temp$'恢復狀态
End Sub
Sub Form_Load()
Commi.InputLen=0'設置0值:讀全部接收緩沖器內容
MDialer.Show'显示窗口
List1.AddItem“四環醫學研究院计算中心”
List1.AddItem“軍事醫學科學院情報所張華研究員”
ReDim PhoneNumbers$(0 To List1.ListCount-1)
PhoneNumbers$(0)="1-8233296"
PhoneNumber$(1)="1-8232255"
List1.ListIndex=0'默認第一個號碼
End Sub
Sub List1-DblClick()'列表框選擇號碼啟動撥號
DialButton-Click
End Sub
Sub CancelButton-Click()'Cancel按钮處理程序
CancelFlag=True'标識Cancel鈕已按下
CancelButton.Enabled=False'取消該鈕繼續活動
End Sub
Sub QuitButton-Click()'Quit按鈕
End'結束
End Sub
MSCOMM.VBX對開發Windows平臺下的通信軟件的確方便容易,使用事件驅動能設計良好的後臺通信程序、開發終端仿真軟件和解決更复雜的實際問題。該通信控件不但包括了全部Windows API中關於串行通信的16個函數所完成的功能,而且開拓了更多的使用戶設計方便的對象屬性來滿足不同用戶不同業務的需求。因此我們可以應用上文討論的內容和方法,利用Windows環境,使用VB工具來開發設計所有串行通信的軟件。另外,MSCOMM為了能在下一個高速調制解调設備標準中直接使用,它提供了14.4Kbps一档的速率接口。 免費論文下载中心 http://www.hi138.com
下载论文

論文《Windows環境下的串行數據通信程序設計》其它版本

通信學論文服務

網站聲明 | 聯系我們 | 網站地圖 | 論文下載地址 | 代寫論文 | 作者搜索 | 英文版 | 手機版 CopyRight@2008 - 2017 免費論文下載中心 京ICP备17062730号