【正文】 =============================================================Private Sub Timer1_Timer()Setup = Time = SetupIf Format(open1,HH:MM:SS)= Format(Setup, HH:MM:SS) Then 39。=============================================================39。=============================================================Private Sub CmdQuit_Click() 39。 39。 取出數(shù)據(jù)轉(zhuǎn)換成十六進制并放入數(shù)組中 Next = SendArrEnd Sub39。 重新定義數(shù)組長度For i = 0 To dataCount / 2 1 SendArr(i) = Val(amp。 不是雙數(shù)，則減1 End If outData = Left(outData, dataCount) 39。 取一位數(shù)據(jù) If(Asc(TemporarySave)=48AndAsc(TemporarySave)=57)Or(Asc(TemporarySave) = 65 And Asc(TemporarySave) = 70) Then dataCount = dataCount + 1 Else Exit For Exit Sub End If Next If dataCountMod2 0 Then 39。 轉(zhuǎn)換成大寫 outputLen=Len(outData) 39。 局部變量 outData = UCase(Replace(temp, Space(1), Space(0))) 39。 數(shù)據(jù)暫存 DimdataCountAsInteger 39。 發(fā)送數(shù)據(jù)暫存 DimSendArr()AsByte 39。 發(fā)送按鈕On Error Resume Next DimoutputLenAsInteger 39。 發(fā)送模式信號39。 單片機內(nèi)存的值用TextReceive顯示出 End If End IfErr:End Sub39。 單片機內(nèi)存的值用TextReceive顯示出 ElseIf sumcount = 81 Then =receiveData 39。 Space(1) 39。 小于16，前面加0 Else receiveData = receiveData amp。 0 + Hex(ReceiveArr(i)) amp。 數(shù)據(jù)放入數(shù)組 For i = 0 To (Counter 1) Step 1 39。 讀取接收數(shù)據(jù)個數(shù) receiveData= 39。 接收數(shù)據(jù)個數(shù)計數(shù)器 Dim i As Integer 39。 接收數(shù)據(jù)數(shù)組 Dim receiveData As String 39。 文本接收39。 每發(fā)送1個數(shù)就觸發(fā)一次 Case Else End SelectErr:End Sub39。 設(shè)置onm事件，讀取片機內(nèi)存的值On Error GoTo ErrSelect 39。 通信觸發(fā)事件39。 串口狀態(tài)顯示 = 打開串口 = True = FalseErr:End Sub39。關(guān)閉串口On Error GoTo ErrIf =True=False 39。 = 關(guān)閉串口 = True = False Else =STATU：COM Port Cloced 39。 amp。 Left(, 1) amp。 amp。 amp。 先判斷串口是否打開，如果打開則先關(guān)閉CallComm_reSet(Val(Mid(,4,1)),Left(,1), ) 39。=============================================================Private Sub OpenCom() 39。=============================================================39。 調(diào)用關(guān)閉串口函數(shù)End Select 39。 如果串口已經(jīng)打開，則提示 MsgBox 沒有成功，請重試, 48, 智能家居控制系統(tǒng) CloseCom 39。 Else = 打開串口 = False = True = STATUS：COM Port Cloced End If Exit SubErrorHint: 39。 amp。 Left(, 1) amp。 amp。 amp。 設(shè)置波特率，無校驗，8位數(shù)據(jù)位，1位停止位 = 9600,n,8,1 =True 39。 , amp。 , amp。 , amp。 先判斷串口是否打開，如果打開則先關(guān)閉 =Port 39。=============================================================Private Sub Comm_reSet(Port As Byte, BaudRate As String, ParityBit As String, DataBit As Integer, StopBit As Integer) OnErrorGoToErrorHint 39。=============================================================39。 錯誤處理 Select Case Case PortAlreadyOpen 39。 Else = STATUS：COM Port Cloced 39。 amp。 Left(, 1) amp。 amp。 amp。 滑空接收緩沖 = InputModeBinary =True 39。 每X個字符到接收緩沖區(qū)引起觸發(fā)接收事件 =0 39。 清空輸出緩沖區(qū) =1 39。 設(shè)置發(fā)送緩沖區(qū)為4096字節(jié) =0 39。 設(shè)置波特率，無校驗，8位數(shù)據(jù)位，1位停止位 =1024 39。 , amp。 , amp。 , amp。 先判斷串口是否打開，如果打開則先關(guān)閉 =Port 39。=============================================================Private Sub Comm_initial(Port As Byte, BaudRate As String, ParityBit As String, DataBit As Integer, StopBit As Integer) On Error GoTo ErrorTrap 39。=============================================================39。 打開串口 = True = False = False ComSwitch = True Else CloseCom 39。=============================================================Private Sub CmdSwitch_Click() 39。=============================================================39。 修改停止位Call Comm_reSet(Val(Mid(, 4, 2)), , Left(, 1), , ) 39。 修改校驗位Call Comm_reSet(Val(Mid(, 4, 2)), , Left(, 1), , ) 39。修改數(shù)據(jù)位Call Comm_reSet(Val(Mid(, 4, 2)), , Left(, 1), , ) 39。修改串口Call Comm_reSet(Val(Mid(, 4, 2)), , Left(, 1), , ) 39。修改波特率Call Comm_reSet(Val(Mid(, 4, 2)), , Left(, 1), , ) 39。 串口設(shè)置39。 停止位載入 2 temp = sumcount Call textsend temp = sumcount1 Call textsendErr:End Sub39。校驗位載入 (ENEV) (NONE) (MARK) (SPACE) 8 39。波特率載入 (600) (1200) (2400) (4800) (9600) (14400) (COM1) 39。 先判斷串口是否打開，如果打開則先關(guān)閉 39。============================================================= Private Sub Form_Load() 39。=============================================================39。 stop2 = = amp。 ElseIf sumcount2 = 3 Then = 結(jié)束時間： = 設(shè)定結(jié)束時間open1 = = amp。 ElseIf sumcount2 = 2 Then = 開始時間： = 設(shè)定開始時間stop1 = = amp。熱水器設(shè)定時間按鈕sumcount2 = sumcount2 + 1If sumcount2 = 1 Then = 結(jié)束時間： = 設(shè)定結(jié)束時間open1 = = amp。 熱水器設(shè)定時間按鈕39。熱水器溫度加按鈕If 75 Then = + 1Else MsgBox 熱水器溫度已經(jīng)達到極限, 48, 智能家居控制系統(tǒng)End IfEnd Sub39?？照{(diào)溫度加按鈕If 32 Then = + 1Else MsgBox 空調(diào)溫度已經(jīng)達到極限, 48, 智能家居控制系統(tǒng)End If