VB串口設(shè)置介紹.doc

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