基于單片機(jī)的低功耗溫度記錄儀設(shè)計(jì)方案-資料下載頁(yè)
2025-05-06 00:20本頁(yè)面
【正文】 If n = 100 Then n = 0 = End If11End SubPrivate Sub Text5_Change() ‘改變讀數(shù)據(jù)的時(shí)間 = Val() * 1000End SubPrivate Sub Timer1_Timer() ‘采集數(shù)據(jù)后進(jìn)行繪圖 = ADim a As SingleDim a1 As StringDim a2 As StringDim a3 As StringDim k As IntegerStatic b(200) As Integer = Time For k = 1 To 199 b(k) = b(k + 1) Next k b(200) = Val()With MSChart1For i = 1 To 200a = Val(Mid(, 1, 2)) * 3600 + Val(Mid(, 4, 2)) * 60 + Val(Mid(, 7, 2)) 200 * Val() + i * Val() + 1If a 0 Thena = a + 86400ElseIf a 86400 Thena = a 86400End IfIf a \ 3600 10 Thena1 = 0 amp。 (a \ 3600)Elsea1 = Str(a \ 3600)End IfIf (a Mod 3600) \ 60 10 Then12a2 = 0 amp。 ((a Mod 3600) \ 60)Elsea2 = (a Mod 3600) \ 60End IfIf ((a Mod 3600) Mod 60) 10 Thena3 = 0 amp。 ((a Mod 3600) Mod 60)Elsea3 = ((a Mod 3600) Mod 60)End If.Row = i.Data = b(i).RowLabel = a1 amp。 : amp。 a2 amp。 : amp。 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) 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
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1