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

..

Browse Source
This commit is contained in:
ykh
2023-10-27 23:05:50 +09:00
parent 0b976ad2ab
commit ec0e3013c6
50 changed files with 4751 additions and 1383 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
ArinWarev1/Calculator/CRenewable.vb
View File

@@ -361,16 +361,20 @@
Case 1 '//난방?급탕 혼합형태?
If Q_W_sol_out_m <> 0 Then
Result.생산E(i_ts_month).면적당생산량태양열 += (Q_W_sol_out_net / Result.사용면적.W) '// 20170120 추가
Result.생산E(i_ts_month).면적당생산량태양열_급탕 += (Q_W_sol_out_net / Result.사용면적.W) '// 20170120 추가
'Result.생산E(i_ts_month).면적당생산량태양열 += (Q_W_sol_out_m / Result.사용면적.W) 삭제
Else
Result.생산E(i_ts_month).면적당생산량태양열 += (Q_H_sol_out_net / Result.사용면적.H) '// 20170120 추가
Result.생산E(i_ts_month).면적당생산량태양열_난방 += (Q_H_sol_out_net / Result.사용면적.H) '// 20170120 추가
'Result.생산E(i_ts_month).면적당생산량태양열 += (Q_H_sol_out_m / Result.사용면적.H)
End If
Case 2 '//냉방?
Result.생산E(i_ts_month).면적당생산량태양열 += (Q_H_sol_out_net / Result.사용면적.C) '// 20170120 추가
Result.생산E(i_ts_month).면적당생산량태양열_냉방 += (Q_H_sol_out_net / Result.사용면적.C) '// 20170120 추가
'Result.생산E(i_ts_month).면적당생산량태양열 += (Q_H_sol_out_m / Result.사용면적.C)
Case 3 '//급탕
Result.생산E(i_ts_month).면적당생산량태양열 += (Q_W_sol_out_net / Result.사용면적.W) '// 20170120 추가
Result.생산E(i_ts_month).면적당생산량태양열_급탕 += (Q_W_sol_out_net / Result.사용면적.W) '// 20170120 추가
'Result.생산E(i_ts_month).면적당생산량태양열 += (Q_W_sol_out_m / Result.사용면적.W)
Case Else
MsgBox("단위면적당생산량 누적시 i_syste_ts 가 알수없음", MsgBoxStyle.Critical, "확인")
@@ -496,7 +500,7 @@
If Dr신재생.대지외설치여부 Then
E_el_pv_out_offsite = E_el_pv_out_offsite + E_sol * P_pk * f_perf
Else
E_el_pv_out = E_el_pv_out + E_sol * P_pk * f_perf
E_el_pv_out += E_sol * P_pk * f_perf
End If
'End If
@@ -649,14 +653,17 @@
Select Case i_system_hp
Case 1
Result.생산E(i_hp_month).면적당생산량지열 += (Q_h_outg_net / Result.사용면적.H) '//20170120 추가
Result.생산E(i_hp_month).면적당생산량지열_난방 += (Q_h_outg_net / Result.사용면적.H) '//20170120 추가
'//Result.생산E(i_hp_month).면적당생산량지열 += (Q_h_f_hp / Result.사용면적.H) '20170120 지열생산량을 수정
'DSETR.TReqUse.Rows(100)("M00") = CSng(DSETR.TReqUse.Rows(100)("M00")) + Q_h_f_hp / CSng(DSETR.TReqUse.Rows(10)("M00")) ' DrT요구량.난방사용면적 ' Sheets("계산결과").Cells(15, 7)
Case 2
Result.생산E(i_hp_month).면적당생산량지열 += (Q_h_outg_net / Result.사용면적.C) '//20170120 추가
Result.생산E(i_hp_month).면적당생산량지열_냉방 += (Q_h_outg_net / Result.사용면적.C) '//20170120 추가
'//Result.생산E(i_hp_month).면적당생산량지열 += (Q_h_f_hp / Result.사용면적.C) '20170120 지열생산량을 수정
'DSETR.TReqUse.Rows(100)("M00") = CSng(DSETR.TReqUse.Rows(100)("M00")) + Q_h_f_hp / CSng(DSETR.TReqUse.Rows(15)("M00")) 'DrT요구량.냉방사용면적 '("계산결과").Cells(20, 7)
Case 3
Result.생산E(i_hp_month).면적당생산량지열 += (Q_h_outg_net / Result.사용면적.W) '//20170120 추가
Result.생산E(i_hp_month).면적당생산량지열_급탕 += (Q_h_outg_net / Result.사용면적.W) '//20170120 추가
'//Result.생산E(i_hp_month).면적당생산량지열 += (Q_h_f_hp / Result.사용면적.W) '20170120 지열생산량을 수정
End Select
@@ -811,14 +818,17 @@
Select Case i_system_hp
Case 1
Result.생산E(i_hp_month).면적당생산량수열 += (Q_h_outg_net / Result.사용면적.H) '//20170120 추가
Result.생산E(i_hp_month).면적당생산량수열_난방 += (Q_h_outg_net / Result.사용면적.H) '//20170120 추가
'//Result.생산E(i_hp_month).면적당생산량지열 += (Q_h_f_hp / Result.사용면적.H) '20170120 지열생산량을 수정
'DSETR.TReqUse.Rows(100)("M00") = CSng(DSETR.TReqUse.Rows(100)("M00")) + Q_h_f_hp / CSng(DSETR.TReqUse.Rows(10)("M00")) ' DrT요구량.난방사용면적 ' Sheets("계산결과").Cells(15, 7)
Case 2
Result.생산E(i_hp_month).면적당생산량수열 += (Q_h_outg_net / Result.사용면적.C) '//20170120 추가
Result.생산E(i_hp_month).면적당생산량수열_냉방 += (Q_h_outg_net / Result.사용면적.C) '//20170120 추가
'//Result.생산E(i_hp_month).면적당생산량지열 += (Q_h_f_hp / Result.사용면적.C) '20170120 지열생산량을 수정
'DSETR.TReqUse.Rows(100)("M00") = CSng(DSETR.TReqUse.Rows(100)("M00")) + Q_h_f_hp / CSng(DSETR.TReqUse.Rows(15)("M00")) 'DrT요구량.냉방사용면적 '("계산결과").Cells(20, 7)
Case 3
Result.생산E(i_hp_month).면적당생산량수열 += (Q_h_outg_net / Result.사용면적.W) '//20170120 추가
Result.생산E(i_hp_month).면적당생산량수열_급탕 += (Q_h_outg_net / Result.사용면적.W) '//20170120 추가
'//Result.생산E(i_hp_month).면적당생산량지열 += (Q_h_f_hp / Result.사용면적.W) '20170120 지열생산량을 수정
End Select
@@ -892,6 +902,7 @@
'//전력
Result.생산E(i_chp_month).신재생열병합전력생산량 += (E_el_chp_out_net) '//20170120 추가
Result.생산E(i_chp_month).신재생열병합열생산량 += (Q_chp_gen_out_net) '//20170120 추가
'Result.생산E(i_chp_month).신재생열병합전력생산량 += (E_el_chp_out)
pLog.Add(String.Format("Calc_CogenerationSystemEN 결과2 신재생열병합전력생산량={0}", Result.생산E(i_chp_month).신재생열병합전력생산량))
@@ -900,12 +911,15 @@
Select Case i_system_chp
Case 1
Result.생산E(i_chp_month).신재생면적당열생산량 += (Q_chp_gen_out_net / Result.사용면적.H) '// 20170120 추가
Result.생산E(i_chp_month).신재생면적당열생산량_난방 += (Q_chp_gen_out_net / Result.사용면적.H) '// 20170120 추가
'Result.생산E(i_chp_month).신재생면적당열생산량 += (Q_chp_gen_out / Result.사용면적.H)
Case 2
Result.생산E(i_chp_month).신재생면적당열생산량 += (Q_chp_gen_out_net / Result.사용면적.C) '// 20170120 추가
Result.생산E(i_chp_month).신재생면적당열생산량_냉방 += (Q_chp_gen_out_net / Result.사용면적.C) '// 20170120 추가
'Result.생산E(i_chp_month).신재생면적당열생산량 += (Q_chp_gen_out / Result.사용면적.C)
Case 3
Result.생산E(i_chp_month).신재생면적당열생산량 += (Q_chp_gen_out_net / Result.사용면적.W) '// 20170120 추가
Result.생산E(i_chp_month).신재생면적당열생산량_급탕 += (Q_chp_gen_out_net / Result.사용면적.W) '// 20170120 추가
'Result.생산E(i_chp_month).신재생면적당열생산량 += (Q_chp_gen_out / Result.사용면적.W)
End Select