門禁系統(tǒng)原理與VB串口通信

1、門禁系統(tǒng)原理來源:/ 作者：2007-2-19 18:59:33 點擊：次【摘要】國內(nèi)安防領(lǐng)域主流供應商，考勤系統(tǒng)，門禁系統(tǒng),一卡通系統(tǒng)等.最佳的解決方案和貼心的服務!為辦 公室綜合安全解決方案提供更高的安全保護.門禁系統(tǒng)是最近幾年才在國內(nèi)廣泛應用的又一高科技安全設施之一，現(xiàn)已成為現(xiàn)代建筑的智能化標志之一。 在越來越注重商業(yè)情報和安全的今天，對進出一些重要機關(guān)、科研實驗室、檔案館、以及關(guān)系到國計民生 的公用事業(yè)單位的控制中心、民航機場等場所的工作人員，給予進出授權(quán)控制。經(jīng)濟的增長有時引發(fā)犯罪的發(fā)生，對安全感的追求導致現(xiàn)代化樓宇對保安系統(tǒng)的要求也越來越高。樓 宇保安系統(tǒng)不僅包括閉路電視及防盜報警

2、，此外還包括一些門鎖、防盜門、防盜網(wǎng)及保安人員等，以滿足 不了人們?nèi)找嬖黾拥陌踩蟆?保安管理功能，可以設置使用人的權(quán)限和進出時間，可以將使用人的姓名、年齡、職務、相片等 多達18種內(nèi)容的數(shù)據(jù)輸入電腦中，便于查詢統(tǒng)計及驗證身份；-考勤功能，可以根據(jù)實際情況將人員編組分類，針對各種節(jié)假日，工作日進行考勤記錄；-巡更功能，可以記錄保安員巡更的路線，時間以及巡更點發(fā)生的事件如房門損壞，電梯故障等；-多種門禁方式組合，可以設置門鎖為只進不出，長開，定時開關(guān)等多種功能及各種組合；-應急及統(tǒng)計功能，本系統(tǒng)可以在電腦上顯示出指定持卡人所處的物理位置，便于及時聯(lián)系。發(fā)生 火警等緊急情況時，防火門會自動打開，

3、便于逃生，出入口也可以自動打開；當發(fā)生非法進出時，會自動 報警；本系統(tǒng)還可以根據(jù)客戶的需要，打印出各種統(tǒng)計報表。門禁系統(tǒng)屬公共安全管理系統(tǒng)范疇。在建筑物內(nèi)的主要管理區(qū)、出入口、電梯廳、主要設備控制中心 機房、貴重物品的庫房等重要部位的通道口，安裝門磁開關(guān)、電控鎖或讀卡機等控制裝置，由中心控制室 監(jiān)控，系統(tǒng)采用計算機多重任務的處理，能夠?qū)Ω魍ǖ揽诘奈恢谩⑼ㄐ袑ο蠹巴ㄐ袝r間等實時進行控制或 設定程序控制，適應一些銀行、金融貿(mào)易樓和綜合辦公樓的公共安全管理。門禁系統(tǒng)作用在于管理人群進出管制區(qū)域，限制未授權(quán)人仕進出特定區(qū)域，并使已授權(quán)者在進出上更 簡捷。系統(tǒng)可用感應卡、指紋、密碼等，作為授權(quán)識別，通過

4、控制機編程，記錄進出人仕時間日期，并可 配合警報及閉路電視系統(tǒng)以達致最佳管理。適用于各類型辦公室、計算機室、數(shù)據(jù)庫、停車場及倉庫等。出入口門禁控制系統(tǒng)采取以感應卡來取代用鑰匙開門的方式。使用者用一張卡可以打開多把門鎖，對門 鎖的開啟也可以有一定的時間限制。如果卡丟失了，不必更換門鎖，只需將其從控制主機中注銷。出入口 門禁控制系統(tǒng)是通過對出入口的準入情況進行控制、管理和記錄的設備，對何人何時在何地進行詳細跟蹤， 以實現(xiàn)中心對出入口的24小時控制、*作、監(jiān)視及管理。每一個出入口設置一個讀卡器，所讀取的門禁卡參數(shù)經(jīng)由控制器判斷分析：準入則電鎖打開，人員可 自行通過。禁入則電鎖不動作而且立即報警并作出

