【導(dǎo)讀】性要求比較高的場(chǎng)合，需要設(shè)計(jì)專(zhuān)用的電路來(lái)實(shí)現(xiàn)系統(tǒng)的需求，而系統(tǒng)的功能的實(shí)現(xiàn)，環(huán)境的感知和響應(yīng)能力，決定著系統(tǒng)的性能。作為上位機(jī)，使用9針串口來(lái)實(shí)現(xiàn)下位機(jī)和上位機(jī)的通訊。開(kāi)發(fā)軟件來(lái)開(kāi)發(fā)實(shí)現(xiàn)數(shù)據(jù)接收顯示控制界面。系統(tǒng)調(diào)試結(jié)果表明，該系統(tǒng)設(shè)計(jì)合理，對(duì)周邊環(huán)境溫度的變化反應(yīng)敏感，數(shù)據(jù)采集的波特率達(dá)到9600bps.

　　

【正文】 entDSRTO 1003 Data Set Ready 線超 ComEventFrame 1004 數(shù)據(jù)幀錯(cuò)誤（ Framing Error）。 ComEventOverrun 1006 連接端口超速。 ComEventCDTO 1007 Carrier Detect 線超時(shí)。 ComEventRxOver 1008 接收寄存器溢出。 ComEventRxParity 1009 奇偶校驗(yàn)錯(cuò)誤。 ComEventTxFull 1010 傳輸寄存器溢出。 ComEventDCB 1011 從連接端口接收 Device Control Block(DCB)時(shí)，發(fā)生沒(méi)有預(yù)料到的錯(cuò)誤。 Visual Basic 設(shè)計(jì)實(shí)現(xiàn) 1：打開(kāi) ，新建工程，取名“串口數(shù)據(jù)傳輸” 2:在 Form1窗體中添加 Msm控件，設(shè)置CommPort=5。InBufferSize=1024。Settings=9600,n,8,1。 3:添加 label控件，改其 Text屬性為“ **接收區(qū) **”； 4:添加 TextBox控件，改其“名稱(chēng)”屬性為“ txtRecive” 5:添加兩個(gè)按鈕空間，改其 Caption屬性分別為“接收數(shù)據(jù)”（ Command1），“結(jié)束”（ Command2）。 6：進(jìn)入代碼編輯窗口 ,書(shū)寫(xiě)相應(yīng)事件的代碼，代碼如下： Private Sub Command1_Click() Dim buf$ buf = Trim() If Len(buf) = 0 Then = Empty Else = AscB(buf) End If End Sub Private Sub Command2_Click() = False End End Sub Private Sub Form_Load() = True End Sub 本章小結(jié) 本章主要介紹了基于串口的數(shù)據(jù)采集系統(tǒng)上位機(jī) VB顯示界面的實(shí)現(xiàn)，對(duì)VB的串口通信控件 Msm控件的參數(shù)和事件作了詳細(xì)的介紹，對(duì)上位機(jī)設(shè)計(jì)的實(shí)現(xiàn)給出了詳細(xì)的步驟和相關(guān)代碼。 5 系統(tǒng)結(jié)果和分析 系統(tǒng)調(diào)試與結(jié)果 1 開(kāi)啟計(jì)算機(jī)，連接上串口。 2 啟動(dòng)自己制作的 VB 接收控制界面，打開(kāi)這個(gè)軟件的同時(shí)，它內(nèi)部的代碼已經(jīng)完成了打開(kāi)串口的工作，此時(shí)我們可以看到 DTR（ Data Terminal Ready）引腳的指示燈亮，如圖 ， 圖 打開(kāi) VB 顯示界面 圖 計(jì)算機(jī)準(zhǔn)備就緒 3 給電路板接上電源，使電路板處于工作狀態(tài)。我們可以在數(shù)碼管上看到顯示當(dāng)前采集到的溫度值，實(shí)驗(yàn)時(shí)的溫度是 24 度，同時(shí)我們看到串口接收引腳（ RXD）處于忽亮忽暗的狀態(tài)，單片機(jī)正在傳送數(shù)據(jù)，如圖 圖 單片機(jī)發(fā)送數(shù)據(jù) 4 在 VB 顯示界面上點(diǎn)擊讀出字符按鈕，顯示讀取到的當(dāng)前溫度值，這時(shí)我們可以看到兩盞指示燈的指示情況， RXD 忽亮忽暗， DTR 引腳也忽亮忽暗， 由于視覺(jué)殘留效應(yīng)，它們看上去像是一直亮著的。 圖 單片機(jī)發(fā)送數(shù)據(jù)，計(jì)算機(jī)接收數(shù)據(jù) 圖 VB 顯示接收到的數(shù)據(jù) 5 用手握住溫度傳感器，溫度上升，數(shù)碼管顯示當(dāng)前溫度值， VB 界面相應(yīng)的采集到當(dāng)前的溫度值，如圖 , 圖 單片機(jī)發(fā)送數(shù)據(jù)，計(jì)算機(jī)接收數(shù)據(jù) 圖 VB 顯示接收到的數(shù)據(jù) 本章小結(jié) 本章主要從系統(tǒng)的調(diào)試過(guò)程和得到的結(jié)果現(xiàn)象作了比較詳細(xì)的分析，通過(guò)改變環(huán)境的溫度，我們?cè)?VB 界面上可以采集到當(dāng)前的溫度值，系統(tǒng)對(duì)溫度感知敏感，現(xiàn)象直觀明顯，達(dá)到了預(yù)期的期望與要求。 6 總結(jié) 基于串行口的數(shù)據(jù)采集系統(tǒng)是以采集環(huán)境溫度為采集對(duì)象，通過(guò)單片機(jī)處理，通過(guò) Max232電平轉(zhuǎn)換，傳給 PC機(jī)，在 PC機(jī)上用 VB設(shè)計(jì)顯示界面來(lái)觀測(cè)實(shí)時(shí)采集的溫度。經(jīng)過(guò)一次次的調(diào)試，試驗(yàn)，完善，該系統(tǒng)基本上實(shí)現(xiàn)設(shè)計(jì)要求的功能，對(duì)溫度變化反應(yīng)敏感，現(xiàn)象明顯。 7．參考文獻(xiàn) [1] 陳三風(fēng)，劉曉波 .基于 與單片機(jī)串行通信的數(shù)據(jù)采集系統(tǒng)設(shè)計(jì) ,2020 [2] 張崇智，基于 VB 的串口實(shí)時(shí)數(shù)據(jù)采集， 2020 [3] 王圓妹，許勁 ，李濤 ，實(shí)現(xiàn) PC 機(jī)與單片機(jī)的串行通信， 2020 [4] 王 超，基于 VB 實(shí)現(xiàn) PC 機(jī)與單片機(jī)的數(shù)據(jù)采集系統(tǒng)設(shè)計(jì)， 2020 [5] 周子琛，申振寧用 VB 實(shí)現(xiàn)計(jì)算機(jī)與單片機(jī)的串行通信， 2020 [6] 陸 劍 ，宋曉莉， A T 89S51 單片機(jī)與 Visual Basic 串行 通信的實(shí)現(xiàn) [7] 胥保春，單片機(jī)（ AT89S51）與 PC 機(jī)的串行通信， 2020 [8] 鄧洪聲 , 舒大文，用 Visual Basic 6. 0 設(shè)計(jì)四通道串口數(shù)據(jù)采集， 2020 [9] 張康康，基于串口通信數(shù)據(jù)采集系統(tǒng)的設(shè)計(jì)， 2020 [10]楊東燕，基于單片機(jī)的數(shù)據(jù)采集系統(tǒng)設(shè)計(jì)， 2020 [11]伊崇信，趙 穎，利用 Visual Basic 實(shí)現(xiàn)串行通信技術(shù)， 2020 [12] 荊茂祥 ,李冬輝，基于 VB 的主從機(jī)串行通信系統(tǒng)設(shè)計(jì)， 2020 [13] 胡俊宏 , 楊振巍，基于 VB 的 S7200 PLC 與上位機(jī)的串行通訊及應(yīng)用， 2020 [14]韓利凱，用 VC+ + 實(shí)現(xiàn) PC 與單片機(jī)串行通信方法的研究， 2020 [15]賈志成，岳西鳳，李永軍，劉培培，基于 VC++的 XCTD 串口實(shí)時(shí)數(shù)據(jù)采集系統(tǒng)的實(shí)現(xiàn)， 2020 [16]范逸之，陳立元，利用 Visual Basic 實(shí)現(xiàn)串并行通信技術(shù)， [17] WANG Lu1， XU Xuefeng2， WANG Jian3， Application of serial munication in energy monitoring system based on VB， 2020 [18] Zhang Bo, Yu Jie, Lian Yafei, Ding Qian， The Communication between the PC and PLC based on in the ESP， 2020 [19] Anan Fang, Jianping Dai, Liping Luo， Design of Remote Data Acquisition and Communication Hardware Circuit System Based on Window， 2020 [20] Anan Fang , Ming Gong, Rong Yu, Xiaoping Qi ， The Realization of Distancedata Acquisition by SCM and Communication Design， 2020 [21] Ling Xu, Zhen Chen, ShiIei Zhang， Research of Serial Communication System based on C8051F020 Singlechip， 2020 附錄 (下位機(jī)程序?qū)崿F(xiàn) 代碼 ) include include define uchar unsigned char define uint unsigned int unsigned char code tab[]={0xc0,0xf9,0xa4,0xb0,0x99,0x92,0x82,0xf8,0x80,0x90}。 sbit DQ=P3^3。 unsigned char tempL=0。 unsigned char tempH=0。 float temperature。 void delay1(uint z) //延時(shí)子程序 { uint i,j。 for(i=z。i0。i) for(j=110。j0。j)。 } void send_data(i) { SBUF=i。 //發(fā)送 while(TI==0)。 //等待發(fā)送完畢 TI=0。 } void delay(unsigned int k) { //for(。k0。k)。 //return。 unsigned int n。 n=0。 while(n k) {n++。} return。 } void delay2(void) { int k。 for(k=0。k400。k++)。 } void display(int k) { P2=0xf7。 P0=tab[k/1000]。 delay2()。 P2=0xfb。 P0=tab[k%1000/100]。 delay2()。 P2=0xfd。 P0=tab[k%100/10]。 delay2()。 P2=0xfe。 P0=tab[k%10]。 delay2()。 P2=0xff。 } Init_DS18B20(void) { unsigned char x=0。 DQ=1。 delay(8)。 DQ=0。 delay(85)。 DQ=1。 delay(14)。 } ReadOneChar(void) { unsigned char i=0。 unsigned char dat=0。 for(i=8。i0。i) { DQ=1。 delay(1)。 DQ=0。 dat=1。 DQ=1。 if(DQ) dat |=0x80。 delay(4)。 } return dat。 } WriteOneChar(unsigned char dat) { unsigned char i=0。 for(i=8。i0。i) { DQ=0。 DQ=datamp。0x01。 delay(5)。 DQ=1。 dat=1。 } delay(4)。 } ReadTemperature(void) { Init_DS18B20()。 WriteOneChar(0xcc)。 WriteOneChar(0x44)。 delay(125)。 Init_DS18B20()。 WriteOneChar(0xcc)。 WriteOneChar(0xbe)。 tempL=ReadOneChar()。 tempH=ReadOneChar()。 temperature=((tempH*256)+tempL)。 delay(200)。 return(temperature)。 } void main(void) { float i,j。 EA=1。 TMOD=0x20。 // T1波特率發(fā)生器 TH1=0Xfd。 //波特率 9600 TL1=0Xfd。 SCON=0X50。 //串口方式 REN=1允許接收數(shù)據(jù) PCON=0X00。 // 1 倍波特率 TR1=1。 delay1(5)。 while(1) { i=ReadTemperature()。 j=i*。 display(j)。 send_data(i)。 // 發(fā)送數(shù)據(jù) } }