ĐÈ TÀI GIÁM SÁT VÀ ĐIỀU KHIỂN THIẾT BỊ QUA MẠNG RS-485 VÀ GIÁO TIẾP VỚI MÁY TỈNH QUA MẠNG RF

TỔNG LIÊN ĐOÀN LAO ĐỘNG VIỆT NAM TRƯỜNG ĐẠI HỌC TƠN ĐỨC THẮNG KHOA ĐIỆN - ĐIỆN TỬ KHỐ LUẬN TỐT NGHIỆP ĐỀ TÀI : GIÁM SÁT VÀ ĐIỀU KHIỂN THIẾT BỊ QUA MẠNG RS-485 VÀ GIAO TIẾP VỚI MÁY TÍNH QUA MẠNG RF Giáo viên hướng dẫn : Th.S NGÔ THANH HẢI Sinh viên thực : NGUYỄN ĐỨC HIẾU Lớp : 08DD3N Khố : 08 TP HỒ CHÍ MINH, tháng năm 2009 ĐỀ TÀI : GIÁM SÁT VÀ ĐIỀU KHIỂN THIẾT BỊ QUA MẠNG RS-485 GIAO TIẾP VỚI MÁY TÍNH QUA MẠNG RF LỜI CẢM ƠN Xin chân thành cảm ơn quý thầy cô khoa Điện Điện Tử, đặc biệt thầy Ngô Thanh Hải tạo điều kiện thuận lợi giúp em hoàn thành đề tài Do khả kiến thức thời gian có hạn, q trình thực đề tài khơng tránh khỏi sai sót, mong q thầy bạn có ý kiến đóng góp, phê bình để đề tài ngày hoàn thiện Xin chân thành cảm ơn! Người thực Nguyễn Đức Hiếu GVHD : ThS NGÔ THANH HẢI SVTH : NGUYỄN ĐỨC HIẾU Page ĐỀ TÀI : GIÁM SÁT VÀ ĐIỀU KHIỂN THIẾT BỊ QUA MẠNG RS-485 GIAO TIẾP VỚI MÁY TÍNH QUA MẠNG RF NHẬN XÉT CỦA GIÁO VIÊN HƯỚNG DẪN TP HCM, Ngày tháng 07 năm 2009 Giáo viên hướng dẫn GVHD : ThS NGÔ THANH HẢI SVTH : NGUYỄN ĐỨC HIẾU Page ĐỀ TÀI : GIÁM SÁT VÀ ĐIỀU KHIỂN THIẾT BỊ QUA MẠNG RS-485 GIAO TIẾP VỚI MÁY TÍNH QUA MẠNG RF NHẬN XÉT CỦA GIÁO VIÊN PHẢN BIỆN TP HCM, Ngày tháng 07 năm 2009 Giáo viên phản biện GVHD : ThS NGÔ THANH HẢI SVTH : NGUYỄN ĐỨC HIẾU Page ĐỀ TÀI : GIÁM SÁT VÀ ĐIỀU KHIỂN THIẾT BỊ QUA MẠNG RS-485 GIAO TIẾP VỚI MÁY TÍNH QUA MẠNG RF MỤC LỤC Trang Lời cảm ơn Nhận xét giáo viên hướng dẫn Nhận xét giáo viên phản biện Danh mục hình Danh mục bảng 12 Lời mở đầu 13 PHẦN A - NỘI DUNG CHƯƠNG - GIỚI THIỆU 15 CHƯƠNG - MẠNG RS – 485 16 2.1 TỔNG QUAN 16 2.1.1 Một số khái niệm 16 2.1.2 Phân loại mạng 17 2.1.3 Điều khiển mạng RS – 485 19 2.2 CẤU HÌNH HỆ THỐNG MẠNG RS – 485 21 2.2.1 Mạng dây 21 2.2.2 Mạng dây 21 /.2.3 Trở đầu cuối 22 2.2.4 Phân cực cho mạng RS – 485 23 2.2.5 Mở rộng mạng 25 2.3 CHỌN CÁP MẠNG 25 2.3.1 Điện kháng đặc tính 25 2.3.2 Dung kháng phụ 25 2.3.3 Vận tốc truyền sóng 26 2.3.4 Chất liệu cáp 26 2.4 BẢO VỆ QUÁ ĐỘ CHO HỆ THỐNG RS – 485 28 2.4.1 Các yếu tố độ hệ thống RS – 485 28 2.4.1.1 Sự sụt áp 28 2.4.1.2 Tín hiệu đất khác 30 2.4.2 Các phương pháp bảo vệ độ 31 2.4.2.1 Phương pháp cách ly 32 2.4.2.2 Phương pháp mắc shunting 32 2.4.3 Kết hợp cách ly shunting 34 2.5 GIAO THỨC MẠNG 35 2.5.1 Điều khiển truyền RS – 485 36 2.5.2 Điều khiển nhận RS – 485 36 2.5.3 Hệ thống chủ - tớ 36 2.5.3.1 Hệ thống chủ - tớ dây 37 GVHD : ThS NGÔ THANH HẢI SVTH : NGUYỄN ĐỨC HIẾU Page ĐỀ TÀI : GIÁM SÁT VÀ ĐIỀU KHIỂN THIẾT BỊ QUA MẠNG RS-485 GIAO TIẾP VỚI MÁY TÍNH QUA MẠNG RF 2.5.3.2 Hệ thống chủ - tớ dây 37 2.5.4 Mạng RS – 485 nhiều trạm chủ 37 2.5.5 Các hệ thống với chuyển đổi cổng nguồn 37 2.6 LỰA CHỌN THIẾT BỊ 37 CHƯƠNG - GIỚI THIỆU VỀ VI ĐIỀU KHIỂN 39 3.1 TỔNG QUAN 39 3.1.1 Lịch sử phát triển vi điều khiển 39 3.1.2 Giới thiệu AT89S52 40 3.2 SƠ ĐỒ CHÂN ( PINOUT ) 41 3.2.1 Port 42 3.2.2 Port 42 3.2.3 Port 43 3.2.4 Port 43 3.2.5 Chân PSEN 44 3.2.6 Chân ALE/ PROG 44 3.2.7 Chân EA /VPP 45 3.2.8 Chân RESET ( RST ) 45 3.2.9 Các chân XTAL XTAL 45 3.3 TỔ CHỨC BỘ NHỚ 45 3.3.1 Bộ nhớ chương trình 45 3.3.2 Bộ nhớ liệu 46 3.3.3 Các ghi chức 46 3.3.3.1 Thanh ghi từ trạng thái chương trình PSW 46 3.3.3.2 Thanh ghi B 47 3.3.3.3 Thanh ghi trỏ ngăn xếp SP 47 3.3.3.4 Con trỏ liệu 48 3.3.3.5 Thanh ghi cổng 48 3.3.3.6 Thanh ghi định thời 49 3.3.3.7 Thanh ghi cổng nối tiếp 49 3.3.3.8 Thanh ghi ngắt 49 3.3.3.9 Thanh ghi điều khiển nguồn PCON 49 3.4 TÓM TẮT TẬP LỆNH 50 3.4.1 Các kiểu định địa 50 3.4.1.1 Định địa ghi 51 3.4.1.2 Định địa trực tiếp 51 3.4.1.3 Định địa gián tiếp 52 3.4.1.4 Định địa tức thời 53 3.4.1.5 Định địa tương đối 53 3.4.1.6 Định địa tuyệt đối 54 3.4.1.7 Định địa dài 54 GVHD : ThS NGÔ THANH HẢI SVTH : NGUYỄN ĐỨC HIẾU Page ĐỀ TÀI : GIÁM SÁT VÀ ĐIỀU KHIỂN THIẾT BỊ QUA MẠNG RS-485 GIAO TIẾP VỚI MÁY TÍNH QUA MẠNG RF 3.4.1.8 Định địa chỉ số 55 3.4.2 Các loại lệnh 55 3.4.2.1 Các lệnh số học 55 3.4.2.2 Nhóm lệnh logic 56 3.4.2.3 Các lệnh di chuyển liệu 58 3.4.2.4 Các lệnh xử lý bit 60 3.4.2.5 Các lệnh rẽ nhánh 61 3.5 HOẠT ĐỘNG ĐỊNH THỜI 65 3.5.1 Giới thiệu 65 3.5.2 Các ghi định thời 66 3.5.2.1 Các ghi Timer Timer 66 3.5.2.2 Thanh ghi điều khiển Timer ( TCON ) 67 3.5.2.3 Các ghi Timer 68 3.5.3 Các chế độ Timer Timer 70 3.5.3.1 Các chế độ hoạt động định thời 70 3.5.3.2 Các chế độ hoạt động Timer 73 3.6 NGẮT 77 3.6.1 Khái niệm 77 3.6.2 Tổ chức ngắt AT89S52 77 3.6.3 Sử dụng ngắt 80 3.7 CỔNG NỐI TIẾP 80 3.7.1 Giới thiệu 80 3.7.2 Các ghi cổng nối tiếp 81 3.7.3 Các chế độ hoạt động 82 3.7.4 Trao đổi liệu qua cổng nối tiếp 84 3.7.5 Truyền thông đa xử lý 84 3.8 ĐẶC TÍNH DAO ĐỘNG 85 3.9 CHẾ ĐỘ IDLE 85 3.10 CHẾ ĐỘ POWER – DOWN 86 CHƯƠNG - TRUYỀN THƠNG QUA TÍN HIỆU RF 88 4.1 THÔNG SỐ MODULE JZ861 88 4.2 THÔNG SỐ KỸ THUẬT CỦA MODULE JZ861 89 4.3 THÔNG SỐ MẶC ĐỊNH 90 4.4 ỨNG DỤNG 90 4.4.1 Cổng giao tiếp cho người dùng 90 4.4.2 Lựa chọn nguồn cho module JZ861 91 4.4.3 Chức tiết kiệm ( ngủ ) 92 CHƯƠNG – LINH KIỆN THIẾT BỊ 93 5.1 LINH KIỆ93 5.1.1 Opamp 93 GVHD : ThS NGÔ THANH HẢI SVTH : NGUYỄN ĐỨC HIẾU Page ĐỀ TÀI : GIÁM SÁT VÀ ĐIỀU KHIỂN THIẾT BỊ QUA MẠNG RS-485 GIAO TIẾP VỚI MÁY TÍNH QUA MẠNG RF 5.1.1.1 Cơ Opamp 93 5.1.1.2 LM324 95 5.1.2 Cảm biến nhiệt độ 96 5.1.3 Bộ chuyển đổi ADC 96 5.1.3.1 Tổng quan ADC0809 96 5.1.3.2 Nguyên lý hoạt động 98 5.1.4 Triac 101 5.1.4.1 Tổng quan triac 101 5.1.4.2 Thông số BT137 103 5.1.5 Bộ ghép quang 103 5.1.5.1 Tổng quan 103 5.1.5.2 PC817 104 5.1.5.3 MOC3020 104 5.1.6 Linh kiện chuyển đổi nguồn 105 5.1.6.1 MAX232 105 5.1.6.2 MAX485 106 5.1.7 MOSFET 107 5.1.7.1 Tổng quan 107 5.1.7.2 IRF540 107 5.1.7.3 IRF9540 108 5.1.8 Bộ hợp kênh UTC4053 109 5.2 THIẾT BỊ 110 5.2.1 GIÁM SÁT VÀ ĐIỀU KHIỂN TỐC ĐỘ ĐỘNG CƠ DC 110 5.2.1.1 Tổng quan động DC 110 5.2.1.1.1 Cấu tạo 110 5.2.1.1.1.1 Phần tĩnh ( Stator ) 110 5.2.1.1.1.2 Phần quay ( Rotor ) 111 5.2.1.1.2 Các thông số định mức 112 5.2.1.1.3 Phân loại 112 5.2.1.2 Điều khiển tốc độ động DC 112 5.2.1.2.1 Phương pháp thay đổi điện áp phần ứng 112 5.2.1.2.2 Phương pháp thay đổi điện trở phần ứng 113 5.2.1.2.3 Phương pháp thay đổi từ thông Ф 113 5.2.2 Giám sát điều khiển nhiệt độ 114 CHƯƠNG – VISUAL BASIC 6.0 115 6.1 TỔNG QUAN 115 6.1.1 Lịch sử phát triển ngôn ngữ Visual Basic 115 6.1.2 Đặc điểm 115 6.1.3 Các thành phần 116 6.2 ỨNG DỤNG CỦA VISUAL BASIC 118 GVHD : ThS NGÔ THANH HẢI SVTH : NGUYỄN ĐỨC HIẾU Page ĐỀ TÀI : GIÁM SÁT VÀ ĐIỀU KHIỂN THIẾT BỊ QUA MẠNG RS-485 GIAO TIẾP VỚI MÁY TÍNH QUA MẠNG RF CHƯƠNG – SƠ ĐỒ MẠCH 120 7.1 SƠ ĐỒ MẠCH 120 7.1.1.TRẠM CHỦ 120 7.1.2 TRẠM TỚ 122 7.2 NGUYÊN LÝ HOẠT ĐỘNG 123 7.2.1 Trạm chủ 123 7.2.2 Trạm tớ 124 7.2.2.1 Mạch đo nhiệt độ 124 7.2.2.3 Mạch điều khiển động DC 125 CHƯƠNG – CHƯƠNG TRÌNH 126 8.1 CHƯƠNG TRÌNH MẠNG RS – 485 126 8.1.1 Chương trình trạm chủ 126 8.1.2 Chương trình trạm tớ 127 8.2 CHƯƠNG TRÌNH GIAO TIẾP MÁY TÍNH 136 8.2.1 Giao diện máy tính 136 8.2.2 Chương trình giao tiếp 137 PHẦN B - KẾT LUẬN KẾT LUẬN 146 TÀI LIỆU THAM KHẢO 147 GVHD : ThS NGÔ THANH HẢI SVTH : NGUYỄN ĐỨC HIẾU Page ĐỀ TÀI : GIÁM SÁT VÀ ĐIỀU KHIỂN THIẾT BỊ QUA MẠNG RS-485 GIAO TIẾP VỚI MÁY TÍNH QUA MẠNG RF DANH MỤC HÌNH : Hình 2.1 Mạch giao tiếp RS – 232 16 Hình 2.2 Bộ truyền ngõ vi sai cân 17 Hình 2.3 Bộ nhận vi sai cân 17 Hình 2.4 Mạng thiết bị cấu hình RS -485 kiểu dây 18 Hình 2.5 Mạng thiết bị RS – 485 cấu hình dây 18 Hình 2.6 Sơ đồ định thởi cho chuyển đổi RS – 232 sang RS – 485 với tín hiệu điều khiển RTS cho nhận truyền RS – 485 20 Hình 2.7 Sơ đồ định thời cho chuyển đổi RS – 232 sang RS – 485 với tín hiệu điều khiển truyền liệu truyền nhận RS – 485 21 Hình 2.8 Trở đầu cuối ghép AC song song 23 Hình 2.9 Các điện trở phân cực cho chuyển đổi 24 Hinh 2.10 Đồ thị quan hệ tốc độ truyền liệu chiều dài cáp cho giao tiếp cân sử dụng cáp xoắn 24 AWG 27 Hình 2.11 Đồ thị quan hệ độ suy hao tín hiệu với tần số tín hiệu 27 Hình 2.12 Sự kết hợp dạng sóng điện áp 29 Hình 2.13 Sự kết hợp dạng sóng dịng điện 29 Hình 2.14 Sóng dao động 100 KHz 30 Hình 2.15 Thiết bị RS – 485 cách ly 31 Hình 2.16 Thiết bị RS – 485 với tín hiệu đất kết nối với tín hiệu đất chung 31 Hình 2.17 Kết nối tín hiệu đất trạm với điện trở nối tiếp 100 ohm 33 Hình 2.18 Trạm cách ly với bảo vệ shunt với tín hiệu đất 34 Hình 2.19 Trạm cách ly với bảo vệ shunt không nối đất 34 Hình 2.20 Bảo vệ cổng cầu chì 35 Hình 3.1 Sơ đồ khối chức AT89S52 40 Hình 3.2 Sơ đồ chân AT89S52 41 Hình 3.3 Địa giá trị ghi chức AT89S52 reset 48 Hình 3.4 Thanh ghi TMOD 66 Hình 3.5 Thanh ghi TCON 67 Hình 3.6 Các ghi chứa giá trị định thời 68 Hình 3.7 Hoạt động Timer chế độ 70 Hình 3.8 Hoạt động Timer chế độ 71 Hình 3.9 Hoạt động Timer chế độ 72 Hình 3.10 Chế độ Timer 72 GVHD : ThS NGÔ THANH HẢI SVTH : NGUYỄN ĐỨC HIẾU Page ĐỀ TÀI : GIÁM SÁT VÀ ĐIỀU KHIỂN THIẾT BỊ QUA MẠNG RS-485 GIAO TIẾP VỚI MÁY TÍNH QUA MẠNG RF if ( MotorNum==0) { PIDMotorFlag=1; MotorNum=MotorNumMax; } Set_timer1(Timer1Const); } void UARTInt(void) interrupt { if (FTx) { SBUF=TXBuff[TxIndex]; ++TxIndex; if (SBUF=='\n') { TxIndex=0; FTx=0; } TI=0; } if (RI) { if (RxIndex1000) temp=1000; MPIDduty=(int)temp; } int Caculator_MSpeed(void) { int Temp; Temp=60*MSpeed; return Temp; } void SetMotor(void) { if (MotorDir) GVHD : ThS NGÔ THANH HẢI SVTH : NGUYỄN ĐỨC HIẾU Page 135 ĐỀ TÀI : GIÁM SÁT VÀ ĐIỀU KHIỂN THIẾT BỊ QUA MẠNG RS-485 GIAO TIẾP VỚI MÁY TÍNH QUA MẠNG RF { LMotor=RMotor=1; RMotor=0; } else { LMotor=RMotor=1; LMotor=0; } } 8.2 CHƯƠNG TRÌNH GIAO TIẾP MÁY TÍNH 8.2.1 Giao diện máy tính Hình 8.1 Giao diện máy tính Giao diện máy tính giám sát thơng số tốc độ nhiệt độ động cơ, nhiệt độ đèn với chức sau Khi bật giao diện, thiết bị thiết lập trạng thái OFF ( khơng hoạt động ) GVHD : ThS NGƠ THANH HẢI SVTH : NGUYỄN ĐỨC HIẾU Page 136 ĐỀ TÀI : GIÁM SÁT VÀ ĐIỀU KHIỂN THIẾT BỊ QUA MẠNG RS-485 GIAO TIẾP VỚI MÁY TÍNH QUA MẠNG RF Tốc độ động hoạt động theo giá trị tốc độ nhiệt độ ( SET POINT ) Sau giá trị SET POINT đặt, ta nhấn OK, thông số tốc độ nhiệt độ gửi xuống tương ứng với thiết bị Khi nhiệt độ giám sát vượt giá trị giới hạn, đèn Over Heat ( nhiệt ) tác động báo hiệu cho người sử dụng biết tình trạng thiết bị Khi động tải, đèn Over Load ( tải ) tác động 8.2.2 Chương trình giao tiếp Option Explicit Dim Poll Dim Error Dim M1OHWarn Dim M1OLWarn Dim M2OHWarn Dim M2OLWarn Dim LOHWarn Dim A As Object Dim B As Object Dim C As Object Dim X As Integer Private Sub cmdExit_Click() End End Sub Private Sub CmdLOK_Click() Dim sTemp sTemp = "CMD SP " If TxtLSet = "" Then MsgBox ("Nhap SetPoint") Else sTemp = sTemp & TxtLSet.Text MSComm1.Output = sTemp & vbCrLf End If End Sub Private Sub CmdM1OK_Click() Dim sTemp sTemp = "CMD SP " If TxtM1Set = "" Then MsgBox ("Nhap SetPoint") Else GVHD : ThS NGÔ THANH HẢI SVTH : NGUYỄN ĐỨC HIẾU Page 137 ĐỀ TÀI : GIÁM SÁT VÀ ĐIỀU KHIỂN THIẾT BỊ QUA MẠNG RS-485 GIAO TIẾP VỚI MÁY TÍNH QUA MẠNG RF sTemp = sTemp & TxtM1Set.Text MSComm1.Output = sTemp & vbCrLf End If End Sub Private Sub CmdM2OK_Click() Dim sTemp sTemp = "CMD SP " If TxtM2Set = "" Then MsgBox ("Nhap SetPoint") Else sTemp = sTemp & TxtM2Set.Text MSComm1.Output = sTemp & vbCrLf End If End Sub Private Sub Command1_Click() MSComm1.Output = Combo1.List(Combo1.ListIndex) & vbCrLf End Sub Private Sub Form_Load() Combo1.AddItem "CMD RP 123" Combo1.AddItem "CMD TE 123" Combo1.AddItem "CMD RP 234" Combo1.AddItem "CMD TE 234" Combo1.AddItem "CMD TE 999" Combo1.AddItem "CMD 0" Combo1.AddItem "CMD OL" Combo1.AddItem "CMD OH" Combo1.AddItem "CMD OL" Combo1.AddItem "CMD OH" Combo1.AddItem "CMD OH" Combo1.ListIndex = MSComm1.CommPort = MSComm1.InputMode = comInputModeText MSComm1.Settings = "9600,N,8,1" MSComm1.RThreshold = MSComm1.InputLen = MSComm1.PortOpen = True ' - CSDL DATA -Set A = CreateObject("excel.application") Set B = A.workbooks.Add GVHD : ThS NGÔ THANH HẢI SVTH : NGUYỄN ĐỨC HIẾU Page 138 ĐỀ TÀI : GIÁM SÁT VÀ ĐIỀU KHIỂN THIẾT BỊ QUA MẠNG RS-485 GIAO TIẾP VỚI MÁY TÍNH QUA MẠNG RF Set C = B.worksheets(1) C.CELLS(1, 1).Value = "Order" C.CELLS(1, 2).Value = "Date Month Year" C.CELLS(1, 3).Value = "Hour Minute Second" C.CELLS(1, 4).Value = "Set M1" C.CELLS(1, 5).Value = "RPM M1" C.CELLS(1, 6).Value = "TEMP M1" C.CELLS(1, 7).Value = "Set M2" C.CELLS(1, 8).Value = "RPM M2" C.CELLS(1, 9).Value = "TEMP M2" C.CELLS(1, 10).Value = "Set L1" C.CELLS(1, 11).Value = "RPM L1" C.CELLS(1, 12).Value = "TEMP L1" C.Name = "DATA RS-485" X=2 ' Text1.Text = "" Text2.Text = "" Error = M1OLWarn = M1OHWarn = M2OLWarn = M2OHWarn = LOHWarn = OptM1Off.Value = OptM2Off.Value = OptLOff.Value = Poll = End Sub Private Sub List1_Click() Dim s, s1, s2, s3, s4, s5, S6, s7 If List1.ListCount > Then s = List1.List(List1.ListIndex) s1 = Left(s, 3) 'CMD s2 = Mid(s, 5, 1) ' Devide s3 = Mid(s, 7, 2) 'On/OFF/SP s4 = Mid(s, 10, 3) '999 End If If s1 = "CMD" Then Select Case s2 Case GVHD : ThS NGÔ THANH HẢI SVTH : NGUYỄN ĐỨC HIẾU Page 139 ĐỀ TÀI : GIÁM SÁT VÀ ĐIỀU KHIỂN THIẾT BỊ QUA MẠNG RS-485 GIAO TIẾP VỚI MÁY TÍNH QUA MẠNG RF If s3 = "RP" Then txtM1RPM.Text = s4 ElseIf s3 = "TE" Then txtM1Temp.Text = s4 ElseIf s3 = "OL" Then M1OLWarm = ElseIf s3 = "OH" Then M1OHWarm = End If Case If s3 = "RP" Then txtM2RPM.Text = s4 ElseIf s3 = "TE" Then txtM2Temp.Text = s4 ElseIf s3 = "OL" Then M2OLWarm = ElseIf s3 = "OH" Then M2OHWarm = End If Case If s3 = "TE" Then txtLTemp.Text = s4 ElseIf s3 = "OH" Then LOHWarm = End If End Select End If End Sub Private Sub MSComm1_OnComm() Dim s1, s2, s3, p1, p2 Select Case (MSComm1.CommEvent) Case comEvReceive Text1.Text = Text1.Text & MSComm1.Input End Select p1 = InStr(Text1.Text, vbCrLf) If p1 > Then s1 = Left(Text1.Text, p1 - 1) s2 = Right(Text1.Text, Len(Text1.Text) - p1 - 1) Text2.Text = Text2.Text & Text1.Text Text1.Text = s2 If InStr(s1, "CMD") > Then GVHD : ThS NGÔ THANH HẢI SVTH : NGUYỄN ĐỨC HIẾU Page 140 ĐỀ TÀI : GIÁM SÁT VÀ ĐIỀU KHIỂN THIẾT BỊ QUA MẠNG RS-485 GIAO TIẾP VỚI MÁY TÍNH QUA MẠNG RF List1.AddItem s1 List1.ListIndex = List1.ListCount - End If End If End Sub Private Sub OptLOff_Click() If Error Then MSComm1.Output = "CMD 0" & vbCrLf End If End Sub Private Sub OptLOn_Click() Dim sTemp sTemp = "CMD 1" If TxtLSet = "" Then MsgBox ("Nhap SetPoin") OptLOff.Value = Error = Else MSComm1.Output = sTemp & vbCrLf CmdLOK_Click End If End Sub Private Sub OptM1Off_Click() If Error Then MSComm1.Output = "CMD 0" & vbCrLf End If End Sub Private Sub OptM1On_Click() Dim sTemp sTemp = "CMD 1" If TxtM1Set = "" Then MsgBox ("Nhap SetPoint") OptM1Off.Value = Error = Else MSComm1.Output = sTemp & vbCrLf End If End Sub GVHD : ThS NGÔ THANH HẢI SVTH : NGUYỄN ĐỨC HIẾU Page 141 ĐỀ TÀI : GIÁM SÁT VÀ ĐIỀU KHIỂN THIẾT BỊ QUA MẠNG RS-485 GIAO TIẾP VỚI MÁY TÍNH QUA MẠNG RF Private Sub OptM2Off_Click() If Error Then MSComm1.Output = "CMD 0" & vbCrLf End If End Sub Private Sub OptM2On_Click() Dim sTemp sTemp = "CMD 1" If TxtM2Set = "" Then MsgBox ("Nhap SetPoint") OptM2Off.Value = Error = Else MSComm1.Output = sTemp & vbCrLf End If End Sub Private Sub Timer1_Timer() Dim sTemp If M1OLWarn = Then If ShM1L.FillStyle = Then ShM1L.FillStyle = Else ShM1L.FillStyle = End If End If If M1OHWarn = Then If ShM1H.FillStyle = Then ShM1H.FillStyle = Else ShM1H.FillStyle = End If End If If M2OLWarn = Then If ShM2L.FillStyle = Then ShM2L.FillStyle = Else ShM2L.FillStyle = End If End If GVHD : ThS NGÔ THANH HẢI SVTH : NGUYỄN ĐỨC HIẾU Page 142 ĐỀ TÀI : GIÁM SÁT VÀ ĐIỀU KHIỂN THIẾT BỊ QUA MẠNG RS-485 GIAO TIẾP VỚI MÁY TÍNH QUA MẠNG RF If M2OHWarn = Then If ShM2H.FillStyle = Then ShM2H.FillStyle = Else ShM2H.FillStyle = End If End If If LOHWarn = Then If ShLH.FillStyle = Then ShLH.FillStyle = Else ShLH.FillStyle = End If End If Select Case Poll Case sTemp = "CMD RP" Case sTemp = "CMD TE" Case sTemp = "CMD RP" Case sTemp = "CMD TE" Case sTemp = "CMD TE" End Select Poll = Poll + If Poll = Then Poll = End If MSComm1.Output = sTemp & vbCrLf End Sub Private Sub TxtLSet_Change() If TxtLSet "" Then Error = Else Error = End If End Sub Private Sub TxtM1Set_Change() GVHD : ThS NGÔ THANH HẢI SVTH : NGUYỄN ĐỨC HIẾU Page 143 ĐỀ TÀI : GIÁM SÁT VÀ ĐIỀU KHIỂN THIẾT BỊ QUA MẠNG RS-485 GIAO TIẾP VỚI MÁY TÍNH QUA MẠNG RF If TxtM1Set "" Then Error = Else Error = End If End Sub Private Sub TxtM2Set_Change() If TxtM2Set "" Then Error = Else Error = End If End Sub GVHD : ThS NGÔ THANH HẢI SVTH : NGUYỄN ĐỨC HIẾU Page 144 ĐỀ TÀI : GIÁM SÁT VÀ ĐIỀU KHIỂN THIẾT BỊ QUA MẠNG RS-485 GIAO TIẾP VỚI MÁY TÍNH QUA MẠNG RF PHẦN B KẾT LUẬN GVHD : ThS NGÔ THANH HẢI SVTH : NGUYỄN ĐỨC HIẾU Page 145 ĐỀ TÀI : GIÁM SÁT VÀ ĐIỀU KHIỂN THIẾT BỊ QUA MẠNG RS-485 GIAO TIẾP VỚI MÁY TÍNH QUA MẠNG RF KẾT LUẬN Với hệ thống tại, thông số cần điều khiển giám sát tốc độ nhiệt độ xem chấp nhận sai số Hệ thống thực chưa đáp ứng yêu cầu thực tế Tuy nhiên, xem hệ thống mở Ta mở rộng nâng cao cải thiện thêm số chức cho hệ thống nối mạng máy tính với mạng internet, tiến hành giao tiếp với nhiều trạm tớ khác với vi điều khiển khác nhau, thực cấu hình truyền thơng đa dạng wireless, I2C, CAN, Với lượng kiến thức cịn thời gian có hạn, nên hệ thống chưa thực hoạt động với mong đợi người thiết kế Mạng giao tiếp RS – 485 hoạt động tốt ổn định, ngoại trừ số hạn chế khơng có nhiều thời gian chỉnh sửa kiểm tra lỗi đường truyền, kiểm tra liệu, Kính mong nhận đóng góp ý kiến từ thầy cô bạn sinh viên nhằm đưa đề tài ngày hoàn thiện để ứng dụng thực tế GVHD : ThS NGÔ THANH HẢI SVTH : NGUYỄN ĐỨC HIẾU Page 146 ĐỀ TÀI : GIÁM SÁT VÀ ĐIỀU KHIỂN THIẾT BỊ QUA MẠNG RS-485 GIAO TIẾP VỚI MÁY TÍNH QUA MẠNG RF TÀI LIỆU THAM KHẢO Tiếng Việt [1] Dương Minh Trí, Linh kiện quang điện tử, NXB Khoa học kỹ thuật, Tp Hồ Chí Minh [2] Hồ Trung Mỹ, Vi xử lý, NXB ĐHQG, Tp Hồ Chí Minh [3] Hồng Trung Sơn, Mạng truyền thơng cơng nghiệp, NXB Khoa học kỹ thuật, Tp Hồ Chí Minh [4] Kiều Xuân Thực, Vũ Thị Thu Hương, Vũ Trung Kiên, Vi điều khiển cấu trúcLập trình ứng dụng, NXB Giáo dục, Tp Hồ Chí Minh [5] Lê Tiến Thường, Mạch điện tử & 2, NXB ĐHQG, Tp Hồ Chí Minh [6] Nguyễn Văn Nhờ, Điện tử công suất, NXB ĐHQG, Tp Hồ Chí Minh [7] Nguyễn Thị Ngọc Mai, Nguyễn Hữu Anh, Microsoft Visual Basic Lập trình sở liệu 6.0, NXB Lao động-xã hội, Tp Hồ Chí Minh [8] Nguyễn Đức Thành, Đo lường điều khiển máy tính, NXB ĐHQG, Tp Hồ Chí Minh [9] Nguyễn Tấn Phước, Điện tử công nghiệp & cảm biến, NXB Trẻ, Tp Hồ Chí Minh [10] Nguyễn Trung Trực, Cấu trúc liệu, Khoa công nghệ thông tin trường ĐHBK, Tp Hồ Chí Minh [11] Phan Quốc Phó, Nguyễn Đức Chiến, Giáo trình cảm biến, NXB Khoa học kỹ thuật, Tp Hồ Chí Minh [12] Tống Văn On, Hồng Đức Hải, Họ vi điều khiển 8051, NXB Lao động-xã hội, Tp Hồ Chí Minh [13] Scott Robert Ladd, C++ Kỹ thuật ứng dụng, Công ty cổ phần tư vấn dịch vụ KHKT – SCITEC [14] Trần Văn Sư, Truyền số liệu mạng thông tin số, NXB ĐHQG, Tp Hồ Chí Minh [15] Vũ Gia Hanh, Trần Khánh Hà – Phan Tử Thụ, Nguyễn Văn Sáu, Máy điện 2, NXB Khoa học kỹ thuật, Tp Hồ Chí Minh Tiếng Anh [16] B&B Electronics Manufacturing Company, RS-422/485 Application Note, http://www.bb-elec.com/technical_library.asp [17] George R Dean, Analog And Digital Control Systems GVHD : ThS NGÔ THANH HẢI SVTH : NGUYỄN ĐỨC HIẾU Page 147