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

특수용도 가중치 추가

Browse Source
This commit is contained in:
ykh
2025-09-29 23:33:04 +09:00
parent 2bf95ec258
commit 2a69feb29a
4 changed files with 372 additions and 144 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
ArinWarev1/Calculator-OD/Heating/CHeating.vb
View File

@@ -1959,6 +1959,9 @@
End If
If dr난방.열생산기기방식 = "보일러" Then 'Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) = "보일러" Then
Select Case dr난방.사용연료.Trim ' Worksheets("난방기기").Range("난방기기사용연료1").Offset(0, i_count_boiler - 1)
Case "난방유" '난방유"

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

@@ -57,29 +57,130 @@
'//곱해야할 가중치를 결정하는 방법좀
'// 예를들면 업무시설이 100m2 이고 교육연구시설(초중고)가 100m2이면 (100*1+100*1.2)/200
Dim Total2 As Double = 0.0
Dim Total1 As Double = 0.0
For Each Dr0 As DS.tbl_typeRow In DSET1.tbl_type.Rows
Dim multi As Double = 1.0
Select Case Dr0.시설용도
Case "0011" '교육연구시설(초중고)"
multi = 1.12
Case "0012" '교육연구시설(etc)
multi = 0.98
End Select
Total1 += Dr0.면적 * multi
Total2 += Dr0.면적
Next
'Dim Total2 As Double = 0.0
'Dim Total1 As Double = 0.0
'For Each Dr0 As DS.tbl_typeRow In DSET1.tbl_type.Rows
' Dim multi As Double = 1.0
' Select Case Dr0.시설용도
' Case "0011" '교육연구시설(초중고)"
' multi = 1.12
' Case "0012" '교육연구시설(etc)
' multi = 0.98
' End Select
' Total1 += Dr0.면적 * multi
' Total2 += Dr0.면적
'Next
Dim addmulti As Double = 0
If Total2 <> 0 Then
addmulti = Total1 / Total2
'If Total2 <> 0 Then
' addmulti = Total1 / Total2
'Else
' addmulti = 1.0
'End If
addmulti = 1.0
Dim Multi(5) As Double
Multi(0) = 0
Multi(1) = 0
Multi(2) = 0
Multi(3) = 0
Multi(4) = 0
Dim Total1(5) As Double
Dim Total2 As Double '//total
Dim Total3 As Double '//etc
If Program = EProgram.총량평가 Then
For Each Dr0 As DS.tbl_typeRow In DSET1.tbl_type.Rows
'Dim multi As Double = 1.0
Select Case Dr0.시설용도
Case "0013" '구내식당-0013
Multi(0) = 1.571
Multi(1) = 1.571
Multi(2) = 0.024
Multi(3) = 1.286
Multi(4) = 1.571
Case "0014" '전산실-0014
Multi(0) = 0.503
Multi(1) = 0.196
Multi(2) = 0.685
Multi(3) = 0.514
Multi(4) = 0.314
Case "0017" '병실-0017
Multi(0) = 0.314
Multi(1) = 0.314
Multi(2) = 0.251
Multi(3) = 0.514
Multi(4) = 0.314
Case "0016" '객실-0016
Multi(0) = 0.685
Multi(1) = 0.685
Multi(2) = 0.251
Multi(3) = 1.541
Multi(4) = 0.685
Case "0015" '초중고
Multi(0) = 1.964
Multi(1) = 1.964
Multi(2) = 1.25
Multi(3) = 1.875
Multi(4) = 1.964
Case "0018" '강의실
Multi(0) = 2.037
Multi(1) = 2.037
Multi(2) = 1.667
Multi(3) = 2.5
Multi(4) = 2.037
Case "0019" '체육시설
Multi(0) = 0.611
Multi(1) = 0.611
Multi(2) = 0.114
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.면적
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)
Total2 += Dr0.면적
Next
Total2 = Total2
For i As Integer = 0 To 4
If Total2 = 0 Then
Multi(i) = 0
Else
Multi(i) = (Total1(i) + Total3) / Total2 '//171021 난방
End If
Next
Total2 = Total2
'Multi(1) = 1.0 '//냉방
'Multi(2) = 1.0 '//급탕
'Multi(3) = 1.0 '//조명
'Multi(4) = 1.0 '//환기
Else
addmulti = 1.0
Multi(0) = 1.0
Multi(1) = 1.0
Multi(2) = 1.0
Multi(3) = 1.0
Multi(4) = 1.0
End If
' addmulti = 1.0
Dim Dr2 As DSR.Graph_ReqUseRow
For Gubun As Short = 0 To 3
@@ -124,20 +225,7 @@
Result1o.생산E(0).신재생면적당열생산량 + _
Result1o.생산E(0).면적당생산량지열 + 전기 * 2.75)
Dim Multi(5) As Double
If Program = EProgram.총량평가 Then
Multi(0) = 1.0 '//171021 난방
Multi(1) = 1.0 '//냉방
Multi(2) = 1.0 '//급탕
Multi(3) = 1.0 '//조명
Multi(4) = 1.0 '//환기
Else
Multi(0) = 1.0
Multi(1) = 1.0
Multi(2) = 1.0
Multi(3) = 1.0
Multi(4) = 1.0
End If
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "1차소요량"

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

