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

통합본 작성

Browse Source
This commit is contained in:
ykh
2025-09-28 22:13:37 +09:00
parent 27704968e6
commit 2bf95ec258
12 changed files with 556 additions and 437 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -378,6 +378,7 @@
Case "전기보일러" '전기보일러"
use_Elec = use_Elec + Q_w_outg_i + Q_w_g_i + (Q_w_outg_i * 0.09)
Q_w_outg = Q_w_outg + (Q_w_outg_i * 0.09) '========2023.11.12 수정
'====================================================================================2010.03.14 추가
Case "히트펌프"
@@ -1825,17 +1826,43 @@
' 전기보조에너지 Q_h_d_aux 산출 관련
P_Pump = TOSG(dr난방.펌프동력) ' Worksheets("난방기기").Range("난방펌프제어유형1").Offset(1, i_count_boiler - 1)
'Select Case dr난방.펌프제어유형.Trim ' Worksheets("난방기기").Range("난방펌프제어유형1").Offset(0, i_count_boiler - 1)
' Case "비제어" '비제어"
c_p1 = 0.25
c_p2 = 0.75
' Case "정압" '정압"
' c_p1 = 0.75
' c_p2 = 0.25
' Case "변압" '변압"
' c_p1 = 0.9
' c_p2 = 0.1
'End Select
If Program = EProgram.친환경평가 Then
'Select Case dr난방.펌프제어유형.Trim ' Worksheets("난방기기").Range("난방펌프제어유형1").Offset(0, i_count_boiler - 1)
' Case "비제어" '비제어"
c_p1 = 0.25
c_p2 = 0.75
' Case "정압" '정압"
' c_p1 = 0.75
' c_p2 = 0.25
' Case "변압" '변압"
' c_p1 = 0.9
' c_p2 = 0.1
'End Select
f_P_A = 1
Else
Select Case dr난방.펌프제어유형.Trim() ' Worksheets("난방기기").Range("난방펌프제어유형1").Offset(0, i_count_boiler - 1)
Case "정압" '정압"
c_p1 = 0.75
c_p2 = 0.25
Case "변압" '변압"
c_p1 = 0.9
c_p2 = 0.1
Case Else
c_p1 = 0.25
c_p2 = 0.75
End Select
f_P_A = 0.6
End If
If beta_h_d = 0 Then
Q_h_d_aux_i = 0
@@ -1843,13 +1870,6 @@
Q_h_d_aux_i = P_Pump * beta_h_d * t_h * (c_p1 + c_p2 / beta_h_d) '(3.2.7-39)
End If
If Program = EProgram.친환경평가 Then
f_P_A = 1
Else
f_P_A = 0.6
End If
'Select Case dr난방.펌프교정계수.Trim ' Worksheets("난방기기").Range("난방펌프교정계수1").Offset(0, i_count_boiler - 1)