(LUẬN VĂN THẠC SĨ) Điều khiển các thiết bị điện từ xa qua mạng internet Luận văn ThS Công nghệ Điện tử Viễn thông

ĐẠI HỌC QUỐC GIA HÀ NỘI TRƯỜNG ĐẠI HỌC CÔNG NGHỆ Phạm Duy Hưng ĐIỀU KHIỂN CÁC THIẾT BỊ ĐIỆN TỪ XA QUA MẠNG INTERNET Ngành : Công nghệ Điện tử - Viễn thông Chuyên ngành : Kỹ thuật Điện tử Mã số : 60 52 70 LUẬN VĂN THẠC SĨ CÔNG NGHỆ ĐIỆN TỬ - VIỄN THÔNG Người hướng dẫn khoa học: PGS.TS Trần Quang Vinh Hà Nội - 2012 TIEU LUAN MOI download : skknchat@gmail.com MỤC LỤC MỞ ĐẦU CHƢƠNG 1: NGHIÊN CỨU VÀ THIẾT KẾ HỆ THỐNG ĐIỀU KHIỂN TỪ XA THIẾT BỊ ĐIỆN QUA MẠNG INTERNET 1.1 Nguyên lý hoạt động hệ thống 1.2 Nguyên lý làm việc module điều khiển 1.3 Phân tích tính phản hồi hệ thống CHƢƠNG 2: NGHIÊN CỨU VÀ TÌM HIỂU CẢM BIẾN ĐO DÒNG ĐIỆN SỬ DỤNG HIỆU ỨNG HALL 2.1 Lý thuyết hiệu ứng Hall 2.2 Giới thiệu vi mạch Hall cảm biến dòng ACS712 2.2.1 Dạng đóng gói sơ đồ khối 2.2.2 Đặc điểm kỹ thuật cảm biến ACS712 2.2.3 Mô tả chi tiết cảm biến ACS712 10 2.2.4 Các đặc tính vận hành 10 CHƢƠNG 3: VI ĐIỀU KHIỂN PIC16F877A 12 3.1 Đặc điểm tổng quát vi điều khiển PIC16F877A 12 3.2 Sơ đồ khối, sơ đồ chân, chức chân 14 3.2.1 Sơ đồ khối 14 3.2.2 Sơ đồ chân 15 3.2.3 Bảng mô tả chức chân 16 3.3 Các cổng vào 17 3.4 Các module giao tiếp 21 3.4.1 Module UART 21 3.4.2 SPI 23 3.5 Tổ chức nhớ 26 3.5.1 Không gian địa chƣơng trình 26 3.5.2 Không gian địa liệu 27 3.5.3 Ngăn xếp phần mềm 28 3.6 Cấu hình dao động PIC16F877A 29 CHƢƠNG 4: KHỐI GIAO TIẾP INTERNET VÀ TRUYỀN DỮ LIỆU( ETHERNET TO UART ) 31 4.1 Đầu nối RJ45 HR911105A 31 4.2 Vi điều khiển PIC18F67J60-I/PT 32 CHƢƠNG 5: CÁC PHƢƠNG PHÁP ĐO DÒNG ĐIỆN XOAY CHIỀU 34 TIEU LUAN MOI download : skknchat@gmail.com 5.1 Phân loại phƣơng pháp đo dòng điện xoay chiều 34 5.2 Thuật tốn đo dịng điện xoay chiều hiệu dụng 35 CHƢƠNG 6: CÁC BƢỚC THỰC HIỆN VÀ KẾT QUẢ 39 6.1 Thiết kế chế tạo phần cứng hệ thống 39 6.1.1 Khối nguồn nuôi 40 6.1.2 Module E2U ( Ethernet to Uart ) 41 6.1.3 Khối rơle cảm biến 41 6.1.4 Khối xử lý liệu điều khiển công suất PaC (Processing and Control) 43 6.1.5 Mạch in PCB 44 6.1.6 Đóng gói thiết bị 45 6.2 Thuật toán cho phần mềm điều khiển 48 6.3 Phần mềm giao diện điều khiển máy tính PC 49 6.3.1 Giao diện chƣơng trình 49 6.3.2 Giao diện chƣơng trình hoạt động 49 CHƢƠNG 7: NHỮNG VẤN ĐỀ ĐÃ GIẢI QUYẾT VÀ NGHIÊN CỨU ĐƢỢC QUA LUẬN VĂN 54 7.1 Về phần cứng: 54 7.2 Về phần mềm: 54 7.3 Những vấn đề tồn đề tài hƣớng giải 54 7.4 Hƣớng phát triển luận văn 55 TIEU LUAN MOI download : skknchat@gmail.com CHỮ VIẾT TẮT Chữ viết tắt STT Thuật ngữ tiếng Anh Direct Current Thuật ngữ tiếng Việt Dòng điện chiều DC Irms VDC Voltage Directly Curent UART2ETHERNET UART TO ETHERNET IC Integrated Circuit Mạch tích hợp LSB Least Significant Bit Bít trọng số thấp MSB Most Significant Bit Bít trọng số cao MCU Micro-Controller Unit Vi điều khiển Root Mean Square Current Universal UART Ansynchronous Receiver/Tranceiver 10 PLL Phase-Locked Loop Dòng điện hiệu dụng Điện áp chiều Chuyển đổi từ UART sang ETHERNET Khối thu phát nối tiếp bất đồng đa Vịng khóa pha TIEU LUAN MOI download : skknchat@gmail.com DANH MỤC BẢNG BIỂU Bảng 1-1: So sánh tính loại cảm biến dịng Bảng 2-1: Các đặc tính chung ACS712 11 Bảng 3-1: Chức chân PIC16F877A 16 Bảng 3-2: Ngoại vi ghi cấu hình lối vào tƣơng ứng 20 Bảng 3-3: Ngoại vi bít cấu hình lối tƣơng ứng 21 TIEU LUAN MOI download : skknchat@gmail.com (LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong DANH MỤC HÌNH VẼ Hình 1.1: Sơ đồ hoạt động hệ thống điều khiển thiết bị qua mạng Internet Hình 2.1: Hiêu ứng Hall chƣa có từ trƣờng Hình 2.2: Nguyên lý hiêu ứng Hall có từ trƣờng đặt vào Hình 2.3: Vi mạch ACS712 Hình 2.4: Sơ đồ nguyên lý mạch cảm biến ACS172 Hình 2.5: Đặc tính hàm truyền 11 Hình 3.1: Biểu đồ thể chức hiệu suất dòng PIC16F877A so với dòng vi điều khiển khác Microchip 14 Hình 3.2: Sơ đồ khối PIC16F877A 15 Hình 3.3: Sơ đồ chân PIC16F877A 16 Hình 3.4: Cấu tạo cổng vào PIC16F877A 18 Hình 3.5: Bộ hợp kênh lối vào cho ngoại vi 19 Hình 3.6: Sơ đồ khối UART 22 Hình 3.7: Sơ đồ khối SPI 24 Hình 3.8: Tổ chức nhớ chƣơng trình 27 Hình 3.9: Tổ chức nhớ liệu PIC16F877A 28 Hình 3.10: Cơ chế lệnh gọi ngăn xếp 28 Hình 3.11: Hệ thống tạo dao động cho PIC16F877A 29 Hình 4.2: Sơ đồ nguyên lý cấu tạo học đầu nối RJ45 HR911105A 32 Hình 4.3: sơ đồ khối khối E2U 33 Hình 5.1: Ngun tắc đo dịng điện trở Shunt 34 Hình 5.2: Các loại CT thị trƣờng 35 Hình 5.3: Nguyên tắc hoạt động cảm biến Hall 35 Hình 6.1: Sơ đồ mạch hệ thống 39 Hình 6.2: Sơ đồ mạch điện khối nguồn nuôi 40 Hình 6.3: Hình Module E2U 41 Hình 6.4: Sơ đồ mạch điện khối rơle cảm biến 42 Hình 6.5: Bộ lọc thông thấp 42 Hình 6.6: sơ đồ mạch điện khối khối PaC 44 Hình 6.8: Mạch in nhìn từ xuống (top-down) 45 Hình 6.9: Mặt bo mạch thiết bị 45 Hình 6.10: Mặt dƣới bo mạch thiết bị 46 Hình 6.11: Hình chi tiết vị trí cảm biến ACS712 46 Hình 6.13: Giao diện chƣơng trình 49 Hình 6.14: Giao diện mở tải bóng đèn 25W 50 Hình 6.15: Giao diện mở tải hai bóng đèn 25W 7W 50 Hình 6.16: Giao diện mở tải bóng đèn 25W 60W, 100W 7W 51 Hình 6.17: Giao diện mở tải bóng đèn 25W 60W, 100W 7W Nhƣng bóng thứ không sáng 51 (LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong TIEU LUAN MOI download : skknchat@gmail.com (LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong LỜI MỞ ĐẦU Giới thiệu mơ hình tổng quan đề tài Ngày nay, Internet phát triển mở khả ứng dụng mới, Internet ứng dụng thay đổi cách làm việc, cách giải trí cách sống Internet khơng cho phép tìm kiếm thơng tin, mà cịn cho phép truy cập đến lĩnh vực rộng lớn số liệu dịch vụ đa phƣơng tiện Nhiều ứng dụng đƣợc triển khai ngƣời sử dụng bắt đầu chạy nhiều ứng dụng âm hình ảnh từ Internet, nhƣ thƣởng thức giới ứng dụng tƣơng tác ba chiều Gần đây, vấn đề đặc biệt đƣợc quan tâm hệ thống thời gian thực mạng Internet Qua hệ thống thời gian thực mà ngƣời điều khiển xác thiết bị vật lý Hệ thống thông tin thời gian thực ngày đƣợc ứng dụng nhiều lĩnh vực nhƣ: ngành cơng nghiệp sản xuất, kiểm sốt tiến trình nhà máy, hay lò phản ứng hạt nhân, hệ thống hàng không, thông qua hệ thống dẫn đƣờng tích hợp máy bay, vệ tinh gần gũi với sống ngƣời điều khiển thiết bị tịa nhà thơng minh , Ngƣời dùng, với máy tính đâu đƣợc nối mạng Internet, điều khiển thiết bị nhà nhƣ bật nồi cơm điện, bật điều hòa, vận hành máy giặt, kiểm tra tình trạng an ninh Phƣơng pháp điều khiển mạng lại ƣu điểm bật sau: - , việc triển khai điều khiển không yêu cầu phải lắp đặt đƣờng truyền hay phần cứng phức tạp - Hệ thống cho phép - Khối điều khiển đƣợc thiết kế dựa vi điều khiển nhỏ gọn, rẻ tiển, khơng địi hỏi phải có máy tính PC hay máy chủ server - Hệ thống hoạt động 24/24 đảm bảo cho thiết bị thơng minh đƣợc điều khiển “mọi lúc, nơi” Với ƣu điểm tr (LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong TIEU LUAN MOI download : skknchat@gmail.com (LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong Từ lý kể trên, chọn đề tài luận văn với mục tiêu nghiên cứu thiết kế lắp ráp hệ thống “Điều khiển thiết bị điện từ xa qua mạng Internet” Luận văn đƣợc bố cục thành phần : Tìm hiểu tổng quan lý thuyết, báo cáo trình thiết kế, lắp đặt kết thử nghiệm, cuối phần kết luận (LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong TIEU LUAN MOI download : skknchat@gmail.com (LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong PHẦN I: LÝ THUYẾT (LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong TIEU LUAN MOI download : skknchat@gmail.com (LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong CHƢƠNG 1: NGHIÊN CỨU VÀ THIẾT KẾ HỆ THỐNG ĐIỀU KHIỂN TỪ XA THIẾT BỊ ĐIỆN QUA MẠNG INTERNET hoạt động, cấu trúc phần cứng chƣơng trình phần mềm nhƣ sau 1.0 Nguyên lý hoạt động hệ thống Dƣới hình trình bày sơ đồ nguyên lý hoạt động hệ thống điều khiển đóng ngắt thiết bị tòa nhà qua mạng Internet Module điều khiển TV Tủ lạnh Ngƣời dùng Máy giặt Căn hộ – Port 1024 Mạng Ethernet Lị vi sóng HW Đèn Module điều khiển Internet Ngƣời dùng TV Tƣờng lửa Router IP: 203.113.130.218 Tủ lạnh Máy giặt Căn hộ – Port 1026 Lò vi sóng Ngƣời dùng HW Đèn Module điều khiển TV Tủ lạnh Máy giặt Căn hộ – Port 1028 Hình 1.1: Sơ đồ hoạt động hệ thống điều khiển thiết bị qua mạng Internet Trong sơ đồ này, thiết bị hộ tịa nhà nhƣ bóng đèn, máy giặt, tivi, tủ lạnh, lị vi sóng đƣợc kết nối đến đầu vào/ra điều khiển Bộ điều khiển sau đƣợc kết nối tới định tuyến (Router) tịa nhà thơng qua mạng Ethernet LAN từ kết nối với Internet Mỗi điều khiển tòa nhà (LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong TIEU LUAN MOI download : skknchat@gmail.com (LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong 53 PHẦN 3: KẾT LUẬN VÀ HƢỚNG PHÁT TRIỂN ĐỀ TÀI (LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong TIEU LUAN MOI download : skknchat@gmail.com (LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong 54 CHƢƠNG 7: NHỮNG VẤN ĐỀ ĐÃ GIẢI QUYẾT VÀ NGHIÊN CỨU ĐƢỢC QUA LUẬN VĂN Sau q trình thực luận văn, tơi tìm hiểu giải đƣợc vấn đề là: - Nghiên cứu thiết kế hệ thống điều khiển từ xa thiết bị điện qua mạng internet có tính phản hồi trạng thái hoạt động thiết bị - Tìm hiểu phƣơng pháp đo dịng điện xoay chiều Sử dụng đƣợc IC đo dòng điện chuyên dụng nhƣ ACS712 Đo đƣợc giá trị dòng điện xoay chiều khoảng thời gian dài - Tìm hiểu cấu trúc phần cứng nhƣ lập trình kiểm sốt vi điều khiển PIC16F877A Từ xây dựng thành cơng hệ thống đo dòng điện xoay chiều với độ tin cậy đạt đƣợc thời gian dài - Tìm hiểu lập trình giao tiếp với mơ đun ETHERNET TO UART qua cổng giao tiếp nối tiếp không đồng UART - Từ kiến thức nghiên cứu, hệ thống đo dịng điện đƣợc tơi xây dựng bao gồm phần cứng phần mềm quản lý với tính sau: 7.0 Về phần cứng + Thiết bị cho phép nguồn ni có điện áp vào dải rộng, lên tới 60V + Có linh kiện bảo vệ thiết bị ngƣời dùng cắm ngƣợc nguồn + Nhờ việc hộ trợ giao thức truyền thông ethernet, thiết bị dễ dàng ghép nối vào mạng điều khiển công nghiệp + Hỗ trợ cổng gỡ rối, thuận tiện cho kỹ sƣ phát triển sửa chữa, nâng cấp firmware 7.1 Về phần mềm + Phần mềm đơn giản, trực quan, thân thiện với ngƣời dùng Nó thể qua việc bố trí nút bấm chức năng, đồ thị hiển thị 7.2 Những vấn đề tồn đề tài hƣớng giải Giảm thiểu sai số phép đo:Nguyên nhân sai số xuất phát từ hai yêu tố - Bản thân thiết bị đo có sai số q trình lấy mẫu ADC - Cảm biến đo dòng gây sai số đặc biệt với dịng diện có giá trị nhỏ Cách khắc phục: Sử dụng nhiều đầu đo lấy giá trị trung bình đầu đo Trên đầu đo, phần mềm đƣợc tích hợp thêm phần lọc nhiễu ADC cách lấy nhiều mẫu chia trung bình, sử dụng lọc thơng thấp bậc ba với nghìn mẫu đầu vào (LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong TIEU LUAN MOI download : skknchat@gmail.com (LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong 55 Bảo mật liệu đảm bảo tính tồn vẹn liệu Ngun nhân: - Mạng Ethernet không ổn định, làm gói tin q trình kết nối - Dữ liệu đƣợc gửi dƣới dạng văn Cách khắc phục: - Tích hợp thêm chế sửa lỗi báo nhận với tin tin đƣợc gửi nhiều lần - Mã hóa tin trƣớc gửi thuật toán đảo mã ký tự - Chèn thêm thơng tin tính CRC, checksum v v… 7.3 Hƣớng phát triển luận văn Đề tài xây dựng đƣợc tảng ban đầu việc giám sát truyền liệu thông số điện thông qua mạng ethernet Trong tƣơng lai, để áp dụng vào thực tế, thiết bị cần tối ƣu hóa phần cứng, giảm thiểu sai số đo lƣờng, loại bỏ khối chức không cần thiết để hạ giá thành sản phẩm Đồng thời sản phẩm phải hỗ trợ hạ tầng mạng tiên tiến nhƣ GPRS/3G, đảm bảo tốc độ nhanh không bị liệu, chi phí rẻ Giải pháp sau đƣợc hồn thiện có khả thay giải pháp ghi số liệu điện truyền thống Đồng thời xây dựng đƣợc sở liệu lớn phục vụ cho việc phát triển dịch vụ giá trị gia tăng khác Phần mềm quản lý phải đƣợc viết lại dƣới dạng ứng dụng web hỗ trợ chạy tảng di động để phục vụ số đơng ngƣời dùng Ngồi ra, phần mềm đƣợc tích hợp thêm tính nhƣ dự đốn cơng suất tiêu thụ, đƣa giải pháp tiết kiệm điện cho khách hàng dựa sở liệu thói quen sử dụng khách hàng (LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong TIEU LUAN MOI download : skknchat@gmail.com (LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong 56 TÀI LIỆU THAM KHẢO Tran Quang Vinh, Pham Manh Thang, Phung Manh Duong, “Controlling Communication Network in the Building Automation System,” Journal of Science,Vietnam National University, pp.129-140, Vol.26, 2010 Nguyễn Kim Giao (2004), Kỹ Thuật Số, NXB ĐHQG Trần Quang Vinh, đề tài “Nghiên cứu thiết kế, chế tạo cấu kiện hệ thống tự động hóa phục vụ giám sát, điều khiển, điều hành cho tịa nhà cao tầng (nhà cơng ích dân dụng)”, mã số: KC.03.12/06-10 Website: http://www.alldatasheets.com http://www.microchip.com http://www.picvietnam.com http://www.hanrun.com/hren/product.asp?id=322 (LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong TIEU LUAN MOI download : skknchat@gmail.com (LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong 57 PHỤ LỤC Chƣơng trình điều khiển: #include "main.h" #include /* CMD from server to device: |Header|| Len || CMD || CRC | | 0xBE ||1 Byte||1 Byte||2 Byte| CMD from device to server: |Header|| Len || DATA || CRC | | 0xBF ||1 Byte||4 Byte||2 Byte| */ volatile volatile volatile volatile volatile volatile volatile unsigned char rxBuffer; unsigned int16 adc_raw_value[40]; unsigned int16 adc_raw_max,adc_raw_min; unsigned int adc_raw_cnt; unsigned long time_out_cnt; unsigned char relay_cnt; float sensor_scale; void relayCtrl(e_relay_code_t relay); void readIrms(e_relay_code_t relay); void uart_puts(unsigned char *string); void sys_io_init(); /* #int_TBE void TBE_isr(void) { } #int_RDA void RDA_isr(void) { rxBuffer = getch(); // relayCtrl(rxBuffer); } */ #int_TIMER0 void TIMER0_isr(void) { set_timer0(84); adc_raw_value[adc_raw_cnt++] = read_adc(); if(adc_raw_cnt >= 40) { disable_interrupts(INT_TIMER0) ; } } void main() { unsigned char string[20]; (LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong TIEU LUAN MOI download : skknchat@gmail.com (LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong 58 float itemp,irms; unsigned int16 imax,imin; sys_io_init(); set_adc_channel(RELAY1_ADC_CN); time_out_cnt = 0; relay_cnt = 0; sensor_scale = 1; while(1) { if(RCIF) // The EUSART receive buffer is full (cleared by reading RCREG) { rxBuffer = getch(); relayCtrl(rxBuffer); delay_ms(20); readIrms(rxBuffer); // Read 20 value of current while(adc_raw_cnt != 40); irms = 0; imax = adc_raw_value[0]; imin = adc_raw_value[0]; for(adc_raw_cnt = 0; adc_raw_cnt < 40; adc_raw_cnt ++) { itemp = adc_raw_value[adc_raw_cnt]; itemp = (itemp*5/1024 - 2.5)*(2*sensor_scale); irms += (itemp*itemp); if(imax < adc_raw_value[adc_raw_cnt]) imax = adc_raw_value[adc_raw_cnt]; if(imin > adc_raw_value[adc_raw_cnt]) imin = adc_raw_value[adc_raw_cnt]; } // irms = sqrt(irms/(40)); //irms -= 0.05; sprintf(string,"%cIrms = %2.3f",rxBuffer,irms); sprintf(string,"%cImax = %4ld ",rxBuffer,(imax-imin)); uart_puts(string); } else { time_out_cnt++; delay_us(25); if(time_out_cnt == 2000) // { time_out_cnt = 0; switch(relay_cnt) { case 48: relay_cnt = 50; break; case 50: relay_cnt = 52; break; case 52: relay_cnt = 54; break; case 54: relay_cnt = 48; break; default: relay_cnt = 48; (LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong TIEU LUAN MOI download : skknchat@gmail.com (LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong 59 break; } for(adc_raw_cnt = 0; adc_raw_cnt < 40; adc_raw_cnt ++) { adc_raw_value[adc_raw_cnt] = 0; } readIrms(relay_cnt); // Read 20 value of current while(adc_raw_cnt != 40); irms = 0; adc_raw_max = adc_raw_value[0]; adc_raw_min = adc_raw_value[0]; for(adc_raw_cnt = 0; adc_raw_cnt < 40; adc_raw_cnt ++) { itemp = adc_raw_value[adc_raw_cnt]; itemp = (itemp*5/1024 - 2.5)*(2*sensor_scale); irms += (itemp*itemp); if(adc_raw_max < adc_raw_value[adc_raw_cnt]) adc_raw_max = adc_raw_value[adc_raw_cnt]; if(adc_raw_min > adc_raw_value[adc_raw_cnt]) adc_raw_min = adc_raw_value[adc_raw_cnt]; } irms = sqrt(irms/40); //irms -= 0.05; //sprintf(string,"%cIrms = %2.3f",relay_cnt,irms); sprintf(string,"%cVrms = %4ld ",relay_cnt,(adc_raw_maxadc_raw_min)); uart_puts(string); } } //! //! //! //! //! //! //! } for(adc_raw_cnt = 0; adc_raw_cnt < 20; adc_raw_cnt ++) { sprintf(string," - %4lu",adc_raw_value[adc_raw_cnt]); putc('\n'); putc('\r'); uart_puts(string); } } void sys_io_init(void) { setup_adc_ports(sAN4|sAN5|sAN6|sAN7|VSS_VDD); setup_adc(ADC_CLOCK_DIV_8); setup_spi(SPI_SS_DISABLED); setup_timer_0(RTCC_INTERNAL|RTCC_DIV_16|RTCC_8_bit); //5.8us resolution // 1.4ms overflow setup_timer_1(T1_DISABLED); setup_timer_2(T2_DISABLED,0,1); setup_comparator(NC_NC_NC_NC); // enable_interrupts(INT_TBE); // enable_interrupts(INT_RDA); // enable_interrupts(INT_TIMER0); enable_interrupts(GLOBAL); /********** Setup Output/Input pin direction ************/ output_drive(LED1_CTRL); output_drive(LED2_CTRL); output_drive(LED3_CTRL); (LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong TIEU LUAN MOI download : skknchat@gmail.com (LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong 60 output_drive(RELAY1_CTRL); output_drive(RELAY2_CTRL); output_drive(RELAY3_CTRL); output_drive(RELAY4_CTRL); output_drive(U2E_RST_CTRL); output_drive(U2E_CFC_CTRL); output_float(U2E_STATUS); /********** Init voltage level for output pin ************/ output_high(LED1_CTRL); output_high(LED2_CTRL); output_high(LED3_CTRL); output_low(RELAY1_CTRL); output_low(RELAY2_CTRL); output_low(RELAY3_CTRL); output_low(RELAY4_CTRL); output_high(U2E_RST_CTRL); output_high(U2E_CFC_CTRL); } void relayCtrl(e_relay_code_t relay) { switch(relay) { case SYS_RL1_ON: output_high(RELAY1_CTRL); break; case SYS_RL1_OFF: output_low(RELAY1_CTRL); break; case SYS_RL2_ON: output_high(RELAY2_CTRL); break; case SYS_RL2_OFF: output_low(RELAY2_CTRL); break; case SYS_RL3_ON: output_high(RELAY3_CTRL); break; case SYS_RL3_OFF: output_low(RELAY3_CTRL); break; case SYS_RL4_ON: output_high(RELAY4_CTRL); break; case SYS_RL4_OFF: output_low(RELAY4_CTRL); break; } } void readIrms(e_relay_code_t relay) { switch(relay) { case SYS_RL1_ON: case SYS_RL1_OFF: set_adc_channel(RELAY1_ADC_CN); (LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong TIEU LUAN MOI download : skknchat@gmail.com (LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong 61 sensor_scale = 1; break; case SYS_RL2_ON: case SYS_RL2_OFF: set_adc_channel(RELAY2_ADC_CN); sensor_scale = 1; break; case SYS_RL3_ON: case SYS_RL3_OFF: set_adc_channel(RELAY3_ADC_CN); sensor_scale = 1; break; case SYS_RL4_ON: case SYS_RL4_OFF: set_adc_channel(RELAY4_ADC_CN); sensor_scale = 4; break; } delay_ms(10); adc_raw_cnt = 0; // Start timer0 interrupt enable_interrupts(INT_TIMER0); } void uart_puts(unsigned char *string) { while(*string != '\n' && *string != '\0') { putc(*string++); } } Phần mềm giao diện: '======================================================== ======= ' ' CHUONG TRINH CLIENT DIEU KHIEN THIET BI QUA MANG INTERNET ' '=============================================================== Dim CUR_REF As Double Dim AppPath As String Dim rl1_on_cnt As Integer Dim rl2_on_cnt As Integer Dim rl3_on_cnt As Integer Dim rl4_on_cnt As Integer (LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong TIEU LUAN MOI download : skknchat@gmail.com (LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong 62 Private Sub Form_Load() Dim sAns As String sAns = App.Path If Right(App.Path, 1) "\" Then sAns = sAns & "\" AppPath = sAns rl1_on_cnt = rl2_on_cnt = rl3_on_cnt = rl4_on_cnt = CUR_REF = CDbl(txtCurTH.Text) Image1.Picture = LoadPicture(AppPath & "stock-vector.jpg") Image2.Picture = LoadPicture(AppPath & "stock-vector.jpg") Image3.Picture = LoadPicture(AppPath & "stock-vector.jpg") Image4.Picture = LoadPicture(AppPath & "stock-vector.jpg") 'on1.Caption = "Tat" 'on2.Caption = "Tat" 'on3.Caption = "Tat" 'on4.Caption = "Tat" 'Image1.Picture = LoadPicture("Light-Bulb.jpg") 'txtIrms1.Text = "0.01 A" ' Display received current 'Image2.Picture = LoadPicture("Light-Bulb.jpg") 'txtIrms2.Text = "1.2 A" ' Display received current 'Image3.Picture = LoadPicture("stock-vector.jpg") 'txtIrms3.Text = "0.02 A" ' Display received current 'Image4.Picture = LoadPicture("Light-Bulb.jpg") 'txtIrms4.Text = "2 A" ' Display received current End Sub Private Sub cmdCon_Click() If sock.State = sckClosed Then ' if the socket is closed sock.RemoteHost = txtIP.Text ' set server adress sock.RemotePort = txtPort.Text ' set server port sock.Connect ' start connection attempt cmdCon.Picture = LoadPicture(AppPath & "btn_connect.jpg") Else ' if the socket is open sock.Close ' close it cmdCon.Picture = LoadPicture(AppPath & "btn_disconnect.jpg") End If End Sub (LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong TIEU LUAN MOI download : skknchat@gmail.com (LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong 63 Private Sub on1_Click() If sock.State = sckConnected Then ' if there is a connection If on1.Caption = "Tat" Then sock.SendData "0" ' send data to the other side on1.Caption = "Bat" Else sock.SendData "1" ' send data to the other side on1.Caption = "Tat" End If End If End Sub Private Sub on2_Click() If sock.State = sckConnected Then ' if there is a connection If on2.Caption = "Tat" Then sock.SendData "2" ' send data to the other side on2.Caption = "Bat" Else sock.SendData "3" ' send data to the other side on2.Caption = "Tat" End If End If End Sub Private Sub on3_Click() If sock.State = sckConnected Then ' if there is a connection If on3.Caption = "Tat" Then sock.SendData "4" ' send data to the other side on3.Caption = "Bat" Else sock.SendData "5" ' send data to the other side on3.Caption = "Tat" End If End If End Sub Private Sub on4_Click() If sock.State = sckConnected Then ' if there is a connection If on4.Caption = "Tat" Then sock.SendData "6" ' send data to the other side (LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong TIEU LUAN MOI download : skknchat@gmail.com (LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong 64 on4.Caption = "Bat" Else sock.SendData "7" ' send data to the other side on4.Caption = "Tat" End If End If End Sub Private Sub sock_Close() sock.Close ' has to be called End Sub Private Sub sock_DataArrival(ByVal bytesTotal As Long) Dim strData As String ' string for received data Dim irms As Double sock.GetData strData ' load received data into strData Text1.Text = strData Dim status As Byte status = CByte(Asc(strData)) 'txtReceive.Text = txtReceive.Text & status ' show new string strData = Mid(strData, 9, 6) If strData "" Then irms = CDbl(Val(strData)) Else irms = End If 'irms = irms - 0.2 If status = 48 Or status = 49 Then irms = irms * 0.0556875 - 0.325125 irms = Round(irms, 2) If (irms < 0.09) Then irms = End If txtIrms1.Text = CStr(irms) ' Mid(strData, 2, 15) ' Display received current If irms > CUR_REF Then rl1_on_cnt = rl1_on_cnt + If rl1_on_cnt > Then Image1.Picture = LoadPicture(AppPath & "Light- (LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong TIEU LUAN MOI download : skknchat@gmail.com (LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong 65 Bulb.jpg") on1.Caption = "Tat" End If Else Image1.Picture = LoadPicture(AppPath & "stock- vector.jpg") on1.Caption = "Bat" rl1_on_cnt = End If End If If status = 50 Or status = 51 Then irms = irms * 0.0556875 - 0.325125 irms = Round(irms, 2) If (irms < 0.09) Then irms = End If txtIrms2.Text received current = CStr(irms) 'Mid(strData, 2, 15) ' Display If irms > CUR_REF Then rl2_on_cnt = rl2_on_cnt + If rl2_on_cnt > Then Image2.Picture = LoadPicture(AppPath & "Light- Bulb.jpg") on2.Caption = "Tat" End If Else Image2.Picture = LoadPicture(AppPath & "stock- vector.jpg") on2.Caption = "Bat" rl2_on_cnt = End If End If If status = 52 Or status = 53 Then irms = irms * 0.0556875 - 0.325125 irms = Round(irms, 2) If (irms < 0.09) Then irms = End If txtIrms3.Text = CStr(irms) ' Mid(strData, 2, 15) ' Display (LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong TIEU LUAN MOI download : skknchat@gmail.com (LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong 66 received current If irms > CUR_REF Then rl3_on_cnt = rl3_on_cnt + If rl3_on_cnt > Then Image3.Picture = LoadPicture(AppPath & "Light- Bulb.jpg") on3.Caption = "Tat" End If Else Image3.Picture = LoadPicture(AppPath & "stock- vector.jpg") on3.Caption = "Bat" rl3_on_cnt = End If End If If status = 54 Or status = 55 Then irms = irms * 3.2 / 44 irms = Round(irms, 2) irms = irms - 0.03 If (irms < 0.15) Then irms = End If txtIrms4.Text = CStr(irms) ' Mid(strData, 2, 15) ' Display received current If irms > CUR_REF Then rl4_on_cnt = rl4_on_cnt + If rl4_on_cnt > Then Image4.Picture = LoadPicture(AppPath & "Light- Bulb.jpg") on4.Caption = "Tat" End If Else Image4.Picture = LoadPicture(AppPath & "stock- vector.jpg") on4.Caption = "Bat" rl4_on_cnt = End If End If (LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong TIEU LUAN MOI download : skknchat@gmail.com (LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong (LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong(LUAN.VAN.THAC.SI).Dieu.khien.cac.thiet.bi.dien.tu.xa.qua.mang.internet.Luan.van.ThS.Cong.nghe.Dien.tu.Vien.thong