基于單片機的低功耗溫度記錄儀設(shè)計方案(編輯修改稿)
2025-06-02 00:20 本頁面
【文章內(nèi)容簡介】 while(1){tmstart()。 // ds1820開始轉(zhuǎn)換dmsec(2)。 read_temp()。 // 讀取溫度dispbuf[4]=temp_data[0]amp。0x0f。dispbuf[0]=ditab[dispbuf[4]]。dispbuf[4]=((temp_data[0]amp。0xf0)4)|((temp_data[1]amp。0x0f)4)。dispbuf[3]=dispbuf[4]/100。dispbuf[1]=dispbuf[4]%100。dispbuf[2]=dispbuf[1]/10。dispbuf[1]=dispbuf[1]%10。msb=last/10。lsb=last%10。for(i=255。i0。i){if(Tflag==1) //正溫 if(dispbuf[4]126) 7 { if(dispbuf[4]100) {digitalshow(10,dispbuf[2],dispbuf[1],dispbuf[0])。} //溫度小于100度，則百位不顯示 else {msb=msb%10。 //溫度大于 100度時十位需要在除 10取余 digitalshow(Tflag,dispbuf[2],dispbuf[1],dispbuf[0])。}。} //溫度大于 100度，百位顯示為 1 else { digitalshow(11,11,11,11)。 } //溫度大于 125度時顯示else { if(dispbuf[4]56) //負溫大于55 度時正常顯示 {digitalshow(11,dispbuf[2],dispbuf[1],dispbuf[0])。} else{digitalshow(11,11,11,11)。}} //負溫小于55 度時顯示為}} }附錄 3PC 機程序：Dim n As IntegerDim t As Integer ‘定義全局變量Private Sub Command1_Click() ‘單擊溫度設(shè)置按鈕程序Dim i As Integer If Len(Trim()) 3 Or Val() 100 Or Val() 0 Or Left(Right(, 2), 1) . Then = 設(shè)定輸入錯誤，不發(fā)送 Else8 = Select Case Len(Trim()) Case 5 = Trim() Case 4 = 0 amp。 Trim() Case 3 = 00 amp。 Trim() End Select = C = True End IfEnd SubPrivate Sub Command2_Click()
公司管理相關(guān)推薦
鄂ICP備17016276號-1