giải pháp cho hệ thống kiểm soát tự động mức độ ô nhiễm nước thải qua mạng thông tin di động

LỜI MỞ ĐẦU Tại Việt Nam, tình trạng ô nhiễm môi trường nước nước thải công nghiệp gây mức báo động Môi trường nước nhiều đô thị, khu công nghiệp (KCN) làng nghề ngày bị ô nhiễm nặng nề Thời gian qua, thực chủ trương, sách Đảng Nhà nước đẩy mạnh phát triển công nghiệp tiến trình CNH- HĐH đất nước, KCN đầu mối quan trọng thu hút vốn đầu tư, đặc biệt vốn đầu tư nước Việc hình thành KCN tạo động lực lớn cho phát triển công nghiệp, thúc đẩy chuyển dịch cấu kinh tế địa phương, tạo công ăn việc làm cho người lao động KCN góp phần thúc đẩy hình thành khu đô thị mới, ngành công nghiệp phụ trợ dịch vụ Nhưng mặt trái KCN mà ta thấy rõ Hà Nội thành phố Hồ Chí Minh Theo số liệu năm 2009 Hà Nội, tổng khối lượng nước thải xả sông Nhuệ sông Đáy 28.500 m3/ngày đêm Trong đó, 96 % nước thải công nghiệp Theo ghi nhận Bộ Tài nguyên Môi trường, có 11 sở xả nước thải sông có xử lý đạt Tiêu chuẩn Việt Nam Theo TTXVN, "Chỉ có nửa số KCN, CCN phê duyệt báo cáo đánh giá tác động môi trường Nhưng KCN, CCN không thực theo báo cáo đánh giá tác động môi trường phê duyệt" Các số BOD, oxy hoà tan, chất NH4, NO2, NO3 sông, hồ, mương nội thành vượt quy định cho phép Kiểm soát tự động ô nhiễm nước thải từ khu công nghiệp cấp thiết ô nhiễm môi trường ảnh hưởng trược tiếp đến sức khỏe người dân sống địa bàn khu công nghiệp Phương pháp đo, thu thập xử lý số liệu phần lớn theo phương pháp thủ công dẫn đến tốn nhiều nhân lực, thời gian, khó cảnh báo kịp thời Trong hệ thống kiểm soát tự động cho phép giám sát thường xuyên tình trạng ô nhiễm nước thải từ khu công nghiệp, phát cảnh báo kịp thời cho quan chức để có biện pháp xử lý ngăn ngừa ô nhiễm Các hệ thống nhập ngoại đáp ứng nhu cầu có giá thành cao Trong thời gian thực tập nghiên cứu làm đồ án trung tâm Nghiên cứu Tư vấn Viễn thông Điện lực, bảo tận tình thầy anh trung tâm em xây dựng thành công giải pháp cho hệ thống kiểm soát tự động mức độ ô nhiễm nước thải qua mạng thông tin di động Báo cáo tốt nghiệp em gồm chương: Chương 1: Thực trạng nước thải số khu công nghiệp giải pháp kiểm tra, theo dõi mức độ ô nhiễm áp dụng Chương 2: Tìm hiểu đánh giá, lựa chọn công nghệ giám sát, đo đạc gửi thông số giám sát chất lượng nước trung tâm Chương 3: Nghiên cứu, thiết kế chế tạo thử nghiệm hệ thống LỜI CẢM ƠN Em xin gửi lời cảm ơn sâu sắc đến thầy giáo TS Phạm Duy Phong tận tình hướng dẫn, tạo điều kiện cho em suốt trình thực tập làm đồ án tốt nghiệp Em xin gửi lời cảm ơn đến thầy giáo chủ nhiệm ThS Đặng Trung Hiếu toàn thể thầy cô Khoa Điện tử Viễn thông Trường Đại học Điện lực có dẫn, định hướng trình học tập làm đồ án Em xin chân thành cảm ơn Trương Đại học Điện lực tạo điện kiện giúp đỡ em trình học tập nghiên cứu Trường Cuối cùng, em xin cảm ơn gia đình, bạn bè, người tạo điều kiện, giúp đỡ, động viên em hoàn thành đồ án Hà Nội, ngày 10 tháng 01 năm 2014 Sinh viên Trần Việt Trung MỤC LỤC GVHD: TS Phạm Duy Phong SVTH: Trần Việt Trung Trang DANH MỤC BẢNG BIỂU HÌNH VẼ GVHD: TS Phạm Duy Phong SVTH: Trần Việt Trung Trang CHƯƠNG THỰC TRẠNG XẢ THẢI TẠI MỘT SỐ KHU CÔNG NGHIỆP VÀ GIẢI PHÁP KIỂM TRA THEO DÕI MỨC ĐỘ Ô NHIỄM ĐANG ĐƯỢC ÁP DỤNG 1.1 Thực trạng xả thải số khu công nghiệp Theo ước tính, KCN thải khoảng từ 3.000-10.000 m3 nước thải/ngày đêm Như vậy, tổng lượng nước thải công nghiệp KCN nước lên khoảng 500.000-700.000 m3/ngày đêm Theo số liệu thống kê, số khoảng 150 KCN có khoảng 20% có hệ thống xử lý nước thải tập trung Ngay KCN có trạm xử lý nước thải tập trung, chất lượng thực tế công trình hạn chế, chưa đạt tiêu chuẩn quy định, gây ô nhiễm môi trường, đặc biệt số KCN tập trung ngành công nghiệp nhẹ dệt may, thuộc da, ngành hoá chất Theo đoàn khảo sát, em tiến hành khảo sát thực tế khu công nghiệp: Tiên Sơn - Bắc Ninh, Phố Nối - Hưng Yên, Sài Đông B – Hà Nội thu số kết sau: 1.1.1 Khu công nghiệp Tiên Sơn- Bắc Ninh Nước thải công nghiệp thu gom xử lý Trạm xử lý nước thải chung Khu công nghiệp (giai đoạn I công suất 4000m3/ngày đêm) phương pháp vi sinh, sau để lắng hồ điều hoà để lắng đọng thêm bùn tạp chất có hại Trạm xử lý nước thải khu công nghiệp Tiên Sơn có tổng vốn đầu tư 18 tỷ đồng, áp dụng công nghệ sinh học- hoá lý với hệ thống thiết bị máy móc tiên tiến nhập từ nước châu Âu GVHD: TS Phạm Duy Phong SVTH: Trần Việt Trung Trang Hình 1.1 Trạm xử lý nước thải tập trung khu CN Tiên Sơn- Bắc Ninh Theo đoàn khảo sát, em nhóm thực khảo sát Công ty Gạch ốp lát Thăng Long - Khu CN Tiên Sơn - Bắc Ninh Tại có trạm xử lý nước thải xây dựng từ năm 2003 gồm công đoạn sau: trung hoà, đông tụ, lắng, lọc, xử lý bùn Nước thải đưa vào từ phân xưởng sản xuất Môi trường nước có tính kiềm nên để trung hoà người ta thêm acid vào nước nhờ hệ thống bơm định lượng bơm Cứ sau khoảng thời gian bơm lượng định Máy khuấy hoạt động liên tục Sau trung hoà nước qua bể đông tụ, liên tục thêm PAC khuấy nhằm tăng khả lắng cho chất bẩn Hệ thống lắng gồm hai bể chìm Khâu cuối bể lọc áp lực Bùn tạo đưa sang máy ép đưa tái sử dụng Một phần nước tuần hoàn quay lại sản xuất, phần thải sau số lần tái sử dụng 1.1.2 Khu công nghiệp Phố Nối A – Hưng Yên Thực khảo sát trạm xử lý nước thải Nhà máy thép Việt Ý Các công đoạn xử lý gồm: Hệ lọc áp lực gồm 03 tank, tổng thể tích 1130m Nước sau lọc áp lực vào bể điều hoà V=30m3 Từ bể điều hoà nước bơm chìm bơm vào bể lắng đứng V=27m3 Bùn bể lắng đứng hút sân phơi bùn Nước chảy tràn từ bể lắng đứng sang bể lắng ngang Tại bể lắng ngang vảy cán thu hệ thống cầu trục máy cào cặn GVHD: TS Phạm Duy Phong SVTH: Trần Việt Trung Trang Theo quy định khu công nghiệp phố Nối A, chủ đầu tư Cty Hoà Phát phải xây dựng hệ thống xử lý nước thải công suất 5.000m nước thải/ngày đêm Tuy nhiên đến tận bây giờ, nước thải đổ trực tiếp cánh đồng huyện Mỹ Hào Lý việc chậm trễ đại diện chủ đầu tư khu công nghiệp, công ty Hoà Phát đưa “Hiện lượng nước thải vào khoảng 2.000m 3/ngày số nhà máy chưa vào hoạt động Chính vậy, xây dựng nhà máy công suất 5.000 m3 lãng phí!” Nước thải từ khu CN gây ô nhiễm môi trường ảnh hưởng tới sản xuất nông nghiệp nhiều nông dân quanh vùng 1.1.3 Thực trạng khu công nghiệp Sài Đông B Khu công nghiệp Sài Đồng B (Long Biên, Hà Nội) Thủ tướng Chính phủ giao cho Công ty Điện tử Hà Nội (Hanel) làm chủ đầu tư để đầu tư xây dựng kinh doanh sở hạ tầng KCN từ năm 1996-1997 Từ hoàn thành đưa vào khai thác đến nay, trung bình KCN có 20 doanh nghiệp thuê đất làm nhà máy, xưởng sản xuất Nhưng sau 14 năm vào hoạt động, KCN nhà máy xử lí nước thải Cũng theo số liệu Bộ TNMT, ngày KCN Sài Đồng B thải môi trường từ 2.000m3 - 5.000m3 nước thải chưa qua xử lý Nước thải từ KCN theo ống cống đổ kênh Cầu Bây, nguy hiểm hơn, nước thải từ dẫn thẳng hệ thống sông Nhuệ, sống Đáy 1.2 Giải pháp kiểm tra theo dõi mức độ ô nhiễm nước thải Tại KCN khu chế xuất, qua trình hoạt động thải nước bẩnnước bị ô nhiễm lượng xút, axit số hoá chất làm độ pH tăng cao, độ ôxy hoà tan nước thấp… Đặc biết tạo lượng Nitơrit cao kim loại nặng làm ảnh nghiên trọng đến môi trường nước Để kiểm soát mức độ ô nhiễm nước thải công nghiệp cần có hệ thống tự động đo phân tích chất lượng nước, cụ thể đo kiểm soát thông số sau: GVHD: TS Phạm Duy Phong SVTH: Trần Việt Trung Trang STT Thông số cần giám sát pH ORP Conductivity/Dissolve Solids Conductivity Resistivity Suspended Solids Turbidity ISE Dissolved O2 10 Dissolved CO2 11 Oil in Water 12 Temperature 13 NO3 Hình 1.2 Các thông số đánh giá chất lượng nước 1.3 Đánh giá chung Qua nghiên cứu kết khảo sát điều tra tình trạng môi trường số khu công nghiệp khảo sát thực tế rác thải khu công nghiệp, khu chế xuất ngày bất ổn Cụ thể Hà Nội môi trường khu, cụm công nghiệp chưa đảm bảo Thực tế 50% nước thải công nghiệp TP HCM chưa xử lý, Đà Nẵng: Sáu khu công nghiệp có hệ thống xử lý nước thải tập trung, thưc tế nước thải không qua hệ thống xử lý Các Doanh nghiệp coi thường bảo vệ môi trường, mâu thuẫn khó giải Chính việc đưa hệ thống tự động kiểm soát ô nhiễm nguồn nước thải KCN khu chế xuất nước cần thiết Hệ thống công cụ hiệu cho nhà quản lý Nhà nước, cho đơn vị QLMT khu công nghiệp để giám sát nguồn nước đầu từ nhà máy khu CN trước đổ vào trạm xử lý nước thải tập trung, cho thân doanh nghiệp hoạt động khu công nghiệp để giám sát chứng minh cho chất lượng xử lý nước thải GVHD: TS Phạm Duy Phong SVTH: Trần Việt Trung Trang Để kiểm soát nguồn nước thải KCN Việt Nam, cần lắp đặt hệ thống tự động kiểm soát ô nhiễm nước thải KCN, quan chức quản lý môi trường có công cụ kiểm soát Như số luợng cần thiết hệ thống tự động kiểm soát ô nhiễm nước thải lớn kiểm soát toàn số luợng KCN GVHD: TS Phạm Duy Phong SVTH: Trần Việt Trung Trang btnDisConnect.Enabled = False End Sub Private Sub btnSearchCom_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearchCom.Click cboPort.Items.Clear() If PortCom.IsOpen Then PortCom.Close() End If 'Lấy danh sách cổng có máy' For i As Integer = To My.Computer.Ports.SerialPortNames.Count - cboPort.Items.Add(My.Computer.Ports.SerialPortNames(i)) Next End Sub 3.2.4.2 Module xử lý nhận tin SMS từ Trạm đo trường gửi Dim NoiDungSMS As String Private Sub PortCom_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles PortCom.DataReceived Control.CheckForIllegalCrossThreadCalls = False Dim StrRecv As String = PortCom.ReadExisting() System.Threading.Thread.Sleep(200) GVHD: TS Phạm Duy Phong SVTH: Trần Việt Trung Trang 26 'Xử lý tin nhắn Báo cài đặt thời gian thành công If RbSetTime.Checked = True Then If InStr(StrRecv, "SET TIME SUCCESSFULL") Then txtRcvSMSTu.Text += "cài đặt thời gian thành công" Else If InStr(StrRecv, "ERROR") Then txtRcvSMSTu.Text += "Gặp cố cài đặt thời gian, vui lòng thử lại" End If End If End If 'Kiểm tra tài khoản thuê bao trung tâm - ok If RbTaiKhoanChinhTT.Checked = True Then Dim NoiDungTaiKhoanTT As String If InStr(StrRecv, "+CUSD:") Then Dim temp0, temp1, temp2 As String Dim Str1 As String = "0," & Chr(34) temp0 = InStr(StrRecv, Str1) + temp1 = Len(StrRecv) - temp2 = temp1 - temp0 NoiDungTaiKhoanTT = Mid(StrRecv, temp0, temp2) GVHD: TS Phạm Duy Phong SVTH: Trần Việt Trung Trang 27 txtSMS_TT.Text = "Tài khoản thuê bao Trung tâm:" & vbCrLf & NoiDungTaiKhoanTT End If End If If RbTaiKhoanPhuTT.Checked = True Then Dim NoiDungTaiKhoanTT As String If InStr(StrRecv, "+CUSD:") Then Dim temp0, temp1, temp2 As String Dim Str1 As String = "0," & Chr(34) temp0 = InStr(StrRecv, Str1) + temp1 = Len(StrRecv) - temp2 = temp1 - temp0 NoiDungTaiKhoanTT = Mid(StrRecv, temp0, temp2) txtSMS_TT.Text = "Tài khoản phụ thuê bao Trung tâm:" & vbCrLf & NoiDungTaiKhoanTT End If End If If RbKTraTKChinh_Tu.Checked = True Then Dim NoiDungTaiKhoanTu As String 'Kiểm tra có tin báo hiệu chuẩn bị có SMS gửi gửi lệnh đọc tin nhắn cổng COM If InStr(StrRecv, "+CMGL:") Then Dim temp0, temp1, temp2 As String GVHD: TS Phạm Duy Phong SVTH: Trần Việt Trung Trang 28 Dim Str As String = "@" Dim Str1 As String = "#" temp0 = InStr(StrRecv, Str) + temp1 = InStr(StrRecv, Str1) - temp2 = temp1 - temp0 NoiDungTaiKhoanTu = Mid(StrRecv, temp0, temp2) & vbCrLf txtRcvSMSTu.Text += NoiDungTaiKhoanTu End If End If If RbKTraTKPhu_Tu.Checked = True Then Dim NoiDungTaiKhoanTu As String 'Kiểm tra có tin báo hiệu chuẩn bị có SMS gửi gửi lệnh đọc tin nhắn cổng COM If InStr(StrRecv, "+CMGL:") Then Dim temp0, temp1, temp2 As String Dim Str As String = "@" Dim Str1 As String = "#" temp0 = InStr(StrRecv, Str) + temp1 = InStr(StrRecv, Str1) - temp2 = temp1 - temp0 NoiDungTaiKhoanTu = Mid(StrRecv, temp0, temp2) & vbCrLf txtRcvSMSTu.Text += NoiDungTaiKhoanTu End If GVHD: TS Phạm Duy Phong SVTH: Trần Việt Trung Trang 29 End If 'Tự động ngắt gọi có số đt lạ gọi đến If InStr(StrRecv, "RING") Then PortCom.Write("ATH" & Chr(13)) End If If InStr(StrRecv, "+CMTI:") Then PortCom.Write("AT+CMGL=" & Chr(34) & "REC UNREAD" & Chr(34) & Chr(13)) System.Threading.Thread.Sleep(1000) PortCom.Write("AT+CMGL=" & Chr(34) & "REC UNREAD" & Chr(34) & Chr(13)) System.Threading.Thread.Sleep(1000) End If End Sub 3.2.4.3 Module xử lý xuất báo cáo theo khoảng thời gian theo mã Trạm Private Function GetDate(ByVal Str As Date) As String Return Str.Month & "/" & Str.Day & "/" & Str.Year 'Return Str.Day & "/" & Str.Month & "/" & Str.Year End Function Private Sub Xuat1tu() If conn.State = ConnectionState.Open Then GVHD: TS Phạm Duy Phong SVTH: Trần Việt Trung Trang 30 conn.Close() End If Try conn.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=E:\THIET KE GIAO DIEN 2013\THE END\DKCSCC_THEEND\ControlCenter2013.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True" conn.Open() Dim da As New SqlDataAdapter("Select * FROM THONGTINCAIDAT WHERE MaTu = '" & ComboBox1.SelectedItem & "' AND NgayThangNam BETWEEN '" & _ GetDate(DateTimePicker1.Text) & "' AND '" & GetDate(DateTimePicker2.Text) & _ "' ORDER BY NgayThangNam,MaTu", conn) da.Fill(Me.ControlCenter2013DataSet.THONGTINCAIDAT) Me.ReportViewer1.RefreshReport() Catch ex As Exception MsgBox(ex.ToString) End Try End Sub Private Sub Xuatnhieutu() If conn.State = ConnectionState.Open Then GVHD: TS Phạm Duy Phong SVTH: Trần Việt Trung Trang 31 conn.Close() End If Try conn.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=E:\THIET KE GIAO DIEN 2013\THE END\DKCSCC_THEEND\ControlCenter2013.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True" conn.Open() Dim da As New SqlDataAdapter("Select * FROM THONGTINCAIDAT WHERE NgayThangNam BETWEEN '" & GetDate(DateTimePicker1.Text) & _ "' AND '" & GetDate(DateTimePicker2.Text) & "' ORDER BY NgayThangNam,MaTu", conn) da.Fill(Me.ControlCenter2013DataSet THONGTINCAIDAT) Me.ReportViewer1.RefreshReport() Catch ex As Exception MsgBox(ex.ToString) End Try End Sub Private Sub btnDh1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDh1.Click If ComboBox1.SelectedIndex = -1 Then GVHD: TS Phạm Duy Phong SVTH: Trần Việt Trung Trang 32 MsgBox("Chọn lại thiết bị!") Exit Sub End If ControlCenter2013DataSet.Clear() If ComboBox1.SelectedIndex = 10 Then Xuatnhieutu() End If End Sub 3.2.4.4 Module xử lý cài đặt hệ thống a) Hàm gửi SMS cài đặt thời gian cho Trạm đo trường Private Sub SetTime(ByVal SodtTram As String, ByVal MaTram As String) PortCom.Write("AT+CMGD=1,4" & Chr(13)) System.Threading.Thread.Sleep(500) If PortCom.IsOpen Then PortCom.Write("AT+CMGF=1" & Chr(13)) System.Threading.Thread.Sleep(500) PortCom.Write("AT+CMGS=" & Chr(34) & SodtTram & Chr(34) & Chr(13)) System.Threading.Thread.Sleep(1000) PortCom.Write("@" & MaTram & ".T," & DateTime.Now.ToString("hh:mm:ss") & "#" & Chr(26)) End If End Sub b) Hàm gửi SMS kiểm tra tài khoản cho thuê bao Trạm đo trường GVHD: TS Phạm Duy Phong SVTH: Trần Việt Trung Trang 33 ' Hàm Kiểm tra tài khoản trạm từ trung tâm Private Sub KiemTraTaiKhoanChinh(ByVal SodtTram As String, ByVal MaTram As String) If PortCom.IsOpen Then PortCom.Write("AT+CMGF=1" & Chr(13)) System.Threading.Thread.Sleep(200) PortCom.Write("AT+CMGS=" & Chr(34) & SodtTram & Chr(34) & Chr(13)) System.Threading.Thread.Sleep(500) PortCom.Write("@" & MaTram & ",$,1,#" & Chr(26)) End If End Sub ' Hàm Kiểm tra tài khoản phụ tủ từ trung tâm Private Sub KiemTraTaiKhoanPhu(ByVal SodtTram As String, ByVal MaTram As String) If PortCom.IsOpen Then PortCom.Write("AT+CMGD=1,4" & Chr(13)) System.Threading.Thread.Sleep(500) PortCom.Write("AT+CMGF=1" & Chr(13)) System.Threading.Thread.Sleep(200) PortCom.Write("AT+CMGS=" & Chr(34) & SodtTram & Chr(34) & Chr(13)) System.Threading.Thread.Sleep(500) PortCom.Write("@" & MaTram & ",$,2,#" & Chr(26)) GVHD: TS Phạm Duy Phong SVTH: Trần Việt Trung Trang 34 End If End Sub c) Hàm gửi SMS kiểm tra tài khoản nạp tiền cho thuê bao Trung tâm kiểm soát Private Sub btnKtraTaiKhoanTT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKtraTaiKhoanTT.Click If PortCom.IsOpen Then PortCom.Write("AT+CMGD=1,4" & Chr(13)) System.Threading.Thread.Sleep(500) 'Kiểm tra tài khoản If RbTaiKhoanChinhTT.Checked = True Then PortCom.Write("ATD*101#" & Chr(13)) System.Threading.Thread.Sleep(2000) PortCom.Write("AT+CMGL=" & Chr(34) & "REC UNREAD" & Chr(34) & Chr(13)) System.Threading.Thread.Sleep(1000) Else 'Kiểm tra tài khoản phụ If RbTaiKhoanPhuTT.Checked = True Then PortCom.Write("ATD*102#" & Chr(13)) System.Threading.Thread.Sleep(2000) PortCom.Write("AT+CMGL=" & Chr(34) & "REC UNREAD" & Chr(34) & Chr(13)) System.Threading.Thread.Sleep(1000) Else GVHD: TS Phạm Duy Phong SVTH: Trần Việt Trung Trang 35 If RbNapTienTrungTam.Checked = True Then If PortCom.IsOpen Then If txtMaTheCao.Text = "" Then txtMaTheCao.Text = "Nhập mã số thẻ cào xác!" Else MsgBox("Bạn nhập đúng?", MsgBoxStyle.YesNo) PortCom.Write("ATD*100*" & txtMaTheCao.Text & "#" & Chr(13)) System.Threading.Thread.Sleep(1000) txtMaTheCao.Text = "" PortCom.Write("AT+CMGL=" & Chr(34) & "REC UNREAD" & Chr(34) & Chr(13)) System.Threading.Thread.Sleep(500) End If Else MsgBox("Vui lòng xem lại kết nối cổng COM") End If End If End If Else GVHD: TS Phạm Duy Phong SVTH: Trần Việt Trung Trang 36 MsgBox("Vui lòng kiểm tra lại kết nối cổng COM") End If End Sub d) Hàm xử lý nạp tiền cho thuê bao Trạm đo trường Private Sub NapTheTu(ByVal SodtTu As String) If txtMaTheCao.Text = "" Then txtMaTheCaoTu.Text = "Nhập mã số thẻ cào xác!" Else MsgBox("Bạn nhập đúng?", MsgBoxStyle.YesNo) PortCom.Write("ATD*103*" & SodtTu & "*" & txtMaTheCaoTu.Text & "#" & Chr(13)) System.Threading.Thread.Sleep(500) End If End Sub f) Hàm cập nhật liệu cho Trạm đo trường Private Sub InsertCSDL(ByVal MaTu As String) KetNoiSQL_CHIEUSANG() If Not conn.State = ConnectionState.Open Then conn.Open() Else Try Dim STT As Integer Dim i As Integer = GVHD: TS Phạm Duy Phong SVTH: Trần Việt Trung Trang 37 Do MaTuCSDLx = DataGridView1.Item(1, i).Value i = i + Loop Until MaTuCSDLx = "" STT = i '+ Dim SqlStr As String = "INSERT INTO THONGTINCAIDAT(STT,MaTram,ThoiGian,NgayThang,ThongSo,Can hBao) VALUES ('" & STT & "','" & MaTram & "','" & DateTime.Now.Date & "','" & NgayThang & "','" & ThongSo & "','" & CanhBao & "')" Dim cmd As New SqlCommand(SqlStr, conn) cmd.ExecuteNonQuery() conn.Close() conn.Dispose() Catch ex As Exception MsgBox("Có lỗi Chèn thêm Cơ sở liệu") End Try End If End Sub GVHD: TS Phạm Duy Phong SVTH: Trần Việt Trung Trang 38 KẾT LUẬN VÀ HƯỚNG PHÁT TRIỂN CỦA ĐỀ TÀI Trong thời gian thực đề tài em đạt kết sau: - Khảo sát thực trạng môi trường nước số khu công nghiệp - Tìm hiểu thông số đánh giá chất lượng nguồn nước - Thiết kế sơ hệ thống giám sát từ xa qua mạng thông tin di động - Chế tạo thử nghiệm thiết bị giám sát thiết bị trung tâm - Xây dựng phần mềm giám sát từ xa qua mạng thông tin di động Em mong nhận ý kiến góp ý thầy cô để đề tài em hoàn thiện Kính mong thầy cô, bạn bè doanh nghiệp quan tâm tạo điều kiện để sản phẩm em không dừng lại đề tài Hà Nội, ngày 10 tháng năm 2014 SINH VIÊN THỰC HIỆN Trần Việt Trung GVHD: TS Phạm Duy Phong SVTH: Trần Việt Trung Trang 39 DANH MỤC TÀI LIỆU THAM KHẢO [1] Bào cáo trạng môi trường quốc gia 2009 Môi trường khu công nghiệp Việt Nam [2] Ngô Diên Tập, Giáo trình Kỹ thuật lập trình ghép nối máy tính, NXB KHKT, 2007 [3] Ngô Diên Tập, Giáo trình Vi xử lý đo lường điều khiển, NXB KHKT, 2004 [4] Ngô Diên Tập, Giáo trình đo lường điều khiển máy tính, NXB Khoa học kỹ thuật, 2004 [5] Atmel Corporation, “ATMega8 8-bit Atmel Microcontroller with 128Kbytes InSystem Programmable Flash”, 2011 [6] QCVN 24: 2009/BTNMT, Quy chuẩn kỹ thuật quốc gia nước thải công nghiệp, Bộ Tài nguyên Môi trường GVHD: TS Phạm Duy Phong SVTH: Trần Việt Trung Trang 40 ... cứu Tư vấn Viễn thông Điện lực, bảo tận tình thầy anh trung tâm em xây dựng thành công giải pháp cho hệ thống kiểm soát tự động mức độ ô nhiễm nước thải qua mạng thông tin di động Báo cáo tốt... nguồn nước thải KCN Việt Nam, cần lắp đặt hệ thống tự động kiểm soát ô nhiễm nước thải KCN, quan chức quản lý môi trường có công cụ kiểm soát Như số luợng cần thiết hệ thống tự động kiểm soát ô nhiễm. .. nhiều hệ thống thông tin vô tuyến đời đóng vai trò quan trọng việc truyền tải tín hiệu, liệu thông tin qua khoảng cách lớn Có thể kể đến hệ thống: hệ thống thông tin di động, hệ thống thông tin