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

1
ArinWarev1/Calculator-OD/Result/C에너지분석.vb
View File

@@ -334,6 +334,7 @@
a10 = a10 + Dr.공조요구량냉방
a11 = a11 + Dr.공조요구량가습
a12 = a12 + Dr.환기요구량
' Console.WriteLine(String.Format(">>>>>>>>> a2={0},a3={1},a4={2},a5={3},a6={4},a7={5},a8={6},a9={7},a10={8},a11={9},a12={10}", a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12))
Next
'Me.에너지요구량 = a2 + a3 + a4 + a5 + a6 + a7 ㅇ건 Readonlye 로 계산한다.

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