5、相應的記錄；用戶可以選擇各種類型的讀卡器：磁卡讀 卡器、韋根式讀卡器、感應式讀卡器、免持式讀卡器、遙距式紅外線讀卡器，也可選用數(shù)字密碼鍵盤開鎖; 管理軟件不僅可以對不同出入口讀卡器的開啟時間、準入時間進行編程，還可以對每一張門禁卡允許進入 的區(qū)域、時間進行限制防止人員“誤入歧途”，并可隨時查詢出入情況；可根據(jù)用戶的具體要求定做考勤軟 件，統(tǒng)計加班時間、遲到時間、次數(shù)，并計算當月應得工資、應扣工資及實得工資等；對于單位領(lǐng)導等特 別人員，可以有特殊的權(quán)限設定，從而達到對每個出入口和每個出入人員的單獨編程、統(tǒng)一管理；對于整 個系統(tǒng)的每個動作，如哪扇門開啟，時間多長，是誰在開門等情況，管理中心全部記錄

6、在案。一旦有事故 發(fā)生，這些記錄將成為有力和無法更改的證據(jù)。系統(tǒng)具有防返傳功能：防止有人進入某區(qū)域后，將卡回傳給區(qū)域外企圖用同一張卡進入的另一人員； 具有人員追蹤功能：在外門未關(guān)閉之前，無法打開內(nèi)門；若發(fā)生強行破門、惡意破壞讀卡器或鍵盤、無效 卡或錯誤密碼企圖開門等不正常事件，管理中心立即獲知并提醒值班警衛(wèi)。系統(tǒng)同時啟動現(xiàn)場探照燈、錄 像機等相關(guān)設備。感應卡特點因為感應卡的上市，使用者再也不需要攜帶鑰匙，更免除了鑰匙被復制的煩惱，再也不必耽心財物可 能蒙受損失。感應式訊號發(fā)送器的封裝形式有許多種，包括卡片式、鑰匙圈式、筆心式、玻璃管式、麥克 筆.等等，體積有大小差別，而體積的大小往往與感應距離

7、成正比，一般來說，使用人員于門禁及停車 場管制時，為了方便攜帶，通常做成卡片式，故俗稱感應卡。動作原理:感應卡(Promixity Card)一般以接觸卡稱之，磁卡在使用時要有刷卡的動作以達到管制目的。通常一張感應卡中有IC芯片、感應線圈及電容原件。感應卡為發(fā)射應答端，而感應式卡片閱讀機為接收端， 類似發(fā)電機，持續(xù)發(fā)送頻率。當卡片靠近卡片閱讀機發(fā)射頻率的范圍內(nèi)時，卡片內(nèi)的線圈會接受此頻率并 產(chǎn)生能量，此能量儲存在電容器內(nèi)，當能量到達激磁的狀態(tài)時，會將卡片中IC芯片上所燒錄的密碼發(fā)送 給卡片閱讀機卡片閱讀機辨識過后，便可開門，坊間各廠牌的卡片閱讀機所發(fā)射出的頻率不同，故卡片不 會有互通并可使用狀

8、況發(fā)生。設置門禁管理系統(tǒng)主要目的是保證上述區(qū)域及區(qū)域內(nèi)設備安全，便于人員的合理流動，對進入這些重 要區(qū)域的人員實行各種方式的進出許可權(quán)管理，以便限制人員隨意進出。當員工要進入被管制的區(qū)域時， 必須先在門旁的讀卡器中刷卡，門才能被打開。每道門邊的讀卡器均通過現(xiàn)場控制介面單元和系統(tǒng)集中控 制器受到監(jiān)控終端的控制。每一張卡根據(jù)系統(tǒng)設置，只能在規(guī)定時間內(nèi)打開規(guī)定范圍的門。同時防止外來 人員隨便闖入，如有人強行破門或下班沒有關(guān)門，門禁裝置將發(fā)出報警信號，監(jiān)控終端上馬上顯示報警的 門號。門禁系統(tǒng)設計之目的是為實現(xiàn)人員出入權(quán)限控制及出入信息記錄。門禁系統(tǒng)原理1、對需控制的出入口，安裝受電鎖裝置和感應器(如：

9、電子密碼鍵盤、讀卡器、指紋閱讀器等)控制 的電控門；2、授權(quán)人員持有效證卡，或密碼和自己的指紋，就可以開啟電控門；3、所有出入資料，都被后臺計算機記錄在案；通過后臺計算機可以隨時修改授權(quán)人員的進出權(quán)限；4、該系統(tǒng)還可以加入考勤系統(tǒng)功能；系統(tǒng)要求高度集成化：實現(xiàn)與其他系統(tǒng)的完全聯(lián)動，包括：消防報警系統(tǒng)、CCTV系統(tǒng)、電梯系統(tǒng)、資訊通訊系統(tǒng)、 停車場系統(tǒng)及樓宇控制系統(tǒng)等。高保安性：要求整個系統(tǒng)性能穩(wěn)定、安全可靠，防偽性強。冗余率大：具備大容量的可擴充性，如需擴充設備，不用另外增加主控部分，只需增加前端設備和現(xiàn)場控 制單元即可。系統(tǒng)功能權(quán)限管理：對人員出入權(quán)限設置、更改、取消、恢復。存儲功能：存儲人

