基于單片機的低功耗溫度記錄儀設(shè)計方案-在線瀏覽
2025-06-23 00:20本頁面
【正文】 1)。 // skip rom tmwbyte (0x44)。tmpre ()。tmwbyte (0xcc)。 // 轉(zhuǎn)換temp_data[0] = tmrbyte ()。 // MSB高 8位if((temp_data[1] amp。temp_data[0]=~temp_data[0]+1。}else6{Tflag=1。 uchar lsb,msb。tmstart()。 // 初始化 ds18b20 while(1){tmstart()。 read_temp()。0x0f。dispbuf[4]=((temp_data[0]amp。0x0f)4)。dispbuf[1]=dispbuf[4]%100。dispbuf[1]=dispbuf[1]%10。lsb=last%10。i0。} //溫度小于100度，則百位不顯示 else {msb=msb%10。}。 } //溫度大于 125度時顯示else { if(dispbuf[4]56) //負(fù)溫大于55 度時正常顯示 {digitalshow(11,dispbuf[2],dispbuf[1],dispbuf[0])。}} //負(fù)溫小于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() End Select = C = True End IfEnd SubPrivate Sub Command2_Click() ‘單擊按鈕執(zhí)行數(shù)據(jù)采集或停止采集 If = 采集數(shù)據(jù) Then = 停止采集 = True = A Else = 采集數(shù)據(jù) = False = B = B End IfEnd SubPrivate Sub Command4_Click() ‘單擊按鈕清空數(shù)據(jù) = = End SubPrivate Sub Command5_Click() ‘單擊按鈕開關(guān)通信端口9 If = 開通信端口 Then = 關(guān)通信端口 = False = True = True = True
公司管理相關(guān)推薦
鄂ICP備17016276號-1