基于單片機的低功耗溫度記錄儀設(shè)計方案-閱讀頁
2025-05-21 00:20本頁面
【正文】 Select Case 39。9600 波特，無校驗， 8 位數(shù)據(jù)位，1 位停止位 = InputModeText 39。讀出接收緩沖區(qū)的所有內(nèi)容 = 1024 = 1024 = 1 39。打開串口 Else = False = B = B = 開通信端口 = True = False = 采集數(shù)據(jù) = False = False = False End IfEnd SubPrivate Sub Command7_Click() ‘單擊按鈕保存溫度數(shù)據(jù)10 = 2Open For Append As 1 Write 1, Now Write 1, Close 1End SubPrivate Sub Form_Load() COM1 COM2 COM3 COM4End SubPrivate Sub MSComm1_OnComm() ‘串口接收到數(shù)據(jù)時讀出數(shù)據(jù) Select Case Case EvReceive = amp。 ℃ = Time amp。 Chr$(6) amp。 amp。 = Time$n = n + 1End IfIf n = 100 Then n = 0 = End If11End SubPrivate Sub Text5_Change() ‘改變讀數(shù)據(jù)的時間 = Val() * 1000End SubPrivate Sub Timer1_Timer() ‘采集數(shù)據(jù)后進行繪圖 = 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 Mod 3600) \ 60)Elsea2 = (a Mod 3600) \ 60End IfIf ((a Mod 3600) Mod 60) 10 Thena3 = 0 amp。 : amp。 : a
公司管理相關(guān)推薦
鄂ICP備17016276號-1