VB串口設置介紹.doc

mscomm.vbx通信控件描述mscomm.vbx通信控件可直接從vb的toolbox中加入窗體form，即可用其進行通信。若toolbox中無此控件，則用tools的custom controls 將mscomm.vbx從windows的system子目錄中加入vb的toolbox中。 1.1 通信方式 mscomm.vbx有2種不同的方式來處理和解決各類通信軟件的開發(fā)和設計問題 1、事件驅(qū)動。它與c/c+寫windows 軟件時的窗口回調(diào)函數(shù)類似，是1種功能強大的處理問題的方法。在實際工作中，往往要處理許多通信中的相關事件，例如：當線路數(shù)據(jù)到達本端或cd線和rts信號線狀態(tài)發(fā)生變化時，要求我們使用相應的事件來跟蹤和處理，該控件是使用oncomm事件來實現(xiàn)的，它也包括檢測和處理通信錯誤等方面的問題，commevent 值返回最近的通信事件或錯誤的數(shù)字代碼。通信控件詳細的錯誤和事件舉例有： mscomm-er-break 收到1個break signal mscomm-er-cdto cd 信號超時 mscomm-ev-cd cd信號改變 2、查詢方式。由程序設計者負責讀取commevent的值并處理所發(fā)生的錯誤或事件。通常簡單的應用程序設計可采用這種辦法。 1.2 通信控件的屬性 利用通信控件編制通信程序，關鍵是準確理解設置通信控件的屬性。mscomm.vbx提供了27個關于通信控件方面的屬性，例如： commport：設置或返回通信口編號。 settings：設置或返回以字符串形式出現(xiàn)的數(shù)據(jù)通信格式：波特率、校驗、數(shù)據(jù)位和停 止位。 portopen：設置或返回通信口狀態(tài)（包括打開和關閉1個通信口） 2、 實例 本程序應用背景為dcc95型靜電除塵器自動監(jiān)控系統(tǒng)軟件，解決1個pc工控機（主站）與32個單片機（子站）之間的通信問題。主站與子站之間這總線式網(wǎng)絡結(jié)構，采用rs-485通信標準，以問答方式進行數(shù)據(jù)通信。由于32個子站與主站發(fā)送通信命令（下行命令），主站在接收子站發(fā)回的相應回答命令（上行命令）后繼續(xù)發(fā)送下行命令的通信形式。根據(jù)系統(tǒng)功能的要求，主站需發(fā)送2種類型的命令：（1）同期命令，它由定時器觸發(fā)引起，每隔ls周期發(fā)送1次；（2）非周期性命令，它由操作者按動相應命令按鈕引起，非周期性發(fā)送。自動監(jiān)控系統(tǒng)軟件安裝在主站上，而通信程序作為自動監(jiān)控系統(tǒng)軟件的一部分也安裝在主站上。 本文僅列出調(diào)試通信程序時進行試驗用的基本演示程序清單。試驗時，用1臺pc機作為主站，另一臺pc機模擬32個子站的工作，兩臺pc機之間采用rs232c串口通信。往主站的通信演示程序窗體（form）中加入:1個通信控件（mscomm1）通信控件用于訪問串口，發(fā)送和接收數(shù)據(jù)；2個定時器控件（periodic）用于控制每秒由主站向各子站發(fā)送周期性命令；（nonperiodic）用于發(fā)送非周期性命令。1個命令按鈕控件(nonperiodic-command) 用于發(fā)送非周期性命令。數(shù)據(jù)傳送采用事件驅(qū)動的通信方式，根據(jù)不同的發(fā)送命令設置rtreshlod屬性，從而引起oncomm事件以接收數(shù)據(jù)。 2.1 窗體各控件初始化程序 設置通信串口工作參數(shù)，設置periodic定時器的在斷間隔為ls, nonperiodic定時器的中斷間隔為0.5s。 sub form-load () mport=2 mscomm1.settings=9600，n8，1 mscomm1.inputlen=0 mscomm1.inbuffersize=1024 mscomm1.portopen=true mscomm1.inbuffercount=0 mscomm1.outbuffercount=0 eval=100 eval=500 command-pressed=false during- periodic=false during- nonperiodic=false 選用com2串行口波特率9600，無奇偶校驗位，8位數(shù)據(jù)位1位停止位input將讀取接收緩沖區(qū)的全部內(nèi)容設置接收緩沖區(qū)的字節(jié)長度打開通信口清除發(fā)送緩沖區(qū)數(shù)據(jù)清除接收緩沖區(qū)數(shù)據(jù)設置ls定時間隔，使遙測命令每隔ls發(fā)送1次設置0.5s定時間隔，查詢命令按鈕是否處于激活狀態(tài)以確定是否發(fā)送周期性命令命令按鈕為未激活狀態(tài)周期性命令數(shù)據(jù)傳輸尚未開始非周期性命令數(shù)據(jù)傳輸尚未開始end sub 2.2 非周期性命令發(fā)送程序 根據(jù)命令按鈕狀態(tài)及周期性命令數(shù)據(jù)傳輸狀態(tài)，在nonperiodic定時器的中斷程序中發(fā)送非周期性命令。 sub nonperiodic-command-click () command-pressed=true 命令按鈕激活 end sub sub nonperiodic-timer () if during-periodic=true or command-pressed=falsethen exit subcommand-pressed=falsecall senddata (nonperiodic-command)mscomm1.rthreshold=r-nonperiodic-byte若周期性命令數(shù)據(jù)傳輸尚未結(jié)束或命令按鈕處于激活狀態(tài)，則退出發(fā)送非周期性命令程序。 命令按鈕恢復為未激活狀態(tài)發(fā)送非周期性命令 發(fā)送非周期性命令后，設置rthreshold屬性，使主站接收所設定的字節(jié)數(shù)后引發(fā)oncomm事件 end sub 2.3 periodic定時器程序 在periodic定時器的中斷程序中發(fā)送周期性命令： sub periodic-timer () if during- nonperiodic=true then exit subduring-periodic=truecall senddata (periodic-command)mscomm1.rthreshold=r-periodic-byte若非周期性命令數(shù)據(jù)傳輸尚未結(jié)束，則退出發(fā)送非周期性命令程序。 設置周期性命令數(shù)據(jù)傳輸狀態(tài)為正在進行中發(fā)送周期性命令發(fā)送周期性命令后，主站接收r-remot-edata-byte個字節(jié)，可引發(fā)oncomm 事件 end sub 2.4 oncomm事件程序 根據(jù)rthreshold屬性設置值，當接收緩存區(qū)內(nèi)接收到相應字節(jié)的字符時，引發(fā)oncomm事件，在中斷程序中接收數(shù)據(jù)。 sub mscomm1-oncomm () select case meventcase mscomm-ev-receive receivestring$=mscomm1.input select case mscomm1.rthreshold case r-periodic-bytecall disposedata(periodic-command)during periodic=falsecase r-nonperiodic-bytecall disposedata(nonperiodic-command)during-nonperiodic=falseend select end select 在此可插入處理各種不同錯誤或事件的代碼周期性命令的應答數(shù)據(jù) 處理接收數(shù)據(jù) 設置周期性命令數(shù)據(jù)傳輸狀態(tài)為結(jié)束非周期性命令的應答數(shù)據(jù)處理接收數(shù)據(jù) 設置非周期性命令數(shù)據(jù)傳輸狀態(tài)為結(jié)束end sub 摘要：本文首先介紹串行通訊的基礎知識，然后結(jié)合示例剖析在VB平臺下的串口通訊的編程技巧。隨著計算機系統(tǒng)的普及與外圍設備技術的發(fā)展，計算機與外圍設備之間的通訊就顯得越來越重要了。由于串行通信是在一根傳輸線上一位一位的傳送信息，所用的傳輸線少，并且可以借助現(xiàn)成的電話網(wǎng)進行信息傳送，因此，特別適合于遠距離傳輸。對于那些與計算機相距不遠的人機交換設備和串行存儲的外部設備如終端、打印機、邏輯分析儀、磁盤等，采用串行方式交換數(shù)據(jù)也很普遍。在實時控制和管理方面，采用多臺微機處理機組成分級分布控制系統(tǒng)中，各CPU之間的通信一般都是串行方式。所以串行接口是微機應用系統(tǒng)常用的接口，而相應的應用程序也成為今年來研究的熱點。本文旨在闡述一般的串口通訊的原理及其程序設計，希望借此能夠拋磚引玉，為更深入的研究打下一定的基礎。一、串行通訊的基本原理所謂串行通信是指外設和計算機間使用一根數(shù)據(jù)信號線,數(shù)據(jù)在一根數(shù)據(jù)信號線上按位進行傳輸，每一位數(shù)據(jù)都占據(jù)一個固定的時間長度。這種通信方式使用的數(shù)據(jù)線少，在遠距離通信中可以節(jié)約通信成本，當然，其傳輸速度比并行傳輸慢。相比之下，由于高速率的要求，處于計算機內(nèi)部的CPU與串口之間的通訊仍然采用并行的通訊方式，所以串行口的本質(zhì)就是實現(xiàn)CPU與外圍數(shù)據(jù)設備的數(shù)據(jù)格式轉(zhuǎn)換（或者稱為串并轉(zhuǎn)換器），即當數(shù)據(jù)從外圍設備輸入計算機時，數(shù)據(jù)格式由位(bit)轉(zhuǎn)化為字節(jié)數(shù)據(jù)；反之，當計算機發(fā)送下行數(shù)據(jù)到外圍設備時，串口又將字節(jié)數(shù)據(jù)轉(zhuǎn)化為位數(shù)據(jù)。二、串口通訊的程序設計原理前面介紹了串行通訊的基本原理，那么如何在程序設計中實現(xiàn)它呢？事實上，這個過程并不復雜，一般有兩種實現(xiàn)途徑：其一就是使用MSCOMM控件，此控件提供很多方便操作的屬性和方法，利用它們可以很方便地實現(xiàn)你的目的；另外一種途徑就是使用Windows API，微軟為開發(fā)者提供了很多相關的串行操作的編程接口，使用這些接口，可以很完成更為強大的功能。限于篇幅以及本文的宗旨，這里著重介紹第一種方法，第二種方法實際思路與第一種方法一樣，不同的是它利用API函數(shù)代替了控件。無論使用哪一種途徑，其基本的操作步驟大致一樣的：首先初始化串口，比如端口號，波特率等屬性，然后打開端口，通過接受緩沖區(qū)讀上行數(shù)據(jù)，通過發(fā)送緩沖區(qū)來寫下行數(shù)據(jù)。最后通過事件驅(qū)動來反映數(shù)據(jù)的到達與發(fā)送過程，另外在通訊過程中的錯誤的產(chǎn)生也可以通過CommEvent屬性來管理。三、VB平臺下的實現(xiàn)使用MSCOMM控件主要是通過事件來處理串行口的交互，即當數(shù)據(jù)到達時，控件的OnComm的事件就會來捕獲或處理這些通訊事件。而OnComm事件也可以用來捕獲和處理通訊錯誤。在實際應用中，一個MSCOMM控件就對應一個串行口，所以如果要處理多個串行口的話，必須有相應數(shù)量的控件與之對應。下面介紹一下此控件的主要屬性：CommPort設置或者返回串行端口號Settings用來設置和返回波特率，奇偶校驗，數(shù)據(jù)位和結(jié)束位PortOpen設置或者返回通訊端口的狀態(tài)，也可以打開和關閉一個端口Input從接受緩沖區(qū)里獲取或刪除數(shù)據(jù)Output給發(fā)送緩沖區(qū)里寫數(shù)據(jù)另外對于OnComm事件來說，每當CommEvent的數(shù)值發(fā)生改變時就會產(chǎn)生這種事件，這就表明要么就是一個通訊事件的產(chǎn)生，要么是一個通訊錯誤產(chǎn)生。CommEvent屬性里面包含了通訊事件或者產(chǎn)生的錯誤的編號。那么為了能夠更加清楚的說明上述問題，下面給出一個例程，例程要實現(xiàn)的功能很簡單，就是在一個過程里給一個特定的串行口發(fā)送數(shù)據(jù)，然后在另外一個過程里實時檢測此串行口以便一旦此串行口的發(fā)送緩沖區(qū)有數(shù)據(jù)就顯示消息，如果發(fā)送空數(shù)據(jù)就會顯示無數(shù)據(jù)的字樣。界面如下： 主要核心代碼如下：Private Sub Command1_Click()If Text1.Text = ThenList1.AddItem 發(fā)送緩沖區(qū)無數(shù)據(jù)Exit SubEnd IfMSComm1.Output = Text1.TextEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub主要進行串口的初始化Private Sub Form_Load()MSComm1.CommPort = 1選擇com1MSComm1.Settings = 9600,N,8,1設置波特率，無奇偶校驗，8數(shù)據(jù)位，1結(jié)束位MSComm1.InputLen = 0讀取全部的輸入緩沖區(qū)MSComm1.PortOpen = True端口打開MSComm1.RThreshold = 10MSComm1.SThreshold = 10End Sub以下就可以進行數(shù)據(jù)的發(fā)送了Private Sub MSComm1_OnComm()所有的事件都可激發(fā)MSComm1的OnComm事件Select Case MSComm1.CommEventCase comEvReceive此處的代碼可以處理當串口的接受緩沖區(qū)里有RThreshold個字符Case