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

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)