@@ -14,6 +14,113 @@
Me.DSR.ExtReport.Merge(DSETR1.ExtReport)
Dim addmulti As Double = 1.0
Dim Multi(5) As Double
Dim Total1(5) As Double
Dim Total2 As Double '//total
Dim Total3 As Double '//etc
If Program = EProgram.총량평가 Then
For Each Dr0 As DS.tbl_typeRow In DSET1.tbl_type.Rows
'Dim multi As Double = 1.0
Select Case Dr0.시설용도
Case "0013" '구내식당-0013
Multi(0) = 1.571
Multi(1) = 1.571
Multi(2) = 0.024
Multi(3) = 1.286
Multi(4) = 1.571
Case "0014" '전산실-0014
Multi(0) = 0.503
Multi(1) = 0.196
Multi(2) = 0.685
Multi(3) = 0.514
Multi(4) = 0.314
Case "0017" '병실-0017
Multi(0) = 0.314
Multi(1) = 0.314
Multi(2) = 0.251
Multi(3) = 0.514
Multi(4) = 0.314
Case "0016" '객실-0016
Multi(0) = 0.685
Multi(1) = 0.685
Multi(2) = 0.251
Multi(3) = 1.541
Multi(4) = 0.685
Case "0015" '초중고
Multi(0) = 1.964
Multi(1) = 1.964
Multi(2) = 1.25
Multi(3) = 1.875
Multi(4) = 1.964
Case "0018" '강의실
Multi(0) = 2.037
Multi(1) = 2.037
Multi(2) = 1.667
Multi(3) = 2.5
Multi(4) = 2.037
Case "0019" '체육시설
Multi(0) = 0.611
Multi(1) = 0.611
Multi(2) = 0.114
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.면적
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)
Total2 += Dr0.면적
Next
Total2 = Total2
For i As Integer = 0 To 4
If Total2 = 0 Then
Multi(i) = 0
Else
Multi(i) = (Total1(i) + Total3) / Total2 '//171021 난방
End If
Next
Total2 = Total2
Else
Multi(0) = 1.0
Multi(1) = 1.0
Multi(2) = 1.0
Multi(3) = 1.0
Multi(4) = 1.0
End If
Dim a1 As Double = Result1o.일차E소요량(0).난방면적 * Multi(0)
Dim a2 As Double = Result1o.일차E소요량(0).냉방면적 * Multi(1)
Dim a3 As Double = Result1o.일차E소요량(0).급탕면적 * Multi(2)
Dim a4 As Double = Result1o.일차E소요량(0).조명면적 * Multi(3)
Dim a5 As Double = Result1o.일차E소요량(0).환기면적 * Multi(4)
DSR.ExtReport.Rows(0)("c077") = a1.ToString("N1")
DSR.ExtReport.Rows(0)("c078") = a2.ToString("N1")
DSR.ExtReport.Rows(0)("c079") = a3.ToString("N1")
DSR.ExtReport.Rows(0)("c080") = a4.ToString("N1")
DSR.ExtReport.Rows(0)("c081") = a5.ToString("N1")
DSR.ExtReport.Rows(0)("c082") = (a1 + a2 + a3 + a4 + a5).ToString("N1")
DSR.ExtReport.AcceptChanges()
Dim drDesc As DS.tbl_DescRow = DSET1.tbl_Desc.Rows(0)
Dim params As New List(Of Microsoft.Reporting.WinForms.ReportParameter)
params.Add(New Microsoft.Reporting.WinForms.ReportParameter("param1", drDesc.민간구분))