10、員出入的日期、時間、卡號、是否非法等相關(guān)信息。集中管理功能：后臺管理工作站可建立用戶資料庫，定期或?qū)崟r采集每個出入口的進出資料，同時可 按各用戶進行匯總、查詢、分類、打印等。異常報警：非法闖入、門鎖被破壞等情況出現(xiàn)時系統(tǒng)會發(fā)出實時報警信息傳輸?shù)焦芾碇行摹Ｂ?lián)動功能：可實現(xiàn)消防聯(lián)動，當出現(xiàn)火警等情況時，由中心統(tǒng)一開啟出入通道，可啟動CCTV實現(xiàn)聯(lián) 運實時監(jiān)控。門禁系統(tǒng)的微機管理功能系統(tǒng)管理：這部分軟件的功能是對系統(tǒng)所有的設備和數(shù)據(jù)進行管理，有以下幾項內(nèi)容設備注冊比如在增加控制器或是卡片時，需要重新登記，以使其有效；在減少控制器或是卡片遺失、人員變動 時使其失效。級別設定在已注冊的卡片，哪些可以通過

11、那些門，哪些不可以通過。某個控制器可以讓哪些卡片通過，不允許 哪些通過。對于計算機的*作要設定密碼，以控制哪些人可以*作。時間管理可以設定某些控制器在什么時間可以或不可以允許持卡人通過；哪些卡片在什么時間可以或不可以通 過哪些門等。數(shù)據(jù)庫的管理對系統(tǒng)所記錄的數(shù)據(jù)進行轉(zhuǎn)存、備份、存檔和讀取等處理。事件記錄：系統(tǒng)正常運行時，對各種出入事件、異常事件及其處理方式進行記錄，保存在數(shù)據(jù)庫中， 以備日后查詢。報表生成：能夠根據(jù)要求定時或隨機地生成各種報表。比如，可以查找某個人在某段時間內(nèi)的出入情 況，某個門在某段時間內(nèi)都有誰進出等，生成報表，并可以用打印機打印出來。進而組合出“考勤管理”、“巡 更管理”、

12、“會議室管理”等。網(wǎng)間通信：系統(tǒng)不是作為一個單一的系統(tǒng)存在，它要向其它系統(tǒng)傳送信息。比如在有非法闖入時，要 向電視監(jiān)視系統(tǒng)發(fā)出信息，使攝像機能監(jiān)視該處情況，并進行錄象。所以要有系統(tǒng)之間通信的支持。管理系統(tǒng)除了完成所要求的功能外，還應有漂亮、直觀的人機界面，使人員便于*作。門禁系統(tǒng)的組成被控制的門；控制器；門磁鎖；讀卡器及卡片；手動按鈕；鑰匙；指示燈；與上位機通訊的線纜；上 位PC機；專用軟件門禁系統(tǒng)的功能刷卡開門：若卡號不對或?qū)俸诿麊螌㈤]門并報警手動按鈕開門：門內(nèi)人員出門用鑰匙開門：門禁系統(tǒng)管理員使用上位機指令開關(guān)門：在特殊情況下由上位機指令門的開關(guān)門的狀態(tài)及被控信息記錄到上位機中:可方便的進

