基于單片機(jī)的低功耗溫度記錄儀設(shè)計(jì)方案(參考版)
2025-05-09 00:20本頁(yè)面
【正文】 a3Next iEnd WithEnd SubPrivate Sub Timer2_Timer() ‘設(shè)置溫度時(shí)間隔開(kāi)發(fā)送數(shù)據(jù)的時(shí)間，以使If t = 0 Then ‘單片機(jī)能正常處理 = Mid(, 1, 1) t = t + 1 ElseIf t = 1 Then = Mid(, 2, 1) 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 If13End Sub。 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 Then12a2 = 0 amp。 amp。 Chr$(6) amp。 Chr$(6) amp。 Case Else End SelectEnd SubPrivate 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) 7 { if(dispbuf[4]100) {digitalshow(1
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1