Đồ án hệ thống đo độ ẩm và tưới cây tự động điều khiển bằng máy tính

BỘ GIÁO DỤC VÀ ĐÀO TẠO TRƯỜNG ĐẠI HỌC SƯ PHẠM KỸ THUẬT TP HCM KHOA ĐIỆN TỬ BỘ MÔN ĐIỆN TỬ CÔNG NGIỆP ⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯ ĐỒ ÁN TỐT NGHIỆP : HỆ THỐNG ĐO ĐỘ ẨM VÀ TƯỚI CÂY TỰ ĐỘNG ĐIỀU KHIỂN BẰNG MÁY TÍNH GVHD : TRƯƠNG THỊ BÍCH NGÀ SVTH : TRẦN VIỆT DŨNG MSSV : 00101057 SVTH : TRẦN QUỐC TUẤN MSSV : 00101344 LỚP : 001013 TP HỒ CHÍ MINH – 02/2005 PHẦN A GIỚI THIỆU TRANG TỰA Ngày với phát triển không ngừng ngày mạnh mẽ khoa học kỹ thuật công nghiệp điện tử có bước tiến vô quan trọng đời sống người Kỹ thuật điện tử đóng vai trò chủ động ngành hàng không vũ trụ, thông tin liên lạc, tự động điều khiển đặc biệt công nghiệp sản xuất thiết bị điện tử hỗ trợ người nhiều trình sản xuất, hệ thống tự động điều khiển, robot thay người công việc nặng nhọc đòi hỏi xác cao Những thành tựu khoa học kỹ thuật mang đến cho người sống tiện nghi văn minh đại Việc ứng dụng thành tựu phát triển kỹ thuật điện tử vào nhiều lónh vực : công nghiệp, nông nghiệp, lâm nghiệp, hàng không, giao thông vận tải Góp phần lớn cho phát triển không ngừng ngành này,đã đem lại nhiều lợi ích kinh tế, xã hội Trong nông ngiệp nước ta gặp khó khăn ảnh hưởng thiên nhiên phương thức canh tác theo truyền thống chưa mang lại lợi ích kinh tế thật cao Việc ứng dụng thành tựu phát triển kỹ thuật điện tử vào nông nghiệp để thay đổi phương thức sản xuất, tăng suất sản phẩm công việc người làm khoa học kỹ thuật Các thiết bị điện tử thiết kế nhằm giải vấn đề Với hệ thống đo độ ẩm tưới tự động giám sát điều khiển thông số môi trường nhà kính phục vụ cho việc trồng cảnh, giống, rau hoa Tất thông số môi trường : nhiệt độ, độ ẩm, ánh sáng, chất dinh dưỡng cung cấp cho Đều định hóa máy tính cho phù hợp với giai đoạn phát triển trồng Nội dung đồ án tốt nghiệp “Hệ Thống Đo Độ m Và Tưới Cây Tự Động Điều Khiển Bằng Máy Tính” trình bày làm phần: Phần A : Giới Thiệu Phần B : Nội Dung Phần C : Phụ Lục Và Tài Liệu Tham Khảo Bằng kiến thức thầy cô trường Đại Học Sư Phạm Kỹ Thuật trang bị suốt năm học vừa qua, với hướng dẫn nhiệt tình cô Trương Thị Bích Ngà giúp nhóm nghiên cứu hoàn thành đề tài theo thời gian quy định Do thời gian kiến thức hạn chế nên Đồ n Tốt Nghiệp khó tránh khỏi sai sót, Đề Tài hạn chế Rất mong đóng góp ý kiến nhiệt tình quý thầy cô bạn để Đề Tài hoàn chỉnh Thành Phố Hồ Chí Minh,Tháng 02 Năm 2005 Nhóm Nghiên Cứu Đề Tài NHIỆM VỤ ĐỒ ÁN TỐT NGHIỆP Họ tên : TRẦN VIỆT DŨNG Mssv : 00101057 Họ tên : TRẦN QUỐC TUẤN Mssv : 00101344 Lớp : 001013 Tên đề tài : HỆ THỐNG ĐO ĐỘ ẨM VÀ TƯỚI CÂY TỰ ĐỘNG ĐIỀU KHIỂN BẰNG MÁY TÍNH Các số liệu ban đầu : ……………………………………………………………………………………………………………………………………………………… ……………………………………………………………………………………………………………………………………………………… ……………………………………………………………………………………………………………………………………………………… …………………………………………………………………………………………………………………………………………… Nội dung phần thuyết minh tính toán : ……………………………………………………………………………………………………………………………………………………… ……………………………………………………………………………………………………………………………………………………… ……………………………………………………………………………………………………………………………………………………… ……………………………………………………………………………………………………………………………………………………… ……………………………………………………………………………………………………………………………………………………… ……………………………………………………………………………………………………………………………………………………… …………………………………………………………… Các vẽ đồ thị : ……………………………………………………………………………………………………………………………………………………… ……………………………………………………………………………………………………………………………………………………… ……………………………………………………………………………………………………………………………………………………… …………………………………………………………………………………………………………………………………………… Giáo viên hướng dẫn : TRƯƠNG THỊ BÍCH NGÀ Ngày giao nhiệm vụ : Ngày hoàn thành nhiệm vụ : Giáo viên hướng dẫn: Thông qua môn Ngày tháng 02 năm 2005 Chủ nhiệm môn NHẬN XÉT CỦA GIÁO VIÊN HƯỚNG DẪN …… 000 …… ……………………………………………………………………………………………………………………………………………………… ……………………………………………………………………………………………………………………………………………………… ………………… ………………………………………………………………………………………………………………………………… …………………………………… ……………………………………………………………………………………………………………… ……………………………………………………… …………………………………………………………………………………………… ………………………………………………………………………… ………………………………………………………………………… …………………………………………………………………………………………… ……………………………………………………… ……………………………………………………………………………………………………………… …………………………………… ………………………………………………………………………………………………………………………………… ………………… …………………………………………………………………………………………………………………………………………………… ……………………………………………………………………………………………………………………………………………………… ……………… …………………………………………………………………………………………………………………………………… ………………………………… ………………………………………………………………………………………………………………… …………………………………………………… ……………………………………………………………………………………………… ……………………………………………………………………… …………………………………………………………………………… ………………………………………………………………………………………… ………………………………………………………… …………………………………………………………………………………………………………… ……………………………………… ……………………………………………………………………………………………………………………………… …………………… …………… ……………………………………………………………………………………………………………………………………… ……………………………… …………………………………………………………………………………………………………………… ………………………………………………… ………………………………………………………………………………………………… …………………………………………………………………… ……………………………………………………………………………… ……………………………………………………………………………………… …………………………………………………………… ………………………………………………………………………………………………………… ………………………………………… …………………………………………………………………………………………………………………………… ……………………… ……………………………………………………………………………………………………………………………………………… …… ……………………………………………………………………………………………………………………………………………………… ………… ………………………………………………………………………………………………………………………………………… …………………………… ……………………………………………………………………………………………………………………… ……………………………………………… …………………… ĐHSPKT, Ngày tháng 02 năm 2005 Giáo viên hướng dẫn NHẬN XÉT CỦA GIÁO VIÊN PHẢN BIỆN …… 000 …… ……………………………………………………………………………………………………………………………………………………… ……………………………………………………………………………………………………………………………………………………… ………………… ………………………………………………………………………………………………………………………………… …………………………………… ……………………………………………………………………………………………………………… ……………………………………………………… …………………………………………………………………………………………… ………………………………………………………………………… ………………………………………………………………………… …………………………………………………………………………………………… ……………………………………………………… ……………………………………………………………………………………………………………… …………………………………… ………………………………………………………………………………………………………………………………… ………………… …………………………………………………………………………………………………………………………………………………… ……………………………………………………………………………………………………………………………………………………… ……………… …………………………………………………………………………………………………………………………………… ………………………………… ………………………………………………………………………………………………………………… …………………………………………………… ……………………………………………………………………………………………… ……………………………………………………………………… …………………………………………………………………………… ………………………………………………………………………………………… ………………………………………………………… …………………………………………………………………………………………………………… ……………………………………… ……………………………………………………………………………………………………………………………… …………………… ………………………………………………………………………………………………………………………………………………… … ……………………………………………………………………………………………………………………………………………………… …………… ……………………………………………………………………………………………………………………………………… ……………………………… …………………………………………………………………………………………………………………… ………………………………………………… ………………………………………………………………………………………………… …………………………………………………………………… ……………………………………………………………………………… ……………………………………………………………………………………… …………………………………………………………… ………………………………………………………………………………………………………… ………………………………………… …………………………………………………………………………………………………………………………… ……………………… ……………………………………………………………………………………………………………………………………………… …… ……………………………………………………………………………………………………………………………………………………… ………… ……………………………………………………………… ………………………………………………………………………………… ………………………………………………………………… …………………………………………………………………………………………………… ……………………………………………… …… ĐHSPKT, Ngày tháng 02 năm 2005 Giáo viên phản biện LỜI MỞ ĐẦU Khoa học kỹ thuật phát triển mạnh mẽ làm thay đổi sống người Làm cho sống người ngày trở nên tiện nghi đại Kỹ thuật điện tử phát triển người tạo thiết bị máy móc đại thay cho người công việc nặng nhọc đòi hỏi xác cao Kỹ thuật điện tử phát triển nhanh chóng ứng dụng vào nhiều lónh vực : công nghiệp, giao thông vận tải, hàng không vũ trụ Các thiết bị điều khiển tự động giữ vai trò quan trọng góp phần lớn cho tiến không ngừng lónh vực Ngành nông nghiệp nước ta phụ thuộc nhiều vào khí hậu tự nhiên, với phương pháp sản xuất canh tác truyền thống không mang lại suất cao Khi kinh tế xã hội phát triển nhu cầu người nâng cao, đòi hỏi chất lượng nâng cao, Những trung tâm nghiên cứu trồng giống, cảnh, rau siêu nhà kính xuất Do cần đến thiết bị kỹ thuật tiên tiến có khả đo đạc điều khiển thông số môi trường : nhiệt độ, độ ẩm không khí, chất dinh dưỡng cung cấp phù hợp với giai đoạn phát triển trồng Xuất phát từ vấn đề thực tiễn Nhóm nghiên cứu tiến hành thiết kế thi công : “Hệ Thống Đo Độ m Và Tưới Cây Tự Động Điều Khiển Bằng Máy Tính” Với thành tựu phát triển mạnh mẽ ngành khoa học kỹ thuật tạo nên Nền Nông Nghiệp Công Nghệ Cao, nông nghiệp hoàn toàn không lệ thuộc vào khí hậu tự nhiên Đây bước đột phá nông nghiệp,làm thay đổi phương thức sản xuất tăng suất sản phẩm, phù hợp với xu công nghiệp hóa đại hóa đất nước LỜI CẢM TẠ Trong suốt khóa học (2000-2005) Trường Đại Học Sư Phạm Kỹ Thuật TP.HCM, với giúp đỡ qúy thầy cô giáo viên hướng dẫn mặt từ nhiều phía thời gian thực đề tài, nên đề tài hoàn thành thời gian qui định Nhóm nghiên cứu xin chân thành cảm ơn tất qúy thầy cô khoa Điện-Điện tử giảng dạy kiến thức chuyên môn làm sở để thực tốt Đồ n Tốt Nghiệp tảng kiến thức chuyên ngành hành trang cho nghiệp tương lai Một lần nhóm nghiên cứu đề tài xin cảm ơn cô Trương Thị Bích Ngà giáo viên hướng dẫn đề tài tất thầy cô trường Đại Học Sư Phạm Kỹ Thuật, nhiệt tình giúp đỡ nhóm nghiên cứu hoàn thành Đồ n Tốt Nghiệp TP.HCM _ Tháng 02 năm 2005 Nhóm Nghiên Cứu Đề Tài MỤC LỤC Trang PHẦN A : GIỚI THIỆU i TRANG TỰA .ii NHIEÄM VỤ ĐỀ TÀI iii NHẬN XÉT CỦA GIÁO VIÊN HƯỚNG DẪN …….iv NHẬN XÉT CỦA GIÁO VIÊN PHẢN BIỆN .v LỜI MỞ ĐẦU vi LỜI CẢM TẠ vii MUÏC LUÏC viii LIỆT KÊ CÁC HÌNH ix LIỆT KÊ CÁC BẢNG xi PHAÀN B : NOÄI DUNG CHƯƠNG 1: DẪN NHẬP 1.1.ĐẶT VẤN ĐỀ 1.2.TẦM QUAN TRỌNG CỦA ĐỀ TÀI .2 1.3.GIỚI HẠN ĐỀ TAØI 1.4.MỤC ĐÍCH NGHIÊN CỨU .3 CHƯƠNG 2: CƠ SỞ LÝ LUAÄN 2.1.ĐỐI TƯNG NGHIÊN CỨU 2.2.DÀN Ý NGHIÊN CỨU 2.3.PHƯƠNG PHÁP VÀ PHƯƠNG TIỆN NGHIÊN CỨU 2.4.LẬP KẾ HOẠCH NGHIÊN CỨU CHƯƠNG 3: ĐO ĐỘ ẨM KHÔNG KHÍ 3.1.ĐỘ ẨM 3.2 PHÂN LOẠI ẨM KẾ 12 3.3 CAÙC PHƯƠNG PHÁP ĐO ĐỘ ẨM KHÔNG KHÍ 15 CHƯƠNG 4: CHUYỂN ĐỔI TƯƠNG TỰ SANG SỐ 15 4.1.KHÁI NIỆM CHUNG 15 4.2.NGUYÊN TẮC THỰC HIỆN CHUYỂN ĐỔI ADC 18 4.3 CÁC KỸ THUẬT ADC 23 CHƯƠNG 5: KHẢO SÁT CÁC LINH KIỆN TRONG MẠCH 23 5.1.GIỚI THIỆU IC ĐỒNG HỒ THỜI GIAN THỰC DS12C887 23 5.1.1.K.S SƠ ĐỒ CHÂN CỦA DS12C887-CHỨC NĂNG TỪNG CHÂN 23 5.1.2.CẤU TRÚC BÊN TRONG REAL TIME CLOCK DS12C887 26 5.1.3.CÁC THANH GHI ĐIỀU KHIỂN 28 5.1.4.CHU KỲ CẬP NHẬT 31 5.1.5.GIAO TIẾP BUS VỚI CÁC CHẾ ĐỘ ĐỊNH THỜI 32 5.2.IC ADC7109 33 5.3.LCD TC1602A 36 5.4.CẢM BIẾN ĐỘ ẨM HS-220 38 Trang CHƯƠNG 6: VI ĐIỀU KHIEÅN 39 6.1.GIỚI THIỆU VI ĐIỀU KHIỂN 89S52 39 6.2.LỊCH SỬ PHÁT TRIỂN CỦA CÁC BỘ VI ĐIỀU KHIỂN 39 6.3.GIỚI THIỆU CẤU TRÚC PHẦN CỨNG VĐK 89S52 40 6.4.CẤU TRÚC BỘ NHỚ BÊN TRONG VI ĐIỀU KHIỂN 42 6.5.CẤU TRÚC BỘ NHỚ RAM BÊN TRONG VI ĐIỀU KHIỂN 43 6.6.TỔ CHỨC NGẮT 48 6.7.XỬ LÝ NGẮT 49 6.8.CÁC NGẮT CỦA 89S52 50 CHƯƠNG 7: GIAO TIẾP MÁY TÍNH 52 7.1.SƠ LƯC VỀ CÁC CÁCH GT VỚI CÁC THIẾT BỊ NGOẠI VI 52 7.2.SỰ TRAO ĐỔI CỦA CÁC ĐƯỜNG TÍN HIỆU 55 7.3.GIỚI THIỆU VỀ CHUẨN RS232C 56 7.4.LỰA CHỌN CỔNG COM 58 7.5.CHỌN PHƯƠNG ÁN GIAO TIEÁP 58 7.6.HÀM DLL DÙNG CHO GIAO DIỆN NỐI TIẾP 59 CHƯƠNG 8: THIẾT KẾ VÀ THI CÔNG .60 8.1.GIAI ĐOẠN CHUẨN BÒ 60 8.2.GIAI ĐOẠN VẼ MẠCH IN 60 8.3.GIAI ĐOẠN LẮP RÁP 60 8.4.THIEÁT KẾ VÀ THI CÔNG 60 8.4.1.THIẾT KẾ PHẦN CỨNG 60 8.4.2.THIẾT KẾ PHẦN MỀM 70 CHƯƠNG 9: TÓM TẮT-KẾT LUẬN-ĐỀ NGHỊ 71 9.1.TÓM TẮT ĐỀ TÀI 71 9.2.KẾT LUẬN 71 9.3.ĐỀ NGHỊ 71 Hệ Thống Đo Độ Ẩm Và Tưới Cây Tự Động Điều Khiển Bằng Máy Tính cjne a,phutbatdau,X12 sjmp X1 X12: jb p3.2,ngat_INT0 ;ktra co doi chtrinh lam viec khong mov r7,#7 ;bien dem mov a,24h add a,kctuoi ;lam viec lan tiep theo mov 24h,a ;cat data vao o nho add a,giobatdau da a mov 25h,a ;cat data vao o nho djnz r7,X13 mov 24h,#00h sjmp X12 X13: jb mov cjne cjne p3.2,ngat_INT0 a,gio a,25h,main1 a,#19h,X14 ;giam bien dem ;ktra co doi chtrinh lam viec khong ;sau 19 gio he thong ngung lam viec sjmp X14 X1: X11: X14: setb jb lcall lcall lcall lcall csuat p3.2,ngat_INT0 docdongho giaima gma_tuoi1 hienthichung mov add da mov mov cjne sjmp jb jc clr lcall lcall lcall a,tgtuoi a,phutbatdau a 26h,a a,phut a,26h,X11 main1 p3.2,ngat_INT0 X csuat docdongho giaima gma_tuoi1 ;mo may bom nuoc Phuï luïc A,B : Tập Lệnh Vi Điều Khiển Và Mã Nguồn Trang 85 Hệ Thống Đo Độ Ẩm Và Tưới Cây Tự Động Điều Khiển Bằng Máy Tính lcall hienthichung mov a,gio cjne a,giobatdau,X14 ;thoi gian he thong lam viec tro lai mov a,phut cjne a,phutbatdau,X14 sjmp X1 ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;chuong trinh tuoi nuoc theo % am dat truoc ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ngat_INT0: mov doammin,#0h ;gia tri am mac dinh mov doammax,#0h mainngat: setb csuat lcall gma_tuoi2 ;hien thi data mac dinh lcall docdongho ;hien thi dong ho so lcall giaima lcall docadc7109 ;hien thi % am hien tai lcall hex_to_bcd lcall giaima_kqdo lcall hienthichung jnb MIN_1: jnb p3.2,ll mov mov mul mov mov add da cjne setb lcall lcall lcall lcall lcall lcall lcall p3.2,ll mov mov mul mov mov add ;ktra de thay doi chtrinh lam viec a,4bh b,#10 ab 20h,a a,4ch a,20h a a,doammin,MIN ;so sanh voi data dat truoc csuat gma_tuoi2 docdongho giaima docadc7109 hex_to_bcd giaima_kqdo hienthichung ;ktra de thay doi chtrinh lam viec a,4bh b,#10 ab 20h,a a,4ch a,20h Phụ lục A,B : Tập Lệnh Vi Điều Khiển Và Mã Nguồn Trang 86 Hệ Thống Đo Độ Ẩm Và Tưới Cây Tự Động Điều Khiển Bằng Máy Tính MIN: ll: da cjne sjmp jnb jc sjmp ljmp a a,doammax,MIN mainngat p3.2,ll MIN_1 mainngat main ;so sanh voi data dat truoc ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;chuong trinh nhan data tu may tinh ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ktaotruyen: clr tr1 mov th1,#0fah mov tl1,#0fah anl tmod,#0fh orl tmod,#20h setb tr1 mov scon,#50h clr ti clr ri orl 87h,#80h ret ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;chuong trinh doc dong ho ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx docdongho: mov p0,#0ffh setb p3.5 CLR P3.4 ;cho phep dalas bat dau lam viec mov r0,#0 ;lay data giay tu dalas movx a,@r0 mov giay,a mov r0,#2 ;lay data phut tu dalas movx a,@r0 mov phut,a mov r0,#4 ;lay data gio tu dalas movx a,@r0 mov gio,a mov r0,#7 ;lay data tu dalas movx a,@r0 mov ngay,a mov r0,#8 ;lay data thang tu dalas movx a,@r0 mov thang,a mov r0,#9 ;lay data nam tu dalas Phuï lục A,B : Tập Lệnh Vi Điều Khiển Và Mã Nguồn Trang 87 Hệ Thống Đo Độ Ẩm Và Tưới Cây Tự Động Điều Khiển Bằng Máy Tính movx a,@r0 mov nam,a setb p3.4 ;khong cho dalas lam viec mov p0,#0ffh ret ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;chuong trinh giai ma dong ho ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx giaima: mov a,gio anl a,#0f0h swap a add a,#30h mov 30h,a mov a,gio anl a,#0fh add a,#30h mov 31h,a mov 32h,#':' mov a,phut anl a,#0f0h swap a add a,#30h mov 33h,a mov a,phut anl a,#0fh add a,#30h mov 34h,a mov 35h,#':' mov a,giay anl a,#0f0h swap a add a,#30h mov 36h,a mov a,giay add a,#30h mov 37h,a mov a,ngay anl a,#0f0h cjne a,#0,gm_3 ljmp gm_1 gm_3: swap a add a,#30h mov 38h,a gm_2: mov a,ngay Phuï luïc A,B : Tập Lệnh Vi Điều Khiển Và Mã Nguồn Trang 88 Hệ Thống Đo Độ Ẩm Và Tưới Cây Tự Động Điều Khiển Bằng Máy Tính anl add mov mov mov anl swap add mov mov anl add mov a,#0fh a,#30h 39h,a 3ah,#'-' a,thang a,#0f0h a a,#30h 3bh,a a,thang a,#0fh a,#30h 3ch,a mov 3dh,#'-' mov a,nam anl a,#0f0h swap a add a,#30h mov 3eh,a mov a,nam anl a,#0fh add a,#30h mov 3fh,a ret gm_1: mov 38h,#20h ljmp gm_2 ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;chuong trinh giai ma va hien thi data thu ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx gma_tuoi1: mov 45h,#'K' mov 46h,#'C' mov 47h,#':' mov 4ah,#'T' mov 4bh,#'G' mov 4Ch,#':' mov a,giobatdau anl a,#0f0h cjne a,#0,gm_7 sjmp gm_8 gm_7: swap a add a,#30h mov 40h,a mov a,giobatdau Phụ lục A,B : Tập Lệnh Vi Điều Khiển Và Mã Nguồn Trang 89 Hệ Thống Đo Độ Ẩm Và Tưới Cây Tự Động Điều Khiển Bằng Máy Tính gm_9: gm_6: gm_5: gm_4: gm_8: anl add mov mov mov anl swap add mov mov anl add mov mov anl cjne ljmp a,#0fh a,#30h 41h,a 42h,#':' a,phutbatdau a,#0f0h a a,#30h 43h,a a,phutbatdau a,#0fh a,#30h 44h,a a,kctuoi a,#0f0h a,#0,gm_6 gm_4 swap add mov mov anl add mov mov anl swap add mov mov anl add mov mov ret mov mov anl add mov ljmp mov anl a a,#30h 48h,a a,kctuoi a,#0fh a,#30h 49h,a a,tgtuoi a,#0f0h a a,#30h 4dh,a a,tgtuoi a,#0fh a,#30h 4eh,a 4fh,#'"' 49h,#20h a,kctuoi a,#0fh a,#30h 48h,a gm_5 a,giobatdau a,#0fh Phuï lục A,B : Tập Lệnh Vi Điều Khiển Và Mã Nguồn Trang 90 Hệ Thống Đo Độ Ẩm Và Tưới Cây Tự Động Điều Khiển Bằng Máy Tính add a,#30h mov 40h,a mov 41h,#':' mov a,phutbatdau anl a,#0f0h swap a add a,#30h mov 42h,a mov a,phutbatdau anl a,#0fh add a,#30h mov 43h,a mov 44h,#20h ljmp gm_9 ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;chuong trinh giai ma va hien thi data thu ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx gma_tuoi2: mov 45h,#20h mov 46h,#'D' mov 47h,#'A' mov 48h,#'T' mov 49h,#':' mov a,doammin anl a,#0f0h swap a add a,#30h mov 4ah,a mov a,doammin anl a,#0fh add a,#30h mov 4bh,a mov 4ch,#'-' mov a,doammax anl a,#0f0h swap a add a,#30h mov 4dh,a mov a,doammax anl a,#0fh add a,#30h mov 4eh,a mov 4fh,#25h ret ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx Phụ lục A,B : Tập Lệnh Vi Điều Khiển Và Mã Nguồn Trang 91 Hệ Thống Đo Độ Ẩm Và Tưới Cây Tự Động Điều Khiển Bằng Máy Tính ;chuong trinh doc data duoc tu sensor ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx docadc7109: mov p0,#0ffh setb p3.4 clr p3.5 mov kqbytel,p0 mov a,#00h mov c,p2.4 rrc a mov c,p2.5 rrc a mov c,p2.6 rrc a mov c,p2.7 rrc a swap a mov kqbyteH,a setb p3.5 ret ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;chuong trinh chuyen ma hex sang ma bcd ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx hex_to_bcd: mov 18h,#0 mov 19h,#0 mov a,kqbytel mov b,#10 div ab mov 18h,b mov b,#10 div ab mov 19h,a mov a,b swap a orl 18h,a mov r1,kqbyteH cjne r1,#0,hex1 ret hex1: mov a,18h add a,#56h da a mov 18h,a mov a,19h addc a,#2 da a Phụ lục A,B : Tập Lệnh Vi Điều Khiển Và Mã Nguồn Trang 92 Hệ Thống Đo Độ Ẩm Và Tưới Cây Tự Động Điều Khiển Bằng Máy Tính mov 19h,a djnz r1,hex1 ret ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;chuong trinh giai ma ket qua duoc tu sensor ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx giaima_kqdo: mov a,19h anl a,#0fh add a,#30h mov 40h,a mov a,18h anl a,#0f0h swap a add a,#30h mov 41h,a mov 42h,#'.' mov a,18h anl a,#0fh add a,#30h mov 43h,a mov 44h,#25h ret ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;chuong trinh hien thi data len LCD ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx hienthichung: MOV A,#080h LCALL KTAO mov r1,#16 MOV R0,#30H fline: lcall Write djnz r1,fline mov a,#0c0h LCALL KTAO mov r1,#16 MOV R0,#40H sline: lcall Write djnz r1,sline ret write: MOV byteout,@R0 Lcall data_byte inc r0 ret E bit p2.1 rw BIT P2.2 Phụ lục A,B : Tập Lệnh Vi Điều Khiển Và Mã Nguồn Trang 93 Hệ Thống Đo Độ Ẩm Và Tưới Cây Tự Động Điều Khiển Bằng Máy Tính khoitao_lcd: khtaolcd: KTAO: command_byte: data_byte: bdelay: rs BIT p2.3 byteout equ p1 mov 0a2h,#0 LCALL khtaolcd ret setb e clr rs clr rw MOV a,#38h LCALL KTAO LCALL ddelay41 MOV A,#38h LCALL KTAO LCALL ddelay100 MOV A,#38h LCALL KTAO MOV A,#0ch LCALL KTAO MOV A,#01h LCALL KTAO MOV A,#06h LCALL KTAO MOV A,#80h LCALL KTAO RET mov byteout,a lcall command_byte RET clr ljmp setb clr clr nop setb nop nop mov setb clr clr nop nop rs bdelay rs rw e e byteout,#0ffh rw rs e Phuï luïc A,B : Tập Lệnh Vi Điều Khiển Và Mã Nguồn Trang 94 Hệ Thống Đo Độ Ẩm Và Tưới Cây Tự Động Điều Khiển Bằng Máy Tính setb e lcall ddelay100 ret ddelay41: mov 7eh,#90h del412: mov 7fh,#200 djnz 7fh,$ djnz 7eh,del412 ret ddelay100: mov 7fh,#00 djnz 7fh,$ ret delay50: mov 7dh,#0fh del2: mov 7ch,#0ffh del1: djnz 7ch,del1 djnz 7dh,del2 ret ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;chuong trinh nhandata tu may tinh gui xuong ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ngatnhan: lcall docbyte cjne a,#3,ngatx clr p3.2 ngatx: cjne a,#4,ngatX1 setb p3.2 reti ngatX1: cjne a,#5,ngatX2 lcall docbyte mov kctuoi,a lcall docbyte mov tgtuoi,a lcall docbyte mov giobatdau,a ngatX2: ngatend: lcall mov setb reti cjne lcall mov lcall mov setb reti docbyte phutbatdau,a csuat a,#6,ngatend docbyte doammin,a docbyte doammax,a csuat Phụ lục A,B : Tập Lệnh Vi Điều Khiển Và Mã Nguồn Trang 95 Hệ Thống Đo Độ Ẩm Và Tưới Cây Tự Động Điều Khiển Bằng Máy Tính docbyte: jnb clr mov ret end ri,$ ri a,sbuf ;Chương Trình Giao tiếp Máy tính (DelPhi) interface procedure TForm1.Button6Click(Sender: TObject); begin CLOSE; end; procedure TForm1.GIOBUTClick(Sender: TObject); VAR GIOBUT:STRING; Begin GIOBUT:= INPUTBOX('HAY NHAP DU LIEU VAO DAY !','DUNG CHUA DZAY !?'); GIOEDT.TEXT:= GIOBUT; end; procedure TForm1.PHUTBUTClick(Sender: TObject); VAR PHUTBUT:STRING; begin PHUTBUT:= INPUTBOX('HAY NHAP DU LIEU VAO DAY !','DUNG CHUA DZAY !?'); PHUTEDT.TEXT:= PHUTBUT; end; procedure TForm1.KCBUTClick(Sender: TObject); VAR KCBUT:STRING; begin KCBUT:= INPUTBOX('HAY NHAP DU LIEU VAO DAY !','KHOANG CACH LAN TUOI TIEP THEO LA :'); KCEDT.TEXT:= KCBUT; end; procedure TForm1.TGBUTClick(Sender: TObject); VAR TGBUT:STRING; begin TGBUT:= INPUTBOX(‘BAN NHAP XONG CHUA !? NHAN NUT Defaul DE KHOI DONG','THOI GIAN CUA LAN TUOI LA :'); Phụ lục A,B : Tập Lệnh Vi Điều Khiển Và Mã Nguồn Trang 96 Hệ Thống Đo Độ Ẩm Và Tưới Cây Tự Động Điều Khiển Bằng Máy Tính TGEDT.TEXT:= TGBUT; end; procedure TForm1.defbutClick(Sender: TObject); begin showMessage('NHAP DU LIEU MOI CHUA DZAY?'); portio.connect; portio.sendbyte(5); portio.sendbyte(strtoint(kcedt.text)); portio.sendbyte(strtoint(tgedt.text)); portio.sendbyte(strtoint(gioedt.text)); portio.sendbyte(strtoint(phutedt.text)); end; procedure TForm1.Button2Click(Sender: TObject); begin portio.connect; portio.sendbyte(4); defbut.Enabled:= false; autobut.Enabled:= true; portio.disconnect; end; procedure TForm1.Button3Click(Sender: TObject); begin portio.connect; portio.sendbyte(3); autobut.Enabled:= false; defbut.Enabled:= true; portio.disconnect; end; procedure TForm1.MINBUTClick(Sender: TObject); VAR MINBUT:STRING; begin MINBUT:= INPUTBOX('HAY NHAP DU LIEU VAO DAY !','% DO AM NHO NHAT'); MINEDT.TEXT:= MINBUT; end; procedure TForm1.MAXBUTClick(Sender: TObject); VAR MAXBUT:STRING; begin Phụ lục A,B : Tập Lệnh Vi Điều Khiển Và Mã Nguồn Trang 97 Hệ Thống Đo Độ Ẩm Và Tưới Cây Tự Động Điều Khiển Bằng Máy Tính MAXBUT:= INPUTBOX('HAY NHAP DU LIEU VAO DAY !','% DO AM LON NHAT'); MAXEDT.TEXT:= MAXBUT; end; procedure TForm1.autobutClick(Sender: TObject); begin SHOWMESSAGE('NHAP SO LIEU CHAC CHAN ROI CHU !?'); PORTIO.Connect; PORTIO.SendByte(6); PORTIO.SendByte(STRTOINT(MINEDT.TEXT)); PORTIO.SendByte(STRTOINT(MAXEDT.TEXT)); end; procedure TForm1.FormCreate(Sender: TObject); begin portio.connect; defbut.Enabled:= false; autobut.Enabled:= false; end; end Phụ lục A,B : Tập Lệnh Vi Điều Khiển Và Mã Nguồn Trang 98 TÀI LIỆU THAM KHẢO 1.Thy Anh.Borland Delphi-Công Cụ Phát Triển ng Dụng Nhanh Trên Môi Trường Windows.Nhà Xuất Bản Trẻ,1999 2.Lê Hữu Đạt.Các Kỹ Xảo Lập Trình Với Microsoft Visual Basic Và Borland Delphi.Nhà Xuất Bản Giáo Dục,2000 3.Châu Kim Lang.Phương Pháp Nghiên Cứu Khoa Học.Trường Đại Học Sư Phạm Kỹ Thuật TP.HCM,2002 4.Tống Văn On,Hoàng Đức Hải.Họ Vi Điều Khiển 8051.Nhà Xuất Bản Lao Động- Xã Hội.Hà Nội,2001 5.Phan Quốc Phô,Nguyễn Đức Hải.Giáo Trình Cảm Biến.Nhà Xuất Bản Khoa Học Và Kỹ Thuật.Hà Nội,2000 6.Ngô Diên Tập.Đo Lường Và Điều Khiển Bằng Máy Vi Tính.Nhà Xuất Bản Khoa Học Và Kỹ Thuật.Hà Nội,1996 7.Dương Minh Trí.Cảm Biến Và ng Dụng.Nhà Xuất Bản Khoa Học Và Kỹ Thuật,2000 8.Các website: http:\\ www.datasheetarchive.com http:\\ www.greenhouse.com http:\\ www.humiditysensor.com