252
Setup/Setup.vdproj
View File

@@ -28,13 +28,13 @@
"Entry"
{
"MsmKey" = "8:_0607C8779841A74B037EF1D0DFA4156F"
"OwnerKey" = "8:_808E81A74CBB493F9C6CDAC35D8ADC41"
"OwnerKey" = "8:_8D3FA753E2574529B5284B603B3AD3DF"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_0607C8779841A74B037EF1D0DFA4156F"
"OwnerKey" = "8:_8D3FA753E2574529B5284B603B3AD3DF"
"OwnerKey" = "8:_808E81A74CBB493F9C6CDAC35D8ADC41"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
@@ -274,109 +274,7 @@
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_0607C8779841A74B037EF1D0DFA4156F"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_0AECB5F39D5B4FEBA17CB14E45E6D8FE"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_640C4B450006D92E645D60B4E6D01F81"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_67FBB57779D149B6BD4F5DDAA22DAC80"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_6CC8CD1E9189E07A7A96D9F615DACB24"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_123BA2FFEEA9E2FE234DB92367A069EB"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_D1D8385A708F4CC36F9B3A4AE780D28F"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_94CA0FDA969A00D55D11475CF05BBCF7"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_808E81A74CBB493F9C6CDAC35D8ADC41"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_8C6810F81A354E8C9488D35488F58A8E"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_60637DEA5C4CEECB31E2B5F25358C674"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_8D3FA753E2574529B5284B603B3AD3DF"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_9008565094D744E2AE00EEC5CB70FCA8"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_9F72EF8C6F8F4BE79DAE4F8E50CCAF59"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_C13B6CBDE2EB4A0BB5C958D0E7BC948F"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_CE1CDBA71D55A58C9E8C434429263651"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_E1ECB12976894E3FADEA35AE01BDDB5A"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_ECA020B6D724A4C2FDDF4795EBA72FEC"
"OwnerKey" = "8:_F680131EFFBE4408B6AF4D3D60303159"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
@@ -388,7 +286,109 @@
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_F680131EFFBE4408B6AF4D3D60303159"
"OwnerKey" = "8:_ECA020B6D724A4C2FDDF4795EBA72FEC"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_E1ECB12976894E3FADEA35AE01BDDB5A"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_CE1CDBA71D55A58C9E8C434429263651"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_C13B6CBDE2EB4A0BB5C958D0E7BC948F"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_9F72EF8C6F8F4BE79DAE4F8E50CCAF59"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_9008565094D744E2AE00EEC5CB70FCA8"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_8D3FA753E2574529B5284B603B3AD3DF"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_60637DEA5C4CEECB31E2B5F25358C674"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_8C6810F81A354E8C9488D35488F58A8E"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_808E81A74CBB493F9C6CDAC35D8ADC41"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_94CA0FDA969A00D55D11475CF05BBCF7"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_D1D8385A708F4CC36F9B3A4AE780D28F"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_123BA2FFEEA9E2FE234DB92367A069EB"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_6CC8CD1E9189E07A7A96D9F615DACB24"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_67FBB57779D149B6BD4F5DDAA22DAC80"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_640C4B450006D92E645D60B4E6D01F81"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_0AECB5F39D5B4FEBA17CB14E45E6D8FE"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_0607C8779841A74B037EF1D0DFA4156F"
"MsmSig" = "8:_UNDEFINED"
}
}
@@ -523,6 +523,11 @@
"AssemblyAsmDisplayName" = "8:C1.Win.4, Version=4.0.20171.248, Culture=neutral, PublicKeyToken=944ae1ea0e47ca04, processorArchitecture=MSIL"
"ScatterAssemblies"
{
"_0607C8779841A74B037EF1D0DFA4156F"
{
"Name" = "8:C1.Win.4.DLL"
"Attributes" = "3:512"
}
}
"SourcePath" = "8:C1.Win.4.DLL"
"TargetName" = "8:"
@@ -580,6 +585,11 @@
"AssemblyAsmDisplayName" = "8:ArinLogin, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL"
"ScatterAssemblies"
{
"_123BA2FFEEA9E2FE234DB92367A069EB"
{
"Name" = "8:ArinLogin.DLL"
"Attributes" = "3:512"
}
}
"SourcePath" = "8:ArinLogin.DLL"
"TargetName" = "8:"
@@ -666,6 +676,11 @@
"AssemblyAsmDisplayName" = "8:Interop.VBIDE, Version=5.3.0.0, Culture=neutral, processorArchitecture=MSIL"
"ScatterAssemblies"
{
"_3C54360ECA2D917C917C5457315CD0AE"
{
"Name" = "8:Interop.VBIDE.DLL"
"Attributes" = "3:512"
}
}
"SourcePath" = "8:Interop.VBIDE.DLL"
"TargetName" = "8:"
@@ -752,6 +767,11 @@
"AssemblyAsmDisplayName" = "8:C1.Win.C1Command.4, Version=4.0.20171.248, Culture=neutral, PublicKeyToken=e808566f358766d8, processorArchitecture=MSIL"
"ScatterAssemblies"
{
"_60637DEA5C4CEECB31E2B5F25358C674"
{
"Name" = "8:C1.Win.C1Command.4.DLL"
"Attributes" = "3:512"
}
}
"SourcePath" = "8:C1.Win.C1Command.4.DLL"
"TargetName" = "8:"
@@ -908,7 +928,7 @@
{
"AssemblyRegister" = "3:1"
"AssemblyIsInGAC" = "11:FALSE"
"AssemblyAsmDisplayName" = "8:Eco2OD, Version=1.2025.630.2, Culture=neutral, processorArchitecture=x86"
"AssemblyAsmDisplayName" = "8:Eco2OD, Version=1.2025.630.3, Culture=neutral, processorArchitecture=x86"
"ScatterAssemblies"
{
"_808E81A74CBB493F9C6CDAC35D8ADC41"
@@ -1075,6 +1095,11 @@
"AssemblyAsmDisplayName" = "8:CEnergy, Version=1.2.1.0, Culture=neutral, processorArchitecture=MSIL"
"ScatterAssemblies"
{
"_94CA0FDA969A00D55D11475CF05BBCF7"
{
"Name" = "8:CEnergy.DLL"
"Attributes" = "3:512"
}
}
"SourcePath" = "8:CEnergy.DLL"
"TargetName" = "8:"
@@ -1271,7 +1296,7 @@
{
"AssemblyRegister" = "3:1"
"AssemblyIsInGAC" = "11:FALSE"
"AssemblyAsmDisplayName" = "8:mn, Version=1.0.9402.38441, Culture=neutral, processorArchitecture=MSIL"
"AssemblyAsmDisplayName" = "8:mn, Version=1.0.9403.39504, Culture=neutral, processorArchitecture=MSIL"
"ScatterAssemblies"
{
"_D0A1428AD3AC48F3B2E7EA77C0E43B59"
@@ -1305,6 +1330,11 @@
"AssemblyAsmDisplayName" = "8:ArinNet, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL"
"ScatterAssemblies"
{
"_D1D8385A708F4CC36F9B3A4AE780D28F"
{
"Name" = "8:ArinNet.DLL"
"Attributes" = "3:512"
}
}
"SourcePath" = "8:ArinNet.DLL"
"TargetName" = "8:"
@@ -1551,7 +1581,7 @@
{
"{3C67513D-01DD-4637-8A68-80971EB9504F}:_70048218326048E8BC7BD5710CE134C7"
{
"DefaultLocation" = "8:C:\\ECO2-OD\\20250630_0002"
"DefaultLocation" = "8:C:\\ECO2-OD\\20250630_0003"
"Name" = "8:#1925"
"AlwaysCreate" = "11:FALSE"
"Condition" = "8:"
@@ -1744,7 +1774,7 @@
{
"{970C0BB2-C7D0-45D7-ABFA-7EC378858BC0}:_74E50AF9D4F841228E92BB281C6B3536"
{
"Name" = "8:ECO2OD_20250630_0002"
"Name" = "8:ECO2OD_20250630_0003"
"Arguments" = "8:"
"Description" = "8:"
"ShowCmd" = "3:1"
@@ -1758,7 +1788,7 @@
}
"{970C0BB2-C7D0-45D7-ABFA-7EC378858BC0}:_AD23C0226A124D8D9D69DB9D83AABF87"
{
"Name" = "8:ECO2OD_20250630_0002"
"Name" = "8:ECO2OD_20250630_0003"
"Arguments" = "8:"
"Description" = "8:"
"ShowCmd" = "3:1"