基于單片機(jī)與pc機(jī)串口通信的溫度記錄儀畢業(yè)設(shè)計(jì)(參考版)
2025-06-30 19:17本頁面
【正文】 a3Next iEnd WithEnd SubPrivate Sub Timer2_Timer() ‘設(shè)置溫度時(shí)間隔開發(fā)送數(shù)據(jù)的時(shí)間，以使If t = 0 Then ‘單片機(jī)能正常處理 = Mid(, 1, 1) t = t + 1 ElseIf t = 1 Then = Mid(, 2, 1)40 / 40 t = t + 1 ElseIf t = 2 Then = Mid(, 3, 1) t = t + 1 ElseIf t = 3 Then = Mid(, 4, 1) t = t + 1 ElseIf t = 4 Then = Mid(, 5, 1) t = 0 = FalseEnd IfEnd Sub 羅袃羋蚅蚅膈膄蚅螇羈蒃蚄衿膇荿蚃羂羀芅螂蟻膅膁螁螄羈蒀螀袆膃蒆蝿肈羆莂蝿螈節(jié)羋蒞袀肄膄莄羃芀蒂莃螞肅莈蒂螅羋芄蒂袇肁膀蒁罿襖蕿蒀蝿聿蒅葿袁羂莁蒈羃膈芇蕆蚃羀膃蕆螅膆蒁薆袈罿莇薅羀膄芃薄蝕羇艿薃袂節(jié)膅薂羄肅蒄薁蚄芁莀薁螆肄芆薀衿艿膂蠆羈肂蒀蚈蟻裊莆蚇螃肀莂蚆羅袃羋蚅蚅膈膄蚅螇羈蒃蚄衿膇荿蚃羂羀芅螂蟻膅膁螁螄羈蒀螀袆膃蒆蝿肈羆莂蝿螈節(jié)羋蒞袀肄膄莄羃芀蒂莃螞肅莈蒂螅羋芄蒂袇肁膀蒁罿襖蕿蒀蝿聿蒅葿袁羂莁蒈羃膈芇蕆蚃羀膃蕆螅膆蒁薆袈罿莇薅羀膄芃薄蝕羇艿薃袂節(jié)膅薂羄肅蒄薁蚄芁莀薁螆肄芆薀衿艿膂蠆羈肂蒀蚈蟻裊莆蚇螃肀莂蚆羅袃羋蚅蚅膈膄蚅螇羈蒃蚄衿膇荿蚃羂羀芅螂蟻膅膁螁螄羈蒀螀袆膃蒆蝿肈羆莂蝿螈節(jié)羋蒞袀肄膄莄羃。 a2 amp。 ((a Mod 3600) Mod 60)Elsea3 = ((a Mod 3600) Mod 60)End If.Row = i.Data = b(i).RowLabel = a1 amp。 (a \ 3600)Elsea1 = Str(a \ 3600)End IfIf (a Mod 3600) \ 60 10 Thena2 = 0 amp。 amp。 Chr$(6) amp。 Chr$(6) amp。 Case Else End SelectEnd Sub38 / 40Private Sub Text1_Change() ‘對(duì)讀出的數(shù)據(jù)進(jìn)行處理If (Len() Mod 4 = 0) And (Len() 0) Then = Right$(, 4) amp。每接收到 1 個(gè)字符，發(fā)生 1 次事件 = True 39。接收文本數(shù)據(jù) = 0 39。指定端口號(hào)（COM） Case 0 = 1 Case 1 = 2 Case 2 = 3 Case 3 = 4 End Select = 9600,n,8,1 39。 Trim() Case 3 = 00 amp。} else{digitalshow(11,11,11,11)。} //溫度大于 100 度，百位顯示為 1 else { digitalshow(11,11,11,11)。 //溫度大于 100 度時(shí)十位需要在除 10取余 digitalshow(Tflag,dispbuf[2],dispbuf[1],dispbuf[0])。i){if(Tflag==1) //正溫 if(dispbuf[4]126) { if(dispbuf[4]100) {digitalshow(10,dispbuf[2],dispbuf[1],dispbuf[0])。for(i=255。msb=last/10。dispbuf[2]=dispbuf[1]/10。dispbuf[3]=dispbuf[4]/100。0xf0)4)|((temp_data[1]amp。dispbuf[0]=ditab[dispbuf[4]]。 // 讀取溫度dispbuf[4]=temp_data[0]amp。 // ds1820 開始轉(zhuǎn)換dmsec(2)。dmsec(450)。uchar i。}}/********** MAIN **********/void main (void) { uchar last。 //負(fù)溫度處理（DS18B20 的負(fù)溫度是正的反碼，即將它取反+1，就得到正的溫度）32 / 40Tflag=0。 0x80)==0x80) //判斷溫度正負(fù){temp_data[1]=~temp_data[1]。 // LSB 低 8 位temp_data[1]= tmrbyte ()。 // skip romtmwbyte (0xbe)。dmsec (1)。 // 轉(zhuǎn)換}//讀取溫度read_temp(){ tmreset ()。 tmwbyte (0xcc)。 tmpre ()。 // 再拉高 }}}//ds1820 開始轉(zhuǎn)換void tmstart (void) { dmsec(1)。i++。 Delay(4)。30 / 40Delay(4)。 i++。 // 從低位開始?if (testb) {// Write 1DQ = 0。 0x01。j=8。bit testb。}//寫一個(gè)比特void tmwbyte (unsigned char dat) { unsigned int i。29 / 40dat = (j 7) | (dat 1)。i=8。dat = 0。 return (dat)。 dat = DQ。 i++。 // i++。DQ = 0。 }28 / 40//讀一個(gè)位bit tmrbit (void) { unsigned int i。while (~DQ)。Delay(4)。Delay(90)。i++){}}}27 / 40void Delay(unsigned int num)// 延時(shí)函數(shù){while( num )。 // 1ms 延時(shí)while (count) {for (i=0。 if(i==1){DIN=1。 //關(guān)閉所有顯示P0=dispcode[dispbuf[i]]。i4。26 / 40dispbuf[3]=a3。 dispbuf[1]=a1。 void digitalshow(unsigned char a3,unsigned char a2,unsigned char a1,unsigned char a0){unsigned char i。 uchar data temp_data[2]={0x00,0x00}。//溫度小數(shù)部分用查表法unsigned char code dispcode[]={0x3f,0x06,0x5b,0x4f,0x66,0x6d, 0x7d,0x07,0x7f,0x6f,0x00,0x40}。 //溫度輸入口sbit DIN=P0^7。SONS[14] 吳洪潭，肖艷萍，[M].北京：國防工業(yè)出版社，2022[15] 陳梓城主編 《電子技術(shù)實(shí)訓(xùn) 》 機(jī)械工業(yè)出版社 2022 年[16] 李伯成. 基于 MCS51 單片機(jī)的嵌入式系統(tǒng)的設(shè)計(jì)[M].北京：電子工業(yè)出版社，2022.[17] 李學(xué)海主編 標(biāo)準(zhǔn) 80C51 單片機(jī)基礎(chǔ)教程》 北京航空航天大學(xué)出版社 2022 年[18] 劉樂善主編 《微型計(jì)算機(jī)接口技術(shù)及應(yīng)用》 華中科技大學(xué)出版社 2022 年[19] 先鋒工作室 . 單片機(jī)程序?qū)嵗齕M].北京：清華大學(xué)出版社,2022.[20] 付家才. 單片機(jī)控制工程實(shí)踐技術(shù)[M]. 北京：化學(xué)工業(yè)出版社，[21] Atmel Microcontroller Handbook,2022 [22] STC Microcontroller Handbook,2022 23 / 40[23] John F. Wakerly[M] DIGITAL DESIGN 北京：高等教育出版社 202224 / 40 附錄附錄 1：總體電路圖：附錄 2：?jiǎn)纹瑱C(jī)程序：inc
電大資料相關(guān)推薦
鄂ICP備17016276號(hào)-1