(Luận văn thạc sĩ) xây dựng giải thuật giám sát tuổi thọ ắc quy

BỘ GIÁO DỤC VÀ ĐÀO TẠO TRƯỜNG ĐẠI HỌC SƯ PHẠM KỸ THUẬT THÀNH PHỐ HỒ CHÍ MINH LUẬN VĂN THẠC SĨ ĐẶNG PHI LONG QUY TRÌNH THIẾT KẾ LẮP ĐẶT HỆ THỐNG PV KHÔNG NỐI LƯỚI NGÀNH: KỸ THUẬT ĐIỆN TỬ - 60520202 S K C0 Tp Hồ Chí Minh, tháng 04/2017 BỘ GIÁO DỤC VÀ ĐÀO TẠO TRƯỜNG ĐẠI HỌC SƯ PHẠM KỸ THUẬT THÀNH PHỐ HỒ CHÍ MINH LUẬN VĂN THẠC SĨ ĐẶNG PHI LONG QUY TRÌNH THIẾT KẾ LẮP ĐẶT HỆ THỐNG PV KHÔNG NỐI LƯỚI NGÀNH: KỸ THUẬT ĐIỆN - 60520202 Tp Hồ Chí Minh, tháng 04/2017 BỘ GIÁO DỤC VÀ ĐÀO TẠO TRƯỜNG ĐẠI HỌC SƯ PHẠM KỸ THUẬT THÀNH PHỐ HỒ CHÍ MINH LUẬN VĂN THẠC SĨ ĐẶNG PHI LONG QUY TRÌNH THIẾT KẾ LẮP ĐẶT HỆ THỐNG PV KHÔNG NỐI LƯỚI NGÀNH: KỸ THUẬT ĐIỆN - 60520202 Hướng dẫn khoa học: TS VÕ VIẾT CƯỜNG Tp Hồ Chí Minh, tháng 04/2017 i ii iii iv v vi vii txtthang1.Text = 2.71 txtthang2.Text = 2.27 txtthang3.Text = 2.52 txtthang4.Text = 3.9 txtthang5.Text = 5.86 txtthang6.Text = 5.6 txtthang7.Text = 5.96 txtthang8.Text = 5.66 txtthang9.Text = 5.59 txtthang10.Text = 5.12 txtthang11.Text = 4.14 txtthang12.Text = 3.74 End If If a = And b = Then txtthang1.Text = 6.19 txtthang2.Text = 6.64 txtthang3.Text = 6.81 txtthang4.Text = 6.47 txtthang5.Text = 5.75 txtthang6.Text = 5.24 txtthang7.Text = 5.4 txtthang8.Text = 5.49 txtthang9.Text = 5.47 txtthang10.Text = 5.75 txtthang11.Text = 5.76 txtthang12.Text = 5.91 End If If a = 53 And b = Then txtthang1.Text = 6.3 txtthang2.Text = 6.45 txtthang3.Text = 6.82 txtthang4.Text = 6.46 txtthang5.Text = 6.03 txtthang6.Text = 5.34 txtthang7.Text = 5.51 txtthang8.Text = 5.14 txtthang9.Text = 5.2 txtthang10.Text = 5.28 txtthang11.Text = 5.57 txtthang12.Text = 5.8 End If If a = 54 And b = Then txtthang1.Text = 6.27 txtthang2.Text = 6.47 txtthang3.Text = 6.76 txtthang4.Text = 6.41 txtthang5.Text = 5.45 txtthang6.Text = 4.82 txtthang7.Text = 5.1 txtthang8.Text = 5.14 txtthang9.Text = 5.2 txtthang10.Text = 5.28 txtthang11.Text = 5.57 txtthang12.Text = 5.8 End If 'Nếu a= Hà Nội, Hướng Đông Nam, Tây Nam, gócnghiêng 10 độ If a = And (b = Or b = 3) Then txtthang1.Text = 2.68 txtthang2.Text = 2.27 txtthang3.Text = 2.52 txtthang4.Text = 3.9 90 txtthang5.Text = 5.86 txtthang6.Text = 5.6 txtthang7.Text = 6.02 txtthang8.Text = 5.66 txtthang9.Text = 5.53 txtthang10.Text = 4.97 txtthang11.Text = 4.06 txtthang12.Text = 3.64 End If If a = 53 And (b = Or b = 3) Then txtthang1.Text = 6.13 txtthang2.Text = 6.32 txtthang3.Text = 6.76 txtthang4.Text = 6.46 txtthang5.Text = 6.03 txtthang6.Text = 5.4 txtthang7.Text = 5.57 txtthang8.Text = 5.66 txtthang9.Text = 5.74 txtthang10.Text = 5.74 txtthang11.Text = 5.76 txtthang12.Text = 5.87 End If If a = 54 And (b = Or b = 3) Then txtthang1.Text = 6.04 txtthang2.Text = 6.34 txtthang3.Text = 6.76 txtthang4.Text = 6.41 txtthang5.Text = 5.51 txtthang6.Text = 4.87 txtthang7.Text = 5.1 txtthang8.Text = 5.14 txtthang9.Text = 5.2 txtthang10.Text = 5.23 txtthang11.Text = 5.46 txtthang12.Text = 5.59 End If 'Nếu a= Hà Nội, Hướng Đơng, Tây, gócnghiêng 10 độ If a = And (b = Or b = 5) Then txtthang1.Text = 2.63 txtthang2.Text = 2.27 txtthang3.Text = 2.49 txtthang4.Text = 3.86 txtthang5.Text = 6.04 txtthang6.Text = 5.77 txtthang7.Text = 6.2 txtthang8.Text = 5.61 txtthang9.Text = 5.32 txtthang10.Text = 4.73 txtthang11.Text = 4.83 txtthang12.Text = 3.29 End If If a = 53 And (b = txtthang1.Text txtthang2.Text txtthang3.Text txtthang4.Text txtthang5.Text txtthang6.Text txtthang7.Text = = = = = = = Or b = 5) Then 5.66 6.14 6.82 6.52 6.22 5.56 5.74 91 txtthang8.Text = 5.72 txtthang9.Text = 5.74 txtthang10.Text = 5.52 txtthang11.Text = 5.33 txtthang12.Text = 5.49 End If If a = 54 And (b = Or b = 5) Then txtthang1.Text = 5.58 txtthang2.Text = 6.1 txtthang3.Text = 6.76 txtthang4.Text = 6.47 txtthang5.Text = 5.62 txtthang6.Text = 4.97 txtthang7.Text = 5.26 txtthang8.Text = 5.19 txtthang9.Text = 5.2 txtthang10.Text = 5.03 txtthang11.Text = 5.04 txtthang12.Text = 5.27 End If Case 'Nếu a= Hà Nội, Hướng Nam, gócnghiêng 20 độ If a = And b = Then txtthang1.Text = 2.76 txtthang2.Text = 2.25 txtthang3.Text = 2.47 txtthang4.Text = 3.82 txtthang5.Text = 5.56 txtthang6.Text = 5.25 txtthang7.Text = 5.65 txtthang8.Text = 5.49 txtthang9.Text = 5.59 txtthang10.Text = 5.26 txtthang11.Text = 4.37 txtthang12.Text = 3.94 End If If a = 54 And b = Then txtthang1.Text = 6.56 txtthang2.Text = 6.65 txtthang3.Text = 6.76 txtthang4.Text = 6.15 txtthang5.Text = 5.11 txtthang6.Text = 4.47 txtthang7.Text = 4.73 txtthang8.Text = 4.87 txtthang9.Text = 5.1 txtthang10.Text = 5.28 txtthang11.Text = 5.78 txtthang12.Text = 6.06 End If 'Nếu a= Hà Nội, Hướng Đơng Nam, Tây Nam, gócnghiêng 20 độ If a = And (b = Or b = 3) Then txtthang1.Text = 2.71 txtthang2.Text = 2.22 txtthang3.Text = 2.47 txtthang4.Text = 3.78 txtthang5.Text = 5.62 txtthang6.Text = 5.37 txtthang7.Text = 5.71 txtthang8.Text = 5.49 txtthang9.Text = 5.48 92 txtthang10.Text = 5.07 txtthang11.Text = 4.18 txtthang12.Text = 3.74 End If If a = 54 And (b = Or b = 3) Then txtthang1.Text = 6.27 txtthang2.Text = 6.41 txtthang3.Text = 6.62 txtthang4.Text = 6.15 txtthang5.Text = 5.17 txtthang6.Text = 4.57 txtthang7.Text = 4.83 txtthang8.Text = 4.93 txtthang9.Text = 5.04 txtthang10.Text = 5.18 txtthang11.Text = 5.57 txtthang12.Text = 5.8 End If 'Nếu a= Hà Nội, Hướng Đông, Tây, gócnghiêng 20 độ If a = And (b = Or b = 5) Then txtthang1.Text = 2.52 txtthang2.Text = 2.2 txtthang3.Text = 2.47 txtthang4.Text = 3.82 txtthang5.Text = 5.74 txtthang6.Text = 5.48 txtthang7.Text = 5.83 txtthang8.Text = 5.55 txtthang9.Text = 5.26 txtthang10.Text = 4.73 txtthang11.Text = 3.79 txtthang12.Text = 3.26 End If If a = 54 And (b = Or b = 5) Then txtthang1.Text = 5.58 txtthang2.Text = 6.1 txtthang3.Text = 6.29 txtthang4.Text = 6.47 txtthang5.Text = 5.57 txtthang6.Text = 4.72 txtthang7.Text = 5.26 txtthang8.Text = 5.14 txtthang9.Text = 4.94 txtthang10.Text = 5.03 txtthang11.Text = 5.04 txtthang12.Text = 5.21 End If Case 'Nếu a= Hà Nội, Hướng Nam, gócnghiêng 30 độ If a = And b = Then txtthang1.Text = 2.76 txtthang2.Text = 2.18 txtthang3.Text = 2.39 txtthang4.Text = 3.67 txtthang5.Text = 5.2 txtthang6.Text = 4.9 txtthang7.Text = 5.22 txtthang8.Text = 5.21 txtthang9.Text = 5.43 txtthang10.Text = 5.31 93 txtthang11.Text = 4.49 txtthang12.Text = 4.08 End If If a = 54 And b = Then txtthang1.Text = 6.73 txtthang2.Text = 6.71 txtthang3.Text = 6.56 txtthang4.Text = 5.76 txtthang5.Text = 4.66 txtthang6.Text = 4.07 txtthang7.Text = 4.3 txtthang8.Text = 4.56 txtthang9.Text = 4.89 txtthang10.Text = 5.23 txtthang11.Text = 5.88 txtthang12.Text = 6.28 End If 'Nếu a= Hà Nội, Hướng Đơng Nam, Tây Nam, gócnghiêng 30 độ If a = And (b = Or b = 3) Then txtthang1.Text = 2.68 txtthang2.Text = 2.18 txtthang3.Text = 2.39 txtthang4.Text = 3.67 txtthang5.Text = 5.26 txtthang6.Text = 5.02 txtthang7.Text = 5.34 txtthang8.Text = 5.21 txtthang9.Text = 5.32 txtthang10.Text = 5.02 txtthang11.Text = 4.22 txtthang12.Text = 3.81 End If If a = 53 And (b = Or b = 3) Then txtthang1.Text = 6.36 txtthang2.Text = 6.39 txtthang3.Text = 6.42 txtthang4.Text = 5.87 txtthang5.Text = 5.28 txtthang6.Text = 4.66 txtthang7.Text = 4.81 txtthang8.Text = 5.09 txtthang9.Text = 5.34 txtthang10.Text = 5.63 txtthang11.Text = 5.87 txtthang12.Text = 6.15 End If If a = 54 And (b = Or b = 3) Then txtthang1.Text = 6.27 txtthang2.Text = 6.34 txtthang3.Text = 6.42 txtthang4.Text = 5.76 txtthang5.Text = 4.83 txtthang6.Text = 4.22 txtthang7.Text = 4.46 txtthang8.Text = 4.61 txtthang9.Text = 4.84 txtthang10.Text = 5.08 txtthang11.Text = 5.57 txtthang12.Text = 5.85 End If 94 'Nếu a= Hà Nội, Hướng Đơng, Tây gócnghiêng 30 độ If a = And (b = Or b = 5) Then txtthang1.Text = 2.47 txtthang2.Text = 2.13 txtthang3.Text = 2.37 txtthang4.Text = 3.67 txtthang5.Text = 5.38 txtthang6.Text = 5.14 txtthang7.Text = 5.46 txtthang8.Text = 5.21 txtthang9.Text = 4.93 txtthang10.Text = 4.35 txtthang11.Text = 3.52 txtthang12.Text = 3.22 End If If a = 54 And (b = Or b = 5) Then txtthang1.Text = 5.06 txtthang2.Text = 5.61 txtthang3.Text = 5.82 txtthang4.Text = 6.02 txtthang5.Text = 5.23 txtthang6.Text = 4.67 txtthang7.Text = 4.94 txtthang8.Text = 4.82 txtthang9.Text = 4.84 txtthang10.Text = 4.67 txtthang11.Text = 4.62 txtthang12.Text = 4.79 End If End Select End Sub Private Sub button2_Click(sender As System.Object, e As System.EventArgs) Handles btncspv.Click 'tính cơng suất pv trang2 Const v As Single = 0.76 'khai báo Dim cspv, tinh1, thang1, thang2, thang3, thang4, thang5, thang6, thang7, thang8, thang9, thang10, thang11, thang12 As Single Dim tinh2, tinh3, tinh4, tinh5, tinh6, tinh7, tinh8, tinh9, tinh10, tinh11, tinh12 As Single thang1 = Val(txtthang1.Text) thang2 = Val(txtthang2.Text) thang3 = Val(txtthang3.Text) thang4 = Val(txtthang4.Text) thang5 = Val(txtthang5.Text) thang6 = Val(txtthang6.Text) thang7 = Val(txtthang7.Text) thang8 = Val(txtthang8.Text) thang9 = Val(txtthang9.Text) thang10 = Val(txtthang10.Text) thang11 = Val(txtthang11.Text) thang12 = Val(txtthang2.Text) cspv = Val(txtcs.Text) ' tính tự động theo trang If check3.Checked = True Then tinh1 = cspv / (thang1 * v) tinh1 = Math.Round(tinh1, 2) txtthang1p2.Text = tinh1 tinh2 = cspv / (thang2 * v) tinh2 = Math.Round(tinh2, 2) 95 txtthang2p2.Text = tinh2 tinh3 = cspv / (thang3 * v) tinh3 = Math.Round(tinh3, 2) txtthang3p2.Text = tinh3 tinh4 = cspv / (thang4 * v) tinh4 = Math.Round(tinh4, 2) txtthang4p2.Text = tinh4 tinh5 = cspv / (thang5 * v) tinh5 = Math.Round(tinh5, 2) txtthang5p2.Text = tinh5 tinh6 = cspv / (thang6 * v) tinh6 = Math.Round(tinh6, 2) txtthang6p2.Text = tinh6 tinh7 = cspv / (thang7 * v) tinh7 = Math.Round(tinh7, 2) txtthang7p2.Text = tinh7 tinh8 = cspv / (thang8 * v) tinh8 = Math.Round(tinh8, 2) txtthang8p2.Text = tinh8 tinh9 = cspv / (thang9 * v) tinh9 = Math.Round(tinh9, 2) txtthang9p2.Text = tinh9 tinh10 = cspv / (thang10 * v) tinh10 = Math.Round(tinh10, 2) txtthang10p2.Text = tinh10 tinh11 = cspv / (thang11 * v) tinh11 = Math.Round(tinh11, 2) txtthang11p2.Text = tinh11 tinh12 = cspv / (thang12 * v) tinh12 = Math.Round(tinh12, 2) txtthang12p2.Text = tinh12 ' điều kiện If txtcs.Text = "" Then MsgBox(" Bạn chưa nhập công suất tải") txtcs.Focus() Exit Sub End If End If 'tính tay If check4.Checked = True Then Dim kqcs, kqaccquy, nhapcs, nhapnlbx As Single Dim ngaydutru As Single nhapcs = Val(txtnhapcs.Text) nhapnlbx = Val(txtnhapnl.Text) kqcs = nhapcs / (nhapnlbx * v) Select Case dutruaccquy.SelectedIndex Case ngaydutru = Case ngaydutru = Case ngaydutru = End Select Select Case dienapacquy.SelectedIndex Case kqaccquy = (2 * nhapcs * 1000 * ngaydutru) / 12 Case kqaccquy = (2 * nhapcs * 1000 * ngaydutru) / 24 End Select kqcs = Math.Round(kqcs, 2) kqcspvtxt.Text = kqcs 96 kqaccquy = Math.Round(kqaccquy, kqaccquytxt.Text = kqaccquy ' điều kiện If txtnhapcs.Text = "" Then MsgBox(" Bạn chưa nhập công txtnhapcs.Focus() Exit Sub End If If txtnhapnl.Text = "" Then MsgBox(" Bạn chưa nhập txtnhapnl.Focus() Exit Sub End If If dienapacquy.Text = "" Then MsgBox(" Bạn chưa chọn điện dienapacquy.Focus() Exit Sub End If 2) suất tải") lượng xạ Mặt Trời") áp đầu accquy") End If ' chọn công suất pv lớn Dim max, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12 As Single i1 = Val(txtthang1p2.Text) i2 = Val(txtthang2p2.Text) i3 = Val(txtthang3p2.Text) i4 = Val(txtthang4p2.Text) i5 = Val(txtthang5p2.Text) i6 = Val(txtthang6p2.Text) i7 = Val(txtthang7p2.Text) i8 = Val(txtthang8p2.Text) i9 = Val(txtthang9p2.Text) i10 = Val(txtthang10p2.Text) i11 = Val(txtthang11p2.Text) i12 = Val(txtthang12p2.Text) If i1 > i2 Then max = i1 Else max = i2 End If If max < i3 Then max = i3 End If If max < i4 Then max = i4 End If If max < i5 Then max = i5 End If If max < i6 Then max = i6 End If If max < i7 Then max = i7 End If If max < i8 Then max = i8 End If If max < i9 Then max = i9 End If If max < i10 Then max = i10 97 End If If max < i11 Then max = i11 End If If max < i12 Then max = i12 End If txtnenchon.Text = max End Sub Private Sub nhapcstxt_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtnhapcs.TextChanged If check4.Checked = False Then MsgBox("Bạn chưa chọn tính tay") check4.Focus() End If End Sub Private Sub txtcs_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtcs.TextChanged If check3.Checked = False And check4.Checked = False Then MsgBox(" Bạn chưa chọn tính tự động hay tính tay") check3.Focus() End If If check3.Checked = False Then MsgBox("Bạn chưa chọn tín tự động") check3.Focus() End If End Sub Private Sub btn3_Click(sender As System.Object, e As System.EventArgs) Handles btn3.Click Const v As Single = 0.76 Dim thang1p3, thang2p3, thang3p3, thang4p3, thang5p3, thang6p3, thang7p3, thang8p3, thang9p3, thang10p3, thang11p3, thang12p3 As Single Dim cspv3, tinh1, tinh2, tinh3, tinh4, tinh5, tinh6, tinh7, tinh8, tinh9, tinh10, tinh11, tinh12, tongdiennang As Single ' khai báo biến thang1p3 = Val(txtthang1.Text) thang2p3 = Val(txtthang2.Text) thang3p3 = Val(txtthang3.Text) thang4p3 = Val(txtthang4.Text) thang5p3 = Val(txtthang5.Text) thang6p3 = Val(txtthang6.Text) thang7p3 = Val(txtthang7.Text) thang8p3 = Val(txtthang8.Text) thang9p3 = Val(txtthang9.Text) thang10p3 = Val(txtthang10.Text) thang11p3 = Val(txtthang11.Text) thang12p3 = Val(txtthang12.Text) cspv3 = Val(txtcspv3.Text) 'tính tốn Select Case cbbphuongan.SelectedIndex Case tinh1 = cspv3 * (thang1p3 tinh1 = Math.Round(tinh1, txtthang1p3.Text = tinh1 tinh2 = cspv3 * (thang2p3 tinh2 = Math.Round(tinh2, txtthang2p3.Text = tinh2 * v) 2) * v) 2) 98 tinh3 = cspv3 * (thang3p3 * v) tinh3 = Math.Round(tinh3, 2) txtthang3p3.Text = tinh3 tinh4 = cspv3 * (thang4p3 * v) tinh4 = Math.Round(tinh4, 2) txtthang4p3.Text = tinh4 tinh5 = cspv3 * (thang5p3 * v) tinh5 = Math.Round(tinh5, 2) txtthang5p3.Text = tinh5 tinh6 = cspv3 * (thang6p3 * v) tinh6 = Math.Round(tinh6, 2) txtthang6p3.Text = tinh6 tinh7 = cspv3 * (thang7p3 * v) tinh7 = Math.Round(tinh7, 2) txtthang7p3.Text = tinh7 tinh8 = cspv3 * (thang8p3 * v) tinh8 = Math.Round(tinh8, 2) txtthang8p3.Text = tinh8 tinh9 = cspv3 * (thang9p3 * v) tinh9 = Math.Round(tinh9, 2) txtthang9p3.Text = tinh9 tinh10 = cspv3 * (thang10p3 * v) tinh10 = Math.Round(tinh10, 2) txtthang10p3.Text = tinh10 tinh11 = cspv3 * (thang11p3 * v) tinh11 = Math.Round(tinh11, 2) txtthang11p3.Text = tinh11 tinh12 = cspv3 * (thang12p3 * v) tinh12 = Math.Round(tinh12, 2) txtthang12p3.Text = tinh12 tongdiennang = Val(txttongdiennang.Text) tongdiennang = tinh1 + tinh2 + tinh3 + tinh4 + tinh5 + tinh6 + tinh7 + tinh8 + tinh9 + tinh10 + tinh11 + tinh12 txttongdiennang.Text = tongdiennang * 30 Case tinh1 = (cspv3 * (thang1p3 * v)) * 0.75 tinh1 = Math.Round(tinh1, 2) txtthang1p3.Text = tinh1 tinh2 = (cspv3 * (thang2p3 * v)) * 0.75 tinh2 = Math.Round(tinh2, 2) txtthang2p3.Text = tinh2 tinh3 = (cspv3 * (thang3p3 * v)) * 0.75 tinh3 = Math.Round(tinh3, 2) txtthang3p3.Text = tinh3 tinh4 = (cspv3 * (thang4p3 * v)) * 0.75 tinh4 = Math.Round(tinh4, 2) txtthang4p3.Text = tinh4 tinh5 = (cspv3 * (thang5p3 * v)) * 0.75 tinh5 = Math.Round(tinh5, 2) txtthang5p3.Text = tinh5 tinh6 = (cspv3 * (thang6p3 * v)) * 0.75 tinh6 = Math.Round(tinh6, 2) txtthang6p3.Text = tinh6 tinh7 = (cspv3 * (thang7p3 * v)) * 0.75 tinh7 = Math.Round(tinh7, 2) txtthang7p3.Text = tinh7 tinh8 = (cspv3 * (thang8p3 * v)) * 0.75 tinh8 = Math.Round(tinh8, 2) txtthang8p3.Text = tinh8 tinh9 = (cspv3 * (thang9p3 * v)) * 0.75 tinh9 = Math.Round(tinh9, 2) txtthang9p3.Text = tinh9 99 tinh10 = (cspv3 * (thang10p3 * v)) * 0.75 tinh10 = Math.Round(tinh10, 2) txtthang10p3.Text = tinh10 tinh11 = (cspv3 * (thang11p3 * v)) * 0.75 tinh11 = Math.Round(tinh11, 2) txtthang11p3.Text = tinh11 tinh12 = (cspv3 * (thang12p3 * v)) * 0.75 tinh12 = Math.Round(tinh12, 2) txtthang12p3.Text = tinh12 tongdiennang = Val(txttongdiennang.Text) tongdiennang = tinh1 + tinh2 + tinh3 + tinh4 + tinh5 + tinh6 + tinh7 + tinh8 + tinh9 + tinh10 + tinh11 + tinh12 txttongdiennang.Text = tongdiennang * 30 Case tinh1 = (cspv3 * (thang1p3 * v)) * 0.5 tinh1 = Math.Round(tinh1, 2) txtthang1p3.Text = tinh1 tinh2 = (cspv3 * (thang2p3 * v)) * 0.5 tinh2 = Math.Round(tinh2, 2) txtthang2p3.Text = tinh2 tinh3 = (cspv3 * (thang3p3 * v)) * 0.5 tinh3 = Math.Round(tinh3, 2) txtthang3p3.Text = tinh3 tinh4 = (cspv3 * (thang4p3 * v)) * 0.5 tinh4 = Math.Round(tinh4, 2) txtthang4p3.Text = tinh4 tinh5 = (cspv3 * (thang5p3 * v)) * 0.5 tinh5 = Math.Round(tinh5, 2) txtthang5p3.Text = tinh5 tinh6 = (cspv3 * (thang6p3 * v)) * 0.5 tinh6 = Math.Round(tinh6, 2) txtthang6p3.Text = tinh6 tinh7 = (cspv3 * (thang7p3 * v)) * 0.5 tinh7 = Math.Round(tinh7, 2) txtthang7p3.Text = tinh7 tinh8 = (cspv3 * (thang8p3 * v)) * 0.5 tinh8 = Math.Round(tinh8, 2) txtthang8p3.Text = tinh8 tinh9 = (cspv3 * (thang9p3 * v)) * 0.5 tinh9 = Math.Round(tinh9, 2) txtthang9p3.Text = tinh9 tinh10 = (cspv3 * (thang10p3 * v)) * 0.5 tinh10 = Math.Round(tinh10, 2) txtthang10p3.Text = tinh10 tinh11 = (cspv3 * (thang11p3 * v)) * 0.5 tinh11 = Math.Round(tinh11, 2) txtthang11p3.Text = tinh11 tinh12 = (cspv3 * (thang12p3 * v)) * 0.5 tinh12 = Math.Round(tinh12, 2) txtthang12p3.Text = tinh12 tongdiennang = Val(txttongdiennang.Text) tongdiennang = tinh1 + tinh2 + tinh3 + tinh4 + tinh5 + tinh6 + tinh7 + tinh8 + tinh9 + tinh10 + tinh11 + tinh12 txttongdiennang.Text = tongdiennang * 30 End Select ' điều kiện If txtcspv3.Text = "" Then MsgBox(" Bạn chưa nhập công suất Pv") txtcspv3.Focus() Exit Sub End If 100 If cbbphuongan.Text = "" Then MsgBox(" Bạn chưa chọn phương án") cbbphuongan.Focus() Exit Sub End If End Sub Private Sub Button2_Click_1(sender As System.Object, e As System.EventArgs) Handles Button2.Click Dim max, a3, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12 As Single Dim dlaccquy, slaq, tongtien, tongaq, tongpv, giaaq, giapv, cspv3, giabochuyendoi, tghoivon As Single Dim laisuat, a, b, c, d, giadien, tongdiennang As Single 'so sánh tính số lớn i1 = Val(txtthang1p3.Text) i2 = Val(txtthang2p3.Text) i3 = Val(txtthang3p3.Text) i4 = Val(txtthang4p3.Text) i5 = Val(txtthang5p3.Text) i6 = Val(txtthang6p3.Text) i7 = Val(txtthang7p3.Text) i8 = Val(txtthang8p3.Text) i9 = Val(txtthang9p3.Text) i10 = Val(txtthang10p3.Text) i11 = Val(txtthang11p3.Text) i12 = Val(txtthang12p3.Text) If i1 > i2 Then max = i1 Else max = i2 End If If max < i3 Then max = i3 End If If max < i4 Then max = i4 End If If max < i5 Then max = i5 End If If max < i6 Then max = i6 End If If max < i7 Then max = i7 End If If max < i8 Then max = i8 End If If max < i9 Then max = i9 End If If max < i10 Then max = i10 End If If max < i11 Then max = i11 End If If max < i12 Then max = i12 End If a3 = max 101 ' tính tổng dung lượng trữ accquy Dim ngaydutru, kqaccquy, dienap As Single Select Case cbbdutruaccquy3.SelectedIndex Case ngaydutru = Case ngaydutru = Case ngaydutru = End Select Select Case cbbdienapaccquy3.SelectedIndex Case dienap = 12 Case dienap = 24 End Select kqaccquy = (2 * a3 * 1000 * ngaydutru) / dienap kqaccquy = Math.Round(kqaccquy, 2) txtacquydutru.Text = kqaccquy 'số lượng accquy Select Case cbbdungluongaccquy3.SelectedIndex Case dlaccquy = 50 Case dlaccquy = 100 Case dlaccquy = 150 Case dlaccquy = 200 End Select slaq = kqaccquy / dlaccquy slaq = Math.Round(slaq, 0) Txtsoluongaq.Text = slaq ' tổng tiền giaaq = Val(txtgiaaccquy.Text) giapv = Val(txtgiapv.Text) giabochuyendoi = Val(txtgiabochuyendoi.Text) cspv3 = Val(txtcspv3.Text) tongaq = giaaq * slaq 'tính tốn giá pv/ W Select Case cbbphuongan.SelectedIndex Case tongpv = giapv * cspv3 * 1000 Case tongpv = giapv * cspv3 * 1000 * 0.75 Case tongpv = giapv * cspv3 * 1000 * 0.5 ' tổng tiền tongtien = tongaq + tongpv + giabochuyendoi ' thời gian hồi vốn Select Case cbbtghoivon.SelectedIndex Case tghoivon = Case tghoivon = 10 Case tghoivon = 15 Case tghoivon = 20 End Select ' lãi suất (J) 102 laisuat = Val(txtlaisuat.Text) / 100 ' số tiền trả năm M = P* (J/(1-(1+J)^-N)) a = (1 + laisuat) ^ (-tghoivon) b = - a c = laisuat / b d = tongtien * c ' giá tiền điện tongdiennang = Val(txttongdiennang.Text) giadien = d / tongdiennang giadien = Math.Round(giadien, 0) txtgiadien.Text = giadien ' điều kiện If cbbdienapaccquy3.Text = "" Then MsgBox(" Bạn chưa chọn điện áp đầu accquy") cbbdienapaccquy3.Focus() Exit Sub End If If cbbdutruaccquy3.Text = "" Then MsgBox(" Bạn chưa chọn khả trữ HTPMT") cbbdutruaccquy3.Focus() Exit Sub End If If cbbdungluongaccquy3.Text = "" Then MsgBox(" Bạn chưa chọn dung lượng accquy") cbbdungluongaccquy3.Focus() Exit Sub End If If txtgiaaccquy.Text = "" Then MsgBox(" Bạn chưa nhập giá accquy") txtgiaaccquy.Focus() Exit Sub End If If txtgiapv.Text = "" Then MsgBox(" Bạn chưa nhập giá Pv") txtgiapv.Focus() Exit Sub End If If txtgiabochuyendoi.Text = "" Then MsgBox(" Bạn chưa nhập giá chuyển đổi") txtgiabochuyendoi.Focus() Exit Sub End If If cbbtghoivon.Text = "" Then MsgBox(" Bạn chưa chọn thời gian trả tiền") cbbtghoivon.Focus() Exit Sub End If If txtlaisuat.Text = "" Then MsgBox(" Bạn chưa nhập lãi suất") txtlaisuat.Focus() Exit Sub End If End Sub End Class 103 S K L 0 ... ĐÀO TẠO TRƯỜNG ĐẠI HỌC SƯ PHẠM KỸ THUẬT THÀNH PHỐ HỒ CHÍ MINH LUẬN VĂN THẠC SĨ ĐẶNG PHI LONG QUY TRÌNH THIẾT KẾ LẮP ĐẶT HỆ THỐNG PV KHÔNG NỐI LƯỚI NGÀNH: KỸ THUẬT ĐIỆN - 60520202 Tp Hồ Chí Minh,... ĐÀO TẠO TRƯỜNG ĐẠI HỌC SƯ PHẠM KỸ THUẬT THÀNH PHỐ HỒ CHÍ MINH LUẬN VĂN THẠC SĨ ĐẶNG PHI LONG QUY TRÌNH THIẾT KẾ LẮP ĐẶT HỆ THỐNG PV KHÔNG NỐI LƯỚI NGÀNH: KỸ THUẬT ĐIỆN - 60520202 Hướng dẫn khoa... nghiên cứu giải vấn đề sau: - Nghiên cứu văn pháp luật có liên quan - Thu thập nghiên cứu tài liệu ngồi nước NLMT - Khảo sát tình hình khai thác sử dụng ĐMT số Quốc gia Thế giới - Khảo sát tiềm