KICT/ECO2-OD
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

CHeating.vb 1972번 줄 누적 문제 분석 완료

Browse Source
This commit is contained in:
ykh
2025-11-30 23:52:50 +09:00
parent 2a69feb29a
commit b47cf354b3
14 changed files with 100 additions and 106 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
ArinWarev1/Calculator-OD/AirHandling/CAirHandling.vb
View File

@@ -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

14
ArinWarev1/Calculator-OD/Cooling/CCooling.vb
View File

@@ -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

22
ArinWarev1/Calculator-OD/Heating/CHeating.vb
View File

@@ -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 수정

2
ArinWarev1/Calculator-OD/Result/C에너지분석.vb
View File

@@ -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 로 계산한다.

2
ArinWarev1/Calculator-OD/Result/C에너지소요량.vb
View File

@@ -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

16
ArinWarev1/Calculator-OD/Zone/CZone.vb
View File

@@ -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)

10
ArinWarev1/FORM-OD/Frm_2_Build.vb
View File

@@ -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.설명)

14
ArinWarev1/FORM-OD/Frm_3_Mach.vb
View File

@@ -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

2
ArinWarev1/FORM-OD/Frm_5_New.vb
View File

@@ -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()

4
ArinWarev1/MdiMain.vb
View File

@@ -2455,10 +2455,10 @@ ENDSTAT: '//
'//<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()
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)

4
ArinWarev1/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' 지정되도록 할 수 있습니다.
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.2025.0630.0003")>
<Assembly: AssemblyFileVersion("1.2025.0630.0003")>
<Assembly: AssemblyVersion("1.2025.0630.0004")>
<Assembly: AssemblyFileVersion("1.2025.0630.0004")>

30
ArinWarev1/REPORT-OD/Frm_v20091231_Report.vb
View File

@@ -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 '//급탕

31
ArinWarev1/REPORT-OD/Report_검토서2.vb
View File

@@ -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

12
Setup/Setup.vdproj
View File

@@ -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"