<p>Visual Basic通信程序設計</p>
<p></p>
<p>時間：2000/10/12 18:13 作者：孫海健 潘文 錢俞壽  </p>
<p></p>
<p></p>
<p>　　Visual Basic 中通信控件及其在windows平臺下的通信軟件設計方法，并結合具體實例給出了基本的通信程序。 </p>
<p></p>
<p></p>
<p>　　1992年crescent software inc.公司專為vb設計了mscomm.vbx用戶通信控件，它提供了通過串口發送和接收數據的串行通信能力，不但包括了全部windows api中關于串行通信的16個函數所完成的功能，而且開拓了更多的使用戶設計方便的對象屬性來滿足不同用戶不同業務的需求。目前國內眾多的vb資料中很少涉及該通信控件的介紹，本文將詳細介紹mscomm.vbx通信控件及編程方法，并結合工作中的一個實例給出基本通信程序。 </p>
<p></p>
<p></p>
<p>1 mscomm.vbx通信控件描述 </p>
<p></p>
<p></p>
<p>mscomm.vbx通信控件可直接從vb的toolbox中加入窗體form，即可用其進行通信。若toolbox中無此控件，則用tools的custom controls 將mscomm.vbx從windows的system子目錄中加入vb的toolbox中。 </p>
<p></p>
<p></p>
<p>1.1 通信方式 </p>
<p></p>
<p></p>
<p>mscomm.vbx有2種不同的方式來處理和解決各類通信軟件的開發和設計問題 </p>
<p></p>
<p></p>
<p>1、事件驅動。它與c/c++寫windows 軟件時的窗口回調函數類似，是1種功能強大的處理問題的方法。在實際工作中，往往要處理許多通信中的相關事件，例如：當線路數據到達本端或cd線和rts信號線狀態發生變化時，要求我們使用相應的事件來跟蹤和處理，該控件是使用oncomm事件來實現的，它也包括檢測和處理通信錯誤等方面的問題，commevent 值返回最近的通信事件或錯誤的數字代碼。通信控件詳細的錯誤和事件舉例有： </p>
<p></p>
<p></p>
<p>mscomm-er-break 收到1個break signal </p>
<p></p>
<p></p>
<p>mscomm-er-cdto cd 信號超時 </p>
<p></p>
<p></p>
<p>…… </p>
<p></p>
<p></p>
<p>mscomm-ev-cd cd信號改變 </p>
<p></p>
<p></p>
<p>…… </p>
<p></p>
<p></p>
<p>2、查詢方式。由程序設計者負責讀取commevent的值并處理所發生的錯誤或事件。通常簡單的應用程序設計可采用這種辦法。 </p>
<p></p>
<p></p>
<p>1.2 通信控件的屬性 </p>
<p></p>
<p></p>
<p>利用通信控件編制通信程序，關鍵是準確理解設置通信控件的屬性。mscomm.vbx提供了27個關于通信控件方面的屬性，例如： </p>
<p></p>
<p></p>
<p>commport：設置或返回通信口編號。 </p>
<p></p>
<p></p>
<p>settings：設置或返回以字符串形式出現的數據通信格式：波特率、校驗、數據位和停 止位。 </p>
<p></p>
<p></p>
<p>portopen：設置或返回通信口狀態（包括打開和關閉1個通信口） </p>
<p></p>
<p></p>
<p>…… </p>
<p></p>
<p></p>
<p>3、 實例 </p>
<p></p>
<p></p>
<p>本程序應用背景為dcc95型靜電除塵器自動監控系統軟件，解決1個pc工控機（主站）與32個單片機（子站）之間的通信問題。主站與子站之間這總線式網絡結構，采用rs-485通信標準，以問答方式進行數據通信。由于32個子站與主站發送通信命令（下行命令），主站在接收子站發回的相應回答命令（上行命令）后繼續發送下行命令的通信形式。根據系統功能的要求，主站需發送2種類型的命令：（1）同期命令，它由定時器觸發引起，每隔ls周期發送1次；（2）非周期性命令，它由操作者按動相應命令按鈕引起，非周期性發送。自動監控系統軟件安裝在主站上，而通信程序作為自動監控系統軟件的一部分也安裝在主站上。 </p>
<p></p>
<p></p>
<p>本文僅列出調試通信程序時進行試驗用的基本演示程序清單。試驗時，用1臺pc機作為主站，另一臺pc機模擬32個子站的工作，兩臺pc機之間采用rs232c串口通信。往主站的通信演示程序窗體（form）中加入1個通信控件、2個定時器控件和1個命令按鈕控件，通信控件（mscomm1）用于訪問串口，發送和接收數據；periodic定時器控件（periodic）用于控制每秒由主站向各子站發送周期性命令；命令按鈕控件(nonperiodic-command)與nonperiodic定時器控件（nonperiodic）用于發送非周期性命令。數據傳送采用事件驅動的通信方式，根據不同的發送命令設置rtreshlod屬性，從而引起oncomm事件以接收數據。 </p>
<p></p>
<p></p>
<p>2.1 窗體各控件初始化程序 </p>
<p></p>
<p></p>
<p>設置通信串口工作參數，設置periodic定時器的在斷間隔為ls, nonperiodic定時器的中斷間隔為0.5s。 </p>
<p></p>
<p></p>
<p>sub form-load () </p>
<p></p>
<p></p>
<p>mscomm1.commport=2 ’選用com2串行口 </p>
<p></p>
<p></p>
<p>mscomm1.settings="9600，n8，1" ’波特率9600，無奇偶校驗位，8位數據位1位停止位 </p>
<p></p>
<p></p>
<p>mscomm1.inputlen=0 ’input將讀取接收緩沖區的全部內容 </p>
<p></p>
<p></p>
<p>mscomm1.inbuffersize=1024 ’設置接收緩沖區的字節長度 </p>
<p></p>
<p></p>
<p>mscomm1.portopen=true ’打開通信口 </p>
<p></p>
<p></p>
<p>mscomm1.inbuffercount=0 ’清除發送緩沖區數據 </p>
<p></p>
<p></p>
<p>mscomm1.outbuffercount=0 ’清除接收緩沖區數據 </p>
<p></p>
<p></p>
<p>periodic.inteval=100 ’設置ls定時間隔，使遙測命令每隔ls發送1次 </p>
<p></p>
<p></p>
<p>nonperiodic.inteval=500 ’設置0.5s定時間隔，查詢命令按鈕是否處于激活狀態以確定是否發送周期性命令 </p>
<p></p>
<p></p>
<p>command-pressed=false ’命令按鈕為未激活狀態 </p>
<p></p>
<p></p>
<p>during- periodic=false ’周期性命令數據傳輸尚未開始 </p>
<p></p>
<p></p>
<p>during- nonperiodic=false ’非周期性命令數據傳輸尚未開始 </p>
<p></p>
<p></p>
<p>end sub </p>
<p></p>
<p></p>
<p>2.2 非周期性命令發送程序 </p>
<p></p>
<p></p>
<p>根據命令按鈕狀態及周期性命令數據傳輸狀態，在nonperiodic定時器的中斷程序中發送非周期性命令。 </p>
<p></p>
<p></p>
<p>sub nonperiodic-command-click () </p>
<p></p>
<p></p>
<p>command-pressed=true ’命令按鈕激活 </p>
<p></p>
<p></p>
<p>end sub </p>
<p></p>
<p></p>
<p>sub nonperiodic-timer () </p>
<p></p>
<p></p>
<p>if during- periodic=true or command-pressed=false </p>
<p></p>
<p></p>
<p>then exit sub ’若周期性命令數據傳輸尚未結束或命令按鈕處于激活狀態，則退出發送非周期性命令程序。 </p>
<p></p>
<p></p>
<p>command-pressed=false ’命令按鈕恢復為未激活狀態 </p>
<p></p>
<p></p>
<p>call senddata (nonperiodic-command) ’發送非周期性命令 </p>
<p></p>
<p></p>
<p>mscomm1.rthreshold=r-nonperiodic-byte’發送非周期性命令后，設置rthreshold屬性，使主站接收所設定的字節數后引發oncomm事件 </p>
<p></p>
<p></p>
<p>end sub </p>
<p></p>
<p></p>
<p>2.3 periodic定時器程序 </p>
<p></p>
<p></p>
<p>在periodic定時器的中斷程序中發送周期性命令： </p>
<p></p>
<p></p>
<p>sub periodic-timer () </p>
<p></p>
<p></p>
<p>if during- nonperiodic=true then exit sub ’若非周期性命令數據傳輸尚未結束，則退出發送非周期性命令程序。 </p>
<p></p>
<p></p>
<p>during-periodic=true ’設置周期性命令數據傳輸狀態為正在進行中 </p>
<p></p>
<p></p>
<p>call senddata (periodic-command) ’發送周期性命令 </p>
<p></p>
<p></p>
<p>mscomm1.rthreshold=r-periodic-byte ’發送周期性命令后，主站接收r-remot- edata-byte個字節，可引發oncomm 事件 </p>
<p></p>
<p></p>
<p>end sub </p>
<p></p>
<p></p>
<p>2.4 oncomm事件程序 </p>
<p></p>
<p></p>
<p>根據rthreshold屬性設置值，當接收緩存區內接收到相應字節的字符時，引發oncomm事件，在中斷程序中接收數據。 </p>
<p></p>
<p></p>
<p>sub mscomm1-oncomm () </p>
<p></p>
<p></p>
<p>select case mscomm1.commevent ’在此可插入處理各種不同錯誤或事件的代碼 </p>
<p></p>
<p></p>
<p>case mscomm-ev-receive </p>
<p></p>
<p></p>
<p>receivestring$=mscomm1.input </p>
<p></p>
<p></p>
<p>select case mscomm1.rthreshold </p>
<p></p>
<p></p>
<p>case r-periodic-byte ’周期性命令的應答數據 </p>
<p></p>
<p></p>
<p>call disposedata(periodic-command) ’處理接收數據 </p>
<p></p>
<p></p>
<p>during periodic=false ’設置周期性命令數據傳輸狀態為結束 </p>
<p></p>
<p></p>
<p>case r-nonperiodic-byte ’非周期性命令的應答數據 </p>
<p></p>
<p></p>
<p>call disposedata(nonperiodic-command) ’處理接收數據 </p>
<p></p>
<p></p>
<p>during-nonperiodic=false ’設置非周期性命令數據傳輸狀態為結束 </p>
<p></p>
<p></p>
<p>end select </p>
<p></p>
<p></p>
<p>end select </p>
<p></p>
<p></p>
<p>end sub </p>
<p></p>
<p></p>
<p>隨著vb版本的不斷升級，vb將成為最快速、易用、強勁的應用開發工具，是企業級客戶/服務器應用軟件開發的首選工具之一。 </p>