【文章內(nèi)容簡(jiǎn)介】 格。 MSComm控件串口通訊作為一種古老而又靈活的通訊方式，被廣泛地應(yīng)用于PC機(jī)間的通訊以及PC機(jī)和單片機(jī)之間的通訊之中。提到串口通訊的編程，人們往往立刻想到C、匯編等對(duì)系統(tǒng)底層操作支持較好的編程語(yǔ)言以及大串繁瑣的代碼。實(shí)際上，只要我們借助相關(guān)ActiveX控件的幫助，即使是在底層操作一向不被人看好的VB中，一樣能夠?qū)崿F(xiàn)串口通訊，甚至其實(shí)現(xiàn)方法和C、匯編相比，要更加快捷方便。在VisualBasic中有一個(gè)名為MicrosoftCommunicationControl（簡(jiǎn)稱MSComm）的通訊控件。我們只要通過對(duì)此控件的屬性和事件進(jìn)行相應(yīng)編程操作，就可以輕松地實(shí)現(xiàn)串口通訊。 MSComm控件的主要屬性、事件一、MSComm的屬性由于MSComm控件屬性很多，在此僅介紹與實(shí)現(xiàn)串口通訊密切相關(guān)的核心屬性。Commport：設(shè)置通訊所占用的串口號(hào)。如設(shè)成1（默認(rèn)值），表示對(duì)Com1進(jìn)行操作。Setting：對(duì)串口通訊的相關(guān)參數(shù)。包括串口通訊的比特率，奇偶校驗(yàn)，數(shù)據(jù)位長(zhǎng)度、停止位等。其默認(rèn)值是“9600,N,8,1”，表示串口比特率是9600bit/s，不作奇偶校驗(yàn)，8位數(shù)據(jù)位，1個(gè)停止位。Portopen：設(shè)置串口狀態(tài)，值為True時(shí)打開串口，值為False時(shí)關(guān)閉串口。Input：從輸入寄存器讀取數(shù)據(jù)，返回值為從串口讀取的數(shù)據(jù)內(nèi)容，同時(shí)輸入寄存器將被清空。Ouput：發(fā)送數(shù)據(jù)到輸出寄存器。InBufferCount：設(shè)置輸入寄存器所存儲(chǔ)的字符數(shù)，當(dāng)將其值設(shè)為0時(shí)，則輸入寄存器將被清空。InputMode：設(shè)置從輸入寄存器中讀取數(shù)據(jù)的形式。若值為0，則表示以文本形式讀?。恢禐?，則表示以二進(jìn)制形式讀取。OutBufferCount：設(shè)置輸出寄存器所存儲(chǔ)的字符數(shù)，當(dāng)將其值設(shè)為0時(shí)，則輸出寄存器將被清空。RThreshold：設(shè)置在MSComm控件設(shè)置CommEvent屬性為EvReceive并產(chǎn)生OnComm事件之前要接受的字符數(shù)。CommEvent屬性：返回最近的通訊事件或錯(cuò)誤。通過對(duì)它具體屬性值的查詢，我們就可以獲得通訊事件和通訊錯(cuò)誤的完整信息。當(dāng)其值是EvReceive時(shí)表示接收到數(shù)據(jù)。二、MSComm的事件除了公共事件之外，MSComm只有一個(gè)OnComm事件。當(dāng)CommEvent屬性值變化時(shí)將發(fā)生OnComm事件，指示發(fā)生一個(gè)通訊事件或錯(cuò)誤。當(dāng)我們?cè)O(shè)置Rtheshold屬性值為0時(shí)，將使得捕獲EvReceive事件無(wú)效。 VB程序設(shè)計(jì) 程序詳細(xì)設(shè)計(jì)VB程序詳細(xì)設(shè)計(jì)請(qǐng)見附錄1。 系統(tǒng)界面系統(tǒng)界面如圖53所示圖53 PC機(jī)接收數(shù)據(jù)軟件界面 VB程序設(shè)計(jì)中遇到的問題與解決方法在系統(tǒng)設(shè)計(jì)中出現(xiàn)了無(wú)法接收、接收亂碼、接收數(shù)據(jù)不完整等現(xiàn)像。經(jīng)過排查和重新設(shè)置接收模式、接收方式、處理方法等實(shí)現(xiàn)了正確接收。結(jié) 論通信技術(shù)目前在很多測(cè)控系統(tǒng)中廣泛被使用，而且遠(yuǎn)距離的通信使用的更為突出，本系統(tǒng)的RS 232C只是用于近距離的通信，在改進(jìn)的系統(tǒng)中使用RS 485可以擴(kuò)大傳輸距離，并是系統(tǒng)穩(wěn)定性增強(qiáng)。對(duì)于給出的簡(jiǎn)單接口電路具有成本低和占用印制版面積小的優(yōu)點(diǎn)。通過實(shí)驗(yàn)測(cè)定的元件取值具有廣泛的適用性。上述電路在實(shí)驗(yàn)中開發(fā)的手持式通用秒表器中得到應(yīng)用。實(shí)際應(yīng)用中與各種品牌多臺(tái)PC的通信皆正確，從而證明了本設(shè)計(jì)的可靠性。而針對(duì)集散控制系統(tǒng)的廣泛應(yīng)用，提出了一種新的由一臺(tái)PC機(jī)和多臺(tái)單片機(jī)組成的一個(gè)小型集散控制系統(tǒng)的結(jié)構(gòu)，實(shí)現(xiàn)了PC機(jī)與多臺(tái)單片機(jī)間的通信任務(wù)。本人論述本文創(chuàng)新點(diǎn)針對(duì):既充分利用PC機(jī)豐富的軟硬件資源實(shí)現(xiàn)友好的人機(jī)界面，又通過RS232C/485總線結(jié)構(gòu)與8251/89C51單片機(jī)進(jìn)行通信，對(duì)一臺(tái)或多臺(tái)單片機(jī)進(jìn)行數(shù)據(jù)采集和處理。在實(shí)踐中證明資源的實(shí)用性，從而說(shuō)明單片機(jī)技術(shù)和PC機(jī)技術(shù)在現(xiàn)實(shí)生活中都起著不可取代的作用，而結(jié)合這兩種技術(shù)的應(yīng)用有著極大的發(fā)展前景。單片機(jī)和PC機(jī)串行通信技術(shù)有著其特有的魅力，現(xiàn)已經(jīng)在工業(yè)、農(nóng)業(yè)、科研等各個(gè)領(lǐng)域廣泛地應(yīng)用。它憑著成本低、實(shí)現(xiàn)簡(jiǎn)單等特點(diǎn)，在單片機(jī)與PC機(jī)的通信中占著一席之地。致 謝本論文是在我的導(dǎo)師高玉芹老師的親切關(guān)懷和悉心指導(dǎo)下完成的。她嚴(yán)肅的科學(xué)態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神，精益求精的工作作風(fēng)，深深地感染和激勵(lì)著我。從課題的選擇到項(xiàng)目的最終完成，高老師老師多次詢問研究進(jìn)程，并為我指點(diǎn)迷津，幫助我開拓研究思路，精心點(diǎn)撥、熱忱鼓勵(lì)，始終給予我細(xì)心的指導(dǎo)和不懈的支持。這么久以來(lái)，高老師不僅在學(xué)業(yè)上給我以精心指導(dǎo)，同時(shí)還在思想、生活上給我以無(wú)微不至的關(guān)懷，在此謹(jǐn)向高老師致以誠(chéng)摯的謝意和崇高的敬意。對(duì)高老師的感激之情是無(wú)法用言語(yǔ)表達(dá)的。 同時(shí)感謝徐州工程學(xué)院院長(zhǎng)、信電工程系主任、書記、老師們等為我提供了良好的學(xué)習(xí)和研究條件，謹(jǐn)向各位同仁表示誠(chéng)摯的敬意和謝忱。在此，我還要感謝在一起愉快的度過大學(xué)生活的各位同學(xué)、朋友，正是由于你們的幫助和支持，我才能克服一個(gè)一個(gè)的困難和疑惑，直至本文的順利完成。特別感謝我的兄弟姐妹們，因?yàn)樗麄儯ㄋ齻儯?duì)本課題做了不少工作，給予我不少的幫助。在論文即將完成之際，我的心情無(wú)法平靜，從開始進(jìn)入課題到論文的順利完成，有多少可敬的師長(zhǎng)、同學(xué)、朋友給了我無(wú)言的幫助，在這里請(qǐng)接受我誠(chéng)摯的謝意!感謝我的父母，焉得諼草，言樹之背，養(yǎng)育之恩，無(wú)以回報(bào)，你們永遠(yuǎn)健康快樂是我最大的心愿。最后我還要感謝你們培養(yǎng)我長(zhǎng)大，謝謝你們對(duì)我的理解與支持！參考文獻(xiàn)[1] [J].大連:大連理工大學(xué)出版社，[2] 楊毓， [M].成都:電子科技大學(xué)出版社，2001.[3] C++串口通信技術(shù)與工程實(shí)踐[M].北京：人民郵電出版社，2002 [4] 徐維祥、[M].大連：大連理工大學(xué)出版社，.[5] [M].北京：北京航天航空大學(xué)出版社,[6] [M].北京:北京航空航天大學(xué)出版社，1999[7] [M].哈爾濱：哈爾濱工業(yè)大學(xué)出版社，[8] 王建校、[M].北京：科學(xué)出版社，2002.[9] [M].北京：北京航空航天大學(xué)出版社，[10] 魯紹坤，[J].電子計(jì)算機(jī)，2002，（4）：5861[11] Databook[J]. [12] Databook[J]. 附錄附錄1硬件原理圖 附錄2/*Header file for generic 80C52 and 80C32 microcontroller.Copyright (c) 19882002 Keil Elektronik GmbH and Keil Software, Inc.All rights reserved.*/ifndef __REG52_H__define __REG52_H__/* BYTE Registers */sfr P0 = 0x80。sfr P1 = 0x90。sfr P2 = 0xA0。sfr P3 = 0xB0。sfr PSW = 0xD0。sfr ACC = 0xE0。sfr B = 0xF0。sfr SP = 0x81。sfr DPL = 0x82。sfr DPH = 0x83。sfr PCON = 0x87。sfr TCON = 0x88。sfr TMOD = 0x89。sfr TL0 = 0x8A。sfr TL1 = 0x8B。sfr TH0 = 0x8C。sfr TH1 = 0x8D。sfr IE = 0xA8。sfr IP = 0xB8。sfr SCON = 0x98。sfr SBUF = 0x99。/* 8052 Extensions */sfr T2CON = 0xC8。sfr RCAP2L = 0xCA。sfr RCAP2H = 0xCB。sfr TL2 = 0xCC。sfr TH2 = 0xCD。/* BIT Registers *//* PSW */sbit CY = PSW^7。sbit AC = PSW^6。sbit F0 = PSW^5。sbit RS1 = PSW^4。sbit RS0 = PSW^3。sbit OV = PSW^2。sbit P = PSW^0。 //8052 only/* TCON */sbit TF1 = TCON^7。sbit TR1 = TCON^6。sbit TF0 = TCON^5。sbit TR0 = TCON^4。sbit IE1 = TCON^3。sbit IT1 = TCON^2。sbit IE0 = TCON^1。sbit IT0 = TCON^0。/* IE */sbit EA = IE^7。sbit ET2 = IE^5。 //8052 onlysbit ES = IE^4。sbit ET1 = IE^3。sbit EX1 = IE^2。sbit ET0 = IE^1。sbit EX0 = IE^0。/* IP */sbit PT2 = IP^5。sbit PS = IP^4。sbit PT1 = IP^3。sbit PX1 = IP^2。sbit PT0 = IP^1。sbit PX0 = IP^0。/* P3 */sbit RD = P3^7。sbit WR = P3^6。sbit T1 = P3^5。sbit T0 = P3^4。sbit INT1 = P3^3。sbit INT0 = P3^2。sbit TXD = P3^1。sbit RXD = P3^0。/* SCON */sbit SM0 = SCON^7。sbit SM1 = SCON^6。sbit SM2 = SCON^5。sbit REN = SCON^4。sbit TB8 = SCON^3。sbit RB8 = SCON^2。sbit TI = SCON^1。sbit RI = SCON^0。/* P1 */sbit T2EX = P1^1。 // 8052 onlysbit T2 = P1^0。 // 8052 only /* T2CON */sbit TF2 = T2CON^7。sbit EXF2 = T2CON^6。sbit RCLK = T2CON^5。sbit TCLK = T2CON^4。sbit EXEN2 = T2CON^3。sbit TR2 = T2CON^2。sbit C_T2 = T2CON^1。sbit CP_RL2 = T2CON^0。endifinclude sbit P1_0=P1^0。sbit P1_1=P1^1。void main(void){ unsigned int i,j。 P1_0=0。 P1_1=0。while(1){ for(i=0。i200。i++) for(j=0。j50。j++)。 P1_0=!P1_0。 P1_1=!P1_1。 }}include include void main(){ unsigned char i,k,m。 unsigned int j。 SCON=0X52。 TMOD=0X20。 TH1=0XF3。 TL1=0XF3。 PCON=0X80。 TR1=1。 while(!RI)。 i=SBUF。 if(i==1) P1=0Xfe 。 else P1=0xfd。 for (j=0。j1000。j++) for (k=0。k100。k++)。 i=0X41。 m=0。 while(m58) { SBUF=i。 P1=0xff。 i++。 m++。 for (j=0。j5000。j++)。 P1=0X00。 while(!TI)。 for (j=0。j5000。j++)。 }}PC機(jī)串行通信及數(shù)據(jù)處理顯示程序設(shè)計(jì)源代碼： Dim conn As New Dim rs As New Private Sub insert() = Provider=。Data Source=。Persist Security Info=False Di