【正文】 se End If = COM1 = 9600 Call chushihua() End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles Dim a a = MsgBox(確定退出系統(tǒng)嗎？, 52, 提示！) If a = Then Call chushihua() End End If End Sub 39。定時(shí)器 Private Sub Timer1_Tick(ByVal sender As , ByVal e As ) Handles Dim writer As String = 報(bào)警記錄： amp。 vbCrLf amp。 時(shí)間： amp。 DateString amp。 amp。 TimeString amp。 vbCrLf If baojin = 1 And ((zi = 1 And baojinkong = 1) Or (shou = 1 And shoudongbian(5) = 1)) Then (, writer, True) Call yinyue() End If = DateString + + TimeString End Sub Private Sub Timer2_Tick(ByVal sender As , ByVal e As ) Handles If biaozhi = 0 Then = shidu = neiguang = waiguang = juanlian = wendu End If End Sub 39。串口程序段 Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As , ByVal e As ) Handles On Error GoTo cuowu Select Case Case Is = COM1 = 1 Case Is = COM2 = 2 Case Is = COM3 = 3 Case Is = COM4 = 4 Case Is = COM5 = 5 Case Is = COM6 = 6 Case Is = COM7 = 7 Case Is = COM8 = 8 Case Is = COM9 = 9 Case Is = COM10 = 10 Case Is = COM11 = 11 Case Is = COM12 = 12 Case Is = COM13 = 13 End Select Exit Subcuowu: MsgBox(警告：端口設(shè)置錯(cuò)誤！, 48, 錯(cuò)誤) = 連接串口 If = True Then = False End If = COM1 = False = False chuan = 0 shou = 0 39。手動(dòng)控制標(biāo)志位 zi = 0 39。自動(dòng)控制標(biāo)志位 End Sub Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As , ByVal e As ) Handles Select Case Case Is = 600 = 600,N,8,1 Case Is = 1200 = 1200,N,8,1 Case Is = 2400 = 2400,N,8,1 Case Is = 4800 = 4800,N,8,1 Case Is = 9600 = 9600,N,8,1 Case Is = 14400 = 14400,N,8,1 Case Is = 19200 = 19200,N,8,1 Case Is = 38400 = 38400,N,8,1 Case Is = 56000 = 56000,N,8,1 Case Is = 57600 = 57600,N,8,1 Case Is = 115200 = 115200,N,8,1 End Select End Sub Private Sub chuankou_Click(ByVal sender As , ByVal e As ) Handles On Error GoTo duankou If = 連接串口 Then = 斷開串口 chuan = 1 39。串口開關(guān)標(biāo)志位 = True ElseIf = 斷開串口 Then = 連接串口 chuan = 0 = False = False = False shou = 0 39。手動(dòng)控制標(biāo)志位 zi = 0 39。自動(dòng)控制標(biāo)志位 If = True Then Call chuanshuzi() ElseIf Then Call chuanshushou() End If End If Exit Subduankou: = 連接串口 MsgBox(錯(cuò)誤：無效的端口, 48, 錯(cuò)誤) chuan = 0 End Sub Private Sub tongxun1_OnComm(ByVal sender As , ByVal e As ) Handles Dim rBuf() As Byte Select Case Case 2 rBuf = If rBuf(0) = 255 Then kaishi = 1 ElseIf i = 11 Then biaozhi = 1 kaishi = 0 i = 0 For g = 0 To 9 jieshoujian(g) = (shuju(g) + 1) Mod 10 Next If (shuju(10) = shuju(0) + jieshoujian(0) + jieshoujian(1) + jieshoujian(2) + jieshoujian(3) + jieshoujian(4) + jieshoujian(5) + jieshoujian(6) + jieshoujian(7) + jieshoujian(8) + jieshoujian(9)) Then wendu = (shuju(0) * 10 + shuju(1)) / neiguang = shuju(2) * 253 + shuju(3) waiguang = shuju(4) * 253 + shuju(5) If (shuju(6) * 253 + shuju(7)) / 6 = 100 Then juanlian = (shuju(6) * 253 + shuju(7)) / 6 End If shidu = shuju(8) baojin = shuju(9) End If = 0 39。清除接收緩沖區(qū) biaozhi = 0 End If If kaishi = 1 And rBuf(0) 255 Then shuju(i) = rBuf(0) i = i + 1 End If End Select End Sub 39。自動(dòng)控制程序段 Private Sub Button3_Click(ByVal sender As , ByVal e As ) Handles Dim write As String = 自動(dòng)控制： amp。 vbCrLf amp。 加熱電熱絲： amp。 amp。 , amp。 vbCrLf amp。 設(shè)定棚內(nèi)濕度： amp。 amp。 , amp。 vbCrLf _ amp。 設(shè)定棚內(nèi)光強(qiáng)： amp。 amp。 , amp。 vbCrLf amp。 設(shè)定關(guān)燈外光強(qiáng)： amp。 amp。 , amp。 vbCrLf amp。 設(shè)定補(bǔ)光外光強(qiáng)： _ amp。 amp。 , amp。 vbCrLf amp。 卷簾自動(dòng)控制： amp。 juankai amp。 , amp。 vbCrLf amp。 報(bào)警控制： amp。 baokai amp。 , amp。 vbCrLf If chuan = 0 Then MsgBox(請(qǐng)先打開串口！, 48, 提示) Exit Sub Else = True If = True Then = False End If If = 確定 Then = 重置 = False End If If = 確定 Then = 重置 = False End If If = 確定 Then