From b47cf354b3b8a26fe5d6190b23fe537fa4d62f1e Mon Sep 17 00:00:00 2001 From: ykh Date: Sun, 30 Nov 2025 23:52:50 +0900 Subject: [PATCH] =?UTF-8?q?CHeating.vb=201972=EB=B2=88=20=EC=A4=84=20?= =?UTF-8?q?=EB=88=84=EC=A0=81=20=EB=AC=B8=EC=A0=9C=20=EB=B6=84=EC=84=9D=20?= =?UTF-8?q?=EC=99=84=EB=A3=8C?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../Calculator-OD/AirHandling/CAirHandling.vb | 43 ++++++++----------- ArinWarev1/Calculator-OD/Cooling/CCooling.vb | 14 +++--- ArinWarev1/Calculator-OD/Heating/CHeating.vb | 22 ++++++---- .../Calculator-OD/Result/C에너지분석.vb | 2 +- .../Calculator-OD/Result/C에너지소요량.vb | 2 +- ArinWarev1/Calculator-OD/Zone/CZone.vb | 16 +++---- ArinWarev1/FORM-OD/Frm_2_Build.vb | 10 ++--- ArinWarev1/FORM-OD/Frm_3_Mach.vb | 14 +++--- ArinWarev1/FORM-OD/Frm_5_New.vb | 2 +- ArinWarev1/MdiMain.vb | 4 +- ArinWarev1/My Project/AssemblyInfo.vb | 4 +- ArinWarev1/REPORT-OD/Frm_v20091231_Report.vb | 30 ++++++------- ArinWarev1/REPORT-OD/Report_검토서2.vb | 31 +++++++------ Setup/Setup.vdproj | 12 +++--- 14 files changed, 100 insertions(+), 106 deletions(-) diff --git a/ArinWarev1/Calculator-OD/AirHandling/CAirHandling.vb b/ArinWarev1/Calculator-OD/AirHandling/CAirHandling.vb index 139148e..941f422 100644 --- a/ArinWarev1/Calculator-OD/AirHandling/CAirHandling.vb +++ b/ArinWarev1/Calculator-OD/AirHandling/CAirHandling.vb @@ -73,8 +73,7 @@ '--------------------------------------------------------------------------------------------------2010.02.22 수정 If (TOSG(T, dr공조처리.설정치난방) - theta_i_h) > 0 Then V_dot_mech_m = 1000 * Q_dot_h_max / (c_p_Lrho_L * (TOSG(T, dr공조처리.설정치난방) - theta_i_h)) - Console.WriteLine(String.Format("%%%%%% V_dot_mech_m = {0},Q_dot_h_max={1},c_p_Lrho_L={2},theta_i_h={3},dr공조처리.설정치난방={4}", _ - V_dot_mech_m, Q_dot_h_max, c_p_Lrho_L, theta_i_h, dr공조처리.설정치난방)) + 'Console.WriteLine(String.Format("%%%%%% V_dot_mech_m = {0},Q_dot_h_max={1},c_p_Lrho_L={2},theta_i_h={3},dr공조처리.설정치난방={4}", V_dot_mech_m, Q_dot_h_max, c_p_Lrho_L, theta_i_h, dr공조처리.설정치난방)) Else V_dot_mech_m = 0 End If @@ -191,7 +190,7 @@ If i_count_month = 3 Then - Console.WriteLine("sdf") + 'Console.WriteLine("sdf") End If ' 공조처리 @@ -270,7 +269,7 @@ 'If Dr존.냉난방공조처리시스템 = Dr공조.code Then ' Worksheets("공조처리시스템").Range("공조기기1").Offset(0, i_count_AHU - 1) Then 'If i_count_month > 4 Then - ' Console.WriteLine(String.Format("공조 {0}월 존이름={1},급기풍량={2},배기풍량={3}", i_count_month, Dr공조.code, Dr공조.급기풍량, Dr공조.배기풍량)) + ' 'Console.WriteLine(String.Format("공조 {0}월 존이름={1},급기풍량={2},배기풍량={3}", i_count_month, Dr공조.code, Dr공조.급기풍량, Dr공조.배기풍량)) 'End If If sum_kongjo = 0 Then @@ -409,7 +408,7 @@ If i_count_month = 3 Then '//no err - 'Console.WriteLine(String.Format("#### t_V_mech_m={0},d_V_mech_m={1},c_p_Lrho_L={2},theta_AUL={3},theta_c_mech_m={4},V_dot_A={5},A_B={6},ea_kongjo={7},Q_c_b={8},t_V_mech_m={9},d_V_mech_m={10},c_p_Lrho_L={11},theta_i_c={12},theta_c_mech_m={13}", _ + ''Console.WriteLine(String.Format("#### t_V_mech_m={0},d_V_mech_m={1},c_p_Lrho_L={2},theta_AUL={3},theta_c_mech_m={4},V_dot_A={5},A_B={6},ea_kongjo={7},Q_c_b={8},t_V_mech_m={9},d_V_mech_m={10},c_p_Lrho_L={11},theta_i_c={12},theta_c_mech_m={13}", _ 't_V_mech_m, d_V_mech_m, c_p_Lrho_L, theta_AUL, theta_c_mech_m, V_dot_A, A_B, ea_kongjo, Q_c_b, t_V_mech_m, d_V_mech_m, c_p_Lrho_L, theta_i_c, theta_c_mech_m)) End If 'If V_dot_mech_m < 0 Then @@ -420,7 +419,7 @@ If i_count_month = 3 Then 'no - 'Console.WriteLine(String.Format("#### V_dot_mech_m={0},V_dot_A={1},A_B={2}", _ + ''Console.WriteLine(String.Format("#### V_dot_mech_m={0},V_dot_A={1},A_B={2}", _ 'V_dot_mech_m, V_dot_A, A_B)) End If @@ -530,8 +529,7 @@ If i_count_month = 3 Then - Console.WriteLine(String.Format("----------- Drow분석(0).냉방요구량공조={0},ea_kongjo={1}", _ - Drow분석(0).냉방요구량공조, ea_kongjo)) + 'Console.WriteLine(String.Format("----------- Drow분석(0).냉방요구량공조={0},ea_kongjo={1}", Drow분석(0).냉방요구량공조, ea_kongjo)) End If '------------------------------------------------------------------------------------------------------------------------------------------ @@ -606,8 +604,7 @@ 'End If If i_count_month = 3 Then - Console.WriteLine(String.Format("***** theta_ZUL_so={0},theta_AUL={1}", _ - theta_ZUL_so, theta_AUL)) + 'Console.WriteLine(String.Format("***** theta_ZUL_so={0},theta_AUL={1}", theta_ZUL_so, theta_AUL)) End If If theta_ZUL_so > theta_AUL Then ' Worksheets("공조처리시스템").Range("공조방식1").Offset(6, i_count_AHU - 1) = "유" Then @@ -617,8 +614,7 @@ If i_count_month = 3 Then - Console.WriteLine(String.Format("#### V_dot_mech_m={0},d_V_mech_m={1},c_p_Lrho_L={2}", _ - V_dot_mech_m, d_V_mech_m, c_p_Lrho_L)) + 'Console.WriteLine(String.Format("#### V_dot_mech_m={0},d_V_mech_m={1},c_p_Lrho_L={2}", V_dot_mech_m, d_V_mech_m, c_p_Lrho_L)) End If @@ -651,12 +647,12 @@ Else P_V_ABL_m = 0 End If - + Q_V_E_ZUL_m += P_V_ZUL_m * t_V_mech_m * d_V_mech_m '(3.2.5-10) 정풍량 Q_V_E_ABL_m += P_V_ABL_m * t_V_mech_m * d_V_mech_m '(3.2.5-10) 정풍량 If i_count_month = 3 Then - Console.WriteLine(String.Format("[{0}] #2 Q_V_E_ZUL_m={1},Q_V_E_ABL_m={2}", i_count_month, Q_V_E_ZUL_m, Q_V_E_ABL_m)) + 'Console.WriteLine(String.Format("[{0}] #2 Q_V_E_ZUL_m={1},Q_V_E_ABL_m={2}", i_count_month, Q_V_E_ZUL_m, Q_V_E_ABL_m)) End If Case "변풍량" '변풍량" @@ -684,16 +680,15 @@ P_V_ABL_m = 0 End If '============================================================2010.10.10 - + Q_V_E_ZUL_m += P_V_ZUL_m * t_V_mech_m * d_V_mech_m / 1000 'kWh (3.2.5-10) 변풍량 냉방부하 Q_V_E_ABL_m += P_V_ABL_m * t_V_mech_m * d_V_mech_m / 1000 'kWh (3.2.5-10) 변풍량 냉방부하 If i_count_month = 3 Then - Console.WriteLine(String.Format("[{0}] Q_V_E_ZUL_m={1},Q_V_E_ABL_m={2}", i_count_month, Q_V_E_ZUL_m, Q_V_E_ABL_m)) + 'Console.WriteLine(String.Format("[{0}] Q_V_E_ZUL_m={1},Q_V_E_ABL_m={2}", i_count_month, Q_V_E_ZUL_m, Q_V_E_ABL_m)) - Console.WriteLine(String.Format(">>> P_V_ZUL_m={0},t_V_mech_m={1},d_V_mech_m={2}", P_V_ZUL_m, t_V_mech_m, d_V_mech_m)) - Console.WriteLine(String.Format(">>> V_dot_mech_m={0},Delta_p_star_ZUL={1},f_p={2},eta_ZUL={3},V_dot_mech_m={4},Delta_p_star_ZUL={5},eta_ZUL={6},V_dot_mech_max={7}", _ - V_dot_mech_m, Delta_p_star_ZUL, f_p, eta_ZUL, V_dot_mech_m, Delta_p_star_ZUL, eta_ZUL, V_dot_mech_max)) + 'Console.WriteLine(String.Format(">>> P_V_ZUL_m={0},t_V_mech_m={1},d_V_mech_m={2}", P_V_ZUL_m, t_V_mech_m, d_V_mech_m)) + 'Console.WriteLine(String.Format(">>> V_dot_mech_m={0},Delta_p_star_ZUL={1},f_p={2},eta_ZUL={3},V_dot_mech_m={4},Delta_p_star_ZUL={5},eta_ZUL={6},V_dot_mech_max={7}", V_dot_mech_m, Delta_p_star_ZUL, f_p, eta_ZUL, V_dot_mech_m, Delta_p_star_ZUL, eta_ZUL, V_dot_mech_max)) End If @@ -711,11 +706,11 @@ Else P_V_ABL_m = 0 End If - + Q_V_E_ZUL_m += P_V_ZUL_m * t_V_mech_m * d_V_mech_m '(3.2.5-10) 정풍량 Q_V_E_ABL_m += P_V_ABL_m * t_V_mech_m * d_V_mech_m '(3.2.5-10) 정풍량 If i_count_month = 3 Then - Console.WriteLine(String.Format("[{0}] #3 Q_V_E_ZUL_m={1},Q_V_E_ABL_m={2}", i_count_month, Q_V_E_ZUL_m, Q_V_E_ABL_m)) + 'Console.WriteLine(String.Format("[{0}] #3 Q_V_E_ZUL_m={1},Q_V_E_ABL_m={2}", i_count_month, Q_V_E_ZUL_m, Q_V_E_ABL_m)) End If @@ -807,8 +802,8 @@ Drow분석(0).환기요구량 = Q_V_E_ZUL_m + Q_V_E_ABL_m ' Sheets("" & i_count_month & "").Cells(25, 7 + i_count_zone) = Q_V_E_ZUL_m + Q_V_E_ABL_m If i_count_month = 3 Then - 'Console.WriteLine(String.Format("문제의 {0}월", i_count_month)) - Console.WriteLine(String.Format("환기요구량 {0}, {1}, {2}", i_count_month, Q_V_E_ZUL_m, Q_V_E_ABL_m)) + ''Console.WriteLine(String.Format("문제의 {0}월", i_count_month)) + 'Console.WriteLine(String.Format("환기요구량 {0}, {1}, {2}", i_count_month, Q_V_E_ZUL_m, Q_V_E_ABL_m)) End If '========================================================================================================================================== 'End If @@ -907,7 +902,7 @@ Result1o.E분석(i_count_month).환기에너지요구량(Dr존.code) = Q_V_E_ZUL_m + Q_V_E_ABL_m - 'Console.WriteLine(String.Format("환기요구량2={0}", Q_V_E_ZUL_m + Q_V_E_ABL_m)) + ''Console.WriteLine(String.Format("환기요구량2={0}", Q_V_E_ZUL_m + Q_V_E_ABL_m)) 'Sheets("" & i_count_month & "").Cells(25, 7 + i_count_zone) = Q_V_E_ZUL_m + Q_V_E_ABL_m End If Else diff --git a/ArinWarev1/Calculator-OD/Cooling/CCooling.vb b/ArinWarev1/Calculator-OD/Cooling/CCooling.vb index 4a63136..d12e066 100644 --- a/ArinWarev1/Calculator-OD/Cooling/CCooling.vb +++ b/ArinWarev1/Calculator-OD/Cooling/CCooling.vb @@ -85,7 +85,7 @@ For Each dr냉방 As DS.tbl_nangbangkikiRow In DSET1.tbl_nangbangkiki.Select("code<>'0'", "code") 'log.debug(String.format("cool title=%s", drCooling.getCode())); - ' Console.WriteLine(String.Format("cool title={0}", dr냉방.code)) + ' 'Console.WriteLine(String.Format("cool title={0}", dr냉방.code)) '//이 냉방기가가 존에서 사용되었는지확인한다. Dim Drow존() As DS.tbl_zoneRow = CType(DSET1.tbl_zone.Select("code <> '0'"), DS.tbl_zoneRow()) @@ -100,7 +100,7 @@ For Each Dr존 As DS.tbl_zoneRow In DSET1.tbl_zone.Select("code <> '0'", "code") - 'Console.WriteLine(String.Format("냉방기기={0},존={1},mon={2}", dr냉방.설명, Dr존.code, i_count_month)) + ''Console.WriteLine(String.Format("냉방기기={0},존={1},mon={2}", dr냉방.설명, Dr존.code, i_count_month)) Dim Drow분석() As DSR.월별에너지분석Row = CType(DSETR1.월별에너지분석.Select("월='" & Mon & "' and 존='" & Dr존.code & "'"), DSR.월별에너지분석Row()) ' 존데이터를가져올떄 해당 냉방기기에서 사용한 존만 가져왔따. @@ -273,7 +273,7 @@ use_Elec = use_Elec + Q_c_g_hp_aux End Select Case "열병합" '//열병합 - + End Select End If @@ -425,7 +425,7 @@ Q_c_f = Q_c_f + Q_c_f_elektr + Q_c_f_R_elektr + Q_c_outg_therm + Q_c_g use_Elec = use_Elec + Q_c_f_elektr + Q_c_f_R_elektr - 'Console.WriteLine(String.Format("=>coolin mon={0}, gcf={1}, elect={2}", i_count_month, Q_c_f, use_Elec)) + ''Console.WriteLine(String.Format("=>coolin mon={0}, gcf={1}, elect={2}", i_count_month, Q_c_f, use_Elec)) 'log.debug(String.format("=>coolin mon=%s, gcf=%s, elect=%s", i_count_month, Q_c_f,use_Elec)); '// 냉수, 냉각수 분배 @@ -582,14 +582,14 @@ End If End If - - 'Console.WriteLine("loop 2") + + ''Console.WriteLine("loop 2") End If '2 - 'Console.WriteLine("loop 1") + ''Console.WriteLine("loop 1") Next '1 diff --git a/ArinWarev1/Calculator-OD/Heating/CHeating.vb b/ArinWarev1/Calculator-OD/Heating/CHeating.vb index 8cdbe2a..3144ad6 100644 --- a/ArinWarev1/Calculator-OD/Heating/CHeating.vb +++ b/ArinWarev1/Calculator-OD/Heating/CHeating.vb @@ -470,10 +470,10 @@ Result1o.일차E소요량(i_count_month).급탕전력 = use_Elec 'log.debug(String.format("####### => (i_count_month=%s,Q_w_f=%s,Q_w_aux=%s,use_Oil=%s,use_LNG=%s,use_LPG=%s,use_DH=%s,use_Elec=%s)",i_count_month,Q_w_f,Q_w_aux,use_Oil,use_LNG,use_LPG,use_DH,use_Elec)); - ' Console.WriteLine(String.Format("####### => (i_count_month={0},Q_w_f={1},Q_w_aux={2},use_Oil={3},use_LNG={4},use_LPG={5},use_DH={6},use_Elec={7})", i_count_month, Q_w_f, Q_w_aux, use_Oil, use_LNG, use_LPG, use_DH, use_Elec)) + ' 'Console.WriteLine(String.Format("####### => (i_count_month={0},Q_w_f={1},Q_w_aux={2},use_Oil={3},use_LNG={4},use_LPG={5},use_DH={6},use_Elec={7})", i_count_month, Q_w_f, Q_w_aux, use_Oil, use_LNG, use_LPG, use_DH, use_Elec)) End Sub - + Public Overridable Sub Calc_HeatingSystem(ByVal i_count_month As Integer, ByVal theta_e As Decimal) @@ -708,6 +708,7 @@ Select Case Dr난방.열생산기기방식.Trim.ToUpper Case "보일러" 비율 = TOSG(T, Dr난방.보일러정격출력) * TOSG(T, Dr난방.보일러대수) / 보일러정격출력합 + 'Console.WriteLine(Dr난방.보일러대수.ToString() + "/" + 보일러정격출력합.ToString() + ",비율" + 비율.ToString()) Case "지역난방" Dr난방.열교환기정격출력 = Dr난방.보일러정격출력 '======2017.12.20 추가 비율 = TOSG(T, Dr난방.열교환기정격출력) * TOSG(T, Dr난방.보일러대수) / 보일러정격출력합 @@ -819,7 +820,7 @@ Result1o.일차E소요량(i_count_month).난방전력 = use_Elec 'pLog.Add(String.Format("q_h_aux={0},난방등유={1},LNG={2},LPG={3},지역={4},전력={5}", Q_h_aux, use_Oil, use_LNG, use_LPG, use_DH, use_Elec)) - 'Console.WriteLine(String.Format("####### => (i_count_month={0},Q_h_aux={1},use_Elec={2},use_Oil={3},use_LNG={4},use_LPG={5},use_DH={6},use_Elec={7})", i_count_month, Q_h_aux, use_Elec, use_Oil, use_LNG, use_LPG, use_DH, use_Elec)) + ''Console.WriteLine(String.Format("####### => (i_count_month={0},Q_h_aux={1},use_Elec={2},use_Oil={3},use_LNG={4},use_LPG={5},use_DH={6},use_Elec={7})", i_count_month, Q_h_aux, use_Elec, use_Oil, use_LNG, use_LPG, use_DH, use_Elec)) End Sub Private Sub Calc_난방_개별기기미적용시(dr난방 As DS.tbl_nanbangkikiRow, mon As String, 비율 As Decimal, i_count_month As Integer, theta_e As Decimal) @@ -934,7 +935,7 @@ eta_h_ce = 1 / (4 - (eta_L + eta_C + eta_B)) '(3.27-28) Q_h_ce_i = (f_Radiant * f_int * f_hydr / eta_h_ce - 1) * Q_h_b_i '(3.2.7-27) - Q_h_ce = Q_h_ce + Q_h_ce_i + Q_h_ce = Q_h_ce + (Q_h_ce_i * 비율) ' ==========2025.11.30 누적 오류(비율) 수정 Q_h_ce = Q_h_ce + Q_h_ce_i @@ -1654,7 +1655,7 @@ Q_dot_d_in = 0 Else t_w_100 = Q_w_outg_i / (Q_dot_N * d_Nutz_mth) '(3.2.9-61) - Q_dot_d_in = Q_h_outg_i / (d_h_rB * (t_h_rL_T - t_w_100)) ' * 비율 '(3.2.7-69) 난방 또는 난방 및 급탕 '// 2018.08.01 수정 + Q_dot_d_in = Q_h_outg_i / (d_h_rB * (t_h_rL_T - t_w_100)) '* 비율 '(3.2.7-69) 난방 또는 난방 및 급탕 '// 2018.08.01 수정 ' 우선 미적용 Q_dot_d_in = sigma_Q_h_outg / (t_Betrieb_K - t_W_100) * d_Nutz_mth '(3.2.7-70) 난방, 급탕 및 공조 End If @@ -1816,7 +1817,7 @@ H_DS = TOSG(B_DS * Psi_DS ^ (1 / 3)) Q_h_g = Q_h_g + (H_DS * (theta_DS - theta_i)) * system_count '=====2013.08.13 수정 use_DH = use_DH + (H_DS * (theta_DS - theta_i)) * system_count '========2013.08.18 수정 - 'Console.WriteLine("used=" + use_DH.ToString()) + ''Console.WriteLine("used=" + use_DH.ToString()) End If @@ -1826,9 +1827,9 @@ ' 전기보조에너지 Q_h_d_aux 산출 관련 P_Pump = TOSG(dr난방.펌프동력) ' Worksheets("난방기기").Range("난방펌프제어유형1").Offset(1, i_count_boiler - 1) - - + + If Program = EProgram.친환경평가 Then 'Select Case dr난방.펌프제어유형.Trim ' Worksheets("난방기기").Range("난방펌프제어유형1").Offset(0, i_count_boiler - 1) @@ -1959,7 +1960,7 @@ End If - + If dr난방.열생산기기방식 = "보일러" Then 'Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) = "보일러" Then @@ -1970,6 +1971,9 @@ Case "천연가스" '천연가스" use_LNG = use_LNG + (Q_h_outg_i + Q_h_g_i) * system_count '========2013.08.18 수정 + + Console.WriteLine("#### mon=[" + i_count_month.ToString() + "] 보일러정격출력=" + dr난방.보일러정격출력.ToString() + ",보일러대수=" + dr난방.보일러대수.ToString() + ",Q_h_outg_i=" + Q_h_outg_i.ToString() + ",Q_h_g_i=" + Q_h_g_i.ToString() + "," + system_count.ToString()) + Case "액화가스" '액화가스" use_LPG = use_LPG + (Q_h_outg_i + Q_h_g_i) * system_count '========2013.08.18 수정 diff --git a/ArinWarev1/Calculator-OD/Result/C에너지분석.vb b/ArinWarev1/Calculator-OD/Result/C에너지분석.vb index aee3751..1e362c7 100644 --- a/ArinWarev1/Calculator-OD/Result/C에너지분석.vb +++ b/ArinWarev1/Calculator-OD/Result/C에너지분석.vb @@ -334,7 +334,7 @@ a10 = a10 + Dr.공조요구량냉방 a11 = a11 + Dr.공조요구량가습 a12 = a12 + Dr.환기요구량 - ' Console.WriteLine(String.Format(">>>>>>>>> a2={0},a3={1},a4={2},a5={3},a6={4},a7={5},a8={6},a9={7},a10={8},a11={9},a12={10}", a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12)) + ' 'Console.WriteLine(String.Format(">>>>>>>>> a2={0},a3={1},a4={2},a5={3},a6={4},a7={5},a8={6},a9={7},a10={8},a11={9},a12={10}", a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12)) Next 'Me.에너지요구량 = a2 + a3 + a4 + a5 + a6 + a7 ㅇ건 Readonlye 로 계산한다. diff --git a/ArinWarev1/Calculator-OD/Result/C에너지소요량.vb b/ArinWarev1/Calculator-OD/Result/C에너지소요량.vb index e46f011..8c3181b 100644 --- a/ArinWarev1/Calculator-OD/Result/C에너지소요량.vb +++ b/ArinWarev1/Calculator-OD/Result/C에너지소요량.vb @@ -54,7 +54,7 @@ I7 += Result1o.일차E소요량(i).급탕전력 I8 += Result1o.일차E소요량(i).환기전력 - 'Console.WriteLine(String.Format(">>C에너지소요량 IV={0},i={1}", IV, i)) + ''Console.WriteLine(String.Format(">>C에너지소요량 IV={0},i={1}", IV, i)) Next Me.난방 = I10 diff --git a/ArinWarev1/Calculator-OD/Zone/CZone.vb b/ArinWarev1/Calculator-OD/Zone/CZone.vb index 35dc195..a01aed1 100644 --- a/ArinWarev1/Calculator-OD/Zone/CZone.vb +++ b/ArinWarev1/Calculator-OD/Zone/CZone.vb @@ -108,7 +108,7 @@ For i_count_month As Short = 0 To 12 '(2) --월전체의 루프? 'If i_count_HeatCool = 1 AndAlso i_count_month = 1 Then - ' Console.WriteLine("col") + ' 'Console.WriteLine("col") 'End If Work_msg("요구량계산중..." & CStr(IIf(i_count_HeatCool = 1, "난방", "냉방")) & "(" & i_count_month & "/12)") : Work_plus() @@ -476,7 +476,7 @@ Q_V_sink = Q_V_inf_sink + Q_V_mech_sink + Q_V_z_sink + Q_V_win_sink '(2-13) - '//Console.WriteLine(String.Format("mon={0},QV_sink={1},{2},{3},{4}", i_count_month, Q_V_sink, Q_V_inf_sink, Q_V_mech_sink, Q_V_z_sink)) + '//'Console.WriteLine(String.Format("mon={0},QV_sink={1},{2},{3},{4}", i_count_month, Q_V_sink, Q_V_inf_sink, Q_V_mech_sink, Q_V_z_sink)) Q_V_source = Q_V_inf_source + Q_V_mech_source + Q_V_z_source + Q_V_win_source '(2- @@ -677,8 +677,7 @@ End If If i_count_month = 3 Then - Console.WriteLine(String.Format(":::::: Q_h_b={3},Q_sink={0},eta={1},Q_source={2},i_count_HeatCool={4}", _ - Q_sink, eta, Q_source, Q_h_b, i_count_HeatCool)) + 'Console.WriteLine(String.Format(":::::: Q_h_b={3},Q_sink={0},eta={1},Q_source={2},i_count_HeatCool={4}", Q_sink, eta, Q_source, Q_h_b, i_count_HeatCool)) End If If Q_h_b < 0.001 Then Q_h_b = 0 '1W 미만 제거 @@ -697,8 +696,7 @@ Q_h_b_op = Q_h_b * d_op_mth If i_count_month = 3 Then - Console.WriteLine(String.Format("======== Q_h_b_op={0},Q_h_b={1},d_op_mth={2}", _ - Q_h_b_op, Q_h_b, d_op_mth)) + 'Console.WriteLine(String.Format("======== Q_h_b_op={0},Q_h_b={1},d_op_mth={2}", Q_h_b_op, Q_h_b, d_op_mth)) End If ' MsgBox(i_count_month & " " & Q_h_b & " " & d_op(i_count_month) & " " & Q_h_b_op) '=================================================2010.2.21 삭제 @@ -742,7 +740,7 @@ Q_w_b = TOSG(T, DRProf.일일급탕요구량) * A_B * d_op_mth '===============d_op(i_count_month) 2010.2.21 수정 End If - Console.WriteLine(String.Format("mon={0},Q_l_b ={1},Q_w_b ={2}", i_count_month, Q_l_b, Q_w_b)) '//191120 + 'Console.WriteLine(String.Format("mon={0},Q_l_b ={1},Q_w_b ={2}", i_count_month, Q_l_b, Q_w_b)) '//191120 Dim Dr최대부하 As New C최대냉난방부하OD.Citem(DR존.code) ' DSR.최대냉난방부하Row = CType(DSETR1.최대냉난방부하.Select("zone='" & DR존.code & "'")(0), DSR.최대냉난방부하Row) @@ -820,7 +818,7 @@ If DR존.냉난방공조 = "냉난방" Or DR존.냉난방공조 = "냉방" Then '//냉난방/냉방 Dr월에너지요구량.냉방요구량열 = 0 Dr월에너지요구량.냉방요구량공조 = TOSG(T, (Q_h_b_op) / 1000) '=================== Q_h_b_we 2010.2.21 삭제 - Console.WriteLine(String.Format("+++++++ 냉방요구량공조={0},Q_h_b_op={1}", Dr월에너지요구량.냉방요구량공조, Q_h_b_op)) + 'Console.WriteLine(String.Format("+++++++ 냉방요구량공조={0},Q_h_b_op={1}", Dr월에너지요구량.냉방요구량공조, Q_h_b_op)) Else If (DR존.냉난방공조 = "난방" Or DR존.냉난방공조 = "환기") And DR존.냉난방공조 = "예" Then '//난방/환기/예 Dr월에너지요구량.냉방요구량열 = 0 @@ -834,7 +832,7 @@ End If 'MsgBox("냉방요구량" & Dr월에너지요구량.냉방요구량공조, MsgBoxStyle.Information, i_count_month & "CZONE") - End If + End If End If Next '(3) diff --git a/ArinWarev1/FORM-OD/Frm_2_Build.vb b/ArinWarev1/FORM-OD/Frm_2_Build.vb index f0984dc..4cf89ae 100644 --- a/ArinWarev1/FORM-OD/Frm_2_Build.vb +++ b/ArinWarev1/FORM-OD/Frm_2_Build.vb @@ -13,7 +13,7 @@ InitializeComponent() 'AddHandler dvProfile1.DataError, Sub(sender, e) - ' Console.WriteLine("dv error") + ' 'Console.WriteLine("dv error") ' End Sub With fxList @@ -53,7 +53,7 @@ End Sub Sub Make_형별성능내역_List(colindex As Integer) - ' Console.WriteLine("yk2") + ' 'Console.WriteLine("yk2") Dim sl As New System.Collections.SortedList() For i As Integer = 1 To DSET1.tbl_yk.Rows.Count Dim dr As DS.tbl_ykRow = DSET1.tbl_yk.Rows(i - 1) @@ -64,7 +64,7 @@ End Sub Sub Make_존분류_List(colindex As Integer) - ' Console.WriteLine("zon") + ' 'Console.WriteLine("zon") Dim sl As New System.Collections.SortedList() For i As Integer = 1 To DSET1.tbl_zone.Rows.Count Dim dr As DS.tbl_zoneRow = DSET1.tbl_zone.Rows(i - 1) @@ -75,7 +75,7 @@ End Sub Sub Make_방위_List(colindex As Integer) - ' Console.WriteLine("zon") + ' 'Console.WriteLine("zon") Dim sl As New System.Collections.SortedList() For Each dr As DS.tbl_common_odRow In DSET1.tbl_common_od.Select("gubun='1007'") sl.Add(dr.name, dr.name) @@ -86,7 +86,7 @@ Sub Make_비주거용도_List(colindex As Integer) - ' Console.WriteLine("zon") + ' 'Console.WriteLine("zon") Dim sl As New Dictionary(Of String, String) For Each dr As DS.tbl_profile_odRow In DSET1.tbl_profile_od.Select("code < 5000") sl.Add(dr.code, dr.설명) diff --git a/ArinWarev1/FORM-OD/Frm_3_Mach.vb b/ArinWarev1/FORM-OD/Frm_3_Mach.vb index 8766211..479ab38 100644 --- a/ArinWarev1/FORM-OD/Frm_3_Mach.vb +++ b/ArinWarev1/FORM-OD/Frm_3_Mach.vb @@ -734,7 +734,7 @@ Public Class Frm_3_Mach fxNanBang.Cols(colindex).DataType = GetType(String) fxNanBang.Cols(colindex).DataMap = sl - Console.WriteLine("Make_난방기기신재생_List") + 'Console.WriteLine("Make_난방기기신재생_List") Else b난방기기신재생업데이트완료 = True @@ -742,14 +742,14 @@ Public Class Frm_3_Mach - + End Sub Dim b냉방기기신재생업데이트완료 As Boolean = False Sub Make_냉방기기신재생_List(colindex As Integer) If b냉방기기신재생업데이트완료 Then Return - Console.WriteLine("Make_냉방기기신재생_List") + 'Console.WriteLine("Make_냉방기기신재생_List") 'Dim bs연결된신재생_난방 As New BindingSource(DSET1, "tbl_new") With {.Filter = filter, .Sort = "code"} 'Dim cmd연결된신재생_난방 As New ComboBox With {.DataSource = bs연결된신재생_난방, .DisplayMember = "설명", .ValueMember = "code"} @@ -898,7 +898,7 @@ Public Class Frm_3_Mach 'fxKogjo.Cols("열교환기유형").Editor = cmd열교환기유형 '//조명기기종류 형광등;LED등;기타고효율등;일반등 - ' Console.WriteLine("yk2") + ' 'Console.WriteLine("yk2") Dim sl As New Dictionary(Of String, String) '//170514 sl.Add("형광등", "형광등") sl.Add("LED등", "LED등") @@ -916,7 +916,7 @@ Public Class Frm_3_Mach fxNaengBang.Cols("증발식건식냉각기").DataMap = s2l - + End Sub @@ -1027,7 +1027,7 @@ Public Class Frm_3_Mach fxNaengBang.Cols("냉수펌프동력").AllowEditing = True End If End If - + @@ -1133,7 +1133,7 @@ Public Class Frm_3_Mach fxDanMal.Select(cellrange, True) End If - Console.WriteLine(String.Format("fxDanMal_SelChange : {0},{1}", hti.Row, hti.Column)) + 'Console.WriteLine(String.Format("fxDanMal_SelChange : {0},{1}", hti.Row, hti.Column)) End Sub Private Sub 열너비자동조정ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 열너비자동조정ToolStripMenuItem.Click diff --git a/ArinWarev1/FORM-OD/Frm_5_New.vb b/ArinWarev1/FORM-OD/Frm_5_New.vb index 4884081..412d9db 100644 --- a/ArinWarev1/FORM-OD/Frm_5_New.vb +++ b/ArinWarev1/FORM-OD/Frm_5_New.vb @@ -418,7 +418,7 @@ End Function Sub SelectIndexChange_태양광기울기(sender As Object, e As EventArgs) - Console.Write("SelectIndexChange_태양광기울기") + 'Console.Write("SelectIndexChange_태양광기울기") fxLight.FinishEditing() End Sub Private Sub Binding_Zone() diff --git a/ArinWarev1/MdiMain.vb b/ArinWarev1/MdiMain.vb index 5b00b6e..135b969 100644 --- a/ArinWarev1/MdiMain.vb +++ b/ArinWarev1/MdiMain.vb @@ -2455,10 +2455,10 @@ ENDSTAT: '// '// _ҿ䷮ P(92) = (-1 * (Result1o.E(0).귮¾翭 + Result1o.E(0).귮) - 1).ToString() - Console.WriteLine("exp report ==========") + 'Console.WriteLine("exp report ==========") For i As Integer = 1 To 99 NewDR("c" + i.ToString("000")) = P(i - 1) - Console.WriteLine("P[{0}]={1}", i, P(i - 1)) + 'Console.WriteLine("P[{0}]={1}", i, P(i - 1)) Next DSETR1.ExtReport.AddExtReportRow(NewDR) diff --git a/ArinWarev1/My Project/AssemblyInfo.vb b/ArinWarev1/My Project/AssemblyInfo.vb index a4d3c03..907e414 100644 --- a/ArinWarev1/My Project/AssemblyInfo.vb +++ b/ArinWarev1/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' 지정되도록 할 수 있습니다. ' - - + + diff --git a/ArinWarev1/REPORT-OD/Frm_v20091231_Report.vb b/ArinWarev1/REPORT-OD/Frm_v20091231_Report.vb index 66bda74..24603a6 100644 --- a/ArinWarev1/REPORT-OD/Frm_v20091231_Report.vb +++ b/ArinWarev1/REPORT-OD/Frm_v20091231_Report.vb @@ -88,7 +88,7 @@ Dim Total1(5) As Double Dim Total2 As Double '//total - Dim Total3 As Double '//etc + If Program = EProgram.총량평가 Then @@ -139,35 +139,33 @@ Multi(3) = 0.5 Multi(4) = 0.611 Case Else - Multi(0) = 0.0 - Multi(1) = 0.0 - Multi(2) = 0.0 - Multi(3) = 0.0 - Multi(4) = 0.0 - Total3 += Dr0.면적 + Multi(0) = 1.0 + Multi(1) = 1.0 + Multi(2) = 1.0 + Multi(3) = 1.0 + Multi(4) = 1.0 + End Select - Total1(0) += Dr0.면적 * Multi(0) - Total1(1) += Dr0.면적 * Multi(1) - Total1(2) += Dr0.면적 * Multi(2) - Total1(3) += Dr0.면적 * Multi(3) - Total1(4) += Dr0.면적 * Multi(4) + Total1(0) += Dr0.면적 / Multi(0) + Total1(1) += Dr0.면적 / Multi(1) + Total1(2) += Dr0.면적 / Multi(2) + Total1(3) += Dr0.면적 / Multi(3) + Total1(4) += Dr0.면적 / Multi(4) Total2 += Dr0.면적 Next - Total2 = Total2 For i As Integer = 0 To 4 If Total2 = 0 Then - Multi(i) = 0 + Multi(i) = 1 Else - Multi(i) = (Total1(i) + Total3) / Total2 '//171021 난방 + Multi(i) = Total2 / Total1(i) '//251002 수정 End If Next - Total2 = Total2 'Multi(1) = 1.0 '//냉방 'Multi(2) = 1.0 '//급탕 diff --git a/ArinWarev1/REPORT-OD/Report_검토서2.vb b/ArinWarev1/REPORT-OD/Report_검토서2.vb index f4618b2..ffe2c2e 100644 --- a/ArinWarev1/REPORT-OD/Report_검토서2.vb +++ b/ArinWarev1/REPORT-OD/Report_검토서2.vb @@ -18,7 +18,7 @@ Dim Multi(5) As Double Dim Total1(5) As Double Dim Total2 As Double '//total - Dim Total3 As Double '//etc + If Program = EProgram.총량평가 Then @@ -69,35 +69,34 @@ Multi(3) = 0.5 Multi(4) = 0.611 Case Else - Multi(0) = 0.0 - Multi(1) = 0.0 - Multi(2) = 0.0 - Multi(3) = 0.0 - Multi(4) = 0.0 - Total3 += Dr0.면적 + Multi(0) = 1.0 + Multi(1) = 1.0 + Multi(2) = 1.0 + Multi(3) = 1.0 + Multi(4) = 1.0 + End Select - Total1(0) += Dr0.면적 * Multi(0) - Total1(1) += Dr0.면적 * Multi(1) - Total1(2) += Dr0.면적 * Multi(2) - Total1(3) += Dr0.면적 * Multi(3) - Total1(4) += Dr0.면적 * Multi(4) + Total1(0) += Dr0.면적 / Multi(0) + Total1(1) += Dr0.면적 / Multi(1) + Total1(2) += Dr0.면적 / Multi(2) + Total1(3) += Dr0.면적 / Multi(3) + Total1(4) += Dr0.면적 / Multi(4) Total2 += Dr0.면적 Next - Total2 = Total2 For i As Integer = 0 To 4 If Total2 = 0 Then - Multi(i) = 0 + Multi(i) = 1 Else - Multi(i) = (Total1(i) + Total3) / Total2 '//171021 난방 + Multi(i) = Total2 / Total1(i) '//251002 수정 End If Next - Total2 = Total2 + Else Multi(0) = 1.0 Multi(1) = 1.0 diff --git a/Setup/Setup.vdproj b/Setup/Setup.vdproj index a0c3087..b1047d1 100644 --- a/Setup/Setup.vdproj +++ b/Setup/Setup.vdproj @@ -928,7 +928,7 @@ { "AssemblyRegister" = "3:1" "AssemblyIsInGAC" = "11:FALSE" - "AssemblyAsmDisplayName" = "8:Eco2OD, Version=1.2025.630.3, Culture=neutral, processorArchitecture=x86" + "AssemblyAsmDisplayName" = "8:Eco2OD, Version=1.2025.630.4, Culture=neutral, processorArchitecture=x86" "ScatterAssemblies" { "_808E81A74CBB493F9C6CDAC35D8ADC41" @@ -1296,7 +1296,7 @@ { "AssemblyRegister" = "3:1" "AssemblyIsInGAC" = "11:FALSE" - "AssemblyAsmDisplayName" = "8:mn, Version=1.0.9403.39504, Culture=neutral, processorArchitecture=MSIL" + "AssemblyAsmDisplayName" = "8:mn, Version=1.0.9465.41869, Culture=neutral, processorArchitecture=MSIL" "ScatterAssemblies" { "_D0A1428AD3AC48F3B2E7EA77C0E43B59" @@ -1581,7 +1581,7 @@ { "{3C67513D-01DD-4637-8A68-80971EB9504F}:_70048218326048E8BC7BD5710CE134C7" { - "DefaultLocation" = "8:C:\\ECO2-OD\\20250630_0003" + "DefaultLocation" = "8:C:\\ECO2-OD\\20250630_0004" "Name" = "8:#1925" "AlwaysCreate" = "11:FALSE" "Condition" = "8:" @@ -1652,7 +1652,7 @@ "Name" = "8:Microsoft Visual Studio" "ProductName" = "8:에너지평가프로그램" "ProductCode" = "8:{F6BB0814-2222-3333-8BDF-E1B81C4AB411}" - "PackageCode" = "8:{110AF908-A283-48F9-B540-18E7DF1AC397}" + "PackageCode" = "8:{A8166F67-F585-4920-B9D9-E149F6651BBE}" "UpgradeCode" = "8:{90A3D151-CCCC-1212-9E76-B1E0B7F91C88}" "AspNetVersion" = "8:2.0.50727.0" "RestartWWWService" = "11:FALSE" @@ -1774,7 +1774,7 @@ { "{970C0BB2-C7D0-45D7-ABFA-7EC378858BC0}:_74E50AF9D4F841228E92BB281C6B3536" { - "Name" = "8:ECO2OD_20250630_0003" + "Name" = "8:ECO2OD_20250630_0004" "Arguments" = "8:" "Description" = "8:" "ShowCmd" = "3:1" @@ -1788,7 +1788,7 @@ } "{970C0BB2-C7D0-45D7-ABFA-7EC378858BC0}:_AD23C0226A124D8D9D69DB9D83AABF87" { - "Name" = "8:ECO2OD_20250630_0003" + "Name" = "8:ECO2OD_20250630_0004" "Arguments" = "8:" "Description" = "8:" "ShowCmd" = "3:1"