báo trộm điều khiển thiết bị qua mạng internet
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (1.92 MB, 33 trang )
Đồ án tốt nghiệp
Phụ lục
PHỤ LỤC
Trong quá trình thực hiện đồ án, cuối cùng đồ án cũng đã 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 và có nhiều vấn
đề nảy sinh trong quá trình thiết kế nhưng chúng em đã làm việc với tinh thần hăng
say và thật sự nhóm chúng em đã rất cố gắng đề hoàn thành đề tài và đạt được những
yêu cầu đặt ra. Đó là kết quả của một thời gian dài nỗ lực của nhóm chúng em cùng sự
quan tâm của thầy Lâm Tăng Đức nên đồ án đã hoàn thành đúng hạn nhưng chắc chắn
sẽ còn nhiều hạn chế do áp lực về thời gian. Chúng em rất mong sự đóng góp ý kiến
của các thầy, cô.
Sau đây, em xin trình bày những kết quả đã đạt được. Ở đề tài này, chúng em
làm mô hình mạch và mô hình ngôi nhà sẽ được lắp ráp các 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 này ta sẽ làm việc với nhiều Form, ta sẽ theo thứ tự từng Form với ý
nghĩa và chương trình của nó.
7.3.1. Form1:
Form 1 là form giới thiệu đề tài. Đây cũng là Form đăng nhập hệ thống. Người
điều khiển muốn điều khiển hệ thống gõ đúng "Tên đăng nhập" và đúng "Mật khẩu",
sau đó nhấn vào Button "ĐĂNG NHẬP" hoặc 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 là Form điều khiển. Ứng với "Đèn phòng khách", "Đèn phòng ngủ",
"Đèn ngoài trời" là các Button ON - OFF. Ngoài ra, có Button "BẬT TẤT CẢ", "TẮT
TẤT CẢ". Ở đây ta có hộp Listbox để lưu các thời điểm điều khiển. Ở Form này cũng
thông báo "Tình trạng cảnh báo trộm". Nếu phát hiện trộm, sẽ 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 = 1
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 1
Text1.Text = "MỞ"
Image1ON.Visible = True
Image1OFF.Visible = False
Case 2
Text1.Text = "TẮT"
Image1ON.Visible = False
Image1OFF.Visible = True
Case 3
SVTH: Hồ Thanh Hà
Trang 85
Đồ án tốt nghiệp
Phụ lục
Text2.Text = "MỞ"
Image2ON.Visible = True
Image2OFF.Visible = False
Case 4
Text2.Text = "TẮT"
Image2ON.Visible = False
Image2OFF.Visible = True
Case 5
Text3.Text = "MỞ"
Image3ON.Visible = True
Image3OFF.Visible = False
Case 6
Text3.Text = "TẮT"
Image3ON.Visible = False
Image3OFF.Visible = True
Case 7
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 8
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 9
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
Image2OFF.Visible = True
Image3ON.Visible = False
Image3OFF.Visible = True
Case 13
Text1.Text = "TẮT"
Text2.Text = "MỞ"
Text3.Text = "MỞ"
Image1ON.Visible = False
Image1OFF.Visible = True
Image2ON.Visible = True
Image2OFF.Visible = False
Image3ON.Visible = True
Image3OFF.Visible = False
Case 14
Text1.Text = "TẮT"
Text2.Text = "MỞ"
Text3.Text = "TẮT"
Image1ON.Visible = False
Image1OFF.Visible = True
Image2ON.Visible = True
Image2OFF.Visible = False
Image3ON.Visible = False
Image3OFF.Visible = True
Case Else
Text1.Text = "TẮT"
Text2.Text = "TẮT"
Text3.Text = "MỞ"
Image1ON.Visible = False
Image1OFF.Visible = True
Image2ON.Visible = False
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, Flds
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
schema = " />Flds.Item(schema & "sendusername") = Text1
Flds.Item(schema & "sendpassword") = Text2
With iMsg
.From = Text3 & "<" & Text1 & ">"
SVTH: Hồ Thanh Hà
Trang 89
Đồ án tốt nghiệp
Phụ lục
.Subject = Text5
.HTMLBody = Text6
.TextBody = Text6
.Sender = Text3
.Organization = Text3
.ReplyTo = Text1
Set .Configuration = iConf
.Send
End With
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
End Sub
Đây là kết quả hộp mail 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
DATA 33H
CHO_NHAN_DU_LIEU
DATA 34H
MS
DATA 38H
TB1
BIT 160
TB2
BIT 161
TB3
BIT 162
;************************************
ORG 0000H
LJMP MAIN
ORG 0003H
LJMP EX0ISR
ORG 0023H
LJMP NHAN_DU_LIEU
ORG 0030H
;************************************
MAIN:
SETB P2.4
SETB P2.5
SETB P2.6
SETB TB1
SETB TB2
SETB TB3
MOV A,PCON
SETB ACC.7
MOV PCON,A
MOV TMOD,#21H
MOV IE,#91H
MOV TH1,#0FAH
MOV HOI_CHUONG,#0
MOV SO_LAN_NHAN_PHIM,#0
MOV PHIM_NHAN,#0
SETB P2.0
SETB P3.2
MOV SCON,#50H
SETB TR1
LAP_MAIN:
LAPP0:
MOV HOI_CHUONG,#2
HERE:
JNB P3.4,HERE
LCALL DELAY1
LCALL DELAY1
LCALL DELAY1
LCALL DELAY1
MOV A,HOI_CHUONG
DEC A
MOV HOI_CHUONG,A
CJNE A,#0,HERE
LCALL
DIEU_KHIEN
;************************************
EX0ISR:
SETB P2.0
SVTH: Hồ Thanh Hà
Trang 91
Đồ án tốt nghiệp
Phụ lục
CLR P1.2
LCALL DELAY2S
LCALL DELAY2S
MOV A,#”A”
LCALL TRUYEN_DU_LIEU
LCALL DELAY2S
LCALL GOI_0912262070
RETI
;************************************
DIEU_KHIEN:
LAPP3:
LCALL THOI_GIAN_CHO_NHAN
INC SO_LAN_NHAN_PHIM
LCALL NHAN_TH_DTMF
MOV A,SO_LAN_NHAN_PHIM
CJNE A,#1,NHAP_PASS
MOV A,PHIM_NHAN
CJNE A,#0D0H,THOAT_KNTB1
LCALL DELAY2S
MOV P0,#0FFH
MOV P0,#11110100B
CLR P1.0
CLR P0.5
NOP
NOP
SETB P0.5
LCALL DELAYTMOD
SETB P1.0
SJMP DIEU_KHIEN
;************************************
NHAP_PASS:
CJNE A,#2,MA_TB
MOV A,PHIM_NHAN
CJNE A,#0FCH,THOAT_KNTB1
LCALL DELAY2S
LCALL THOI_GIAN_CHO_NHAN
LCALL NHAN_TH_DTMF
MOV A,PHIM_NHAN
CJNE A,#0FBH,THOAT_KNTB1
LCALL DELAY2S
LCALL THOI_GIAN_CHO_NHAN
LCALL NHAN_TH_DTMF
MOV A,PHIM_NHAN
CJNE A,#0FAH,THOAT_KNTB1
LCALL THBAO_TINHTRANG_TB
THONG_BAO_CHON_LAI_THIET_BI:
LCALL DELAY2S
MOV P0,#0FFH
MOV P0,#11111100B
CLR P1.0
CLR P0.5
NOP
SVTH: Hồ Thanh Hà
Trang 92
Đồ án tốt nghiệp
Phụ lục
NOP
SETB P0.5
LCALL DELAYTMOD
SETB P1.0
LJMP DIEU_KHIEN
;************************************
THOAT_KNTB1:
LCALL DELAY2S
LCALL DELAY2S
LCALL DELAY2S
MOV P0,#0FFH
MOV P0,#11100000B
CLR P1.0
CLR P0.5
NOP
NOP
SETB P0.5
LCALL DELAYTMOD
SETB P1.0
MOV SO_LAN_NHAN_PHIM,#0
MOV PHIM_NHAN,#0
SETB P2.0
LJMP LAP_MAIN
;************************************
MA_TB:
CJNE A,#3,THOAT_KNTB2
LCALL DELAY2S
LCALL DELAY2S
LCALL DELAY2S
;************************************
KT_MA_TB_1:
LCALL NHAN_TH_DTMF
MOV A,PHIM_NHAN
CJNE A,#1DH,KT_MA_TB_2
LCALL THOI_GIAN_CHO_NHAN
LCALL NHAN_TH_DTMF
MOV A,PHIM_NHAN
TB1_ON:
CJNE A,#1CH,TB1_OFF
CLR P2.4
CLR TB1
LJMP THOAT_KNTB
TB1_OFF:
CJNE A,#1BH,THOAT_KNTB
SETB P2.4
SETB TB1
LJMP THOAT_KNTB
;************************************
THOAT_KNTB2:
LJMP THOAT_KNTB
;************************************
KT_MA_TB_2:
SVTH: Hồ Thanh Hà
Trang 93
Đồ án tốt nghiệp
Phụ lục
MOV A,PHIM_NHAN
CJNE A,#1AH,KT_MA_TB_3
LCALL THOI_GIAN_CHO_NHAN
LCALL NHAN_TH_DTMF
MOV A,PHIM_NHAN
TB2_ON:
CJNE A,#0F0H,TB2_OFF
CLR P2.5
CLR TB2
LJMP THOAT_KNTB
TB2_OFF:
CJNE A,#0E0H,THOAT_KNTB
SETB P2.5
SETB TB2
LJMP THOAT_KNTB
;************************************
KT_MA_TB_3:
MOV A,PHIM_NHAN
CJNE A,#0D0H,BAT_TAT_CA_THIET_BI
LCALL THOI_GIAN_CHO_NHAN
LCALL NHAN_TH_DTMF
MOV A,PHIM_NHAN
TB3_ON:
CJNE A,#0C0H,TB3_OFF
CLR P2.6
CLR TB3
LJMP THOAT_KNTB
TB3_OFF:
CJNE A,#0A0H,THOAT_KNTB
SETB P2.6
SETB TB3
LJMP THOAT_KNTB
;************************************
BAT_TAT_CA_THIET_BI:
LCALL NHAN_TH_DTMF
MOV A,PHIM_NHAN
CJNE A,#0B0H,TAT_TAT_CA_THIET_BI
CLR P2.4
CLR P2.5
CLR P2.6
CLR TB1
CLR TB2
CLR TB3
LJMP THOAT_KNTB
;************************************
TAT_TAT_CA_THIET_BI:
LCALL NHAN_TH_DTMF
MOV A,PHIM_NHAN
CJNE A,#0A0H,THOAT_KNTB
SETB P2.4
SETB P2.5
SETB P2.6
SVTH: Hồ Thanh Hà
Trang 94
Đồ án tốt nghiệp
Phụ lục
SETB TB1
SETB TB2
SETB TB3
;************************************
THOAT_KNTB:
LCALL DELAY2S
LCALL DELAY2S
LCALL THBAO_TINHTRANG_TB
NOP
NOP
LCALL THOI_GIAN_CHO_NHAN
LCALL NHAN_TH_DTMF
MOV A,PHIM_NHAN
CJNE A,#3H,KIEMTRA_AN_SAO
MOV SO_LAN_NHAN_PHIM,#2
LJMP THONG_BAO_CHON_LAI_THIET_BI
KIEMTRA_AN_SAO:
CJNE A,#0DH,THOAT_KNTB
MOV SO_LAN_NHAN_PHIM,#0
MOV PHIM_NHAN,#0
SETB P2.0
RET
;****************************************************
THOI_GIAN_CHO_NHAN:
MOV CHO_NHAN_DU_LIEU,#100
TIEP_TUC_THOI_GIAN_CHO_NHAN:
JB P3.3,THOI_GIAN_CHO_NHAN
LCALL DELAY22MS
DJNZ CHO_NHAN_DU_LIEU,TIEP_TUC_THOI_GIAN_CHO_NHAN
CHO_NHA_PHIM:
MOV CHO_NHAN_DU_LIEU,#100
TIEP_TUC_CHO_NHA_PHIM:
JNB P3.3,CHO_NHA_PHIM
LCALL DELAY22MS
DJNZ CHO_NHAN_DU_LIEU,TIEP_TUC_CHO_NHA_PHIM
RET
;************************************
NHAN_TH_DTMF:
MOV A,#0
MOV A,P1
ANL A,#11110000B
MOV PHIM_NHAN,A
RET
;************************************
SO1:
MOV R7,#1
LAP0:
LCALL
XUNG
DJNZ R7,LAP0
RET
;****************************
SVTH: Hồ Thanh Hà
Trang 95
Đồ á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
