Mô hình điều khiển và giám sát pin năng lượng mặt trời bằng VB6

BỘ CÔNG THƯƠNG TRƯỜNG ĐẠI HỌC CÔNG NGHIỆP TP.HCM KHOA CƠNG NGHỆ ĐIỆN KHĨA LUẬN TỐT NGHIỆP ĐỀ TÀI : MƠ HÌNH ĐIỀU KHIỂN VÀ GIÁM SÁT PIN NĂNG LƯỢNG MẶT TRỜI BẰNG VB6 Giáo viên hướng dẫn : Ths Võ Thị Ánh Tuyết Sinh viên thực Trần Đức Huy 15060261 Mai Hoàng Thịnh 15038361 Phạm Phú Lê Khương 15066061 : Tp.HCM, Ngày… tháng….năm 20… TRƯỜNG ĐẠI HỌC CÔNG NGHIỆP TP HCM KHOA CÔNG NGHỆ ĐIỆN PHIẾU GIAO NHIỆM VỤ KHÓA LUẬN TỐT NGHIỆP Họ tên sinh viên/ nhóm sinh viên giao đề tài MSSV (1): TRẦN ĐỨC HUY 15060261 (2): PHẠM PHÚ LÊ KHƯƠNG 15066061 (3): MAI HOÀNG THỊNH 15038361 Tên đề tài HỆ THỐNG ĐIỀU KHIỂN VÀ GIÁM SÁT PIN NĂNG LƯỢNG MẶT TRỜI BẰNG VB6 Nhiệm vụ (Nội dung số liệu ban đầu) - Giới thiệu đề tài - Tìm hiểu Pin lượng mặt trời - Tìm phương pháp điều khiển hướng Pin lượng mặt trời hướng vng góc với mặt trời - Tìm hiểu cách điều khiển động SERVO PLC - Thiết kế giao diện VB6 - Điều khiển giám sát hệ thông qua VB6 Kết dự kiến - Điều khiển Pin mặt trời ln hướng vng góc với mặt trời (Auto tay) - Giám sát hệ thống qua VB6 - Thu thập thông tin lượng sạc ngày, hiệu suất Giảng viên hướng dẫn Tp HCM, ngày tháng Sinh viên Trưởng môn năm 20… NHẬN XÉT CỦA GIẢNG VIÊN HƯỚNG DẪN - i NHẬN XÉT CỦA GIẢNG VIÊN PHẢN BIỆN - ii LỜI CẢM ƠN Trong trình học tập rèn luyện Khoa Công nghệ Điện, trường đại học Cơng Nghiệp Thành Phố Hồ Chí Minh chúng em nhận dìu dắt dạy dỗ tận tình thầy cô giáo khoa nhà trường Chúng em xin chân thành cám ơn thầy cô giáo khoa, nhà trường đặc biệt thầy cô môn Kỹ thuật điều khiển tự động Chúng em xin cảm ơn giảng viên ThS.Võ Thị Ánh Tuyết tận tình hướng dẫn chúng em suốt thời gian thực đồ án Bên cạnh kế khiêm tốn mà chúng em đạt được, chắn khơng tránh khỏi thiếu sót thực đề tài hạn chế kinh nghiệm Sự phê bình góp ý thầy học q báo cho chúng em, giúp chúng em có tảng tốt hơn, có thêm kinh nghiệm quý báo cho công việc thực tế sau Một lần chúng em xin chân thành cảm ơn giúp đỡ nhiệt tình thầy để chúng em hồn thành đề tài đồ án Kính chúc thầy mạnh khỏe, đạt nhiều thành công nghiên cứu khoa học nghiệp giảng dạy iii TÓM TẮT KHÓA LUẬN Hệ thống điều khiển giám sát pin lượng mặt trời qua PC hoạt động nhờ vào cảm biến quang trở Các quang trở nhận ánh sáng chiếu vào SXử lý, so sánh giá trị điện áp quang trở với nhau: Tất chuyển động servo nhờ vào điều khiển PLC (FX-3U) kết nối với PC để hiển thị số liệu dòng, áp,… điều khiển chế độ vận hành tay hay tự động iv Mục lục Trang NHẬN XÉT CỦA GIẢNG VIÊN HƯỚNG DẪN i NHẬN XÉT CỦA GIẢNG VIÊN PHẢN BIỆN ii LỜI CẢM ƠN iii TÓM TẮT KHÓA LUẬN iv DANH SÁCH CÁC HÌNH ẢNH .vii DANH SÁCH CÁC BẢNG ix Chương 1: Mở đầu 1.1: Lý chọn đề tài: 1.2: Mục đích: 1.3: Đối tượng nghiên cứu: Chương 2: Cơ sở lý thuyết 2.1: Tổng quan hệ thống điều khiển giám sát pin lượng mặt trời 2.1.1: Tổng quan sơ đồ mơ hình: 2.1.2: Nguyên lý hoạt động: 2.1.3: Tổng quan pin lượng mặt trời 2.1.4: Các bước thiết kế lắp đặt Pin lượng mặt trời 10 2.2: Lựa chọn thiết bị điều khiển 13 2.2.1: Lựa chọn thiết bị: 13 2.2.2: Sơ lược thiết bị sử dụng: 13 2.3: Cài đặt thiết bị lập trình 15 2.3.1: Lập trình PLC FX3U 15 2.3.1.1: Phần mềm lập trình: 15 2.3.1.2: Các lệnh 19 2.3.2: FX3U-485ADP-MB 23 2.3.2.1: Lắp đặt 23 2.3.2.2: MODBUS-RTU 25 2.3.2.2.1 * Cấu hình truyền thơng modbus : 25 2.3.2.2.2 * Cài đặt giá trị cho ghi: 26 2.3.3: FX2N-4AD 30 v 2.3.3.1: Các thông số module: 30 2.3.3.2: Cài đặt lập trình điều khiển module 33 2.3.4: Driver J2S-40A 34 2.3.4.1: Các chế độ làm việc,Parameter 34 2.3.4.2: Position control 37 2.3.5: Driver J4-40A 39 2.3.5.1: Các chế độ làm việc,Parameter 39 2.3.5.2: Position control 47 2.4: Kết nối điều khiển máy tính 48 2.4.1: Phần mềm điều khiển 48 2.4.1.2: Kiểu liệu biến hằng: 49 2.4.1.3: Một sô cấu trúc lệnh VB6 50 2.4.1.4: Soạn thảo chương trình 52 2.4.2: Kết nối PC FX3U 56 Chương 3: Kết đạt 59 3.1: Giao diện điều khiển : 59 3.2: Mơ hình 64 PHỤC LỤC 67 Chương trình VB6: 67 Chương trình PLC: 84 TÀI LIỆU THAM KHẢO 89 vi Trần Đức Huy Mai Hoàng Thịnh Phạm Phú Lê Khương ĐỒ ÁN TỐT NGHIỆP Private Sub Label12_Click() End Sub Private Sub mal_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) e = mb1.ForceSingleCoil(0, slave, 1, 100) mb1.Coil(0, 0) = True mb1.UpdateOnce (0) End Sub Private Sub mal_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) e = mb1.ForceSingleCoil(0, slave, 1, 100) mb1.Coil(0, 0) = False mb1.UpdateOnce (0) End Sub Private Sub rst_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) e = mb1.ForceSingleCoil(0, slave, 3, 100) mb1.Coil(0, 0) = True mb1.UpdateOnce (0) 75 Trần Đức Huy Mai Hoàng Thịnh Phạm Phú Lê Khương ĐỒ ÁN TỐT NGHIỆP End Sub Private Sub rst_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) e = mb1.ForceSingleCoil(0, slave, 2, 100) mb1.Coil(0, 0) = False mb1.UpdateOnce (0) End Sub Private Sub cb3_Click() startH = cb3.ListIndex End Sub Private Sub cb4_Click() startM = cb4.ListIndex End Sub Private Sub cb5_Click() startS = cb5.ListIndex End Sub Private Sub cb6_Click() endH = cb6.ListIndex End Sub Private Sub cb7_Click() endM = cb7.ListIndex 76 Trần Đức Huy Mai Hoàng Thịnh Phạm Phú Lê Khương ĐỒ ÁN TỐT NGHIỆP End Sub Private Sub cb8_Click() endS = cb8.ListIndex End Sub Private Sub rste_Click() e = mb1.ForceSingleCoil(9, slave, 2, 100) mb1.UpdateOnce (9) End Sub Private Sub setsr1_Click() e = mb1.PresetMultipleRegisters(6, slave, 200, 10, 100) mb1.Register(6, 0) = Val(tanso1.Text) mb1.Register(6, 2) = Val(soxungphat1.Text) mb1.UpdateOnce (6) End Sub Private Sub setsr2_Click() e = mb1.PresetMultipleRegisters(7, slave, 204, 10, 100) mb1.Register(7, 0) = Val(tanso2.Text) mb1.Register(7, 2) = Val(soxungphat2.Text) mb1.UpdateOnce (7) End Sub Private Sub settime_Click() 77 Trần Đức Huy Mai Hoàng Thịnh Phạm Phú Lê Khương ĐỒ ÁN TỐT NGHIỆP If startH < endH Then e = mb1.PresetMultipleRegisters(1, slave, 400, 3, 100) mb1.Register(1, 0) = startH mb1.Register(1, 1) = startM mb1.Register(1, 2) = startS mb1.UpdateOnce (1) e = mb1.PresetMultipleRegisters(2, slave, 410, 3, 100) mb1.Register(2, 0) = endH mb1.Register(2, 1) = endM mb1.Register(2, 2) = endS mb1.UpdateOnce (2) Else MsgBox "Endtime phai lon hon Starttime", vbOKOnly + vbCritical, "Thong bao" End If End Sub Private Sub mb1_ResultOk(ByVal Handle As Integer) If Handle = Then y6 = mb1.Coil(3, 6) y7 = mb1.Coil(3, 7) If y6 = Then denauto.FillColor = RGB(78, 255, 89) Else denauto.FillColor = vbWhite 78 Trần Đức Huy Mai Hoàng Thịnh Phạm Phú Lê Khương ĐỒ ÁN TỐT NGHIỆP End If If y7 = Then denmal.FillColor = RGB(78, 255, 89) rst.Enabled = True trai.Enabled = True phai.Enabled = True xuong.Enabled = True up.Enabled = True Else denmal.FillColor = vbWhite rst.Enabled = False trai.Enabled = False phai.Enabled = False xuong.Enabled = False up.Enabled = False End If End If If Handle = Then ldr1.Text = 0.005 * mb1.Register(4, 2) ldr2.Text = 0.005 * mb1.Register(4, 6) ldr3.Text = 0.005 * mb1.Register(4, 4) ldr4.Text = 0.005 * mb1.Register(4, 8) acquy.Text = 0.005 * mb1.Register(4, 0) 79 Trần Đức Huy Mai Hoàng Thịnh Phạm Phú Lê Khương ĐỒ ÁN TỐT NGHIỆP End If ldr1.Enabled = False ldr2.Enabled = False ldr3.Enabled = False ldr4.Enabled = False If Handle = Then cb3.ListIndex = mb1.Register(5, 0) cb4.ListIndex = mb1.Register(5, 1) cb5.ListIndex = mb1.Register(5, 2) cb6.ListIndex = mb1.Register(5, 10) cb7.ListIndex = mb1.Register(5, 11) cb8.ListIndex = mb1.Register(5, 12) End If If Handle = Then tanso1.Text = mb1.Register(8, 0) soxungphat1.Text = mb1.Register(8, 2) tanso2.Text = mb1.Register(8, 4) soxungphat2.Text = mb1.Register(8, 6) End If If Handle = 10 Then plc = mb1.Coil(10, 0) SERe1 = mb1.Coil(10, 0) SERe2 = mb1.Coil(10, 0) 80 Trần Đức Huy Mai Hoàng Thịnh Phạm Phú Lê Khương ĐỒ ÁN TỐT NGHIỆP If plce = Or SERe1 = Or SERe2 = Then plc.BackColor = RGB(255, 0, 0) servo1.BackColor = RGB(255, 0, 0) servo2.BackColor = RGB(255, 0, 0) Else plc.BackColor = RGB(66, 244, 128) servo1.BackColor = RGB(66, 244, 128) servo2.BackColor = RGB(66, 244, 128) End If End If If Handle = 11 Then j4 = mb1.Register(11, 0) j2 = mb1.Register(11, 2) End If End Sub Private Sub thoat_Click() Form1.Show Form3.Hide Form2.txt1.Text = "" Form2.txt2.Text = "" End Sub 81 Trần Đức Huy ĐỒ ÁN TỐT NGHIỆP Mai Hoàng Thịnh Phạm Phú Lê Khương Private Sub trai_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) e = mb1.ForceSingleCoil(0, slave, 10, 100) mb1.Coil(0, 0) = True mb1.UpdateOnce (0) End Sub Private Sub trai_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) e = mb1.ForceSingleCoil(0, slave, 10, 100) mb1.Coil(0, 0) = False mb1.UpdateOnce (0) End Sub Private Sub phai_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) e = mb1.ForceSingleCoil(0, slave, 9, 100) mb1.Coil(0, 0) = True mb1.UpdateOnce (0) End Sub Private Sub phai_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) e = mb1.ForceSingleCoil(0, slave, 9, 100) mb1.Coil(0, 0) = False mb1.UpdateOnce (0) End Sub 82 Trần Đức Huy ĐỒ ÁN TỐT NGHIỆP Mai Hoàng Thịnh Phạm Phú Lê Khương Private Sub up_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) e = mb1.ForceSingleCoil(0, slave, 7, 100) mb1.Coil(0, 0) = True mb1.UpdateOnce (0) End Sub Private Sub up_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) e = mb1.ForceSingleCoil(0, slave, 7, 100) mb1.Coil(0, 0) = False mb1.UpdateOnce (0) End Sub Private Sub xuong_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) e = mb1.ForceSingleCoil(0, slave, 8, 100) mb1.Coil(0, 0) = True mb1.UpdateOnce (0) End Sub Private Sub xuong_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) e = mb1.ForceSingleCoil(0, slave, 8, 100) mb1.Coil(0, 0) = False mb1.UpdateOnce (0) End Sub 83 Trần Đức Huy Mai Hoàng Thịnh Phạm Phú Lê Khương ĐỒ ÁN TỐT NGHIỆP Chương trình PLC: 84 Trần Đức Huy Mai Hoàng Thịnh Phạm Phú Lê Khương ĐỒ ÁN TỐT NGHIỆP 85 Trần Đức Huy Mai Hoàng Thịnh Phạm Phú Lê Khương ĐỒ ÁN TỐT NGHIỆP 86 Trần Đức Huy Mai Hoàng Thịnh Phạm Phú Lê Khương ĐỒ ÁN TỐT NGHIỆP 87 Trần Đức Huy Mai Hoàng Thịnh Phạm Phú Lê Khương ĐỒ ÁN TỐT NGHIỆP 88 Trần Đức Huy Mai Hoàng Thịnh Phạm Phú Lê Khương ĐỒ ÁN TỐT NGHIỆP TÀI LIỆU THAM KHẢO http://dl.mitsubishielectric.com/dl/fa/document/manual/servo/sh3179/sh3179f.pdf https://dl.mitsubishielectric.com/dl/fa/document/manual/plc_fx/jy997d16601/jy99 7d16601q.pdf https://www.mitsubishielectric.com/fa/vn_vi/download/manual/pdf/drv/servo002.p df 89 ... THỐNG ĐIỀU KHIỂN VÀ GIÁM SÁT PIN NĂNG LƯỢNG MẶT TRỜI BẰNG VB6 Nhiệm vụ (Nội dung số liệu ban đầu) - Giới thiệu đề tài - Tìm hiểu Pin lượng mặt trời - Tìm phương pháp điều khiển hướng Pin lượng mặt. .. 62 Hình 3.8: Control: Điều khiển pin, Connect : kết nối đến trạm 63 Hình 3.9: Mơ hình thực tế Pin lượng mặt trời 64 Hình 3.10: hình thực tế Pin lượng mặt trời bên tủ điện 65 Hình. .. lượng mặt trời hướng vng góc với mặt trời - Tìm hiểu cách điều khiển động SERVO PLC - Thiết kế giao diện VB6 - Điều khiển giám sát hệ thông qua VB6 Kết dự kiến - Điều khiển Pin mặt trời hướng