13、行查詢上位機負責卡片的管理：發(fā)放卡片及登錄黑名單走入門禁市埸傳統(tǒng)的個人身份鑒別手段已不能完全滿足現(xiàn)代社會經(jīng)濟活動和社會安全防范的需要。從消除人為不安 全因素看，只有不易被他人代替、仿制、甚至其本人也無法轉(zhuǎn)讓的身份識別憑證才能勝任。因此，從易用 性、安全性、成熟性和造價等方面綜合比較，隨著IT （信息技術(shù)）的不斷前進，隨著識別技術(shù)的不斷成熟， 隨著計算機技術(shù)的飛速發(fā)展，門禁技術(shù)發(fā)展迅猛，正以驚人的迅度從傳統(tǒng)的鍵盤、磁卡式向感應卡、智能 卡及多功能卡的方向發(fā)展。現(xiàn)在門禁系統(tǒng)甚至可以利用衛(wèi)星網(wǎng)絡提供全球門禁服務。從門禁系統(tǒng)迅猛的成 長迅度可以看出該產(chǎn)品的市埸已逐漸成熟，一改往日報警和監(jiān)控產(chǎn)品一統(tǒng)天下

14、的局面，由專家最近執(zhí)行的 預測表明：感應式門禁系統(tǒng)的市埸正以每年300%的驚人速度增長。門禁技術(shù)的發(fā)展大部分人認為門禁僅是一種進行出入門控制的設備，最典型的就是傳統(tǒng)的門邊安裝的鍵盤控制器或磁 卡讀卡器，出入者為了獲得進入權(quán)必需先刷卡。然而現(xiàn)在門禁已有更先進的技術(shù)和新的應用市埸，現(xiàn)在應 用于門禁系統(tǒng)的技術(shù)有：條形碼、圖形ID、磁條形碼、韋根式、感應式、智能碼、生物辨識等。其中感應 式門禁和生物辨識門禁將成為門禁發(fā)展的兩大趨勢。這些門禁系統(tǒng)所采用的技術(shù)及所能達到的安防級別互不相同。例如：光學技術(shù)應用于條形碼及圖形ID 系統(tǒng)中以辨別貯存在條形碼及圖形ID中的信息；電磁技術(shù)則應用于磁卡門禁系統(tǒng)中，當持

15、卡人刷磁卡時系 統(tǒng)將讀取允許進入的磁特性；韋根技術(shù)極為巧妙，仍屬電磁學的范疇；感應式技術(shù)通常使用的頻率一般在 110125KHz，頻率越強，感應式門禁系統(tǒng)的讀卡距離越遠，隨著技術(shù)的不斷完善，頻率為13.56MHz 感應式門禁系統(tǒng)的讀卡距離已可達到將近1米，這種門禁系統(tǒng)已有了許多其它的應用領(lǐng)域，例如：停車場、 各種收費系統(tǒng)等。當然最安全的門禁系統(tǒng)應是能辨識人體生物特征，而不是辨識人所持物體特征的系統(tǒng)， 例如：利用人體獨有的生物特征的生物辨識系統(tǒng)可辨識指紋和瞳孔結(jié)構(gòu)，這將是門禁系統(tǒng)的最高境界，但 價格極為昂貴，難以為廣大用戶所接受。VB串口通信目前，Visual Basic （簡稱VB）已成為WI

16、NDOWS系統(tǒng)開發(fā)的主要語言，以其高效、簡 單易學及功能強大的特點越來越為廣大程序設計人員及用戶所青睞。VB支持面向?qū)ο蟮某?序設計，具有結(jié)構(gòu)化的事件驅(qū)動編程模式并可以使用無限擴增的控件。在VB應用程序可以方便地調(diào)用WINDOWS API函數(shù)，使得編程效率提高，應用功能增強。利用VB提供的這些功能，我們可以有三種方法完成串口通信。一種是用VB提供的具有 強大功能的通信控件;另一種方法是調(diào)用WINDOWS API函數(shù)，使用WINDOWS提供的通 信函數(shù)編寫移植性強的應用程序;第三是利用文件的輸入/輸出完成，該方法簡便易行，但 有一定的局限性。一、利用通信控件（MSCOMM）完成串口通信VB提供了

