CHeating.vb 1972번 줄 누적 문제 분석 완료
This commit is contained in:
@@ -73,8 +73,7 @@
|
|||||||
'--------------------------------------------------------------------------------------------------2010.02.22 수정
|
'--------------------------------------------------------------------------------------------------2010.02.22 수정
|
||||||
If (TOSG(T, dr공조처리.설정치난방) - theta_i_h) > 0 Then
|
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))
|
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}", _
|
'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공조처리.설정치난방))
|
||||||
V_dot_mech_m, Q_dot_h_max, c_p_Lrho_L, theta_i_h, dr공조처리.설정치난방))
|
|
||||||
Else
|
Else
|
||||||
V_dot_mech_m = 0
|
V_dot_mech_m = 0
|
||||||
End If
|
End If
|
||||||
@@ -191,7 +190,7 @@
|
|||||||
|
|
||||||
|
|
||||||
If i_count_month = 3 Then
|
If i_count_month = 3 Then
|
||||||
Console.WriteLine("sdf")
|
'Console.WriteLine("sdf")
|
||||||
End If
|
End If
|
||||||
|
|
||||||
' 공조처리
|
' 공조처리
|
||||||
@@ -270,7 +269,7 @@
|
|||||||
'If Dr존.냉난방공조처리시스템 = Dr공조.code Then ' Worksheets("공조처리시스템").Range("공조기기1").Offset(0, i_count_AHU - 1) Then
|
'If Dr존.냉난방공조처리시스템 = Dr공조.code Then ' Worksheets("공조처리시스템").Range("공조기기1").Offset(0, i_count_AHU - 1) Then
|
||||||
|
|
||||||
'If i_count_month > 4 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
|
'End If
|
||||||
|
|
||||||
If sum_kongjo = 0 Then
|
If sum_kongjo = 0 Then
|
||||||
@@ -409,7 +408,7 @@
|
|||||||
|
|
||||||
If i_count_month = 3 Then
|
If i_count_month = 3 Then
|
||||||
'//no err
|
'//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))
|
'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
|
End If
|
||||||
'If V_dot_mech_m < 0 Then
|
'If V_dot_mech_m < 0 Then
|
||||||
@@ -420,7 +419,7 @@
|
|||||||
|
|
||||||
If i_count_month = 3 Then
|
If i_count_month = 3 Then
|
||||||
'no
|
'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))
|
'V_dot_mech_m, V_dot_A, A_B))
|
||||||
End If
|
End If
|
||||||
|
|
||||||
@@ -530,8 +529,7 @@
|
|||||||
|
|
||||||
|
|
||||||
If i_count_month = 3 Then
|
If i_count_month = 3 Then
|
||||||
Console.WriteLine(String.Format("----------- Drow분석(0).냉방요구량공조={0},ea_kongjo={1}", _
|
'Console.WriteLine(String.Format("----------- Drow분석(0).냉방요구량공조={0},ea_kongjo={1}", Drow분석(0).냉방요구량공조, ea_kongjo))
|
||||||
Drow분석(0).냉방요구량공조, ea_kongjo))
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
'------------------------------------------------------------------------------------------------------------------------------------------
|
'------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
@@ -606,8 +604,7 @@
|
|||||||
'End If
|
'End If
|
||||||
|
|
||||||
If i_count_month = 3 Then
|
If i_count_month = 3 Then
|
||||||
Console.WriteLine(String.Format("***** theta_ZUL_so={0},theta_AUL={1}", _
|
'Console.WriteLine(String.Format("***** theta_ZUL_so={0},theta_AUL={1}", theta_ZUL_so, theta_AUL))
|
||||||
theta_ZUL_so, theta_AUL))
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If theta_ZUL_so > theta_AUL Then ' Worksheets("공조처리시스템").Range("공조방식1").Offset(6, i_count_AHU - 1) = "유" Then
|
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
|
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}", _
|
'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))
|
||||||
V_dot_mech_m, d_V_mech_m, c_p_Lrho_L))
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
@@ -656,7 +652,7 @@
|
|||||||
Q_V_E_ABL_m += P_V_ABL_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
|
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
|
End If
|
||||||
|
|
||||||
Case "변풍량" '변풍량"
|
Case "변풍량" '변풍량"
|
||||||
@@ -689,11 +685,10 @@
|
|||||||
Q_V_E_ABL_m += P_V_ABL_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
|
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(">>> 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}", _
|
'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))
|
||||||
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
|
End If
|
||||||
|
|
||||||
@@ -715,7 +710,7 @@
|
|||||||
Q_V_E_ZUL_m += P_V_ZUL_m * t_V_mech_m * d_V_mech_m '(3.2.5-10) 정풍량
|
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) 정풍량
|
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
|
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
|
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
|
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
|
If i_count_month = 3 Then
|
||||||
'Console.WriteLine(String.Format("문제의 {0}월", i_count_month))
|
''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}, {1}, {2}", i_count_month, Q_V_E_ZUL_m, Q_V_E_ABL_m))
|
||||||
End If
|
End If
|
||||||
'==========================================================================================================================================
|
'==========================================================================================================================================
|
||||||
'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
|
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
|
'Sheets("" & i_count_month & "").Cells(25, 7 + i_count_zone) = Q_V_E_ZUL_m + Q_V_E_ABL_m
|
||||||
End If
|
End If
|
||||||
Else
|
Else
|
||||||
|
|||||||
@@ -85,7 +85,7 @@
|
|||||||
For Each dr냉방 As DS.tbl_nangbangkikiRow In DSET1.tbl_nangbangkiki.Select("code<>'0'", "code")
|
For Each dr냉방 As DS.tbl_nangbangkikiRow In DSET1.tbl_nangbangkiki.Select("code<>'0'", "code")
|
||||||
|
|
||||||
'log.debug(String.format("cool title=%s", drCooling.getCode()));
|
'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())
|
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")
|
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())
|
Dim Drow분석() As DSR.월별에너지분석Row = CType(DSETR1.월별에너지분석.Select("월='" & Mon & "' and 존='" & Dr존.code & "'"), DSR.월별에너지분석Row())
|
||||||
' 존데이터를가져올떄 해당 냉방기기에서 사용한 존만 가져왔따.
|
' 존데이터를가져올떄 해당 냉방기기에서 사용한 존만 가져왔따.
|
||||||
@@ -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
|
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
|
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));
|
'log.debug(String.format("=>coolin mon=%s, gcf=%s, elect=%s", i_count_month, Q_c_f,use_Elec));
|
||||||
|
|
||||||
'// 냉수, 냉각수 분배
|
'// 냉수, 냉각수 분배
|
||||||
@@ -586,10 +586,10 @@
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
'Console.WriteLine("loop 2")
|
''Console.WriteLine("loop 2")
|
||||||
|
|
||||||
End If '2
|
End If '2
|
||||||
'Console.WriteLine("loop 1")
|
''Console.WriteLine("loop 1")
|
||||||
Next '1
|
Next '1
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@@ -470,7 +470,7 @@
|
|||||||
Result1o.일차E소요량(i_count_month).급탕전력 = use_Elec
|
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));
|
'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
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
@@ -708,6 +708,7 @@
|
|||||||
Select Case Dr난방.열생산기기방식.Trim.ToUpper
|
Select Case Dr난방.열생산기기방식.Trim.ToUpper
|
||||||
Case "보일러"
|
Case "보일러"
|
||||||
비율 = TOSG(T, Dr난방.보일러정격출력) * TOSG(T, Dr난방.보일러대수) / 보일러정격출력합
|
비율 = TOSG(T, Dr난방.보일러정격출력) * TOSG(T, Dr난방.보일러대수) / 보일러정격출력합
|
||||||
|
'Console.WriteLine(Dr난방.보일러대수.ToString() + "/" + 보일러정격출력합.ToString() + ",비율" + 비율.ToString())
|
||||||
Case "지역난방"
|
Case "지역난방"
|
||||||
Dr난방.열교환기정격출력 = Dr난방.보일러정격출력 '======2017.12.20 추가
|
Dr난방.열교환기정격출력 = Dr난방.보일러정격출력 '======2017.12.20 추가
|
||||||
비율 = TOSG(T, Dr난방.열교환기정격출력) * TOSG(T, Dr난방.보일러대수) / 보일러정격출력합
|
비율 = TOSG(T, Dr난방.열교환기정격출력) * TOSG(T, Dr난방.보일러대수) / 보일러정격출력합
|
||||||
@@ -819,7 +820,7 @@
|
|||||||
Result1o.일차E소요량(i_count_month).난방전력 = use_Elec
|
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))
|
'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
|
End Sub
|
||||||
|
|
||||||
Private Sub Calc_난방_개별기기미적용시(dr난방 As DS.tbl_nanbangkikiRow, mon As String, 비율 As Decimal, i_count_month As Integer, theta_e As Decimal)
|
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)
|
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_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
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
@@ -1816,7 +1817,7 @@
|
|||||||
H_DS = TOSG(B_DS * Psi_DS ^ (1 / 3))
|
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 수정
|
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 수정
|
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
|
End If
|
||||||
|
|
||||||
|
|
||||||
@@ -1970,6 +1971,9 @@
|
|||||||
Case "천연가스" '천연가스"
|
Case "천연가스" '천연가스"
|
||||||
use_LNG = use_LNG + (Q_h_outg_i + Q_h_g_i) * system_count '========2013.08.18 수정
|
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 "액화가스" '액화가스"
|
Case "액화가스" '액화가스"
|
||||||
use_LPG = use_LPG + (Q_h_outg_i + Q_h_g_i) * system_count '========2013.08.18 수정
|
use_LPG = use_LPG + (Q_h_outg_i + Q_h_g_i) * system_count '========2013.08.18 수정
|
||||||
|
|
||||||
|
|||||||
@@ -334,7 +334,7 @@
|
|||||||
a10 = a10 + Dr.공조요구량냉방
|
a10 = a10 + Dr.공조요구량냉방
|
||||||
a11 = a11 + Dr.공조요구량가습
|
a11 = a11 + Dr.공조요구량가습
|
||||||
a12 = a12 + 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
|
Next
|
||||||
|
|
||||||
'Me.에너지요구량 = a2 + a3 + a4 + a5 + a6 + a7 ㅇ건 Readonlye 로 계산한다.
|
'Me.에너지요구량 = a2 + a3 + a4 + a5 + a6 + a7 ㅇ건 Readonlye 로 계산한다.
|
||||||
|
|||||||
@@ -54,7 +54,7 @@
|
|||||||
I7 += Result1o.일차E소요량(i).급탕전력
|
I7 += Result1o.일차E소요량(i).급탕전력
|
||||||
I8 += 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
|
Next
|
||||||
|
|
||||||
Me.난방 = I10
|
Me.난방 = I10
|
||||||
|
|||||||
@@ -108,7 +108,7 @@
|
|||||||
For i_count_month As Short = 0 To 12 '(2) --월전체의 루프?
|
For i_count_month As Short = 0 To 12 '(2) --월전체의 루프?
|
||||||
|
|
||||||
'If i_count_HeatCool = 1 AndAlso i_count_month = 1 Then
|
'If i_count_HeatCool = 1 AndAlso i_count_month = 1 Then
|
||||||
' Console.WriteLine("col")
|
' 'Console.WriteLine("col")
|
||||||
'End If
|
'End If
|
||||||
|
|
||||||
Work_msg("요구량계산중..." & CStr(IIf(i_count_HeatCool = 1, "난방", "냉방")) & "(" & i_count_month & "/12)") : Work_plus()
|
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)
|
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-
|
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
|
End If
|
||||||
|
|
||||||
If i_count_month = 3 Then
|
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}", _
|
'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))
|
||||||
Q_sink, eta, Q_source, Q_h_b, i_count_HeatCool))
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If Q_h_b < 0.001 Then Q_h_b = 0 '1W 미만 제거
|
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
|
Q_h_b_op = Q_h_b * d_op_mth
|
||||||
|
|
||||||
If i_count_month = 3 Then
|
If i_count_month = 3 Then
|
||||||
Console.WriteLine(String.Format("======== Q_h_b_op={0},Q_h_b={1},d_op_mth={2}", _
|
'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))
|
||||||
Q_h_b_op, Q_h_b, d_op_mth))
|
|
||||||
End If
|
End If
|
||||||
' MsgBox(i_count_month & " " & Q_h_b & " " & d_op(i_count_month) & " " & Q_h_b_op)
|
' MsgBox(i_count_month & " " & Q_h_b & " " & d_op(i_count_month) & " " & Q_h_b_op)
|
||||||
'=================================================2010.2.21 삭제
|
'=================================================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 수정
|
Q_w_b = TOSG(T, DRProf.일일급탕요구량) * A_B * d_op_mth '===============d_op(i_count_month) 2010.2.21 수정
|
||||||
End If
|
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)
|
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 '//냉난방/냉방
|
If DR존.냉난방공조 = "냉난방" Or DR존.냉난방공조 = "냉방" Then '//냉난방/냉방
|
||||||
Dr월에너지요구량.냉방요구량열 = 0
|
Dr월에너지요구량.냉방요구량열 = 0
|
||||||
Dr월에너지요구량.냉방요구량공조 = TOSG(T, (Q_h_b_op) / 1000) '=================== Q_h_b_we 2010.2.21 삭제
|
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
|
Else
|
||||||
If (DR존.냉난방공조 = "난방" Or DR존.냉난방공조 = "환기") And DR존.냉난방공조 = "예" Then '//난방/환기/예
|
If (DR존.냉난방공조 = "난방" Or DR존.냉난방공조 = "환기") And DR존.냉난방공조 = "예" Then '//난방/환기/예
|
||||||
Dr월에너지요구량.냉방요구량열 = 0
|
Dr월에너지요구량.냉방요구량열 = 0
|
||||||
|
|||||||
@@ -13,7 +13,7 @@
|
|||||||
InitializeComponent()
|
InitializeComponent()
|
||||||
|
|
||||||
'AddHandler dvProfile1.DataError, Sub(sender, e)
|
'AddHandler dvProfile1.DataError, Sub(sender, e)
|
||||||
' Console.WriteLine("dv error")
|
' 'Console.WriteLine("dv error")
|
||||||
' End Sub
|
' End Sub
|
||||||
|
|
||||||
With fxList
|
With fxList
|
||||||
@@ -53,7 +53,7 @@
|
|||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Sub Make_형별성능내역_List(colindex As Integer)
|
Sub Make_형별성능내역_List(colindex As Integer)
|
||||||
' Console.WriteLine("yk2")
|
' 'Console.WriteLine("yk2")
|
||||||
Dim sl As New System.Collections.SortedList()
|
Dim sl As New System.Collections.SortedList()
|
||||||
For i As Integer = 1 To DSET1.tbl_yk.Rows.Count
|
For i As Integer = 1 To DSET1.tbl_yk.Rows.Count
|
||||||
Dim dr As DS.tbl_ykRow = DSET1.tbl_yk.Rows(i - 1)
|
Dim dr As DS.tbl_ykRow = DSET1.tbl_yk.Rows(i - 1)
|
||||||
@@ -64,7 +64,7 @@
|
|||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Sub Make_존분류_List(colindex As Integer)
|
Sub Make_존분류_List(colindex As Integer)
|
||||||
' Console.WriteLine("zon")
|
' 'Console.WriteLine("zon")
|
||||||
Dim sl As New System.Collections.SortedList()
|
Dim sl As New System.Collections.SortedList()
|
||||||
For i As Integer = 1 To DSET1.tbl_zone.Rows.Count
|
For i As Integer = 1 To DSET1.tbl_zone.Rows.Count
|
||||||
Dim dr As DS.tbl_zoneRow = DSET1.tbl_zone.Rows(i - 1)
|
Dim dr As DS.tbl_zoneRow = DSET1.tbl_zone.Rows(i - 1)
|
||||||
@@ -75,7 +75,7 @@
|
|||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Sub Make_방위_List(colindex As Integer)
|
Sub Make_방위_List(colindex As Integer)
|
||||||
' Console.WriteLine("zon")
|
' 'Console.WriteLine("zon")
|
||||||
Dim sl As New System.Collections.SortedList()
|
Dim sl As New System.Collections.SortedList()
|
||||||
For Each dr As DS.tbl_common_odRow In DSET1.tbl_common_od.Select("gubun='1007'")
|
For Each dr As DS.tbl_common_odRow In DSET1.tbl_common_od.Select("gubun='1007'")
|
||||||
sl.Add(dr.name, dr.name)
|
sl.Add(dr.name, dr.name)
|
||||||
@@ -86,7 +86,7 @@
|
|||||||
|
|
||||||
|
|
||||||
Sub Make_비주거용도_List(colindex As Integer)
|
Sub Make_비주거용도_List(colindex As Integer)
|
||||||
' Console.WriteLine("zon")
|
' 'Console.WriteLine("zon")
|
||||||
Dim sl As New Dictionary(Of String, String)
|
Dim sl As New Dictionary(Of String, String)
|
||||||
For Each dr As DS.tbl_profile_odRow In DSET1.tbl_profile_od.Select("code < 5000")
|
For Each dr As DS.tbl_profile_odRow In DSET1.tbl_profile_od.Select("code < 5000")
|
||||||
sl.Add(dr.code, dr.설명)
|
sl.Add(dr.code, dr.설명)
|
||||||
|
|||||||
@@ -734,7 +734,7 @@ Public Class Frm_3_Mach
|
|||||||
fxNanBang.Cols(colindex).DataType = GetType(String)
|
fxNanBang.Cols(colindex).DataType = GetType(String)
|
||||||
fxNanBang.Cols(colindex).DataMap = sl
|
fxNanBang.Cols(colindex).DataMap = sl
|
||||||
|
|
||||||
Console.WriteLine("Make_난방기기신재생_List")
|
'Console.WriteLine("Make_난방기기신재생_List")
|
||||||
|
|
||||||
Else
|
Else
|
||||||
b난방기기신재생업데이트완료 = True
|
b난방기기신재생업데이트완료 = True
|
||||||
@@ -749,7 +749,7 @@ Public Class Frm_3_Mach
|
|||||||
Sub Make_냉방기기신재생_List(colindex As Integer)
|
Sub Make_냉방기기신재생_List(colindex As Integer)
|
||||||
If b냉방기기신재생업데이트완료 Then Return
|
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 bs연결된신재생_난방 As New BindingSource(DSET1, "tbl_new") With {.Filter = filter, .Sort = "code"}
|
||||||
'Dim cmd연결된신재생_난방 As New ComboBox With {.DataSource = bs연결된신재생_난방, .DisplayMember = "설명", .ValueMember = "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열교환기유형
|
'fxKogjo.Cols("열교환기유형").Editor = cmd열교환기유형
|
||||||
|
|
||||||
'//조명기기종류 형광등;LED등;기타고효율등;일반등
|
'//조명기기종류 형광등;LED등;기타고효율등;일반등
|
||||||
' Console.WriteLine("yk2")
|
' 'Console.WriteLine("yk2")
|
||||||
Dim sl As New Dictionary(Of String, String) '//170514
|
Dim sl As New Dictionary(Of String, String) '//170514
|
||||||
sl.Add("형광등", "형광등")
|
sl.Add("형광등", "형광등")
|
||||||
sl.Add("LED등", "LED등")
|
sl.Add("LED등", "LED등")
|
||||||
@@ -1133,7 +1133,7 @@ Public Class Frm_3_Mach
|
|||||||
fxDanMal.Select(cellrange, True)
|
fxDanMal.Select(cellrange, True)
|
||||||
|
|
||||||
End If
|
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
|
End Sub
|
||||||
|
|
||||||
Private Sub 열너비자동조정ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 열너비자동조정ToolStripMenuItem.Click
|
Private Sub 열너비자동조정ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 열너비자동조정ToolStripMenuItem.Click
|
||||||
|
|||||||
@@ -418,7 +418,7 @@
|
|||||||
End Function
|
End Function
|
||||||
|
|
||||||
Sub SelectIndexChange_태양광기울기(sender As Object, e As EventArgs)
|
Sub SelectIndexChange_태양광기울기(sender As Object, e As EventArgs)
|
||||||
Console.Write("SelectIndexChange_태양광기울기")
|
'Console.Write("SelectIndexChange_태양광기울기")
|
||||||
fxLight.FinishEditing()
|
fxLight.FinishEditing()
|
||||||
End Sub
|
End Sub
|
||||||
Private Sub Binding_Zone()
|
Private Sub Binding_Zone()
|
||||||
|
|||||||
@@ -2455,10 +2455,10 @@ ENDSTAT: '//
|
|||||||
'//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> _<>ҿ䷮
|
'//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> _<>ҿ䷮
|
||||||
P(92) = (-1 * (Result1o.<EFBFBD><EFBFBD><EFBFBD><EFBFBD>E(0).<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>귮<EFBFBD>¾翭 + Result1o.<EFBFBD><EFBFBD><EFBFBD><EFBFBD>E(0).<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>귮<EFBFBD><EFBFBD><EFBFBD><EFBFBD>) - <EFBFBD><EFBFBD><EFBFBD><EFBFBD>1).ToString()
|
P(92) = (-1 * (Result1o.<EFBFBD><EFBFBD><EFBFBD><EFBFBD>E(0).<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>귮<EFBFBD>¾翭 + Result1o.<EFBFBD><EFBFBD><EFBFBD><EFBFBD>E(0).<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>귮<EFBFBD><EFBFBD><EFBFBD><EFBFBD>) - <EFBFBD><EFBFBD><EFBFBD><EFBFBD>1).ToString()
|
||||||
|
|
||||||
Console.WriteLine("exp report ==========")
|
'Console.WriteLine("exp report ==========")
|
||||||
For i As Integer = 1 To 99
|
For i As Integer = 1 To 99
|
||||||
NewDR("c" + i.ToString("000")) = P(i - 1)
|
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
|
Next
|
||||||
|
|
||||||
DSETR1.ExtReport.AddExtReportRow(NewDR)
|
DSETR1.ExtReport.AddExtReportRow(NewDR)
|
||||||
|
|||||||
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
|
|||||||
' 지정되도록 할 수 있습니다.
|
' 지정되도록 할 수 있습니다.
|
||||||
' <Assembly: AssemblyVersion("1.0.*")>
|
' <Assembly: AssemblyVersion("1.0.*")>
|
||||||
|
|
||||||
<Assembly: AssemblyVersion("1.2025.0630.0003")>
|
<Assembly: AssemblyVersion("1.2025.0630.0004")>
|
||||||
<Assembly: AssemblyFileVersion("1.2025.0630.0003")>
|
<Assembly: AssemblyFileVersion("1.2025.0630.0004")>
|
||||||
|
|||||||
@@ -88,7 +88,7 @@
|
|||||||
|
|
||||||
Dim Total1(5) As Double
|
Dim Total1(5) As Double
|
||||||
Dim Total2 As Double '//total
|
Dim Total2 As Double '//total
|
||||||
Dim Total3 As Double '//etc
|
|
||||||
|
|
||||||
If Program = EProgram.총량평가 Then
|
If Program = EProgram.총량평가 Then
|
||||||
|
|
||||||
@@ -139,35 +139,33 @@
|
|||||||
Multi(3) = 0.5
|
Multi(3) = 0.5
|
||||||
Multi(4) = 0.611
|
Multi(4) = 0.611
|
||||||
Case Else
|
Case Else
|
||||||
Multi(0) = 0.0
|
Multi(0) = 1.0
|
||||||
Multi(1) = 0.0
|
Multi(1) = 1.0
|
||||||
Multi(2) = 0.0
|
Multi(2) = 1.0
|
||||||
Multi(3) = 0.0
|
Multi(3) = 1.0
|
||||||
Multi(4) = 0.0
|
Multi(4) = 1.0
|
||||||
Total3 += Dr0.면적
|
|
||||||
End Select
|
End Select
|
||||||
|
|
||||||
Total1(0) += Dr0.면적 * Multi(0)
|
Total1(0) += Dr0.면적 / Multi(0)
|
||||||
Total1(1) += Dr0.면적 * Multi(1)
|
Total1(1) += Dr0.면적 / Multi(1)
|
||||||
Total1(2) += Dr0.면적 * Multi(2)
|
Total1(2) += Dr0.면적 / Multi(2)
|
||||||
Total1(3) += Dr0.면적 * Multi(3)
|
Total1(3) += Dr0.면적 / Multi(3)
|
||||||
Total1(4) += Dr0.면적 * Multi(4)
|
Total1(4) += Dr0.면적 / Multi(4)
|
||||||
|
|
||||||
Total2 += Dr0.면적
|
Total2 += Dr0.면적
|
||||||
|
|
||||||
Next
|
Next
|
||||||
|
|
||||||
Total2 = Total2
|
|
||||||
|
|
||||||
For i As Integer = 0 To 4
|
For i As Integer = 0 To 4
|
||||||
If Total2 = 0 Then
|
If Total2 = 0 Then
|
||||||
Multi(i) = 0
|
Multi(i) = 1
|
||||||
Else
|
Else
|
||||||
Multi(i) = (Total1(i) + Total3) / Total2 '//171021 난방
|
Multi(i) = Total2 / Total1(i) '//251002 수정
|
||||||
End If
|
End If
|
||||||
Next
|
Next
|
||||||
|
|
||||||
Total2 = Total2
|
|
||||||
|
|
||||||
'Multi(1) = 1.0 '//냉방
|
'Multi(1) = 1.0 '//냉방
|
||||||
'Multi(2) = 1.0 '//급탕
|
'Multi(2) = 1.0 '//급탕
|
||||||
|
|||||||
@@ -18,7 +18,7 @@
|
|||||||
Dim Multi(5) As Double
|
Dim Multi(5) As Double
|
||||||
Dim Total1(5) As Double
|
Dim Total1(5) As Double
|
||||||
Dim Total2 As Double '//total
|
Dim Total2 As Double '//total
|
||||||
Dim Total3 As Double '//etc
|
|
||||||
|
|
||||||
If Program = EProgram.총량평가 Then
|
If Program = EProgram.총량평가 Then
|
||||||
|
|
||||||
@@ -69,35 +69,34 @@
|
|||||||
Multi(3) = 0.5
|
Multi(3) = 0.5
|
||||||
Multi(4) = 0.611
|
Multi(4) = 0.611
|
||||||
Case Else
|
Case Else
|
||||||
Multi(0) = 0.0
|
Multi(0) = 1.0
|
||||||
Multi(1) = 0.0
|
Multi(1) = 1.0
|
||||||
Multi(2) = 0.0
|
Multi(2) = 1.0
|
||||||
Multi(3) = 0.0
|
Multi(3) = 1.0
|
||||||
Multi(4) = 0.0
|
Multi(4) = 1.0
|
||||||
Total3 += Dr0.면적
|
|
||||||
End Select
|
End Select
|
||||||
|
|
||||||
Total1(0) += Dr0.면적 * Multi(0)
|
Total1(0) += Dr0.면적 / Multi(0)
|
||||||
Total1(1) += Dr0.면적 * Multi(1)
|
Total1(1) += Dr0.면적 / Multi(1)
|
||||||
Total1(2) += Dr0.면적 * Multi(2)
|
Total1(2) += Dr0.면적 / Multi(2)
|
||||||
Total1(3) += Dr0.면적 * Multi(3)
|
Total1(3) += Dr0.면적 / Multi(3)
|
||||||
Total1(4) += Dr0.면적 * Multi(4)
|
Total1(4) += Dr0.면적 / Multi(4)
|
||||||
|
|
||||||
Total2 += Dr0.면적
|
Total2 += Dr0.면적
|
||||||
|
|
||||||
Next
|
Next
|
||||||
|
|
||||||
Total2 = Total2
|
|
||||||
|
|
||||||
For i As Integer = 0 To 4
|
For i As Integer = 0 To 4
|
||||||
If Total2 = 0 Then
|
If Total2 = 0 Then
|
||||||
Multi(i) = 0
|
Multi(i) = 1
|
||||||
Else
|
Else
|
||||||
Multi(i) = (Total1(i) + Total3) / Total2 '//171021 난방
|
Multi(i) = Total2 / Total1(i) '//251002 수정
|
||||||
End If
|
End If
|
||||||
Next
|
Next
|
||||||
|
|
||||||
Total2 = Total2
|
|
||||||
Else
|
Else
|
||||||
Multi(0) = 1.0
|
Multi(0) = 1.0
|
||||||
Multi(1) = 1.0
|
Multi(1) = 1.0
|
||||||
|
|||||||
@@ -928,7 +928,7 @@
|
|||||||
{
|
{
|
||||||
"AssemblyRegister" = "3:1"
|
"AssemblyRegister" = "3:1"
|
||||||
"AssemblyIsInGAC" = "11:FALSE"
|
"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"
|
"ScatterAssemblies"
|
||||||
{
|
{
|
||||||
"_808E81A74CBB493F9C6CDAC35D8ADC41"
|
"_808E81A74CBB493F9C6CDAC35D8ADC41"
|
||||||
@@ -1296,7 +1296,7 @@
|
|||||||
{
|
{
|
||||||
"AssemblyRegister" = "3:1"
|
"AssemblyRegister" = "3:1"
|
||||||
"AssemblyIsInGAC" = "11:FALSE"
|
"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"
|
"ScatterAssemblies"
|
||||||
{
|
{
|
||||||
"_D0A1428AD3AC48F3B2E7EA77C0E43B59"
|
"_D0A1428AD3AC48F3B2E7EA77C0E43B59"
|
||||||
@@ -1581,7 +1581,7 @@
|
|||||||
{
|
{
|
||||||
"{3C67513D-01DD-4637-8A68-80971EB9504F}:_70048218326048E8BC7BD5710CE134C7"
|
"{3C67513D-01DD-4637-8A68-80971EB9504F}:_70048218326048E8BC7BD5710CE134C7"
|
||||||
{
|
{
|
||||||
"DefaultLocation" = "8:C:\\ECO2-OD\\20250630_0003"
|
"DefaultLocation" = "8:C:\\ECO2-OD\\20250630_0004"
|
||||||
"Name" = "8:#1925"
|
"Name" = "8:#1925"
|
||||||
"AlwaysCreate" = "11:FALSE"
|
"AlwaysCreate" = "11:FALSE"
|
||||||
"Condition" = "8:"
|
"Condition" = "8:"
|
||||||
@@ -1652,7 +1652,7 @@
|
|||||||
"Name" = "8:Microsoft Visual Studio"
|
"Name" = "8:Microsoft Visual Studio"
|
||||||
"ProductName" = "8:에너지평가프로그램"
|
"ProductName" = "8:에너지평가프로그램"
|
||||||
"ProductCode" = "8:{F6BB0814-2222-3333-8BDF-E1B81C4AB411}"
|
"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}"
|
"UpgradeCode" = "8:{90A3D151-CCCC-1212-9E76-B1E0B7F91C88}"
|
||||||
"AspNetVersion" = "8:2.0.50727.0"
|
"AspNetVersion" = "8:2.0.50727.0"
|
||||||
"RestartWWWService" = "11:FALSE"
|
"RestartWWWService" = "11:FALSE"
|
||||||
@@ -1774,7 +1774,7 @@
|
|||||||
{
|
{
|
||||||
"{970C0BB2-C7D0-45D7-ABFA-7EC378858BC0}:_74E50AF9D4F841228E92BB281C6B3536"
|
"{970C0BB2-C7D0-45D7-ABFA-7EC378858BC0}:_74E50AF9D4F841228E92BB281C6B3536"
|
||||||
{
|
{
|
||||||
"Name" = "8:ECO2OD_20250630_0003"
|
"Name" = "8:ECO2OD_20250630_0004"
|
||||||
"Arguments" = "8:"
|
"Arguments" = "8:"
|
||||||
"Description" = "8:"
|
"Description" = "8:"
|
||||||
"ShowCmd" = "3:1"
|
"ShowCmd" = "3:1"
|
||||||
@@ -1788,7 +1788,7 @@
|
|||||||
}
|
}
|
||||||
"{970C0BB2-C7D0-45D7-ABFA-7EC378858BC0}:_AD23C0226A124D8D9D69DB9D83AABF87"
|
"{970C0BB2-C7D0-45D7-ABFA-7EC378858BC0}:_AD23C0226A124D8D9D69DB9D83AABF87"
|
||||||
{
|
{
|
||||||
"Name" = "8:ECO2OD_20250630_0003"
|
"Name" = "8:ECO2OD_20250630_0004"
|
||||||
"Arguments" = "8:"
|
"Arguments" = "8:"
|
||||||
"Description" = "8:"
|
"Description" = "8:"
|
||||||
"ShowCmd" = "3:1"
|
"ShowCmd" = "3:1"
|
||||||
|
|||||||
Reference in New Issue
Block a user