【正文】 源極性接反時(shí)，溫度計(jì)不會(huì)因發(fā)熱而燒毀，但不能正常工作； DS18B20 采用３腳 PR－35 封裝或 8 腳 SOIC 封裝，其內(nèi)部結(jié)構(gòu)框圖如圖 所示。該字節(jié)各位的定義如圖 3 所示。單片機(jī)可以通過(guò)單線接口讀出該數(shù)據(jù)，讀數(shù)據(jù)時(shí)低位在先，高位在后，數(shù)據(jù)格式以 ℃／LSB 形式表示。DS18B20 的測(cè)溫原理是這這樣的,器件中低溫度系數(shù)晶振的振蕩頻率受溫度的影響很小，用于產(chǎn)生固定頻率的脈沖信號(hào)送給減法計(jì)數(shù)器 1；高溫度系數(shù)晶振隨溫度變化其振蕩頻率明顯改變，所產(chǎn)生的信號(hào)作為減法計(jì)數(shù)器 2 的脈沖輸入。長(zhǎng)沙學(xué)院畢業(yè)設(shè)計(jì)9第 2 章 系統(tǒng)設(shè)計(jì) 功能與設(shè)計(jì)方案 功能要求設(shè)計(jì)一個(gè)基于 Visual Basic 的數(shù)據(jù)采集系統(tǒng)。 圖 總體設(shè)計(jì)框圖主控制器單片機(jī) AT89C51 具有低電壓供電和體積小等特點(diǎn)，四個(gè)端口只需要兩個(gè)口就能滿足電路系統(tǒng)的設(shè)計(jì)需要，很適合便攜手持式產(chǎn)品的設(shè)計(jì)使用系統(tǒng)可用二節(jié)電池供電。顯示電路采用 8 個(gè)共陽(yáng)極的 LED 顯示，顯示代碼由 P0 口發(fā)送，當(dāng)使用 P0 口時(shí)需要接上拉電阻，P2 口的邏輯狀態(tài)作位選線信號(hào)，達(dá)到分時(shí)選通的目的，當(dāng)相應(yīng)口為高電平時(shí) LED 才能顯示相應(yīng)代碼。長(zhǎng)沙學(xué)院畢業(yè)設(shè)計(jì)14 圖 2..3 主程序流程圖 圖 讀溫度流程圖 讀出溫度子程序讀出溫度子程序的主要功能是讀出 RAM 中的 9 字節(jié)，在讀出時(shí)需進(jìn)行 CRC 校驗(yàn)，校驗(yàn)有錯(cuò)時(shí)不進(jìn)行溫度數(shù)據(jù)的改寫(xiě)。使用 編寫(xiě)上位機(jī)程序，接收溫度數(shù)據(jù)并儲(chǔ)存在數(shù)據(jù)庫(kù)中；接收數(shù)據(jù)時(shí)，能同步畫(huà)出溫度變化的曲線，系統(tǒng)可查詢歷史溫度信息。也可以打開(kāi)和關(guān)閉端口Input 返回和刪除接收緩沖區(qū)中的字符長(zhǎng)沙學(xué)院畢業(yè)設(shè)計(jì)18Output 將字符串寫(xiě)入發(fā)送緩沖區(qū) CommEvent 屬性為通信事件或錯(cuò)誤返回下列值之一，在該控件的對(duì)象庫(kù)中也可以找到這些常量。建立的數(shù)據(jù)庫(kù)庫(kù)文件和 VB 中創(chuàng)建的工程文件必須放在放在同一目錄下 [5]。 }else {P2 = 0x00。在串口通信模塊中，baudrate 的在程序初始化時(shí)已經(jīng)定義為 9600b/s，晶振頻率也已設(shè)定好。 SCON = 0x50。display[0]=ditab[display[4]]。其中小數(shù)位所查的表為：unsigned char code ditab[16] = {0x00,0x01,0x01,0x02,0x03,0x03,0x04,0x04, 0x05,0x06,0x06,0x07,0x08,0x08,0x09,0x09}在程序中 display[0]為小數(shù)位十進(jìn)制數(shù)，display[3]為百位十進(jìn)制數(shù)，display[2] 為十位十進(jìn)制數(shù)，display[1]為個(gè)位十進(jìn)制數(shù)，通過(guò)查詢 LED 共陽(yáng)極的顯示代碼程序，分時(shí)選通即可顯示當(dāng)前的溫度值。本程序使用 的通用串口控件 MSComm 來(lái)對(duì)發(fā)送到串口的數(shù)據(jù)進(jìn)行采集處理。H amp。采集的溫度數(shù)據(jù)還通過(guò) Data 控件存入數(shù)據(jù)庫(kù)中。在整個(gè)采集系統(tǒng)中，包括溫度采集程序，串口通信程序，和上位機(jī) VB 的程序，數(shù)據(jù)庫(kù)等等幾個(gè)部分，為了避免干擾，當(dāng)上位機(jī) VB 界面點(diǎn)擊“采集溫度 ”時(shí)，向下位機(jī)發(fā)送特定字符，當(dāng)下位機(jī)識(shí)別正確字符，才將溫度數(shù)據(jù)傳送給上位機(jī)。參考文獻(xiàn)[1] 黃仁欣．單片機(jī)原理及應(yīng)用技術(shù)[M] ．北京：清華大學(xué)出版社，2022：5662．[2] 馬忠梅，籍順心等．單片機(jī)的 C 語(yǔ)言應(yīng)用程序設(shè)計(jì) [M] ．北京：航空航天大學(xué)出版社,2022：98101．[3] 劉文濤．Visual Basic + Access 數(shù)據(jù)庫(kù)開(kāi)發(fā)與實(shí)例[M] ．北京：清華大學(xué)出版社，長(zhǎng)沙學(xué)院畢業(yè)設(shè)計(jì)272022： 3234，5153．[4] 李敏業(yè), 王穎．Visual Basic + Access 完全解析[M] ．北京：人民郵電出版社，2022： 102110．[5] 占維, 劉偉． 數(shù)據(jù)庫(kù)實(shí)用編程 100 例[M] ．北京：中國(guó)鐵道出版社，2022： 120125[6] 張靖武 , 周靈彬．單片機(jī)系統(tǒng)的 PROTEUS 設(shè)計(jì)與仿真[M] ．北京：電子工業(yè)出版社，2022：96105．致 謝本學(xué)位論文是在我的指導(dǎo)老師謝明華的耐心指導(dǎo)下完成的。**********************************************************/include define XTAL 11059200 // CUP 晶振頻率define baudrate 9600 // 通信波特率define uchar unsigned chardefine uint unsigned intsbit DQ = P3^3。 sbit DIN = P0^7。 // 精確延時(shí) 大于 480us DQ = 1。for (i = 8。}/**********************************************************/void WriteOneChar(unsigned char dat)// 寫(xiě)一個(gè)字節(jié){ unsigned char i = 0。 dat=1。 WriteOneChar(0xCC)。長(zhǎng)沙學(xué)院畢業(yè)設(shè)計(jì)32if(temp_data[0]=0) { temp_data[1]= temp_data[1]+1。display[1]=display[4]%100。 }P0 = 0xc6。 // 顯示小數(shù)位P2 = 0xfb。P0 =LEDData[display[3]]。 BEEP=!BEEP。= 0x00。}}/*********************************************************/void main(void){uchar receive。 // 傳送采集的溫度}} }}/*********************************************************/長(zhǎng)沙學(xué)院畢業(yè)設(shè)計(jì)35附錄 2 上位機(jī)程序39。 溫度采集39。 設(shè)置串口 Call tabinit 39。Sub setAcquiescence() = 200 39。 停止采集 If mark = True Then If = True Then = False mark = False = False = 繼續(xù)采集 = amp。Private Sub Form_Load()On Error GoTo err: = 1 39。 打開(kāi)串口 mark = True = False長(zhǎng)沙學(xué)院畢業(yè)設(shè)計(jì)39 Exit Suberr: Select Case Case PortAlreadyOpen 39。 溫度數(shù)據(jù)緩沖 Dim datatemp2a, datatemp2b As String 39。讀取儀表返回?cái)?shù)據(jù)串 Select Case Case EvReceive count = 39。 Mid(buffer, 3, 3) amp。 Trim(Mid(buffer, 1, 2)) Else datatemp2a = Mid(buffer, 1, 2) End If If Len(Trim(Mid(buffer, 4, 2))) = 1 Then datatemp2b = Str(0) amp。 Mid(buffer, 3, 3) amp。 基數(shù)器加 1 For i = LBound(Inbyte) To UBound(Inbyte) 39。 接收個(gè)數(shù)判斷 = False 39。39。 發(fā)送 1 個(gè)字符觸法OnComm 事件 = 9600,n,8,2 39。串口初始化39。 重新開(kāi)始End Sub39。 mark = True Call renew 39。, 49, 溫度采集系統(tǒng) Call setAcquiescence 39。 用于存儲(chǔ)采樣值個(gè)數(shù)Dim counter As Integer 39。 // 顯示溫度}else {P2 = 0x00 。while (i 2){SBUF = temp_data[i]。 // 定時(shí)器 1 工作于 8 位自動(dòng)重載模式 , 用于產(chǎn)生波特率TH1=(unsigned char)(256 (XTAL / (32L * 12L * baudrate)))。 // 關(guān)閉顯示}/*********************************************************/void beep(void){ unsigned char i。Delay(300)。 // 顯示 176。 P2=0x02。 // 查表得小數(shù)位的值display[4]=((temp_data[0]amp。 // 溫度高 8 位 }}/*********************************************************/void Disp_Temperature()// 顯示溫度{ unsigned char n=0。} // DS18B20 不正常，蜂鳴器報(bào)警 else { flash=0。 DQ = datamp。 DQ = 1。 DQ = 1。}/**********************************************************/uchar Init_DS18B20(void) // 初始化 ds1820長(zhǎng)沙學(xué)院畢業(yè)設(shè)計(jì)30{ DQ = 1。unsigned char data temp_data[2] = {0x00,0x00}。謝老師治學(xué)嚴(yán)謹(jǐn)，學(xué)識(shí)淵博，為我營(yíng)造了一種良好的設(shè)計(jì)氛圍。在設(shè)計(jì)過(guò)程中，對(duì)整個(gè)系統(tǒng)硬件和軟件的分析，采用模塊化程序設(shè)計(jì)的方法，流程圖分析設(shè)計(jì)思路，將系統(tǒng)分成幾個(gè)模塊，最終進(jìn)行整合，從而實(shí)現(xiàn)了基于 的數(shù)據(jù)采集系統(tǒng)的設(shè)計(jì)。傳統(tǒng)的溫度采集方法費(fèi)時(shí)且精度較差，而如今各個(gè)行業(yè)對(duì)溫度數(shù)據(jù)的要求越來(lái)越高，如科研實(shí)驗(yàn)室，因此新型的數(shù)字溫度計(jì)大量出現(xiàn)，其中最普遍的是使用傳感器和單片機(jī)組成采集電路就可以 獲得較高的精度要求。H amp。接收觸發(fā)事件的處理，當(dāng)每發(fā)送一次指令時(shí)，就會(huì)觸發(fā) OnComm 事件，并返回?cái)?shù)據(jù)串，通過(guò)計(jì)算獲取溫度測(cè)量值并顯示出來(lái)，具體設(shè)計(jì)程序如下：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。if(temp_data[0]=0) { temp_data[1]= temp_data[1]+1。display[3]=display[4]/100。IE = 0x00。程序設(shè)計(jì)內(nèi)容如下所示：void init(void){EA = 1。s39。溫度采集系統(tǒng)的主程序設(shè)計(jì)如下：void main(void){長(zhǎng)沙學(xué)院畢業(yè)設(shè)計(jì)20uchar receive。圖形能移動(dòng)的原理,是我們首先改變的只是數(shù)據(jù),圖形并沒(méi)有變,但圖形的形式是由這些數(shù)據(jù)來(lái)確定的,當(dāng)數(shù)據(jù)發(fā)生變化后,我們通過(guò)刷新顯示區(qū)來(lái)變化的。 的 MSComm 通信控件提供了一系列標(biāo)準(zhǔn)通信命令的接口，它允許建立串口連接，可以連接到其他通信設(shè)備（如 Modem） ．還可以發(fā)送命令、進(jìn)行數(shù)據(jù)交換以及監(jiān)