17、通信控件MSCOMM，文件名為MSCOMM. VBX。該控件可設置串行通信的數(shù) 據(jù)發(fā)送和接收，對串口狀態(tài)及串行通信的信息格式和協(xié)議進行設置。在通信過程中可以觸發(fā) OnComm事件，在該事件過程進行數(shù)據(jù)檢驗處理及檢錯，還可以通過編程訪問CommEvent 屬性來了解通信的情況，進行收發(fā)數(shù)據(jù)的處理。每個通信控件對應一個串口，如果要訪問多 個通信口，則要設計多個通信控件。1、通信控件的事件及基本屬性（1）事件OnComm：通信控件只提供了一個事件，該事件的觸發(fā)可以對串口的通信事件及錯誤進行處 理。通過對CommEvent屬性的判斷可知當前的通信錯誤和事件，分別對每個CommEvent值 進行編程就完

18、成了對各個錯誤和事件的處理。如：CommEvent = MSCOMMEVSEND表 示發(fā)送事件。這些信息可從VB提供的常量文件CONSTANT. TXT中查出。（2）屬性CommPort ：設置通信控件與哪個串口相連接，設置并返回通信口號。Setting :設置通信的信息格式，為字符型。順序為：波特率、校驗、數(shù)據(jù)位、停止位。PortOpen :布爾型、開關(guān)通信口。InputLen :從接收緩沖區(qū)讀取字符個數(shù)。Input , Output :讀取接收緩沖區(qū)或?qū)懭氚l(fā)送緩沖區(qū)字符。以上五種屬性對串口完成基本的設置和操作，下面的三種屬性是描述如何利用VB提供的 事件驅(qū)動機制來實現(xiàn)通信。CommEven

19、t :返回通信過程中產(chǎn)生的錯誤信息及事件，了解通信狀況。SThreshold :設置并返回不觸發(fā)OnComm事件時發(fā)送緩沖區(qū)被允許的最少字符數(shù)。當緩沖 區(qū)的字符少于設置的值時，則觸發(fā)OnComm事件，并把CommEvent設為 MSCOMMM EVSEND。當 SThreshold = 0 則禁止發(fā)送觸發(fā)OnComm 事件，當 SThreshold =1則發(fā)送緩沖區(qū)為空時就觸發(fā)OnComm事件。利用這一屬性，就可完成發(fā)送數(shù)據(jù)后的一 系列操作。如：對剛發(fā)送的數(shù)據(jù)進行處理，當串口是和MODEM通信時，發(fā)送完數(shù)據(jù)后可 進行拆除線路聯(lián)接、掛機等操作。RThreshold :設置并返回不觸發(fā)OnComm

20、事件時接收緩沖區(qū)被允許的最多字符數(shù)。當緩沖 區(qū)的字符多于設置的值時，則觸發(fā)OnComm事件，并把CommEvent設為 MSCOMMEV RECEIVE，當 RThreshold = 0 則禁止接收觸發(fā) OnComm 事件，當 RThreshold = 1則接收緩沖區(qū)有一個或更多字符時就觸發(fā)OnComm事件。利用這一屬性， 就可完成對串口接收數(shù)據(jù)的處理。2、利用通信控件的實例Sub Form1 load （）form1. show設置COM1comm1. commport = 1comm1. Setting = 9600，o，8，1”波特率:9600奇校驗，8位數(shù)據(jù)，1位停止位comm1. I

21、nputlen = 0 讀取接收緩沖區(qū)的所有字符comm1. OutBufferSize = 512 設置發(fā)送緩沖區(qū)為512字節(jié)comm1. InBufferSize = 512 設置接收緩沖區(qū)為512字節(jié)comm1. SThreshold = 0，禁止發(fā)送事件comm1. RThreshold = 1 每一個字符到接收緩沖區(qū)都觸發(fā)接收事件設置COM2comm2. commport = 2comm2. Setting = 2400，e，8，1波特率:2400偶驗，8位數(shù)據(jù)，1位停止位comm2. Inputlen = 0 讀取接收緩沖區(qū)的所有字符comm2. OutBufferSize = 5

