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

...

Browse Source
This commit is contained in:
raytrace
2021-10-24 00:11:34 +09:00
parent 4fd77f0bb5
commit e530774e0b
18 changed files with 3916 additions and 3247 deletions
Download Patch File Download Diff File Expand all files Collapse all files

64
ArinWarev1/Forms_Report/Frm_Upload.vb
View File

@@ -941,20 +941,38 @@
'//자립률관련추가 170725
'//170725
Dim 단위면적당신재생1차에너지합 As Decimal = 0
Dim 단위면적당신재생1차에너지합_offsite As Decimal = 0
Dim 단위면적당1차에너소비량합 As Decimal = 0
Dim 에너지자립률 As Double = 0
Dim 에너지자립률_offsite As Double = 0
Dim Sum As Decimal = (Result1.생산E(0).태양광전력생산량 + Result1.생산E(0).신재생열병합전력생산량) / (Result1.일차E소요량(0).난방전력 + Result1.일차E소요량(0).냉방전력 + Result1.일차E소요량(0).급탕전력 + Result1.일차E소요량(0).조명전력 + Result1.일차E소요량(0).환기전력)
Dim Sum_offsite As Decimal = (Result1.생산E(0).태양광전력생산량_offsite) / (Result1.일차E소요량(0).난방전력 + Result1.일차E소요량(0).냉방전력 + Result1.일차E소요량(0).급탕전력 + Result1.일차E소요량(0).조명전력 + Result1.일차E소요량(0).환기전력)
Dim 난방 As Decimal = Sum * Result1.일차E소요량(0).난방전력 '//아마게산이안도잇으니 여기값들이 0이잇을거에요.
Dim 냉방 As Decimal = Sum * Result1.일차E소요량(0).냉방전력
Dim 조명 As Decimal = Sum * Result1.일차E소요량(0).조명전력
Dim 급탕 As Decimal = Sum * Result1.일차E소요량(0).급탕전력
Dim 환기 As Decimal = Sum * Result1.일차E소요량(0).환기전력
Dim 난방_offsite As Decimal = Sum_offsite * Result1.일차E소요량(0).난방전력 '//아마게산이안도잇으니 여기값들이 0이잇을거에요.
Dim 냉방_offsite As Decimal = Sum_offsite * Result1.일차E소요량(0).냉방전력
Dim 조명_offsite As Decimal = Sum_offsite * Result1.일차E소요량(0).조명전력
Dim 급탕_offsite As Decimal = Sum_offsite * Result1.일차E소요량(0).급탕전력
Dim 환기_offsite As Decimal = Sum_offsite * Result1.일차E소요량(0).환기전력
Dim 난방면적 As Decimal = 0
Dim 냉방면적 As Decimal = 0
Dim 조명면적 As Decimal = 0
Dim 급탕면적 As Decimal = 0
Dim 환기면적 As Decimal = 0
Dim 난방면적_offsite As Decimal = 0
Dim 냉방면적_offsite As Decimal = 0
Dim 조명면적_offsite As Decimal = 0
Dim 급탕면적_offsite As Decimal = 0
Dim 환기면적_offsite As Decimal = 0
If Result1.사용면적.H <> 0 Then
난방면적 = TOSG(IIf(난방 = 0, 0, 난방 / Result1.사용면적.H))
End If
@@ -971,26 +989,70 @@
환기면적 = TOSG(IIf(환기 = 0, 0, 환기 / Result1.사용면적.V))
End If
If Result1.사용면적.H <> 0 Then
난방면적_offsite = TOSG(IIf(난방_offsite = 0, 0, 난방_offsite / Result1.사용면적.H))
End If
If Result1.사용면적.C <> 0 Then
냉방면적_offsite = TOSG(IIf(냉방_offsite = 0, 0, 냉방_offsite / Result1.사용면적.C))
End If
If Result1.사용면적.L <> 0 Then
조명면적_offsite = TOSG(IIf(조명_offsite = 0, 0, 조명_offsite / Result1.사용면적.L))
End If
If Result1.사용면적.W <> 0 Then
급탕면적_offsite = TOSG(IIf(급탕_offsite = 0, 0, 급탕_offsite / Result1.사용면적.W))
End If
If Result1.사용면적.V <> 0 Then
환기면적_offsite = TOSG(IIf(환기_offsite = 0, 0, 환기_offsite / Result1.사용면적.V))
End If
Dim 전기 As Decimal = 난방면적 + 냉방면적 + 조명면적 + 급탕면적 + 환기면적
Dim 전기_offsite As Decimal = 난방면적_offsite + 냉방면적_offsite + 조명면적_offsite + 급탕면적_offsite + 환기면적_offsite
'//열병합신재생에너지추가 130831 arin
Dim _자립_신재생에너지 As Single = -1 * (Result1.생산E(0).면적당생산량태양열 + Result1.생산E(0).신재생면적당열생산량 + Result1.생산E(0).면적당생산량지열 + 전기 * 2.75)
Dim _자립_신재생에너지_offsite As Single = -1 * (전기_offsite * 2.75)
난방에너지 = Math.Round(Result1.일차E소요량(0).난방면적, 1)
냉방에너지 = Math.Round(Result1.일차E소요량(0).냉방면적, 1)
급탕에너지 = Math.Round(Result1.일차E소요량(0).급탕면적, 1)
조명에너지 = Math.Round(Result1.일차E소요량(0).조명면적, 1)
환기에너지 = Math.Round(Result1.일차E소요량(0).환기면적, 1)
단위면적당신재생1차에너지합 = Math.Round(-1 * _자립_신재생에너지, 1)
단위면적당신재생1차에너지합_offsite = Math.Round(-1 * _자립_신재생에너지_offsite, 1)
단위면적당1차에너소비량합 = 난방에너지 + 냉방에너지 + 급탕에너지 + 조명에너지 + 환기에너지 + 단위면적당신재생1차에너지합
If 단위면적당1차에너소비량합 <> 0 Then
에너지자립률 = (단위면적당신재생1차에너지합 / 단위면적당1차에너소비량합) * 100
'에너지자립률 = (단위면적당신재생1차에너지합 / 단위면적당1차에너소비량합) * 100
에너지자립률 = (Math.Round(단위면적당신재생1차에너지합, 1) / 단위면적당1차에너소비량합) * 100
Dim scale As Decimal = 0
If 에너지자립률 >= 20 Then
scale = 1.0
ElseIf 에너지자립률 >= 15 Then
scale = 0.9
ElseIf 에너지자립률 >= 10 Then
scale = 0.8
Else
scale = 0.7
End If
에너지자립률_offsite = (Math.Round(단위면적당신재생1차에너지합_offsite * scale, 1) / 단위면적당1차에너소비량합) * 100
에너지자립률 += 에너지자립률_offsite
Else
에너지자립률 = 0
에너지자립률_offsite = 0
End If
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 에너지자립률.ToString("N2") : Row += 1
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 단위면적당신재생1차에너지합.ToString("N1") : Row += 1
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 단위면적당1차에너소비량합.ToString("N1") : Row += 1
'//210702
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 에너지자립률_offsite.ToString("N2") : Row += 1
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 단위면적당신재생1차에너지합_offsite.ToString("N1") : Row += 1
End Sub