báo trộm điều khiển thiết bị qua mạng internet

Đồ án tốt nghiệp Phụ lục PHỤ LỤC Trong trình thực đồ án, cuối đồ án hoàn thành tốt đẹp Mặc dù tài liệu tham khảo ít, lĩnh vực mà đề tài nghiên cứu lại nhiều có nhiều vấn đề nảy sinh trình thiết kế chúng em làm việc với tinh thần hăng say thật nhóm chúng em cố gắng đề hoàn thành đề tài đạt yêu cầu đặt Đó kết thời gian dài nỗ lực nhóm chúng em quan tâm thầy Lâm Tăng Đức nên đồ án hoàn thành hạn chắn nhiều hạn chế áp lực thời gian Chúng em mong đóng góp ý kiến thầy, cô Sau đây, em xin trình bày kết đạt Ở đề tài này, chúng em làm mô hình mạch mô hình nhà lắp ráp thiết bị đèn để thêm phần trực quan 7.1 MÔ HÌNH NHÀ: SVTH: Hồ Thanh Hà Trang 78 Đồ án tốt nghiệp SVTH: Hồ Thanh Hà Phụ lục Trang 79 Đồ án tốt nghiệp Phụ lục 7.2 MÔ HÌNH MẠCH: SVTH: Hồ Thanh Hà Trang 80 Đồ án tốt nghiệp Phụ lục 7.3 CHƯƠNG TRÌNH GIAO TIẾP VỚI MÁY TÍNH VB 6.0: Ở đồ án ta làm việc với nhiều Form, ta theo thứ tự Form với ý nghĩa chương trình 7.3.1 Form1: Form form giới thiệu đề tài Đây Form đăng nhập hệ thống Người điều khiển muốn điều khiển hệ thống gõ "Tên đăng nhập" "Mật khẩu", sau nhấn vào Button "ĐĂNG NHẬP" nhấn Enter * Chương trình Form1: Private Sub Command1_Click() If (Text1.Text = "totnghiep" And Text2.Text = "05sk") Or (Text1.Text = "TOTNGHIEP" And Text2.Text = "05SK") Then Form1.Hide Form2.Show Else MsgBox "Ban da nhap sai Password!" Text1.Text = "" SVTH: Hồ Thanh Hà Trang 81 Đồ án tốt nghiệp Phụ lục Text2.Text = "" Text1.SetFocus End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If (Text1.Text = "totnghiep" And Text2.Text = "05sk") Or (Text1.Text = "TOTNGHIEP" And Text2.Text = "05SK") Then Form1.Hide Form2.Show Else MsgBox "Ban da nhap sai Password!" Text1.Text = "" Text2.Text = "" Text1.SetFocus End If End If End Sub 7.3.2 Form 2: SVTH: Hồ Thanh Hà Trang 82 Đồ án tốt nghiệp Phụ lục Form2 Form điều khiển Ứng với "Đèn phòng khách", "Đèn phòng ngủ", "Đèn trời" Button ON - OFF Ngoài ra, có Button "BẬT TẤT CẢ", "TẮT TẤT CẢ" Ở ta có hộp Listbox để lưu thời điểm điều khiển Ở Form thông báo "Tình trạng cảnh báo trộm" Nếu phát trộm, tự động gửi mail Form3 * Chương trình Form2: Option Explicit Dim t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, m As Variant Dim i, n As Integer Private Sub cmd1ON_Click() t1 =11 MSComm1.Output = ASC(t1) End Sub Private Sub cmd1OFF_Click() t2 = 12 MSComm1.Output = ASC(t2) End Sub Private Sub cmd2ON_Click() t3 = 13 MSComm1.Output = ASC(t3) End Sub Private Sub cmd2OFF_Click() t4 = 14 MSComm1.Output = ASC(t4) End Sub Private Sub cmd3ON_Click() t5 = 15 MSComm1.Output = ASC(t5) End Sub Private Sub cmd3OFF_Click() t6 = 16 MSComm1.Output = ASC(t6) SVTH: Hồ Thanh Hà Trang 83 Đồ án tốt nghiệp Phụ lục End Sub Private Sub cmdON_Click() t7 = 17 MSComm1.Output = ASC(t7) End Sub Private Sub cmdOFF_Click() t8 = 18 MSComm1.Output = ASC(t8) End Sub Private Sub Cmdluu_Click() List1.AddItem Text5.Text Text5.Text = "Đèn 1" + " " & Text1.Text + " " + "Đèn 2" & " " & Text2.Text + " " & vbCrLf _ & "Đèn 3" + " " + Text3.Text + " " + "Đèn 4" + " " + Text3.Text + " " + vbCrLf _ & "lúc" + " " + Labelgio.Caption + " " + Labelngay.Caption End Sub Private Sub cmdthoat_Click() Unload Me End Sub Private Sub Cmdxoa_Click() List1.Clear End Sub Private Sub Form_Load() MSComm1.CommPort = MSComm1.Settings = "9600,n,8,1" MSComm1.PortOpen = True i = Weekday(Date) Select Case i Case "2": Labelthu.Caption = "Thứ hai" Case "3": Labelthu.Caption = "Thứ ba" Case "4": Labelthu.Caption = "Thứ tư" SVTH: Hồ Thanh Hà Trang 84 Đồ án tốt nghiệp Phụ lục Case "5": Labelthu.Caption = "Thứ năm" Case "6": Labelthu.Caption = "Thứ sáu" Case "7": Labelthu.Caption = "Thứ bảy" Case "1": Labelthu.Caption = "Chủ nhật" End Select Labelngay.Caption = Date Text5.Visible = False Labelbaodong.Visible = False End Sub Private Sub Form_Unload(Cancel As Integer) MSComm1.PortOpen = False End Sub Private Sub Timer1_Timer() Imagetieude.Left = Imagetieude.Left - 100 If Imagetieude.Left < -Imagetieude.Width Then Imagetieude.Left = Form2.Width End If Labelgio.Caption = Time End Sub Private Sub MSComm1_OnComm() m = MSComm1.Input n = Asc(m) Select Case n Case Text1.Text = "MỞ" Image1ON.Visible = True Image1OFF.Visible = False Case Text1.Text = "TẮT" Image1ON.Visible = False Image1OFF.Visible = True Case SVTH: Hồ Thanh Hà Trang 85 Đồ án tốt nghiệp Phụ lục Text2.Text = "MỞ" Image2ON.Visible = True Image2OFF.Visible = False Case Text2.Text = "TẮT" Image2ON.Visible = False Image2OFF.Visible = True Case Text3.Text = "MỞ" Image3ON.Visible = True Image3OFF.Visible = False Case Text3.Text = "TẮT" Image3ON.Visible = False Image3OFF.Visible = True Case Text1.Text = "MỞ" Text2.Text = "MỞ" Text3.Text = "MỞ" Image1ON.Visible = True Image1OFF.Visible = False Image2ON.Visible = True Image2OFF.Visible = False Image3ON.Visible = True Image3OFF.Visible = False Case Text1.Text = "TẮT" Text2.Text = "TẮT" Text3.Text = "TẮT" Image1ON.Visible = False Image1OFF.Visible = True Image2ON.Visible = False SVTH: Hồ Thanh Hà Trang 86 Đồ án tốt nghiệp Phụ lục Image2OFF.Visible = True Image3ON.Visible = False Image3OFF.Visible = True Case Form3.Show Case 10 Text1.Text = "MỞ" Text2.Text = "MỞ" Text3.Text = "TẮT" Image1ON.Visible = True Image1OFF.Visible = False Image2ON.Visible = True Image2OFF.Visible = False Image3ON.Visible = False Image3OFF.Visible = True Case 11 Text1.Text = "MỞ" Text2.Text = "TẮT" Text3.Text = "MỞ" Image1ON.Visible = True Image1OFF.Visible = False Image2ON.Visible = False Image2OFF.Visible = True Image3ON.Visible = True Image3OFF.Visible = False Case 12 Text1.Text = "MỞ" Text2.Text = "TẮT" Text3.Text = "TẮT" Image1ON.Visible = True Image1OFF.Visible = False Image2ON.Visible = False SVTH: Hồ Thanh Hà Trang 87 Đồ án tốt nghiệp Phụ lục SO2: MOV R7,#2 LAP2: LCALL XUNG DJNZ R7,LAP2 RET ;***************************** SO3: MOV R7,#3 LAP3: LCALL XUNG DJNZ R7,LAP3 RET ;***************************** SO4: MOV R7,#4 LAP4: LCALL XUNG DJNZ R7,LAP4 RET ;****************************** SO5: MOV R7,#5 LAP5: LCALL XUNG DJNZ R7,LAP5 RET ;******************************** SO6: MOV R7,#6 LAP6: LCALL XUNG DJNZ R7,LAP6 RET ;******************************** SO7: MOV R7,#7 LAP7: LCALL XUNG DJNZ R7,LAP7 RET ;******************************** SO8: MOV R7,#8 LAP8: LCALL XUNG DJNZ R7,LAP8 RET ;******************************** SO9: MOV R7,#9 LAP9: SVTH: Hồ Thanh Hà Trang 96 Đồ án tốt nghiệp Phụ lục LCALL XUNG DJNZ R7,LAP9 RET ;********************************* SO0: MOV R7,#10 LAP10: LCALL XUNG DJNZ R7,LAP10 RET ;********************************* GOI_0912262070: SETB P2.0 LCALL DELAY2S LCALL DELAY2S CLR P2.0 LCALL DELAY2S LCALL DELAY2S LCALL SO0 LCALL DELAYSSSS LCALL SO9 LCALL DELAYSSSS LCALL SO1 LCALL DELAYSSSS LCALL SO2 LCALL DELAYSSSS LCALL SO2 LCALL DELAYSSSS LCALL SO6 LCALL DELAYSSSS LCALL SO2 LCALL DELAYSSSS LCALL SO0 LCALL DELAYSSSS LCALL SO7 LCALL DELAYSSSS LCALL SO0 LCALL DELAYSSSS LCALL DELAY2S LCALL DELAY2S LCALL DELAY2S LCALL DELAY2S LCALL DELAY2S LCALL DELAY2S LCALL DELAY2S LCALL DELAY2S LCALL DELAY2S PHAT: MOV P0,#0FFH MOV P0,#11111000B CLR P1.0 SVTH: Hồ Thanh Hà Trang 97 Đồ án tốt nghiệp Phụ lục CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD LCALL DELAY2S SETB P1.0 SETB P2.0 SETB P1.2 LCALL DELAY2S LCALL DELAY2S LCALL DELAY2S LCALL DELAY2S LCALL DELAY2S LCALL DELAY2S ;********************************* GOI_01688782087: SETB P2.0 LCALL DELAY2S LCALL DELAY2S CLR P2.0 LCALL DELAY2S LCALL DELAY2S LCALL SO0 LCALL DELAYSSSS LCALL SO1 LCALL DELAYSSSS LCALL SO6 LCALL DELAYSSSS LCALL SO8 LCALL DELAYSSSS LCALL SO8 LCALL DELAYSSSS LCALL SO7 LCALL DELAYSSSS LCALL SO8 LCALL DELAYSSSS SVTH: Hồ Thanh Hà Trang 98 Đồ án tốt nghiệp Phụ lục LCALL SO2 LCALL DELAYSSSS LCALL SO0 LCALL DELAYSSSS LCALL SO8 LCALL DELAYSSSS LCALL SO7 LCALL DELAYSSSS LCALL DELAY2S LCALL DELAY2S LCALL DELAY2S LCALL DELAY2S LCALL DELAY2S LCALL DELAY2S LCALL DELAY2S LCALL DELAY2S LCALL DELAY2S PHAT1: MOV P0,#0FFH MOV P0,#11111000B CLR P1.0 CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD LCALL DELAY2S SETB P1.0 SETB P2.0 SETB P1.2 LCALL DELAY2S LCALL DELAY2S LCALL DELAY2S LCALL DELAY2S LCALL DELAY2S LCALL DELAY2S RET SVTH: Hồ Thanh Hà Trang 99 Đồ án tốt nghiệp M: K: L: Phụ lục ;********************************* XUNG: SETB P2.0 MOV MS,#100 LCALL DELAY MOV MS,#500 LCALL DELAY RET ;***************************** DELAYSSSS: MOV MS,#100 LCALL DELAY RET ;********************************* DELAY1: MOV 7ah,#4 MOV 7bh,#200 MOV 7ch,#250 DJNZ 7ch,L DJNZ 7bh,K DJNZ 7ah,M RET ;********************************* DELAY50MS: MOV R4,#200 LAP11: MOV R5,#250 LAP22: DJNZ R5,LAP22 DJNZ R4,LAP11 RET ;************************************ DELAY22MS: MOV R0,#2 LAP11MS: LCALL DELAY400US DJNZ R0,LAP11MS RET ;************************************ DELAY2S: MOV R1,#4 LAP33: LCALL DELAY50MS DJNZ R1,LAP33 MOV R1,#0 RET ;*********************************** DELAY400US: MOV 7DH,#200 DJNZ 7DH,$ SVTH: Hồ Thanh Hà Trang 100 Đồ án tốt nghiệp Phụ lục RET ;*********************************** DELAY: MOV R6,MS LOOP_DELAY: MOV 7FH,#2 LAP_LAI_DELAY: MOV 7EH,#250 DJNZ 7EH,$ DJNZ 7FH,LAP_LAI_DELAY DJNZ R6,LOOP_DELAY RET DELAYTMOD: MOV R2,#250 LOOP2: MOV TH0,#0ECH MOV TL0,#78H SETB TR0 JNB TF0,$ CLR TR0 CLR TF0 DJNZ R0,LOOP2 RET ;******************************** TRUYEN_DU_LIEU: MOV SBUF,A YYY:JNB TI,YYY CLR TI RET ;******************************* NHAN_DU_LIEU: SSS: JNB RI,SSS MOV A,SBUF CLR RI BAT1: CLR P2.4 CLR TB1 LCALL TRUYEN_DU_LIEU TAT1: SETB P2.4 SETB TB1 LCALL TRUYEN_DU_LIEU BAT2: CLR P2.5 CLR TB2 LCALL TRUYEN_DU_LIEU TAT2: SETB P2.5 SETB TB2 LCALL TRUYEN_DU_LIEU BAT3: CLR P2.6 SVTH: Hồ Thanh Hà Trang 101 Đồ án tốt nghiệp Phụ lục CLR TB3 LCALL TRUYEN_DU_LIEU TAT3: SETB P2.6 SETB TB3 LCALL TRUYEN_DU_LIEU BAT_ALL: CLR P2.4 CLR P2.5 CLR P2.6 CLR TB3 CLR TB1 CLR TB2 LCALL TRUYEN_DU_LIEU TAT_ALL: SETB P2.4 SETB P2.5 SETB P2.6 SETB TB3 SETB TB1 SETB TB2 LCALL TRUYEN_DU_LIEU THOAT: RETI ;****************************** THBAO_TINHTRANG_TB: MOV C,TB3 ANL C,/TB2 ANL C,/TB1 JNC KT_TINHTRANG_2 MOV A,#0AH LCALL TRUYEN_DU_LIEU CLR P1.0 MOV P0,#0FFH MOV P0,#11101000B CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD MOV P0,#0FFH MOV P0,#11110100B CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD MOV P0,#0FFH MOV P0,#11111100B CLR P0.5 NOP NOP SVTH: Hồ Thanh Hà Trang 102 Đồ án tốt nghiệp Phụ lục SETB P0.5 LCALL DELAYTMOD MOV P0,#0FFH MOV P0,#11110100B CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD MOV P0,#0FFH MOV P0,#11110000B CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD MOV P0,#0FFH MOV P0,#11110000B CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD SETB P1.0 RET KT_TINHTRANG_2: MOV C,TB2 ANL C,/TB3 ANL C,/TB1 JNC KT_TINHTRANG_3 MOV A,#0BH LCALL TRUYEN_DU_LIEU CLR P1.0 MOV P0,#0FFH MOV P0,#11101000B CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD MOV P0,#0FFH MOV P0,#11110100B CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD MOV P0,#0FFH MOV P0,#11111100B CLR P0.5 NOP SVTH: Hồ Thanh Hà Trang 103 Đồ án tốt nghiệp Phụ lục NOP SETB P0.5 LCALL DELAYTMOD MOV P0,#0FFH MOV P0,#11100000B CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD MOV P0,#0FFH MOV P0,#11110000B CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD MOV P0,#0FFH MOV P0,#11100100B CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD SETB P1.0 RET KT_TINHTRANG_3: MOV C,TB2 ANL C,TB3 ANL C,/TB1 JNC KT_TINHTRANG_4 MOV A,#0CH LCALL TRUYEN_DU_LIEU CLR P1.0 MOV P0,#0FFH MOV P0,#11101000B CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD MOV P0,#0FFH MOV P0,#11100100B CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD MOV P0,#0FFH MOV P0,#11101100B SVTH: Hồ Thanh Hà Trang 104 Đồ án tốt nghiệp Phụ lục CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD MOV P0,#0FFH MOV P0,#11100000B CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD MOV P0,#0FFH MOV P0,#11110000B CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD MOV P0,#0FFH MOV P0,#11100000B CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD SETB P1.0 RET KT_TINHTRANG_4: MOV C,TB1 ANL C,/TB3 ANL C,/TB2 JNC KT_TINHTRANG_5 MOV A,#0DH LCALL TRUYEN_DU_LIEU CLR P1.0 MOV P0,#0FFH MOV P0,#11101000B CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD MOV P0,#0FFH MOV P0,#11100000B CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD SVTH: Hồ Thanh Hà Trang 105 Đồ án tốt nghiệp Phụ lục MOV P0,#0FFH MOV P0,#11101100B CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD MOV P0,#0FFH MOV P0,#11100100B CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD MOV P0,#0FFH MOV P0,#11110000B CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD MOV P0,#0FFH MOV P0,#11100100B CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD SETB P1.0 RET KT_TINHTRANG_5: MOV C,TB1 ANL C,TB3 ANL C,/TB2 JNC KT_TINHTRANG_6 MOV A,#0EH LCALL TRUYEN_DU_LIEU CLR P1.0 MOV P0,#0FFH MOV P0,#11101000B CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD MOV P0,#0FFH MOV P0,#11100000B CLR P0.5 NOP NOP SETB P0.5 SVTH: Hồ Thanh Hà Trang 106 Đồ án tốt nghiệp Phụ lục LCALL DELAYTMOD MOV P0,#0FFH MOV P0,#11101100B CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD MOV P0,#0FFH MOV P0,#11100100B CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD MOV P0,#0FFH MOV P0,#11110000B CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD MOV P0,#0FFH MOV P0,#11100000B CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD SETB P1.0 RET KT_TINHTRANG_6: MOV C,TB1 ANL C,TB2 ANL C,/TB3 JNC KT_TINHTRANG_7 MOV A,#0FH LCALL TRUYEN_DU_LIEU CLR P1.0 MOV P0,#0FFH MOV P0,#11101000B CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD MOV P0,#0FFH MOV P0,#11100000B CLR P0.5 NOP SVTH: Hồ Thanh Hà Trang 107 Đồ án tốt nghiệp Phụ lục NOP SETB P0.5 LCALL DELAYTMOD MOV P0,#0FFH MOV P0,#11101100B CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD MOV P0,#0FFH MOV P0,#11100000B CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD MOV P0,#0FFH MOV P0,#11110000B CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD MOV P0,#0FFH MOV P0,#11100100B CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD SETB P1.0 RET KT_TINHTRANG_7: MOV C,TB1 CPL C ANL C,/TB2 ANL C,/TB3 JNC KT_TINHTRANG_8 MOV A,#10H LCALL TRUYEN_DU_LIEU CLR P1.0 MOV P0,#0FFH MOV P0,#11101000B CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD SVTH: Hồ Thanh Hà Trang 108 Đồ án tốt nghiệp Phụ lục MOV P0,#0FFH MOV P0,#11100100B CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD MOV P0,#0FFH MOV P0,#11101100B CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD MOV P0,#0FFH MOV P0,#11100100B CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD MOV P0,#0FFH MOV P0,#11110000B CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD MOV P0,#0FFH MOV P0,#11100100B CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD SETB P1.0 RET KT_TINHTRANG_8: MOV C,TB1 ANL C,TB2 ANL C,TB3 JNC THBAO_TINHTRANG_TB MOV A,#11H LCALL TRUYEN_DU_LIEU CLR P1.0 MOV P0,#0FFH MOV P0,#11101000B CLR P0.5 NOP NOP SVTH: Hồ Thanh Hà Trang 109 Đồ án tốt nghiệp Phụ lục SETB P0.5 LCALL DELAYTMOD MOV P0,#0FFH MOV P0,#11100000B CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD MOV P0,#0FFH MOV P0,#11101100B CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD MOV P0,#0FFH MOV P0,#11100000B CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD MOV P0,#0FFH MOV P0,#11110000B CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD MOV P0,#0FFH MOV P0,#11100000B CLR P0.5 NOP NOP SETB P0.5 LCALL DELAYTMOD SETB P1.0 RET THBAO_TINHTRANG_TB: LJMP THBAO_TINHTRANG_TB RET END SVTH: Hồ Thanh Hà Trang 110 [...]... Nothing Set iConf = Nothing Set Flds = Nothing End Sub Đây là kết quả hộp mail thangloingoanseo@gmail.com nhận được mail khi mạch phát hiện trộm Ngoài ra, ta có thể gửi mail cùng một lúc nhiều địa chỉ email khác nhau để thông báo tình trạng có trộm 7.4 CHƯƠNG TRÌNH VI ĐIỀU KHIỂN AT89C51: HOI_CHUONG SO_LAN_NHAN_PHIM PHIM_NHAN SVTH: Hồ Thanh Hà DATA 30H DATA 31H DATA 32H Trang 90 Đồ án tốt nghiệp Phụ lục CHO_NHAC_MAY... Image2OFF.Visible = True Image3ON.Visible = True SVTH: Hồ Thanh Hà Trang 88 Đồ án tốt nghiệp Phụ lục Image3OFF.Visible = False End Select End SUB 7.3.3 Form 3: Form 3 có ý nghĩa gửi mail tự động khi phát hiện trộm Mặc dù có nút ấn "Gửi Mail" nhưng để đảm bảo yêu cầu đề tài là gửi mail tự động nên các câu lệnh ta thực hiện trong sự kiện Form_Load * Chương trình Form 3: Private Sub Form_Load() Dim iMsg, iConf, ... điều khiển Ứng với "Đèn phòng khách", "Đèn phòng ngủ", "Đèn trời" Button ON - OFF Ngoài ra, có Button "BẬT TẤT CẢ", "TẮT TẤT CẢ" Ở ta có hộp Listbox để lưu thời điểm điều khiển Ở Form thông báo. .. thangloingoanseo@gmail.com nhận mail mạch phát trộm Ngoài ra, ta gửi mail lúc nhiều địa email khác để thông báo tình trạng có trộm 7.4 CHƯƠNG TRÌNH VI ĐIỀU KHIỂN AT89C51: HOI_CHUONG SO_LAN_NHAN_PHIM... chương trình 7.3.1 Form1: Form form giới thiệu đề tài Đây Form đăng nhập hệ thống Người điều khiển muốn điều khiển hệ thống gõ "Tên đăng nhập" "Mật khẩu", sau nhấn vào Button "ĐĂNG NHẬP" nhấn Enter