22、12 設置發(fā)送緩沖區(qū)為512字節(jié) comm2. InBufferSize = 512 設置接收緩沖區(qū)為512字節(jié) comm2. SThreshold = 1 發(fā)送緩沖區(qū)空觸發(fā)發(fā)送事件comm2. RThreshold = 0 禁止接收事件打開 COM1，COM2comm1. Portopen = True comm2. Portopen = True Timer1. interval = 5000End SubSub Comm1 OnComm ()Dim Inbuff as stringDim i as integer，n as integer，t as integerSelect Case

23、Comml. CommEven case MSCOMMEVRECEIVEInbuff = Comml. Inputn = len ( Inbuff)For i = 1 to nt = Asc (Mid ( Inbuff , i , 1) ) or &HFFprint fNext iEnd SelectEnd SubSub Comm2 OnComm ()Select Case Comm2. CommEventCase MSCOMM EVSENDPrint timeEnd SelectEnd SubSub Timer1Timer ()Comm2. output = Second (Now)End

24、sub二、通過調(diào)用API函數(shù)實現(xiàn)通信以上說明了用VB提供的控件實現(xiàn)通信的方法，只要理解了 VB控件的機制就很容易完成 對串口的操作，但可移植性差。但VB可以很容易調(diào)用API函數(shù)實現(xiàn)通信。1、VB對API的調(diào)用VB使用動態(tài)鏈接庫DLL (Dynamic Link Libraries)的能力，大大擴展了其功能。WINDOWS 本身提供了 API函數(shù)包括三大動態(tài)鏈接庫：KERNEL庫、GDI庫、USER庫，通過VB用 戶可以直接調(diào)用這些庫中的函數(shù)。調(diào)用之前，必須首先在VB中聲明。該聲明可為模塊級 或窗體級，當作為模塊級聲明時，其作用域為所有FORM和MODULE，而作為窗體級聲明 時其作用域為該聲明

25、所在的FORM。VB調(diào)用DLL的格式：Declare Sub 過程名 Lib庫名 Alias 別名(ByVal 參數(shù) As 類型)Declare Function 函數(shù)名 Lib庫名 Alias 別名(ByVal 參數(shù) As 類型)As 類型 在聲明中：DECLARE表示聲明DLL中的函數(shù)，當聲明是不具有返回值的過程時用SUB關(guān) 鍵字，而如果調(diào)用的函數(shù)具有返回值，則必須用FUNCTION關(guān)鍵字將其聲明為函數(shù)并在聲明語句的最后用AS指明函 數(shù)返回值的類型。LIB關(guān)鍵字表示當前聲明的過程或函數(shù)是庫名所指定的庫中函數(shù)而非VB 本身的函數(shù)。庫名，就是對應動態(tài)鏈接庫的名稱，其中通信函數(shù)在USER庫中。B

26、yVal關(guān) 鍵字將原參數(shù)數(shù)據(jù)類型一一對應到VB類型中。WINDOWS的HELP文件 WINSDK. HLP中包含了完整的 WINDOWS API函數(shù)信息，可 用該文件查看聯(lián)機函數(shù)、數(shù)據(jù)結(jié)構(gòu)及錯誤信息。2、API提供的通信函數(shù)為了方便說明，我們將有關(guān)通信的函數(shù)及相關(guān)的數(shù)據(jù)結(jié)構(gòu)放在全局模塊中，文件名為COMM.BAS (見API編程函數(shù)實例)。以下是這些函數(shù)的基本介紹：OpenComm ( IpComName As String , wInQueue As Inte-ger , wOutQueue As Integer) IpComName :設備名，以“COMn”的形式來說明，n為設備號;wIn

27、Queue、wOutQueue : 分別以字節(jié)為單位說明發(fā)送、接收緩沖區(qū)的大小。該函數(shù)調(diào)用成功返回打開的設備號，否則 返回一負數(shù)代表錯誤信息碼。SetCommState ( IpDCB As DCB)IpDCB :是DCB結(jié)構(gòu)存放設備所希望的通信設置(DCB結(jié)構(gòu)如COMM.BAS中所示)， 其中DCB的ID成員必須標識該設備。如果函數(shù)調(diào)用成功返回0 ;否則，返回值小于0。ReadComm(nCid As Integer， IpBuf As String，nSize As Integer)WriteComm(nCid As Integer， IpBuf As String，nSize As In

28、-teger)這是用來對通信設備進行讀寫的函數(shù)，nCid :說明要讀寫的通信設備號，IpBuf :為讀寫 緩沖區(qū)，nSize :為要讀寫的字節(jié)數(shù)。如果讀寫成功，返回讀寫的字節(jié)數(shù)，否則是小于0的 值，并且其絕對值為讀寫的字節(jié)數(shù)。Closecomm (nCid As Integer)該函數(shù)關(guān)閉nCid所指定的通信設備，并且釋放分配給設備的發(fā)送，接收緩沖存儲器，調(diào)用 成功返回0 ;否則，返回值小于0。BuildCommDCB( IpDef As String，IpDCB As DCB)lpDef :為一字符串指定設備控制信息，此字符串具有MS-DOS中MODE命令所使用的 參數(shù)形式。IpDCB :為

