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

30
ArinWarev1/REPORT-OD/Frm_v20091231_Report.vb
View File

@@ -88,7 +88,7 @@
Dim Total1(5) As Double
Dim Total2 As Double '//total
Dim Total3 As Double '//etc
If Program = EProgram.총량평가 Then
@@ -139,35 +139,33 @@
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
'Multi(1) = 1.0 '//냉방
'Multi(2) = 1.0 '//급탕