Đang tải... (xem toàn văn)
Đề tài Nghiên cứu đánh giá lưới điện trung áp khu vực tỉnh thái nguyên đề xuất giải pháp nâng cao chất lượng điện năng cho lưới khu vực thuộc công trình nghiên cứu khoa học cấp bộ Nội dung chủ yếu của đề tài là nghiên cứu thực trạng của lưới i điên trung áp tỉnh Thái Nguyên, nghiên cứu giải pháp nhằm nâng cao chất lượng điện năng Trong quá trình triển khai đề tài, đội ngũ giảng viên- giáo viên nhà trương đã thu được một số kết quả phục vụ hiệu quả cho công tác đào tạo của nhà trường và nâng cao chất lượng đội ngũ. giáo viên
bộ công thơng trờng cao đẳng công nghệ kinh tÕ c«ng nghiƯp o báo cáo TổNG KếT đề tài nghiên cứu khoa học cấp Nghiên cứu đánh giá lới điện trung áp khu vực tỉnh Thái Nguyên Đề xuất giải pháp nâng cao chất lợng điện cho lới khu vực, ứng dụng kết nghiên cứu phục vụ công tác đào tạo nhà trờng nguyễn chí nhân 7925 Thái Nguyên ngày 31 tháng 12 năm 2009 B CễNG THNG trờng cao đẳng công nghệ kinh tế c«ng nghiƯp o Báo cáo tổng kết đề tài nghiên cứu khoa học cấp TÊN Đề TàI: Nghiên cứu đánh giá lới điện trung áp khu vực tỉnh Thái Nguyên Đề xuất giải pháp nâng cao chất lợng điện cho lới khu vực, ứng dụng kết nghiên cứu phục vụ công tác đào tạo nhà trờng Thực theo Hợp đồng số 094.09 RD/HĐ-KHCN ngày 04 tháng năm 2009 Bộ Công Thơng Trờng cao đẳng Công nghệ Kinh tế Công Nghiệp H Văn Cân Thạc sỹ – Hiệu trưởng Nguyễn Thanh Lành Nhà giáo ưu tú - Thạc sỹ Đặng Văn Cừ Thạc sỹ – Phó Hiệu trưởng Nguyễn Tuấn Hải Thạc sỹ – Phó Hiệu trưởng Nguyễn Chí Nhân ThS Thiết bị mạng Nhà máy điện Chủ nhiệm đề tài Trần Văn Đoàn ThS Tự động hố Đặng Hồi Nam ThS Thiết bị mạng Nhà máy điện Vũ Anh Tuấn ThS Tự động hoá Nguyễn Thị Kim Liên Cử nhân kế toỏn Thái Nguyên ngày 31 tháng 12 năm 2009 Trờng Cao đẳng Công nghệ Kinh tế Công nghiệp Đề tài nghiên cứu khoa học năm 2009 Mục lục Trang Mục lục Lời nói đầu A Phần mở đầu B Néi dung Ch−¬ng 1: Tỉng quan vỊ l−íi điện Thái Nguyên 1.1 Cấu trúc lới điện Thái Nguyên 1.2 Các thông số vận hành lới điện Thái Nguyên 1.3 Đánh giá tình hình vận hành lới điện Thái Nguyên 15 Kết luận chơng 17 Chơng 2: Nghiên cứu giải pháp nâng cao chất lợng 18 điện cho lới điện Thái Nguyên 2.1 Chất lợng điện 18 2.1.1 Tổng quan 18 2.1.2 Đặc điểm lới điện Thái Nguyên 20 2.2 Các phơng pháp điều chỉnh điện áp 24 2.2.1 Nguyên nhân gây biến động điện áp ảnh hởng đến 24 chế độ làm việc mạng Thiết bị điện 2.2.2 Quan hệ công suất phản kháng với điện áp 25 2.2.3 Các phơng pháp điều chỉnh điện áp 26 2.3 Độ lệch điện áp 29 2.3.1 Độ lệch điện áp phụ tải 29 2.3.2 Độ lệch điện áp lới hạ ¸p 30 2.3.3 DiƠn biÕn cđa ®iƯn ¸p l−íi điện 32 2.4 Các phơng pháp điều chỉnh độ lệch điện áp 35 2.5 Tính toán tiêu tổng quát 35 Trờng Cao đẳng Công nghệ Kinh tế Công nghiệp Đề tài nghiên cứu khoa học năm 2009 2.6 Điều chỉnh tối u độ lệch điện áp 38 2.7 Tính toán thông số phần tử lới phân phối 39 2.7.1 Tính toán thông số dây dẫn 39 2.7.2 Tính toán thông số Máy biến áp 40 2.8 Sơ đồ tính toán lới phân phối, phơng pháp tính toán 43 2.8.1 Sơ đồ lới phân phối 43 2.8.2 Tính toán tổn thất điện áp theo công suất 45 2.8.3 Chế độ tính toán tổn thất điện áp lới phân phối 46 2.9 Thuật toán chơng trình tính 48 2.9.1 Nhập thông số vào bảng số liệu chuẩn 48 2.9.2 Nhập số liệu mô tả cấu trúc lới 49 2.9.3 Tính tổn thất điện áp điều chỉnh tối u điện áp 50 2.9.4 Kết luận 58 2.10 Hiện trạng Chất lợng điện áp Thái Nguyên 59 2.10.1 Phân bố công suất tổn thất kỹ thuật lới 59 2.10.2 Đánh giá thực trạng, khả mang tải, phân tích tình hình 61 quản lý vận hành, tổng hợp u khuyết ®iĨm cđa hƯ thèng l−íi ®iƯn ph©n phèi 2.11 Ph©n tích giải pháp nâng cao CLĐA đề xuất giải pháp nâng 64 cao CLĐA số đờng dây lới điện Thái Nguyên Kết luận chơng Chơng 3: ứng dụng kết nghiên cứu nâng cao chất 67 3.1 lợng đào tạo nhà trờng ứng dụng kết nghiên trờng học 67 3.2 ứng dụng chơng trình tính toán giảng dạy học phần Cung cấp 68 điện học phần Lới điện hệ cao đẳng TCCN 3.2.1 Bi toán xác định tham số máy biến áp pha dây quấn 68 3.2.2 Bài toán xác định tổn thất điện áp 71 3.2.3 Bài toán đánh giá chất lợng điện 74 Trờng Cao đẳng Công nghệ Kinh tế Công nghiệp Đề tài nghiên cứu khoa học năm 2009 3.2.4 Bài toán đánh giá kết bù công suất phản kháng 75 3.2.5 Bài toán cải tạo lới điện 76 Kết luận chơng 77 Phụ lục 80 Tài liệu tham khảo Trờng Cao đẳng Công nghệ Kinh tế Công nghiệp Đề tài nghiên cứu khoa học năm 2009 Lời nói đầu Sự nghiệp giáo dục đào tạo đợc quan tâm Đảng, nhà nớc toàn thể xà hội Đặc biệt bối cảnh hoà nhập quốc tế ngày sâu, rộng nh Trên thực tế đà có nhiều hội nghị, hội thảo đà đợc tổ chức nhằm tìm giải pháp nâng cao chất lợng đào tạo, đặc biệt chất lợng đào tạo nguồn nhân lực có tay nghề phục vụ nghiệp công nghiệp hoá, đại hoá đất nớc Có thực trạng số sở đào tạo nguồn nhân lực kỹ thuật cha đáp ứng đợc yêu cầu doanh nghiệp, số trờng chủ yếu đào tạo lý thuyết, cha cập nhật kịp thời tiến kỹ thuật thực tế vào giảng dạy Lực lợng giảng viên trờng cao đẳng, đại học phần lớn đợc đào tạo sở đào tạo có chất lợng cao, song không thờng xuyên cập nhật tiến kỹ thuật mới, không thờng xuyên nghiên cứu thực tế dẫn đến tình trạng giảng dạy lý thuyết suông tụt hậu kiến thức Điều làm ảnh hởng nghiêm trọng tới chất lợng đào tạo Nhận thức rõ vai trò chất lợng đội ngũ giảng viên- giáo viên nhân tố định chất lợng trình đào tạo, trờng Cao đẳng Công nghệ Kinh tế Công nghiệp quan tâm tạo điều kiện thuận lợi để giảng viên- giáo viên nhà trờng học tập, nghiên cứu khoa học để nâng cao trình độ moi mặt Đặc biệt nhà trờng khuyến khích cập nhật tiến kỹ thuật thực tế vầo giảng dạy, động viên, khuyến khích nghiên cứu khoa học thực tế, gắn đào tạo với thực tế nhằm mục tiêu đào tạo lực lợng lao động có kỹ thuật đáp ứng đợc yêu cầu xà hội Năm 2009 đợc cho phép Bộ Công Thơng, nhà trờng đà triển khai nghiên cứu đề tài: Nghiên cứu đánh giá lới điện trung áp khu vực tỉnh Thái Nguyên Đề xuất giải pháp nâng cao chất lợng điện cho lới khu vực, ứng dụng kết nghiên cứu phục vụ công tác đào tạo nhà trờng. Nội dung chủ yếu đề tài nghiên cứu thực trạng lới điên trung áp tỉnh Thái Nguyên, nghiên cứu giải pháp nhằm nâng cao chất lợng điện Trờng Cao đẳng Công nghệ Kinh tế Công nghiệp Đề tài nghiên cứu khoa học năm 2009 cho mạng điện trung áp, nghiên cứu ứng dụng kết vào công tác đào tạo nhằm nâng cao chất lợng đào tạo Trong trình triển khai đề tài, đội ngũ giảng viên- giáo viên nhà trờng đà thu đợc số kết phục vụ hiệu cho công tác đào tạo nhà trờngvà nâng cao chất lợng đội ngũ Mặc dù đà cố gắng, song chắn đề tài nhiều hạn chế Trờng Cao đẳng Công nghệ Kinh tế Công nghiệp mong đợc góp ý thầy hội đồng cấp Bộ, bạn đồng nghiệp độc giả Xin trân trọng cảm ơn! Trờng Cao đẳng Công nghệ Kinh tế Công nghiệp Đề tài nghiên cứu khoa học năm 2009 A Phần mở đầu I Tính cấp thiết đề tài Trong giai đoạn công nghiệp hoá - đại hoá đất nớc nay, đảm bảo nguồn lợng phục vụ cho công nghiệp sinh hoạt vấn đề lớn đợc toàn xà hội quan tâm, đặc biệt điện Trong thời gian tới nớc ta đà có chiến lợc xây dựng nhà máy thuỷ điện, nhiệt điện nhà máy điện hạt nhân Song giai đoạn trớc mắt hệ thống điện nớc ta đứng trớc nguy thiếu điện, vào tháng mùa khô Mặt khác lới điện trung áp hệ thống điện nớc ta phần lớn đợc xây dựng trớc với thiết bị cha thật đại, với việc phát triển nhanh chóng phụ tải, qua thêi gian sư dơng nhiỊu hƯ thèng l−íi trung ¸p đà có dấu hiệu không đảm bảo chất lợng điện Vì việc nghiên cứu lới trung áp để tìm phơng pháp vận hành phù hợp, nâng cao chất lợng điện đòi hỏi thờng xuyên nhà quản lý lới điện hộ tiêu thụ đIện Chính lý đề tài Nghiên cứu đánh giá lới điện trung áp khu vực tỉnh Thái Nguyên Đề xuất giải pháp nâng cao chất lợng điện cho lới khu vực, ứng dụng kết nghiên cứu phục vụ công tác đào tạo nhà trờng Đà đợc tập thể cán bộ, giảng viên- giáo viên trờng Cao đẳng Công nghệ Kinh tế Công nghiệp triển khai nghiên cứu sau đợc cho phép Bộ Công Thơng Khi đề tài hoàn thành góp phần nâng cao kiến thức thực tế đội ngũ giảng viên- giáo viên chuyên ngành điện đồng thời tăng cờng tài liệu giảng dạy, nghiên cứu cho ngành đào tạo nhà trờng Đồng thời kết đề tài sở quan trọng để nhà trờng đổi nội dung môn học, phơng pháp giảng dạy nhằm nâng cao chất lợng đào tạo, đáp ứng tốt yêu cầu xà hội Trờng Cao đẳng Công nghệ Kinh tế Công nghiệp Đề tài nghiên cứu khoa học năm 2009 II Mục đích đề tài Quá trình nghiên cứu phơng pháp điều chỉnh điện áp lới điện trung áp giúp cho giảng viên nắm đợc thực tế việc áp dụng phơng pháp điều chỉnh điện áp hiệu quả, giúp cho giảng viên Nhà trờng vững vàng chuyên môn đồng thời có điều kiện cập nhật kiến thức thực tế để đa vào giảng dạy Giúp cho giảng viên không bị tụt hậu thực tế, kích thích sáng tạo đội ngũ giảng viên Góp phần nâng cao chất lợng đội ngũ giảng viên Thông qua nghiên cứu hình thành phong cách NCKH từ thực tế, giúp cho trình độ thực tế đội ngũ giảng viên đợc nâng cao, đồng thời giúp cho kiến thức đào tạo trờng tiến kịp với tiến kỹ thuật thực tế Việc nghiên cứu thực tế trình vận hành lới điện để cải tiến đề cơng chơng trình, phơng pháp giảng dạy giúp cho trình đào tạo Nhà trờng sát thực tế hơn, tạo tiền đề cho liên kết doanh nghiệp với nhà trờng đào tạo, góp phần giải khó khăn nguồn nhân lực có trình độ Giúp cho việc vận hành lới điện hiệu đảm bảo chất lợng điện cung cấp cho hộ phụ tải điện Việc cải tiến đào tạo theo hớng nhà trờng kết hợp với doanh nghiệp, đào tạo theo yêu cầu doanh nghiệp tạo hứng thú cho sinh viên, đồng thời thử nghiệm để tiến tới phát triển loại hình đào tạo chuyên sâu phục vụ cho doanh nghiệp cụ thể III Giới hạn nghiên cứu đề tài Đề tài tập trung nghiên cứu thực trạng lới điện trung áp tỉnh Thái Nguyên kết cấu chất lợng điện năng, đồng thời nghiên cứu số phơng pháp đIều chỉnh điều áp lới trung áp Đề xuất giải pháp nâng cao chất lợng điện cho lới điện trung áp tỉnh Thái Nguyên Nghiên cứu giải pháp nâng cao chất lợng đào tạo sinh viên cao đẳng chuyên ngành Điện đáp ứng yêu cầu xà hội IV Nội dung nghiên cứu - Nghiên cứu xây dựng đề cơng - Nghiên cứu thực trạng lới điện trung áp tỉnh Thái Nguyên Trờng Cao đẳng Công nghệ Kinh tế Công nghiệp Đề tài nghiên cứu khoa học năm 2009 - Nghiên cứu phơng pháp điều chỉnh điện áp hiệu lới điện trung áp Thái Nguyên - Nghiên cứu giải pháp nâng cao chất lợng điện áp lới điện trung áp Thái Nguyên - Nghiên cứu giải pháp gắn đào tạo sinh viên cao đẳng chuyên ngành Điện với yêu từ thực tế - Nghiên cứu phơng pháp tính toán điều chỉnh chất lợng điện áp xây dựng chơng trình tính toán - Tính toán đề xuất giải pháp cải thiện chất lợng điện áp Thái Nguyên V Phơng pháp nghiên cứu Khi triển khai nghiên cứu đề tài nhóm nghiên cứu đà áp dụng hai nhóm phơng pháp nghiên cứu là: Nhóm phơng pháp nghiên cứu lý thuyết: Tra cứu văn bản, nghiên cứu tài liệu Nhóm phơng pháp nghiên cứu thực nghiệm: điều tra, khảo sát, tham quan, thử nghiệm Cụ thể : + Nghiên cứu cấu trúc lới điện Thái Nguyên hớng phát triển tơng lai Đánh giá tình hình vận hành lới điện Thái Nguyên + Nghiên cứu tài liệu liên quan tới phơng pháp điều chỉnh điện áp lới điện trung áp + Nghiên cứu tài liệu phơng pháp điều chỉnh điện áp hiệu áp dụng Thái Nguyên giải pháp nâng cao chất lợng cho phơng pháp + Nghiên cứu chơng trình, đề cơng môn học ngành Công nghệ Kỹ thuật điện; ngàng Quản lý vận hành hệ thống điện theo hớng đào tạo đáp ứng yêu cầu thực tế Exit Do End If Loop Exit Do Else rs.Bookmark = mark1 rs.MoveNext End If Loop Until rs.EOF = True 'end Tính nút nối đâu nguồn rs.MoveFirst Do While True rs.FindFirst "unutmax > AND " & "cs = 9" ghi If rs.NoMatch = False Then ncuoi = rs.Fields("nc") ndau = rs.Fields("nd") ucuoimax = rs.Fields("unutmax") ucuoimin = rs.Fields("unutmin") rs.Edit rs.Fields("cs") = rs.Update 'Tìm unutmax > cuoi Do While True 'cac nut noi vao nut vua thay rs.FindFirst "nd = '" & ncuoi & "'" & "AND unutmax = 0" 'Tìm nd=ncuoi cuoi ghi If rs.NoMatch = False Then rs.Edit bytnactu = rs.Fields("nacvh") If ToiUu = True And rs.Fields("Anut") > And rs.Fields("ba_day") = True Then Call ToiUuNacPhanAp(Y, bytnactu, ucuoimax, ucuoimin) rs.Fields("cs") = rs.Fields("nactu") = bytnactu End If rs.Fields("unutmax") = ucuoimax / (rs.Fields("k") - (bytnactu - 0.5 * (rs.Fields("sonac") + 1)) * rs.Fields("Ep") / 100) - rs.Fields("DUmax") rs.Fields("unutmin") = ucuoimin / (rs.Fields("k") - (bytnactu - 0.5 * (rs.Fields("sonac") + 1)) * rs.Fields("Ep") / 100) - rs.Fields("DUmin") 'Tính tiêu chất lượng tổng quát CTTQ tải cao áp kiểm tra CLDA If rs.Fields("Anut") > And rs.Fields("ba_day") = False Then Call tinhCTTQtaicaoap(Y) sumY = sumY + Y 35 Call testTaiCaoAp(thongbao, tbao1, tbao2, tbao3, tbao4) 'kiểm tra CLDA tải cao áp rs.Fields("CLDA") = thongbao End If ' 'Tính tiêu chất lượng tổng quát CTTQ tải hạ áp If rs.Fields("Anut") > And rs.Fields("ba_day") = True Then Call tinhCTTQtaihaap(Y) sumY = sumY + Y ' tính chọn đâu phân áp Call testTaiHaAp(thongbao, tbao1, tbao2, tbao3, tbao4) 'kiểm tra CLDA tải hạ áp rs.Fields("CLDA") = thongbao End If rs.Update Else Exit Do End If Loop Else Exit Do End If Loop txtsumY.Text = sumY ''++++++++++++++++++++++++++++++++++++++++ 'Data1.Refresh End Sub Private Sub Form_Load() Data1.DatabaseName = duongdan dattendz.DatabaseName = duongdan dattendz.RecordSource = "tendz" Set db = OpenDatabase(duongdan) Set rstendz = db.OpenRecordset("SELECT * " & _ " FROM tendz") End Sub Public Sub tinhcapU() Dim i As Byte Dim sou As String capu(1) = 35 capu(2) = 22 capu(3) = 15 36 capu(4) = 10 capu(5) = capu(6) = 0.38 capu(7) = 0.22 capu(8) = 110 i=0 Do i=i+1 sou = Val(txtUmax.Text) / capu(i) 'so điện áp đầu nguôn với cấp U If sou > 0.8 And sou < 1.2 Then capulo = capu(i) End If Loop Until i = End Sub Public Sub inCurrent() Dim sqlin As String Cr1.ReportFileName = App.Path & "\kqua1.rpt" Cr1.DiscardSavedData = True Cr1.DataFiles(0) = duongdan Cr1.WindowState = crptMaximized Cr1.ReportTitle = "Kết tính tốn điện áp với thơng số " Cr1.Formulas(0) = "DU-='" & txtUthap.Text & "'" Cr1.Formulas(1) = "DU+='" & txtUcao.Text & "'" Cr1.Formulas(2) = "Uh1='" & txtUh1.Text & "'" Cr1.Formulas(3) = "Uh2='" & txtUh2.Text & "'" Cr1.Formulas(4) = "Ep='" & txtEp.Text & "'" ' Cr1.Formulas(5) = "CTTQ='" & txtsumY.Text & "'" Cr1.Formulas(6) = "Pmax='" & txtPmax.Text & "'" Cr1.Formulas(7) = "Pmin='" & txtPmin.Text & "'" Cr1.Formulas(8) = "Umax='" & txtUmax.Text & "'" Cr1.Formulas(9) = "Umin='" & txtUmin.Text & "'" Cr1.Formulas(10) = "cosmax='" & txtcosmax.Text & "'" Cr1.Formulas(11) = "cosmin='" & txtcosmin.Text & "'" sqlin = "{slnhanh.madz} =" & dz Cr1.GroupSelectionFormula = sqlin Cr1.RetrieveSQLQuery 'Cr1.Action = 37 ' ' ' ' ' ' ' ' ' Cr1.PrintReport End Sub Public Sub CLDA() End Sub Public Sub testTaiCaoAp(thongbao, tbao1, tbao2, tbao3, tbao4) 'Kiểm tra nút tải cao áp If (rs.Fields("unutmax") - 100 - Val(txtUcao)) > Then tbao1 = "U1>; " If (rs.Fields("unutmax") - 100 - Val(txtUthap)) < Then tbao2 = "U1; " If (rs.Fields("unutmin") - 100 - Val(txtUthap)) < Then tbao4 = "U2; " If (rs.Fields("unutmax") - 100 - Val(txtUcao)) > Then tbao1 = "U1>; " If (rs.Fields("unutmax") - 100 - Val(txtUthap)) - Val(txtUh1) < Then tbao2 = "U1; " If (rs.Fields("unutmin") - 100 - Val(txtUcao)) > Then tbao3 = "U2>; " If (rs.Fields("unutmin") - 100 - Val(txtUthap)) - Val(txtUh2) < Then tbao4 = "U2 AND " & "cs 4" If rs.NoMatch = False Then sinQbumax = rs.Fields("qbumax") sinQbumin = rs.Fields("qbumin") rs.Edit rs.Fields("qmaxnha") = rs.Fields("qmaxnha") - sinQbumax rs.Fields("qminnh") = rs.Fields("qminnh") - sinQbumin rs.Fields("cs") = rs.Update ndau = rs.Fields("nd") Do rs.FindFirst "nc = '" & ndau & "'" If rs.NoMatch = False Then rs.Edit rs.Fields("qmaxnha") = rs.Fields("qmaxnha") - sinQbumax rs.Fields("qminnh") = rs.Fields("qminnh") - sinQbumin rs.Update ndau = rs.Fields("nd") End If Loop Until rs.NoMatch = True Else Exit Do End If Loop Data1.Refresh rs.MoveFirst Do rs.Edit rs.Fields("DUmax") = (rs.Fields("pmaxnha") * rs.Fields("r") + rs.Fields("qmaxnha") * rs.Fields("x")) / (10 * capulo ^ 2) rs.Fields("DUmin") = (rs.Fields("pminnh") * rs.Fields("r") + rs.Fields("qminnh") * rs.Fields("x")) / (10 * capulo ^ 2) rs.Update rs.MoveNext Loop Until rs.EOF Data1.Refresh 'ToiUu = False 'Call tinhUnut(ToiUu) 41 ' bytPrint = MsgBox("Bạn muốn in số liệu tính?", vbQuestion + vbOKCancel, "NKD") ' If bytPrint = Then ' Call inCurrent ' End If End Sub '**************************************************** Option Explicit Private Sub checDZ_Click() If checDZ.Value = Then checMBA.Value = Label1(3).Visible = True ' MBA SSDBCmadz.Enabled = False SSDBCmadz.Visible = False SSDBCmba.Visible = True SSDBCmba.Enabled = True Label1(9).Visible = False txtNhanh(3).Visible = False Label1(10).Visible = False txtNhanh(2).Visible = True Label1(4).Visible = True checDZ.Visible = False checMBA.Visible = True Else checMBA.Value = Label1(3).Visible = False 'ẩn MBA SSDBCmadz.Enabled = True SSDBCmadz.Visible = True SSDBCmba.Visible = False SSDBCmba.Enabled = False Label1(9).Visible = True txtNhanh(3).Visible = True Label1(10).Visible = True txtNhanh(2).Visible = False Label1(4).Visible = False 42 End If End Sub Private Sub checMBA_Click() If checMBA.Value = Then checDZ.Value = checMBA.Visible = False checDZ.Visible = True Else checDZ.Value = End If End Sub Private Sub cmdBtn_Click(Index As Integer) 'Điều khiển lựa chọn nút Dim i As Integer Dim souh As Single 'so sánh uh với cấp u Dim soul As Single Dim capuh As Single 'cấp điện áp uh Dim capul As Single 'cấp điện áp ul Select Case Index Case ' add Data1.ReadOnly = False Data1.Recordset.AddNew Data1.Recordset.Fields("madz") = malo Data1.UpdateRecord Data1.Refresh ' Data1.Recordset.MoveLast Data1.ReadOnly = True Case ' update Data1.ReadOnly = False Data1.Recordset.Edit Data1.UpdateRecord If Data1.Recordset.Fields("ba_day") = Then 'thông số đường dây rsday.FindFirst "maday = Trim(Data1.Recordset.Fields("maday")) & "'" If rsday.NoMatch = False Then Dim x As String Select Case Data1.Recordset.Fields("U") 43 '" & Case 35 x = rsday.Fields("x35") Case 22 x = rsday.Fields("x22") Case 10 x = rsday.Fields("x610") Case x = rsday.Fields("x610") Case 0.4 x = rsday.Fields("x380") End Select Data1.Recordset.Edit Data1.Recordset.Fields("r") = rsday.Fields("r0") Data1.Recordset.Fields("dai") * (capulo / Data1.Recordset.Fields("U")) ^ Data1.Recordset.Fields("x") = x Data1.Recordset.Fields("dai") * (capulo / Data1.Recordset.Fields("U")) ^ Data1.Recordset.Fields("k") = Data1.Recordset.Fields("Ep") = Data1.Recordset.Fields("sonac") = Data1.Recordset.Fields("nacvh") = Data1.Recordset.Fields("nactu") = * * Else MsgBox "Khơng có mã hiệu dây liệu", vbOKOnly, "NKD" SSDBCmadz.SetFocus End If Else 'thông số MBA rsba.FindFirst "mamba Trim(Data1.Recordset.Fields("maday")) & "'" If rsba.NoMatch = False Then Data1.Recordset.Edit = '" & Data1.Recordset.Fields("r") = rsba.Fields("rb") * (capulo / Data1.Recordset.Fields("U")) ^ Data1.Recordset.Fields("x") = rsba.Fields("xb") * (capulo / Data1.Recordset.Fields("U")) ^ i=0 Do i=i+1 44 souh = rsba.Fields("uh") / capu(i) 'so điện áp phía cao MBA với cấp U soul = rsba.Fields("ul") / capu(i) If souh > 0.8 And souh < 1.2 Then capuh = capu(i) End If If soul > 0.8 And soul < 1.2 Then capul = capu(i) End If Loop Until i = If capuh = Or capul = Then MsgBox "Điện áp MBA không đúng", vbOKOnly, "NKD" Else ' Tính hệ số biến áp hành ' Data1.Recordset.Fields("k") = (capul * rsba.Fields("uh")) / (rsba.Fields("ul") * capuh) + (Data1.Recordset.Fields("nacvh") (rsba.Fields("sonac") + 1) / 2) * rsba.Fields("Ep") / 100 ' Tính hệ số biến áp định mức Data1.Recordset.Fields("k") = (capul * rsba.Fields("uh")) / (rsba.Fields("ul") * capuh) Data1.Recordset.Fields("Ep") = rsba.Fields("Ep") Data1.Recordset.Fields("sonac") = rsba.Fields("sonac") Data1.Recordset.Fields("dai") = capuh = capul = End If Else MsgBox "Khơng tìm thấy mã hiệu MBA liệu", vbOKOnly, "NKD" SSDBCmba.SetFocus End If End If Data1.UpdateRecord Data1.ReadOnly = True Case ' delete Data1.ReadOnly = False Dim xoa As Integer xoa = MsgBox("Bạn muốn xoá ghi liệu?", vbQuestion + vbOKCancel, "NKD") 45 If xoa = Then Data1.Recordset.Delete Data1.Refresh End If Data1.ReadOnly = True Case ' exit Unload Me End Select Exit Sub End Sub Private Sub Form_Load() 'duongdan = App.Path & "\db1.mdb" Data1.DatabaseName = duongdan ' SQL = "SELECT * " & _ " FROM slnhanh" & _ " WHERE [madz] = " & malo & _ " ORDER BY [ID]" ''''''''''''''''''''''''' Data1.RecordSource = SQL Data1.Refresh thay bach datTd_day.DatabaseName = duongdan datTd_day.RecordSource = "td_day" datTd_mba.DatabaseName = duongdan datTd_mba.RecordSource = "td_mba" Set db = OpenDatabase(duongdan) Set rs = db.OpenRecordset(SQL) Set rsba = db.OpenRecordset("SELECT * FROM td_mba") Set rsday = db.OpenRecordset("SELECT * FROM td_day") 'Set rstendz = db.OpenRecordset("SELECT * FROM tendz") frmSlnhanh.Caption = "Nhập số liệu nhánh & nút lộ " & tenlo capu(1) = 35 capu(2) = 22 capu(3) = 15 capu(4) = 10 capu(5) = capu(6) = 0.38 capu(7) = 0.22 capu(8) = 110 46 End Sub '*************************************************************** Private Sub cmdBtn_Click(Index As Integer) 'Điều khiển lựa chọn nút ' handle button selections On Error GoTo LocalError Select Case Index Case ' add Data1.Recordset.AddNew datTd_day(0).SetFocus Case ' update Data1.UpdateRecord Data1.Recordset.Bookmark = Data1.Recordset.LastModified Case ' delete Dim xoa As Integer xoa = MsgBox("Bạn muốn xoá ghi liệu?", vbQuestion + vbOKCancel, "NKD") If xoa = Then Data1.Recordset.Delete Data1.Recordset.MovePrevious End If Case ' exit Unload Me End Select Exit Sub LocalError: MsgBox Err.Description, vbCritical, Err.Number End Sub Private Sub Form_Load() Data1.DatabaseName = duongdan SQL = "SELECT * " & _ " FROM td_day" '& _ ' " ORDER BY [nd]" Data1.RecordSource = SQL Data1.Refresh End Sub '****************************************************************** Private Sub Command2_Click(Index As Integer) Select Case Index Case ' OK malo = datTendz.Recordset.Fields("ID") datTendz.UpdateRecord 47 tenlo = datTendz.Recordset.Fields("dz") capulo = datTendz.Recordset.Fields("uh") frmSlnhanh.Show Case ' Cancel Unload Me End Select Exit Sub LocalError: MsgBox Err.Description, vbCritical, Err.Number End Sub Private Sub Form_Load() datTendz.DatabaseName = duongdan datTendz.RecordSource = "tendz" End Sub '****************************************************************** Dim malo As Integer Private Sub Exit_Click() End End Sub Public Sub MDIForm_Load() 'Call Mod1 capu(1) = 35 capu(2) = 22 capu(3) = 15 capu(4) = 10 capu(5) = capu(6) = 0.4 capu(7) = 0.22 duongdan = App.Path & "\db1.mdb" End Sub Private Sub mnunhapxoa_Click() frmtendz.Show End Sub Private Sub sl_luoi_Click() 'frmSlnhanh.Show End Sub Private Sub td_day_Click() 48 frmtd_day.Show End Sub Private Sub td_mba_Click() frmtd_mba.Show End Sub Private Sub TTDA_Click() frmkqua.Show End Sub 49 ... lới điện trung áp tỉnh Thái Nguyên kết cấu chất lợng điện năng, đồng thời nghiên cứu số phơng pháp đIều chỉnh điều áp lới trung áp Đề xuất giải pháp nâng cao chất lợng điện cho lới điện trung áp. .. Nghiên cứu giải pháp nâng cao chất lợng điện áp lới điện trung áp Thái Nguyên - Nghiên cứu giải pháp gắn đào tạo sinh viên cao đẳng chuyên ngành Điện với yêu từ thực tế - Nghiên cứu phơng pháp. .. thuật ? ?áp ứng đợc yêu cầu xà hội Năm 2009 đợc cho phép Bộ Công Thơng, nhà trờng đà triển khai nghiên cứu đề tài: Nghiên cứu đánh giá lới điện trung áp khu vực tỉnh Thái Nguyên Đề xuất giải pháp nâng