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

CHeating.vb 1972번 줄 누적 문제 분석 완료

Browse Source
This commit is contained in:
ykh
2025-11-30 23:52:50 +09:00
parent 2a69feb29a
commit b47cf354b3
14 changed files with 100 additions and 106 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
ArinWarev1/REPORT-OD/Report_검토서2.vb
View File

@@ -18,7 +18,7 @@
Dim Multi(5) As Double
Dim Total1(5) As Double
Dim Total2 As Double '//total
Dim Total3 As Double '//etc
If Program = EProgram.총량평가 Then
@@ -69,35 +69,34 @@
Multi(3) = 0.5
Multi(4) = 0.611
Case Else
Multi(0) = 0.0
Multi(1) = 0.0
Multi(2) = 0.0
Multi(3) = 0.0
Multi(4) = 0.0
Total3 += Dr0.면적
Multi(0) = 1.0
Multi(1) = 1.0
Multi(2) = 1.0
Multi(3) = 1.0
Multi(4) = 1.0
End Select
Total1(0) += Dr0.면적 * Multi(0)
Total1(1) += Dr0.면적 * Multi(1)
Total1(2) += Dr0.면적 * Multi(2)
Total1(3) += Dr0.면적 * Multi(3)
Total1(4) += Dr0.면적 * Multi(4)
Total1(0) += Dr0.면적 / Multi(0)
Total1(1) += Dr0.면적 / Multi(1)
Total1(2) += Dr0.면적 / Multi(2)
Total1(3) += Dr0.면적 / Multi(3)
Total1(4) += Dr0.면적 / Multi(4)
Total2 += Dr0.면적
Next
Total2 = Total2
For i As Integer = 0 To 4
If Total2 = 0 Then
Multi(i) = 0
Multi(i) = 1
Else
Multi(i) = (Total1(i) + Total3) / Total2 '//171021 난방
Multi(i) = Total2 / Total1(i) '//251002 수정
End If
Next
Total2 = Total2
Else
Multi(0) = 1.0
Multi(1) = 1.0