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

2024y .

Browse Source
This commit is contained in:
ykh
2024-12-30 23:04:30 +09:00
parent c01051f024
commit 8f89991a09
45 changed files with 7567 additions and 1033 deletions
Download Patch File Download Diff File Expand all files Collapse all files

69
ArinWarev1/Calculator/CRenewable.vb
View File

@@ -500,6 +500,9 @@
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_sol * P_pk * f_perf
End If
@@ -514,6 +517,11 @@
' Sheets("계산결과").Cells(104, 7 + i_count_pv_month) = Sheets("계산결과").Cells(104, 7 + i_count_pv_month) + E_el_pv_out
'End If
'Dim importrows() As DS.tbl_importdataRow = DSET1.tbl_importdata.Select("mon='M" + i_count_pv_month.ToString("00") + "'")
'If importrows.Length = 1 Then
' Dim 외부전기도입량 As Decimal = importrows(0).외부전기도입량
'End If
Result.생산E(i_count_pv_month).태양광전력생산량 += E_el_pv_out
Result.생산E(i_count_pv_month).태양광전력생산량_offsite += E_el_pv_out_offsite
@@ -523,6 +531,29 @@
'DSETR.TReqUse.Rows(CEnum.ResultRow.생산_전기_태양광)("M" & Format(i_count_pv_month, "00")) = CSng(DSETR.TReqUse.Rows(CEnum.ResultRow.생산_전기_태양광)("M" & Format(i_count_pv_month, "00"))) + E_el_pv_out ' Sheets("계산결과").Cells(95, 7 + i_count_pv_month)
End Sub
Public Overridable Sub Calc_ImportData(ByVal i_count_pv_month As Integer, ByVal i_pv_d_mth As Integer)
pLog.Add(String.Format(">>Calc_ImportData 진입 : i_count_pv_month={0}, i_pv_d_mth={1}", _
i_count_pv_month, i_pv_d_mth))
Dim 외부전기도입량 As Decimal = 0
Dim importrows() As DS.tbl_importdataRow = DSET1.tbl_importdata.Select("mon='M" + i_count_pv_month.ToString("00") + "'")
If importrows.Length = 1 Then
외부전기도입량 = importrows(0).외부전기도입량
Result.생산E(i_count_pv_month).연료전지전력생산량_offsite += 외부전기도입량
End If
pLog.Add(String.Format(">>Calc_ImportData 진입 : E_el_pv_out={0}, 외부전기도입량={1}", _
외부전기도입량, Result.생산E(i_count_pv_month).연료전지전력생산량_offsite))
'DSETR.TReqUse.Rows(CEnum.ResultRow.생산_전기_태양광)("M" & Format(i_count_pv_month, "00")) = CSng(DSETR.TReqUse.Rows(CEnum.ResultRow.생산_전기_태양광)("M" & Format(i_count_pv_month, "00"))) + E_el_pv_out ' Sheets("계산결과").Cells(95, 7 + i_count_pv_month)
End Sub
@@ -877,10 +908,7 @@
E_chp_gen_in = Q_chp_gen_out / (eta_T_chp_an / 100)
E_el_chp_out = E_chp_gen_in * eta_el_chp_an / 100
Result.생산E(i_chp_month).열병합전력생산량 += E_el_chp_out
pLog.Add(String.Format("Calc_CogenerationSystemEN 결과0 E_chp_gen_in={0},E_el_chp_out={1}", E_chp_gen_in, E_el_chp_out))
pLog.Add(String.Format("Calc_CogenerationSystemEN 결과1 열병합전력생산량={0}", Result.생산E(i_chp_month).열병합전력생산량))
'//전기생산량 열병합
If Dr신재생.열병합신재생여부 Then
@@ -897,7 +925,31 @@
'// 신재생에너지 자립률 추가
Dim perc As Single = 0
If Single.TryParse(Dr신재생.외부공급비율, perc) = False Then
perc = 0
End If
Dim exportvalue As Decimal = E_el_chp_out_net * (perc / 100.0)
If exportvalue <> 0 Then
Dim drows() As DS.tbl_exportdataRow = DSET1.tbl_exportdata.Select("mon='" + i_chp_month.ToString("00") + "'")
Dim dr As DS.tbl_exportdataRow = Nothing
If drows.Length = 0 Then
dr = DSET1.tbl_exportdata.Newtbl_exportdataRow()
dr.mon = "M" + i_chp_month.ToString("00")
dr.외부전기생산량 = exportvalue
Else
dr = drows(0)
dr.외부전기생산량 += exportvalue
End If
dr.EndEdit()
If dr.RowState = DataRowState.Detached Then
DSET1.tbl_exportdata.Addtbl_exportdataRow(dr)
End If
E_el_chp_out_net -= exportvalue
End If
'//전력
@@ -905,6 +957,9 @@
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).신재생열병합전력생산량))
'//면적당열병합 (신재생면적당열생산량)
@@ -926,6 +981,12 @@
pLog.Add(String.Format("Calc_CogenerationSystemEN 결과3 신재생면적당열생산량={0}", Result.생산E(i_chp_month).신재생면적당열생산량))
Else
Result.생산E(i_chp_month).열병합전력생산량 += E_el_chp_out '// 20241229 추가
pLog.Add(String.Format("Calc_CogenerationSystemEN 결과0 E_chp_gen_in={0},E_el_chp_out={1}", E_chp_gen_in, E_el_chp_out))
pLog.Add(String.Format("Calc_CogenerationSystemEN 결과1 열병합전력생산량={0}", Result.생산E(i_chp_month).열병합전력생산량))
End If
'DSETR.TReqUse.Rows(77)("M" & Format(i_chp_month, "00")) = CSng(DSETR.TReqUse.Rows(77)("M" & Format(i_chp_month, "00"))) + E_el_chp_out ' Sheets("계산결과").Cells(96, 7 + i_chp_month) = E_el_chp_out
End Sub