【正文】 True = 停止采集 = amp。 恢復默認值 = 1 = False = 開始采集 = False = amp。 初始化表格 If = True Then = 1000 * 39。Private Sub CmdStart_Click() 39。定義窗體級變量39。 display() 。 }//串口發(fā)送數據void UART_Trans(char n){ SBUF = n。 delay(60)。 shijian[4]=x%10。 x=+t[1]4。 t[1]=*pt。k0。參考文獻[1]—入門、提高、開發(fā)、拓展全攻略[M].北京：． [2][M].北京：北京航空航天大學出版社. 20085． [3]（C語言版）[M].北京：． [4][M].北京：．[5]：[6][M].北京：[7]：附 錄附錄一：下位機程序includeincludedefine XTAL 11059200 define baudrate 9600 unsigned char code tab[]={0xc0, 0xf9,0xa4,0xb0,0x99 ,0x92 ,0x82,0xf8,0x80 ,0x90,0xbf,0xff,0xbf,0x7f}。自然而然，我的耐心便在其中建立起來了。最后還要實現單片機與上位機通信的功能，所以要連接好串口，以便能向上位機發(fā)送或接受數據。點擊查詢可查詢歷史溫度信息。也可以打開和關閉端口Input它允許建立串口連接，可以連接到其他通信設備（如Modem）．還可以發(fā)送命令、進行數據交換以及監(jiān)視和響應在通信過程中可能發(fā)生的各種錯誤和事件，從而可以用它創(chuàng)建全雙工 、事件驅動的、高效實用的通信程序。H amp。接收觸發(fā)事件的處理，當每發(fā)送一次指令時，就會觸發(fā)OnComm事件，并返回數據串，通過計算獲取溫度測量值并顯示出來，具體設計程序如下：Private Sub MSComm1_OnComm() Dim Inbyte() As Byte Dim buffer As String Dim datatemp2a, datatemp2b As String Dim datatemp2 As String Dim count As Integer 39。其他延時子程序以及DS18B20的讀寫子程序，可見附錄一的完整的DS18B20溫度采集系統程序設計，在這里不做詳細介紹了。 display[2]=display[1]/10。℃／LSB，通過移位操作，即可獲得一個新的關于溫度整數部分的數據，部分設計顯示轉化程序如下：display[4]=temp_data[0]amp。 TH1=(unsigned char)(256 (XTAL / (32L * 12L * baudrate)))。 } } }}主程序為一無限循環(huán)，單片機不斷從DS18B20的數據口采集數據信號，用flash標志DS18B20是否正常，當flash=1時表示DS18B20不正常，就由軟件設置及時關閉LED顯示并由蜂鳴器報警。 while(1) { Read_Temperature()。 初始化調用顯示子程序1S到？初次上電讀出溫度值溫度計算處理顯示數據刷新發(fā)溫度轉換開始命令的法國風格 法國 NYNY 主程序流程圖讀出溫度子程序的主要功能是讀出RAM中的9字節(jié)，在讀出時需進行CRC校驗，校驗有錯時不進行溫度數據的改寫。顯示電路采用8個共陽極的LED顯示，顯示代碼由P0口發(fā)送，當使用P0口時需要接上拉電阻，P2口的邏輯狀態(tài)作位選線信號，達到分時選通的目的，當相應口為高電平時LED才能顯示相應代碼。器件中還有一個計數門，當計數門打開時，DS18B20就對低溫度系數振蕩器產生的時鐘脈沖進行計數進而完成溫度測量。單片機可以通過單線接口讀出該數據，讀數據時低位在先，高位在后，℃／LSB形式表示。DS18B20工作時寄存器中的分辨率轉換為相應精度的溫度數值。 DS18B20傳感器簡介DS18B20溫度傳感器是美國DALLAS半導體公司最新推出的一種改進型智能溫度傳感器，與傳統的熱敏電阻等測溫元件相比，它能直接讀出被測溫度，并且可根據實際要求通過簡單的編程實現9～12位的數字值讀數方式。如采用外部時鐘源驅動器件，XTAL2應不接。EA/VPP：當/EA保持低電平時，則在此期間外部程序存儲器（0000HFFFFH），不管是否有內部程序存儲器。然而要注意的是：每當用作外部數據存儲器時，將跳過一個ALE脈沖。作為輸入，由于外部下拉為低電平，P3口將輸出電流（ILL）這是由于上拉的緣故。 P2口：P2口為一個內部上拉電阻的8位雙向I/O口，P2口緩沖器可接收，輸出4個TTL門電流，當P2口被寫“1”時，其管腳被內部上拉電阻拉高，且作為輸入。GND：接地。三級程序存儲器鎖定單片機的可擦除只讀存儲器可以反復擦除100次。對于單片機的選擇，如果用8031系列，由于它沒有內部RAM，系統又需要大量內存存儲數據，因而不可用；AT89C51是一種帶4K字節(jié)閃爍可編程可擦除只讀存儲器（FPEROM—Flash Programmable and Erasable Read Only Memory）的低電壓，高性能CMOS8位微處理器，俗稱單片機。控制器采用單片機AT89C51，溫度傳感器采用DS18B20，用8位LED數碼管以串口傳送數據實現溫度顯示并通過串口與上位機PC通訊，把數據傳送給上位機，并用VB編寫的圖形界面把溫度的變化曲線顯示出來，并通過數據庫存儲，可查詢歷史溫度記錄。讀數方便，測量范圍廣，測溫準確。硬件電路較簡單，所以軟件設計較復雜，DS18B20只有一個數據口，所以它的讀寫程序對時序有很高的要求。單片機LED顯示溫 度 傳 感 器復位電路時鐘振蕩蜂鳴器單片機AT89C51具有低電壓供電和體積小等特點，四個端口只需要兩個口就能滿足電路系統的設計需要，很適合便攜手持式產品的設計使用系統可用二節(jié)電池供電。AT89C2051是一種帶2K字節(jié)閃爍可編程可擦除只讀存儲器的單片機。該器件采用ATMEL高密度非易失存儲器制造技術制造，與工業(yè)標準的MCS51指令集和輸出管腳相兼容。128*8位內部RAMP0口：P0口為一個8位漏級開路雙向I/O口，每腳可吸收8TTL門電流。并因此作為輸入時，P2口的管腳被外部拉低，將輸出電流。P3口也可作為AT89C51的一些特殊功能口，如下表所示：口管腳 備選功能 RXD（串行輸入口） TXD（串行輸出口） /INT0（外部中斷0） /INT1（外部中斷1） T0（記時器0外部輸入） T1（記時器1外部輸入） /WR（外部數據存儲器寫選通） /RD（外部數據存儲器讀選通）P3口同時為閃爍編程和編程校驗接收一些控制信號。如想禁止ALE的輸出可在SFR8EH地址上置0。注意加密方式1時，/EA將內部鎖定為RESET；當/EA端保持高電平時，此間內部程序存儲器。有余輸入至內部時鐘信號要通過一個二分頻觸發(fā)器，因此對外部時鐘信號的脈寬無任何要求，但必須保證脈沖的高低電平要求的寬度。DS18B20的性能特點如下：獨特的單線接口僅需要一個端口引腳進行通信；多個DS18B20可以并聯在惟一的三線上，實現多點組網功能；無須外部器件；可通過數據線供電，~；零待機功耗；溫度以9或12位數字；用戶可定義報警設置；報警搜索命令識別并標志超過程序限定溫度（溫度報警條件）的器件；負電壓特性，電源極性接反時，溫度計不會因發(fā)熱而燒毀，但不能正常工作； DS18B20采用３腳PR－35封裝或8腳SOIC封裝。低5位一直為１，ＴＭ是工作模式位，用于設置DS18B20在工作模式還是在測試模式，DS18B20出廠時該位被設置為0，用戶要去改動，R1和R0決定溫度轉換的精度位數，來設置分辨率。當符號位S=0時，表示測得的溫度值為正值，可以直接將二進制位轉換為十進制；當符號位S=1時，表示測得的溫度值為負值，要先將補碼變成原碼，再計算十進制數值。計數門的開啟時間由高溫度系數振蕩器來決定，每次測量前，首先將－55℃所對應的一個基數分別置入減法計數器溫度寄存器中，計數器1和溫度寄存器被預置在－55℃所對應的一個基數值。實際使用中只用到七個LED，最后2個用來顯示攝氏度符號，第二個用來顯示溫度的正負，當溫度為負時，顯示“—”號，為正時不顯示，同樣由軟件可以實現，當百位為零時，百位不顯示，百位十位為零時，百位十位都不顯示，這樣設計方便觀察，更加直觀。Y發(fā)DS18B20復位命令發(fā)跳過ROM命令發(fā)讀取溫度命令讀取操作，CRC校驗9字節(jié)完？CRC校驗正？確？移入溫度暫存器結束　NNY 讀流程圖 計算溫度子程序計算溫度子程序將RAM中讀取值進行轉換運算，并進行溫度值正負的判定。 if (flash==0) { Disp_Temperature()。當一幀數據采集完畢即RI接受中斷標志位為1，判斷下位機是否接受到來自上位機的字符“1”對應的ASC碼49時接收到時才開始將采集到的數據發(fā)送給上位機進行處理，RI標志位必須由軟件清零。 TL1=(unsigned char)(256 (XTAL / (32L * 12L * baudrate)))。0x0f。 display[1]=display[1]%10。上位機是應用VB進行編寫的，它把下位機傳送上來是兩字節(jié)的十六進制數據進行解碼顯示出來。讀取儀表返回數據串 Select Case Case EvReceive count = Inbyte = If count 2 Then Exit Sub counter = counter + 1 For i = LBound(Inbyte) To UBound(Inbyte) buffer = buffer + Hex(Inbyte(i)) Next i End Select程序中，接收到的數據暫存在Inbyte（）中，buffer為溫度數據緩存，接收到的數據按16進制的格式放入緩沖中，便于之后的數據處理。 Mid(buffer, 3, 3) amp。一般說來，計算機都有一個或多個串行端口，它們依次為ComCom…，這些串口還提供了外部設備與PC進行數據傳輸和通信的通道。 設置或返回通信端口號Settings串口的波特率，串口號都采用下拉選擇的方式，在使用中可跟據情況選擇讀串口數據的原理是,只要當有數據向串口發(fā)數據來時,計算機就會自動將其數據寫到一個特定的緩沖區(qū),我們只要寫程序去讀那個特定的緩沖區(qū)就可以了。按健復位電路是最簡單的手動復位，使用比較方便，在程序跑飛時，以手動復位，這樣就不用在重起單片機電源，就可以實現復位。為以后的工作積累了經驗，增強了信心。unsigned char shijian[]={11,11,11,11,11,13,11,11}。k) for (j=125。 if(t[1]0x07) { shijian[19]=10。 x+=(t[0]amp。 shijian[6]=y/10。 P0=0xff。 while(TI==0)。 if(f==1) P3_7=1。在顯示、繪圖、報警等過程中使用Dim datatemp(200) As Single 39。 開始采集 If (Txttimes 200) Or (Txttimes 1) Then 39。 設置間隔采樣時間 = 重新采集 = True = 停止采集 = amp。H808080 39。HFFamp。 二進制輸入模式 = 1 39。39。 十六進制溫度數據 Dim count As Integer 39。 接收溫度數據