【文章內(nèi)容簡(jiǎn)介】 。 串口開關(guān)狀態(tài)判斷Dim InputSignal As String 39。 接收緩沖暫存Private Sub CmdAuto_Click() 39。房間切換按鈕On Error GoTo Errwsumcount1 = sumcount1 + 1 If sumcount1 = 84 Then = True = True = True = False = False = False = False = False = False = 房間2 temp = sumcount1 Call textsend ElseIf sumcount1 = 85 Then = True = True = True = False = False = False = False = False = False = 房間3 temp = sumcount1 Call textsend Else sumcount1 = 83 = True = True = True = False = False = False = False = False = False = 房間1 temp = sumcount1 Call textsend End IfErrw:End Sub39。=============================================================39。 家居關(guān)掉按鈕39。=============================================================Private Sub CmdClose_Click() 39。家居燈房間1關(guān)掉按鈕 = True = False = Falsetemp = 0Call textsendEnd SubPrivate Sub CmdClose1_Click() 39?？照{(diào)關(guān)掉按鈕 = False = True = Falsetemp = 33Call textsendEnd SubPrivate Sub Cmdclose11_Click() 39。家居燈房間2關(guān)掉按鈕 = True = False = Falsetemp = 0Call textsendEnd SubPrivate Sub CmdClose2_Click() 39。熱水器關(guān)掉按鈕 = False = True = Falsetemp = 76Call textsendEnd SubPrivate Sub Cmdclose22_Click() 39。家居燈房間3關(guān)掉按鈕 = True = False = Falsetemp = 0Call textsendEnd Sub39。=============================================================39。 家居控制按鈕39。=============================================================Private Sub Cmdcontrol_Click() 39。家居燈房間1控制按鈕temp = TxtSendIf temp 10 ThenMsgBox 亮度已經(jīng)超過最大級(jí)別, 48, 智能家居控制系統(tǒng)temp = 5ElseIf temp 1 ThenMsgBox 亮度已經(jīng)超過最低級(jí)別, 48, 智能家居控制系統(tǒng)temp = 5ElseEnd IfCall textsendEnd SubPrivate Sub Cmdcontrol1_Click() 39。空調(diào)控制按鈕temp = If temp 32 ThenMsgBox 空調(diào)溫度已經(jīng)超過最高溫度, 48, 智能家居控制系統(tǒng)temp = 20ElseIf temp 15 ThenMsgBox 空調(diào)溫度已經(jīng)低于最低溫度, 48, 智能家居控制系統(tǒng)temp = 20ElseEnd IfCall textsendEnd SubPrivate Sub Cmdcontrol11_Click() 39。家居燈房間2控制按鈕temp = TxtSendIf temp 10 ThenMsgBox 亮度已經(jīng)超過最大級(jí)別, 48, 智能家居控制系統(tǒng)temp = 5ElseIf temp 1 ThenMsgBox 亮度已經(jīng)超過最低級(jí)別, 48, 智能家居控制系統(tǒng)temp = 5ElseEnd IfCall textsendEnd SubPrivate Sub Cmdcontrol2_Click() 39。熱水器控制按鈕temp = If temp 75 ThenMsgBox 熱水器溫度已經(jīng)超過最高溫度, 48, 智能家居控制系統(tǒng)temp = 50ElseIf temp 35 ThenMsgBox 熱水器溫度已經(jīng)低于最低溫度, 48, 智能家居控制系統(tǒng)temp = 50ElseEnd IfCall textsendEnd SubPrivate Sub Cmdcontrol22_Click() 39。家居燈房間3控制按鈕temp = TxtSendIf temp 10 ThenMsgBox 亮度已經(jīng)超過最大級(jí)別, 48, 智能家居控制系統(tǒng)temp = 5ElseIf temp 1 ThenMsgBox 亮度已經(jīng)超過最低級(jí)別, 48, 智能家居控制系統(tǒng)temp = 5ElseEnd IfCall textsendEnd Sub39。=============================================================39。 家居功能切換按鈕39。=============================================================Private Sub CmdMode_Click() 39。功能切換按鈕On Error GoTo Errsumcount = sumcount + 1 If sumcount = 81 Then = 空調(diào) = False = False = True = False = True = False temp = sumcount Call textsend ElseIf sumcount = 82 Then = 熱水器 = False = False = True = False = True = False temp = sumcount Call textsend Else sumcount = 80 = 家居燈 = True = False = False = True = False = False temp = sumcount Call textsend temp = sumcount1 Call textsend End If If =True then 39。 如果串口打開了，則可以發(fā)送數(shù)據(jù) =sumcount 39。 發(fā)送數(shù)據(jù) Else MsgBox 串口沒有打開，請(qǐng)打開串口, 48, 智能家居控制系統(tǒng) 39。 如果串口沒有被打開，提示打開串口 End IfErr:End Sub39。=============================================================39。 家居打開按鈕39。=============================================================Private Sub CmdOpen_Click() 39。家居燈房間1打開按鈕 = False = True = Truetemp = 11Call textsendtemp = 5Call textsendEnd SubPrivate Sub CmdOpen1_Click() 39?？照{(diào)打開按鈕 = True = False = Truetemp = 14Call textsendtemp = 20Call textsendEnd SubPrivate Sub CmdOpen11_Click() 39。家居燈房間2打開按鈕 = False = True = Truetemp = 11Call textsendtemp = 5Call textsendEnd SubPrivate Sub CmdOpen2_Click() 39。熱水器打開按鈕 = True = False = Truetemp = 34Call textsendtemp = 50Call textsendEnd SubPrivate Sub CmdOpen22_Click() 39。家居燈房間3打開按鈕 = False = True = Truetemp = 11Call textsendtemp = 5Call textsendEnd Sub39。=============================================================39。 家居調(diào)節(jié)按鈕39。=============================================================Private Sub CmdSend1_Click(Index As Integer) 39。家居燈亮度加按鈕If 10 Then = + 1Else MsgBox 電燈亮度已經(jīng)達(dá)到最大級(jí)別, 48, 智能家居控制系統(tǒng)End IfEnd SubPrivate Sub CmdSend2_Click(Index As Integer) 39。家居燈亮度減按鈕If 1 Then = 1Else MsgBox 電燈亮度已經(jīng)達(dá)到最低級(jí)別, 48, 智能家居控制系統(tǒng)End IfEnd SubPrivate Sub CmdSend3_Click(Index As Integer) 39?？照{(diào)溫度減按鈕If TxtSend1 15 Then = 1Else MsgBox 空調(diào)溫度已經(jīng)最低, 48, 智能家居控制系統(tǒng)End If