29、一 DCB數(shù)據(jù)結(jié)構(gòu)。該函數(shù)將IpDef字符串轉(zhuǎn)換成串行設備控制塊 (DCB) 代碼。GetCommError (nCid As Integer，IpStat As COMSTAT)該函數(shù)檢取nCid指定的設備最近的錯誤值和當前狀態(tài)，IpStat ：是COMSTAT結(jié)構(gòu)，具體 形式如COMM.BAS中所定義的。返回值為COMM.BAS中帶CE-的常量的某種組合。3.用API函數(shù)編程實例這個例子是一仿真發(fā)送機，將從鍵盤輸入的字符發(fā)送給COM端口。在FORM中加一按鈕 COMMAND1來關(guān)閉通信口。Type DCBId As String 3 1BaudRate As IntegerByteSize

30、 As String 3 1Parity As String 3 1StopBits As String 3 1RlsTimeout As IntegerCtsTimeout As IntegerDsrTimeout As IntegerBits1 As String 3 1Bits2 As String 3 1XonChar As String 3 1XoffChar As String 3 1XonLim As IntegerXoffLim As IntegerPeChar As String 3 1EofChar As String 3 1EvtChar As String 3 1TxD

31、elay As Integer End TypeType COMSTATBits As String 3 1 cbInQue As Integer cbOutQue As Integer End TypeDeclare Function OpenComm Lib User( ByVal IpComName AsString , ByVil wInQueue As Integer , ByVil wOutQueue As Integer) As IntegerDeclare Function SetCommState Lib User7( IpDCB As DCB)As IntegerDecla

32、re Function ReadComm Lib User7 (ByVal nCid As Integer , ByMl IpBuf As String , ByVal nSize As Integer) As IntegerDeclare Function WriteComm Lib User7 (ByVal nCid As Integer , ByMl IpBuf As String , ByVal nSize As Integer) As IntegerDeclare Function Closecomm Lib User ( ByVal nCid As Integer) As Inte

33、gerDeclare Function BuildCommDCB Lib User7(ByVal IpDef AsString , IpDCB As DCB) As IntegerDeclare Function GetCommError Lib User7(ByVal nCid AsInteger , IpStat As COMSTAT) As IntegerGlobal IpDCB As DCBGlobal nCid As Integer Sub Forml load ()Dim comset As Stringcomset =COM2”nCid = OpenComm (comset ,

34、512 , 512)打開COM2設置接收，發(fā)送緩沖區(qū)為512字 節(jié)If nCid 0 Then 處理錯誤MsgBox “不能打開 COM: + Str (nCid) + “Error Num2 ber : + Str (nCid) , 16 end end ifCommand1. Caption = “關(guān)閉通信口”，設置串口 DCB設備控制塊 comset = “COM2 :9600 , n , 8 , 1If (BuildCommDCB (comset , LpDCB) ) ThenMsgBox “不能建立 COMM DCB” , 16 end end ifLpDCB. Id = Chr (

35、nCid)If (SetCommState (LpDCB) ) Then 設置串口狀態(tài)MsgBox不能設置串口狀態(tài)”，16 end endifEnd SubSub Forml-keyPress (keyAscii As Integer)Dim nsend As integer , x As integerDim Lpstate As COMSTAT 通信狀態(tài)塊Static inbuff as stringinbuff = imbuff + Chr ( KeyAscii)x = GetCommError (ncid , Lpstate)讀取當前串口錯誤或狀態(tài)if lpstate. cbOutQue 512 Then 送緩沖區(qū)有空間否？Nsend = WriteComm(nCid，i