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

*오타정정

Browse Source 
*그래프에 씨오2 항목 추가
This commit is contained in:
raytrace
2021-10-23 23:31:49 +09:00
parent 50bb66aa4f
commit f9b8998cb1
7 changed files with 65 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -82,7 +82,7 @@
Dim Dr2 As DSR.Graph_ReqUseRow
For Gubun As Short = 0 To 2
For Gubun As Short = 0 To 3
Select Case Gubun
Case 0 '//1차에너지소요량
@@ -337,7 +337,56 @@
Dr2.type = "합계"
Dr2.Req = (난방에너지 + 냉방에너지 + 급탕에너지 + 조명에너지 + 환기에너지) * addmulti
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
Case 3 '//co2발생량
신재생에너지 = 0
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "CO2발생량"
Dr2.type = "신재생에너지"
Dr2.Req = 신재생에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
난방에너지 = Math.Round(Result1o.Co2발생량(0).난방면적, 1)
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "CO2발생량"
Dr2.type = "난방에너지"
Dr2.Req = 난방에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
냉방에너지 = Math.Round(Result1o.Co2발생량(0).냉방면적, 1)
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "CO2발생량"
Dr2.type = "냉방에너지"
Dr2.Req = 냉방에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
급탕에너지 = Math.Round(Result1o.Co2발생량(0).급탕면적, 1)
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "CO2발생량"
Dr2.type = "급탕에너지"
Dr2.Req = 급탕에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
조명에너지 = Math.Round(Result1o.Co2발생량(0).조명면적, 1)
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "CO2발생량"
Dr2.type = "조명에너지"
Dr2.Req = 조명에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
'계산결과!H92*3/계산결과!H27
환기에너지 = Math.Round(Result1o.Co2발생량(0).환기면적, 1)
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "CO2발생량"
Dr2.type = "환기에너지"
Dr2.Req = 환기에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
Dr2.Gubun = "CO2발생량"
Dr2.type = "합계"
Dr2.Req = 난방에너지 + 냉방에너지 + 급탕에너지 + 조명에너지 + 환기에너지
Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
End Select
Next
@@ -345,4 +394,7 @@
End Sub
Private Sub Frm_v20091231_Report_SizeChanged(sender As System.Object, e As System.EventArgs) Handles MyBase.SizeChanged
'Me.Text = Me.Size.ToString()
End Sub
End Class