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

user id DB로그인 안되게 수정

Browse Source 
디버깅이안되는 현상 있음
This commit is contained in:
chi
2022-10-05 13:09:18 +09:00
parent e530774e0b
commit a07b0678de
46 changed files with 12484 additions and 4386 deletions
Download Patch File Download Diff File Expand all files Collapse all files

109
ArinWarev1/Calculator/CHeating.vb
View File

@@ -102,7 +102,8 @@
'태양광 시스템
Dim Calc_태양 As New CRenewable(DSET, Result) : Calc_태양.Calc_PhotovoltaicSystem_EN(i_count_month, d_mth)
'풍력 시스템
Dim Calc_풍력 As New CRenewable(DSET, Result) : Calc_풍력.Calc_WindPowerGenerationSystem(i_count_month, d_mth)
Dim 급탕용량합 As Decimal = 0
For Each Dr난방 As DS.tbl_nanbangkikiRow In DSET.tbl_nanbangkiki.Select("code<>'0' and 헤더적용=true", "code")
@@ -460,6 +461,31 @@
use_Elec = use_Elec + Q_w_g_hp_aux * system_count '===========2013.08.18 수정
Q_w_f = Q_w_f + (Q_w_f_hp + Q_w_g_hp_aux) * system_count '============================2010.04.17 추가, 2013.08.18 수정
End Select
Case "수열" '//수열
Select Case dr신재생.가동연료.Trim
Case "전기" '전기"
CRenew.Calc_HydroHeatpumpSystem(system_type, 3, dr신재생, Q_w_outg_i, i_count_month, d_op_max_mth, t_h, theta_g_m, theta_i, Q_wp_outg, Q_w_f_hp, Q_w_g_hp_aux) '=============2010.04.01 수정 Q_h_outg 를 Q_h_outg_i 로 수정
Q_w_outg = Q_w_outg - Q_wp_outg
Q_w_outg_i = Q_w_outg_i - Q_wp_outg
use_Elec = use_Elec + (Q_w_f_hp + Q_w_g_hp_aux) * system_count '===========2013.08.18 수정
Q_w_f = Q_w_f + (Q_w_f_hp + Q_w_g_hp_aux) * system_count '============================2010.04.17 추가, 2013.08.18 수정
Case "천연가스" '천연가스"
CRenew.Calc_HydroHeatpumpSystem(system_type, 3, dr신재생, Q_w_outg_i, i_count_month, d_op_max_mth, t_h, theta_g_m, theta_i, Q_wp_outg, Q_w_f_hp, Q_w_g_hp_aux) '=============2010.04.01 수정 Q_h_outg 를 Q_h_outg_i 로 수정
Q_w_outg = Q_w_outg - Q_wp_outg
Q_w_outg_i = Q_w_outg_i - Q_wp_outg
use_LNG = use_LNG + Q_w_f_hp * system_count '===========2013.08.18 수정
use_Elec = use_Elec + Q_w_g_hp_aux * system_count '===========2013.08.18 수정
Q_w_f = Q_w_f + (Q_w_f_hp + Q_w_g_hp_aux) * system_count '============================2010.04.17 추가, 2013.08.18 수정
'//요기맞죠 ^^?
Case "액화가스" '액화가스"
CRenew.Calc_HydroHeatpumpSystem(system_type, 3, dr신재생, Q_w_outg_i, i_count_month, d_op_max_mth, t_h, theta_g_m, theta_i, Q_wp_outg, Q_w_f_hp, Q_w_g_hp_aux) '=============2010.04.01 수정 Q_h_outg 를 Q_h_outg_i 로 수정
Q_w_outg = Q_w_outg - Q_wp_outg
Q_w_outg_i = Q_w_outg_i - Q_wp_outg
use_LPG = use_LPG + Q_w_f_hp * system_count '===========2013.08.18 수정
use_Elec = use_Elec + Q_w_g_hp_aux * system_count '===========2013.08.18 수정
Q_w_f = Q_w_f + (Q_w_f_hp + Q_w_g_hp_aux) * system_count '============================2010.04.17 추가, 2013.08.18 수정
End Select
Case Else
'//160428
If MsgBox("알수없는 기기종류" + vbCrLf + dr신재생.기기종류 + vbCrLf + _
@@ -1038,9 +1064,30 @@
use_Elec = use_Elec + Q_w_g_hp_aux * system_count '===========2013.08.18 수정
Q_w_f = Q_w_f + (Q_w_f_hp + Q_w_g_hp_aux) * system_count '============================2010.04.17 추가, 2013.08.18 수정
End Select
Case "수열" '//수열
Select Case dr신재생.가동연료.Trim
Case "전기" '전기"
CRenew.Calc_HydroHeatpumpSystem(system_type, 3, dr신재생, Q_w_outg_i, i_count_month, d_op_max_mth, t_h, theta_g_m, theta_i, Q_wp_outg, Q_w_f_hp, Q_w_g_hp_aux) '=============2010.04.01 수정 Q_h_outg 를 Q_h_outg_i 로 수정
Q_w_outg = Q_w_outg - Q_wp_outg
Q_w_outg_i = Q_w_outg_i - Q_wp_outg
use_Elec = use_Elec + (Q_w_f_hp + Q_w_g_hp_aux) * system_count '===========2013.08.18 수정
Q_w_f = Q_w_f + (Q_w_f_hp + Q_w_g_hp_aux) * system_count '============================2010.04.17 추가, 2013.08.18 수정
Case "천연가스" '천연가스"
CRenew.Calc_HydroHeatpumpSystem(system_type, 3, dr신재생, Q_w_outg_i, i_count_month, d_op_max_mth, t_h, theta_g_m, theta_i, Q_wp_outg, Q_w_f_hp, Q_w_g_hp_aux) '=============2010.04.01 수정 Q_h_outg 를 Q_h_outg_i 로 수정
Q_w_outg = Q_w_outg - Q_wp_outg
Q_w_outg_i = Q_w_outg_i - Q_wp_outg
use_LNG = use_LNG + Q_w_f_hp * system_count '===========2013.08.18 수정
use_Elec = use_Elec + Q_w_g_hp_aux * system_count '===========2013.08.18 수정
Q_w_f = Q_w_f + (Q_w_f_hp + Q_w_g_hp_aux) * system_count '============================2010.04.17 추가, 2013.08.18 수정
'//요기맞죠 ^^?
Case "액화가스" '액화가스"
CRenew.Calc_HydroHeatpumpSystem(system_type, 3, dr신재생, Q_w_outg_i, i_count_month, d_op_max_mth, t_h, theta_g_m, theta_i, Q_wp_outg, Q_w_f_hp, Q_w_g_hp_aux) '=============2010.04.01 수정 Q_h_outg 를 Q_h_outg_i 로 수정
Q_w_outg = Q_w_outg - Q_wp_outg
Q_w_outg_i = Q_w_outg_i - Q_wp_outg
use_LPG = use_LPG + Q_w_f_hp * system_count '===========2013.08.18 수정
use_Elec = use_Elec + Q_w_g_hp_aux * system_count '===========2013.08.18 수정
Q_w_f = Q_w_f + (Q_w_f_hp + Q_w_g_hp_aux) * system_count '============================2010.04.17 추가, 2013.08.18 수정
End Select
End Select
'End If
End If
@@ -1731,6 +1778,8 @@
If DR존.열생산난방생산기기 = dr난방.code Then 판단1 = True
If DR존.공조난방생산기기 = dr난방.code Then 판단2 = True
Q_h_ce_i = 0 '//20220525 수정
'//다시 생각을...
'If Worksheets("입력존").Range("입력난방생산기기1").Offset(0, i_count_zone - 1) <> "" And Worksheets("입력존").Range("입력난방생산기기1").Offset(0, i_count_zone - 1) = Worksheets("난방기기").Range("난방생산기기1").Offset(0, i_count_boiler - 1) Then
@@ -2286,6 +2335,31 @@
use_Elec = use_Elec + Q_h_g_hp_aux * system_count '=============2013.08.18 수정
Q_h_f = Q_h_f + (Q_h_f_hp + Q_h_g_hp_aux) * system_count '=============2013.08.18 수정 '============================2010.04.17 추가
End Select
Case "수열" '//수열
Select Case Dr신재생.가동연료.Trim
Case "전기" '전기"
CRenew.Calc_HydroHeatpumpSystem(system_type, i_HeatCool, Dr신재생, Q_h_outg_i, i_count_month, d_op_max_mth, t_h, theta_VA, theta_i, Q_hp_outg, Q_h_f_hp, Q_h_g_hp_aux) '=============2010.04.01 수정 Q_h_outg 를 Q_h_outg_i 로 수정
Q_h_outg = Q_h_outg - Q_hp_outg
Q_h_outg_i = Q_h_outg_i - Q_hp_outg
use_Elec = use_Elec + (Q_h_f_hp + Q_h_g_hp_aux) * system_count '=============2013.08.18 수정
Q_h_f = Q_h_f + (Q_h_f_hp + Q_h_g_hp_aux) * system_count '=============2013.08.18 수정 '============================2010.04.17 추가
Case "천연가스" '천연가스"
CRenew.Calc_HydroHeatpumpSystem(system_type, i_HeatCool, Dr신재생, Q_h_outg_i, i_count_month, d_op_max_mth, t_h, theta_VA, theta_i, Q_hp_outg, Q_h_f_hp, Q_h_g_hp_aux) '=============2010.04.01 수정 Q_h_outg 를 Q_h_outg_i 로 수정
Q_h_outg = Q_h_outg - Q_hp_outg
Q_h_outg_i = Q_h_outg_i - Q_hp_outg
use_LNG = use_LNG + Q_h_f_hp * system_count '=============2013.08.18 수정
use_Elec = use_Elec + Q_h_g_hp_aux * system_count '=============2013.08.18 수정
Q_h_f = Q_h_f + (Q_h_f_hp + Q_h_g_hp_aux) * system_count '=============2013.08.18 수정 '============================2010.04.17 추가
'//요기맞죠 ^^?
Case "액화가스" '액화가스"
CRenew.Calc_HydroHeatpumpSystem(system_type, i_HeatCool, Dr신재생, Q_h_outg_i, i_count_month, d_op_max_mth, t_h, theta_VA, theta_i, Q_hp_outg, Q_h_f_hp, Q_h_g_hp_aux) '=============2010.04.01 수정 Q_h_outg 를 Q_h_outg_i 로 수정
Q_h_outg = Q_h_outg - Q_hp_outg
Q_h_outg_i = Q_h_outg_i - Q_hp_outg
use_LPG = use_LPG + Q_h_f_hp * system_count '=============2013.08.18 수정
use_Elec = use_Elec + Q_h_g_hp_aux * system_count '=============2013.08.18 수정
Q_h_f = Q_h_f + (Q_h_f_hp + Q_h_g_hp_aux) * system_count '=============2013.08.18 수정 '============================2010.04.17 추가
End Select
Case "열병합" '//열병합
Select Case Dr신재생.가동연료.Trim
Case "난방유" '난방유"
@@ -2854,6 +2928,8 @@
If DR존.열생산난방생산기기 = dr난방.code Then 판단1 = True
If DR존.공조난방생산기기 = dr난방.code Then 판단2 = True
Q_h_ce_i = 0 '//20220525 수정
'//다시 생각을...
'If Worksheets("입력존").Range("입력난방생산기기1").Offset(0, i_count_zone - 1) <> "" And Worksheets("입력존").Range("입력난방생산기기1").Offset(0, i_count_zone - 1) = Worksheets("난방기기").Range("난방생산기기1").Offset(0, i_count_boiler - 1) Then
@@ -3391,6 +3467,31 @@
use_Elec = use_Elec + Q_h_g_hp_aux * system_count '=============2013.08.18 수정
Q_h_f = Q_h_f + (Q_h_f_hp + Q_h_g_hp_aux) * system_count '=============2013.08.18 수정 '============================2010.04.17 추가
End Select
Case "수열" '//수열
Select Case Dr신재생.가동연료.Trim
Case "전기" '전기"
CRenew.Calc_HydroHeatpumpSystem(system_type, i_HeatCool, Dr신재생, Q_h_outg_i, i_count_month, d_op_max_mth, t_h, theta_VA, theta_i, Q_hp_outg, Q_h_f_hp, Q_h_g_hp_aux) '=============2010.04.01 수정 Q_h_outg 를 Q_h_outg_i 로 수정
Q_h_outg = Q_h_outg - Q_hp_outg
Q_h_outg_i = Q_h_outg_i - Q_hp_outg
use_Elec = use_Elec + (Q_h_f_hp + Q_h_g_hp_aux) * system_count '=============2013.08.18 수정
Q_h_f = Q_h_f + (Q_h_f_hp + Q_h_g_hp_aux) * system_count '=============2013.08.18 수정 '============================2010.04.17 추가
Case "천연가스" '천연가스"
CRenew.Calc_HydroHeatpumpSystem(system_type, i_HeatCool, Dr신재생, Q_h_outg_i, i_count_month, d_op_max_mth, t_h, theta_VA, theta_i, Q_hp_outg, Q_h_f_hp, Q_h_g_hp_aux) '=============2010.04.01 수정 Q_h_outg 를 Q_h_outg_i 로 수정
Q_h_outg = Q_h_outg - Q_hp_outg
Q_h_outg_i = Q_h_outg_i - Q_hp_outg
use_LNG = use_LNG + Q_h_f_hp * system_count '=============2013.08.18 수정
use_Elec = use_Elec + Q_h_g_hp_aux * system_count '=============2013.08.18 수정
Q_h_f = Q_h_f + (Q_h_f_hp + Q_h_g_hp_aux) * system_count '=============2013.08.18 수정 '============================2010.04.17 추가
'//요기맞죠 ^^?
Case "액화가스" '액화가스"
CRenew.Calc_HydroHeatpumpSystem(system_type, i_HeatCool, Dr신재생, Q_h_outg_i, i_count_month, d_op_max_mth, t_h, theta_VA, theta_i, Q_hp_outg, Q_h_f_hp, Q_h_g_hp_aux) '=============2010.04.01 수정 Q_h_outg 를 Q_h_outg_i 로 수정
Q_h_outg = Q_h_outg - Q_hp_outg
Q_h_outg_i = Q_h_outg_i - Q_hp_outg
use_LPG = use_LPG + Q_h_f_hp * system_count '=============2013.08.18 수정
use_Elec = use_Elec + Q_h_g_hp_aux * system_count '=============2013.08.18 수정
Q_h_f = Q_h_f + (Q_h_f_hp + Q_h_g_hp_aux) * system_count '=============2013.08.18 수정 '============================2010.04.17 추가
End Select
Case "열병합" '//열병합
Select Case Dr신재생.가동연료.Trim
Case "난방유" '난방유"