【正文】 言應(yīng)用程序設(shè)計(jì) [M] ．北京：航空航天大學(xué)出版社,2022：98101．[3] 劉文濤．Visual Basic + Access 數(shù)據(jù)庫(kù)開發(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)下完成的。同時(shí)也感謝長(zhǎng)沙學(xué)院能夠提供如此的師資力量和實(shí)驗(yàn)室研究條件。謝老師治學(xué)嚴(yán)謹(jǐn)，學(xué)識(shí)淵博，為我營(yíng)造了一種良好的設(shè)計(jì)氛圍。很慶幸這些年來我遇到了許多恩師益友，無論在學(xué)習(xí)上、生活上還是工作上都給予了我無私的幫助和熱心的照顧，讓我在許多方面都有所成長(zhǎng)。**********************************************************/include define XTAL 11059200 // CUP 晶振頻率define baudrate 9600 // 通信波特率define uchar unsigned chardefine uint unsigned intsbit DQ = P3^3。unsigned char presence 。unsigned char data temp_data[2] = {0x00,0x00}。unsigned char code ditab[16] = {0x00,0x01,0x01,0x02,0x03,0x03,0x04,0x04, 0x05,0x06,0x06,0x07,0x08,0x08,0x09,0x09}。 sbit DIN = P0^7。 // 顯示開關(guān)標(biāo)記bit flag_zf=0。}/**********************************************************/uchar Init_DS18B20(void) // 初始化 ds1820長(zhǎng)沙學(xué)院畢業(yè)設(shè)計(jì)30{ DQ = 1。 // 稍做延時(shí) DQ = 0。 // 精確延時(shí) 大于 480us DQ = 1。 presence = DQ。 DQ = 1。 // 返回信號(hào)， 0=presence,1= no presence}/**********************************************************/uchar ReadOneChar(void) // 讀一個(gè)字節(jié){unsigned char i = 0。for (i = 8。 i) { DQ = 0。 DQ = 1。 Delay(4)。}/**********************************************************/void WriteOneChar(unsigned char dat)// 寫一個(gè)字節(jié){ unsigned char i = 0。 i 0。 DQ = datamp。 Delay(5)。 dat=1。 if(presence==1) { beep()。} // DS18B20 不正常，蜂鳴器報(bào)警 else { flash=0。 // 跳過讀序號(hào)列號(hào)的操作 WriteOneChar(0x44)。 WriteOneChar(0xCC)。 // 讀取溫度寄存器 temp_data[0] = ReadOneChar()。 // 溫度高 8 位 }}/*********************************************************/void Disp_Temperature()// 顯示溫度{ unsigned char n=0。 // 所測(cè)溫度為負(fù)時(shí)，要進(jìn)行轉(zhuǎn)換 temp_data[1]=!( temp_data[1])； temp_data[0]=!( temp_data[0])。長(zhǎng)沙學(xué)院畢業(yè)設(shè)計(jì)32if(temp_data[0]=0) { temp_data[1]= temp_data[1]+1。0x0f。 // 查表得小數(shù)位的值display[4]=((temp_data[0]amp。0x0f)4)。display[1]=display[4]%100。display[1]=display[1]%10。 P2=0x02。} //溫度為負(fù)數(shù)時(shí)第二個(gè)數(shù)碼管顯示負(fù)號(hào) if(!display[3]) // 高位為 0，不顯示 { display[3]=0x0a。 }P0 = 0xc6。 // 位選線為 口，LED 為共陽極顯示，當(dāng)位選線為低電平時(shí)選通Delay(300)。 // 顯示 176。 // 選中 口Delay(300)。 // 顯示小數(shù)位P2 = 0xfb。P0 =LEDData1[display[1]]。Delay(300)。 // 顯示十位P2 = 0xef。P0 =LEDData[display[3]]。Delay(300)。 // 關(guān)閉顯示}/*********************************************************/void beep(void){ unsigned char i。i100。 BEEP=!BEEP。 // 關(guān)閉蜂鳴器}/*********************************************************/void init(void){EA = 1。 // 定時(shí)器 1 工作于 8 位自動(dòng)重載模式 , 用于產(chǎn)生波特率TH1=(unsigned char)(256 (XTAL / (32L * 12L * baudrate)))。 // 定時(shí)器 0 賦初值SCON = 0x50。= 0x00。 // 啟動(dòng)定時(shí)器 1IE = 0x00。while (i 2){SBUF = temp_data[i]。 // 等特?cái)?shù)據(jù)傳送TI = 0。}}/*********************************************************/void main(void){uchar receive。 while(1) { Read_Temperature()。 // 顯示溫度}else {P2 = 0x00 。receive = SBUF。 // 傳送采集的溫度}} }}/*********************************************************/長(zhǎng)沙學(xué)院畢業(yè)設(shè)計(jì)35附錄 2 上位機(jī)程序39。在顯示、繪圖、報(bào)警等過程中使用Dim datatemp(200) As Single 39。 用于存儲(chǔ)采樣值個(gè)數(shù)Dim counter As Integer 39。 暫停標(biāo)志Dim strSql As StringPrivate Sub cmd_Search_Click() strSql = select * from Tbl_wD where 1=1 Set Rs = New = adUseClient strSql, Db, adOpenKeyset, adLockReadOnly If 1 Then MsgBox (數(shù)據(jù)庫(kù)中沒有數(shù)據(jù)！) Exit Sub End If Set = Rs End Sub39。 溫度采集39。 開始采集 If (Txttimes 200) Or (Txttimes 1) Then 39。, 49, 溫度采集系統(tǒng) Call setAcquiescence 39。, 49, 溫度采集系統(tǒng) Call setAcquiescence 39。 設(shè)置串口 Call tabinit 39。 設(shè)置間隔采樣時(shí)間 = 重新采集 = True = 停止采集 = amp。 mark = True Call renew 39。39。Sub setAcquiescence() = 200 39。H808080 39。 重新開始End Sub39。 停止溫度采集39。 停止采集 If mark = True Then If = True Then = False mark = False = False = 繼續(xù)采集 = amp。HFFamp。串口初始化39。39。Private Sub Form_Load()On Error GoTo err: = 1 39。 二進(jìn)制輸入模式 = 1 39。 發(fā)送 1 個(gè)字符觸法OnComm 事件 = 9600,n,8,2 39。 調(diào)用表格初始化子程序 Call ScaleSys 39。 打開串口 mark = True = False長(zhǎng)沙學(xué)院畢業(yè)設(shè)計(jì)39 Exit Suberr: Select Case Case PortAlreadyOpen 39。39。39。每發(fā)送一次指令，觸發(fā)下面事件，返回?cái)?shù)據(jù)串Private Sub MSComm1_OnComm() Dim Inbyte() As Byte 39。 溫度數(shù)據(jù)緩沖 Dim datatemp2a, datatemp2b As String 39。 十六進(jìn)制溫度數(shù)據(jù) Dim count As Integer 39。 接收個(gè)數(shù)判斷 = False 39。H80FFamp。讀取儀表返回?cái)?shù)據(jù)串 Select Case Case EvReceive count = 39。 接收溫度數(shù)據(jù) If count 2 Then Exit Sub 39。 基數(shù)器加 1 For i = LBound(Inbyte) To UBound(Inbyte) 39。獲取十進(jìn)制測(cè)量數(shù)據(jù) If Len(Trim(Mid(buffer, 1, 2))) = 1 Then datatemp(num) = Val(amp。 Mid(buffer, 3, 3) amp。 Mid(buffer, 1, 2)) * Else datatemp(num) = Val(amp。 Mid(buffer, 3, 3) amp。保存數(shù)據(jù) Data_save (datatemp(num))長(zhǎng)沙學(xué)院畢業(yè)設(shè)計(jì)41 39。 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。