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

JAVA 웹 과 비교를 하기위한 기타 기능 추가

Browse Source
This commit is contained in:
chi
2019-11-25 21:06:59 +09:00
parent 8174108238
commit 5cc843777c
14 changed files with 318 additions and 171 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
ArinWarev1/Calculator-OD/Result/C에너지소요량.vb
View File

@@ -53,6 +53,8 @@
I6 += Result1o.일차E소요량(i).조명전력
I7 += Result1o.일차E소요량(i).급탕전력
I8 += Result1o.일차E소요량(i).환기전력
'Console.WriteLine(String.Format(">>C에너지소요량 IV={0},i={1}", IV, i))
Next
Me.난방 = I10
@@ -64,11 +66,12 @@
If (I4 + I5 + I6 + I7 + I8 <> 0) Then
Me.난방S = IH - (Result1o.생산E(0).태양광전력생산량 + Result1o.생산E(0).열병합전력생산량) / (I4 + I5 + I6 + I7 + I8) * I4
Me.냉방S = IC - (Result1o.생산E(0).태양광전력생산량 + Result1o.생산E(0).열병합전력생산량) / (I4 + I5 + I6 + I7 + I8) * I5
Me.조명S = IL - (Result1o.생산E(0).태양광전력생산량 + Result1o.생산E(0).열병합전력생산량) / (I4 + I5 + I6 + I7 + I8) * I6
Me.급탕S = IW - (Result1o.생산E(0).태양광전력생산량 + Result1o.생산E(0).열병합전력생산량) / (I4 + I5 + I6 + I7 + I8) * I7
Me.환기S = IV - (Result1o.생산E(0).태양광전력생산량 + Result1o.생산E(0).열병합전력생산량) / (I4 + I5 + I6 + I7 + I8) * I8
Dim baseValue As Double = (Result1o.생산E(0).태양광전력생산량 + Result1o.생산E(0).열병합전력생산량)
Me.난방S = IH - baseValue / (I4 + I5 + I6 + I7 + I8) * I4
Me.냉방S = IC - baseValue / (I4 + I5 + I6 + I7 + I8) * I5
Me.조명S = IL - baseValue / (I4 + I5 + I6 + I7 + I8) * I6
Me.급탕S = IW - baseValue / (I4 + I5 + I6 + I7 + I8) * I7
Me.환기S = IV - baseValue / (I4 + I5 + I6 + I7 + I8) * I8
Else
Me.난방S = IH
Me.냉방S = IC