基于單片機(jī)的低功耗溫度記錄儀設(shè)計方案(已改無錯字)
2023-06-06 00:20:41 本頁面
【正文】 ‘單擊按鈕執(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 Select Case 39。指定端口號（COM） Case 0 = 1 Case 1 = 2 Case 2 = 3 Case 3 = 4 End Select = 9600,n,8,1 39。9600 波特，無校驗， 8 位數(shù)據(jù)位，1 位停止位 = InputModeText 39。接收文本數(shù)據(jù) = 0 39。讀出接收緩沖區(qū)的所有內(nèi)容 = 1024 = 1024 = 1 39。每接收到 1 個字符，發(fā)生 1 次事件 = True 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。 Case Else End SelectEnd SubPrivate Sub Text1_Change() ‘對讀出的數(shù)據(jù)進(jìn)行處理If (Len() Mod 4 = 0) And (Len() 0) Then = Right$(, 4) amp。 ℃ = Time amp。 Chr$(6) amp。 Chr$(6) amp。 Chr$(6) amp。 amp。 amp。 = Time$n = n + 1End If
公司管理相關(guān)推薦
鄂ICP備17016276號-1