4365 lines
247 KiB
VB.net
4365 lines
247 KiB
VB.net
Public Class Frm_Upload
|
|
|
|
Dim fn As String = ""
|
|
Dim silentmode As Boolean = False
|
|
Dim column As Integer = 10
|
|
Dim processfile As String
|
|
Public Sub New()
|
|
|
|
' 이 호출은 디자이너에 필요합니다.
|
|
InitializeComponent()
|
|
fn = ""
|
|
' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오.
|
|
|
|
End Sub
|
|
Public Sub New(_file As String, writecolumn As Integer, processfilename As String, Optional silent As Boolean = False)
|
|
|
|
' 이 호출은 디자이너에 필요합니다.
|
|
InitializeComponent()
|
|
fn = _file
|
|
silentmode = silent
|
|
column = writecolumn
|
|
processfile = processfilename
|
|
' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오.
|
|
|
|
End Sub
|
|
|
|
Function IsBatchProcess() As Boolean
|
|
Return column > 10
|
|
End Function
|
|
|
|
|
|
Private Sub Frm_Upload_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
|
|
|
|
' Me.Hide()
|
|
'Application.DoEvents()
|
|
|
|
|
|
'MakeGraphTable()
|
|
If IsBatchProcess() = False Then
|
|
LoadFile()
|
|
MakeDataXLS()
|
|
|
|
If fn <> "" Then
|
|
Try
|
|
If FpSpread1.SaveExcel(fn, FarPoint.Excel.ExcelSaveFlags.NoFlagsSet) Then
|
|
If silentmode = False Then
|
|
MsgBox("다음파일이 생성되었습니다" + vbCrLf + fn, MsgBoxStyle.Information, "확인")
|
|
End If
|
|
|
|
DialogResult = Windows.Forms.DialogResult.OK
|
|
Else
|
|
MsgBox("저장실패" + vbCrLf + fn, MsgBoxStyle.Critical, "확인")
|
|
Me.Close()
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox("저장실패" + vbCrLf + fn + vbCrLf + ex.Message, MsgBoxStyle.Critical, "확인")
|
|
Me.Close()
|
|
End Try
|
|
|
|
End If
|
|
|
|
Else
|
|
Dim buffer As String = MakeDataTAB()
|
|
|
|
If fn <> "" Then
|
|
Try
|
|
System.IO.File.AppendAllText(fn, buffer, System.Text.Encoding.Default)
|
|
DialogResult = Windows.Forms.DialogResult.OK
|
|
Catch ex As Exception
|
|
MsgBox("저장실패" + vbCrLf + fn + vbCrLf + ex.Message, MsgBoxStyle.Critical, "확인")
|
|
Me.Close()
|
|
End Try
|
|
|
|
End If
|
|
|
|
End If
|
|
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
|
|
LoadFile()
|
|
If IsBatchProcess() Then
|
|
MakeDataXLS()
|
|
Else
|
|
MakeDataTAB()
|
|
End If
|
|
'MakeData()
|
|
End Sub
|
|
|
|
Private Sub LoadFile()
|
|
Dim fn As String = AppDomain.CurrentDomain.BaseDirectory + "\upload.xlsx"
|
|
If column > 10 Then fn = Me.fn
|
|
If Not System.IO.File.Exists(fn) Then
|
|
MsgBox("업로드샘플파일(" + fn + ")가 존재하지 않습니다", MsgBoxStyle.Critical, "확인")
|
|
Return
|
|
End If
|
|
|
|
Try
|
|
If Me.FpSpread1.OpenExcel(fn) Then
|
|
MakeDataXLS()
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub MakeDataXLS()
|
|
'//결과데이터에서 자료를 추출하고 그 값을 넣는다
|
|
Dim DataColumnIndex As Integer = Me.column
|
|
Dim Row As Integer = 0
|
|
Dim DsReport As New DSR
|
|
|
|
|
|
|
|
'//건물개요 건물개요-공공기관 체크된 경우 '공공기관' 표시 - 160211
|
|
Dim drDesc As DS.tbl_DescRow = DSET1.tbl_Desc.Rows(0)
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = processfile : Row += 1 '//파일명
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drDesc.buildm21 : Row += 1 '//대지면적
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drDesc.buildm23 : Row += 1 '//연면적
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drDesc.buildm22 : Row += 1 '//건축면적
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drDesc.gujo : Row += 1 '//구조
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = String.Format("지하{0}층／지상{1}층", drDesc.builds1, drDesc.builds2) : Row += 1 '//건물규모
|
|
|
|
If drDesc.공공 = "1" Then '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "공공" : Row += 1 '//주체
|
|
Else
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "민간" : Row += 1 '//주체
|
|
End If
|
|
|
|
|
|
Dim 주거용 As Integer = CInt(drDesc.isjugo)
|
|
|
|
'//에너지 요구량
|
|
' Result1.E요구량(0).면적당요구량
|
|
Dim v1_1 As Double = Math.Round(Result1.E요구량(0).난방면적, 1)
|
|
Dim v1_2 As Double = Math.Round(Result1.E요구량(0).냉방면적, 1)
|
|
Dim v1_3 As Double = Math.Round(Result1.E요구량(0).급탕면적, 1)
|
|
Dim v1_4 As Double = Math.Round(Result1.E요구량(0).조명면적, 1)
|
|
Dim v1_s As Double = v1_1 + v1_2 + v1_3 + v1_4
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = v1_1.ToString("N1") : Row += 1 '//난방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = v1_2.ToString("N1") : Row += 1 '//냉방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = v1_3.ToString("N1") : Row += 1 '//급탕
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = v1_4.ToString("N1") : Row += 1 '//조명
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "0" : Row += 1 '//환기
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = v1_s.ToString("N1") : Row += 1 '//환기
|
|
|
|
'//에너지 소요량
|
|
Dim v2_1 As Double = Math.Round(Result1.E소요량(0).난방면적, 1)
|
|
Dim v2_2 As Double = Math.Round(Result1.E소요량(0).냉방면적, 1)
|
|
Dim v2_3 As Double = Math.Round(Result1.E소요량(0).급탕면적, 1)
|
|
Dim v2_4 As Double = Math.Round(Result1.E소요량(0).조명면적, 1)
|
|
Dim v2_5 As Double = Math.Round(Result1.E소요량(0).환기면적, 1)
|
|
Dim v2_s As Double = v2_1 + v2_2 + v2_3 + v2_4 + v2_5
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = v2_1.ToString("N1") : Row += 1 '//난방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = v2_2.ToString("N1") : Row += 1 '//냉방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = v2_3.ToString("N1") : Row += 1 '//급탕
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = v2_4.ToString("N1") : Row += 1 '//조명
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = v2_5.ToString("N1") : Row += 1 '//환기
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = v2_s.ToString("N1") : Row += 1 '//합계
|
|
|
|
'//1차에너지 소요량
|
|
Dim v3_1 As Double = Math.Round(Result1.일차E소요량(0).난방면적, 1)
|
|
Dim v3_2 As Double = Math.Round(Result1.일차E소요량(0).냉방면적, 1)
|
|
Dim v3_3 As Double = Math.Round(Result1.일차E소요량(0).급탕면적, 1)
|
|
Dim v3_4 As Double = Math.Round(Result1.일차E소요량(0).조명면적, 1)
|
|
Dim v3_5 As Double = Math.Round(Result1.일차E소요량(0).환기면적, 1)
|
|
Dim v3_s As Double = v3_1 + v3_2 + v3_3 + v3_4 + v3_5
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = v3_1.ToString("N1") : Row += 1 '//난방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = v3_2.ToString("N1") : Row += 1 '//냉방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = v3_3.ToString("N1") : Row += 1 '//급탕
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = v3_4.ToString("N1") : Row += 1 '//조명
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = v3_5.ToString("N1") : Row += 1 '//환기
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = v3_s.ToString("N1") : Row += 1 '//환기
|
|
|
|
Dim 합계 As Decimal = 0
|
|
'//등급용1차에너지
|
|
Dim 일차에너지소요량합계 As Decimal = 0 '//등급계산에서 사용함
|
|
Dim 난방에너지, 냉방에너지, 급탕에너지, 조명에너지, 환기에너지 As Single
|
|
If (Result1.사용면적.H_WF = 0) Then
|
|
난방에너지 = 0
|
|
Else
|
|
난방에너지 = Math.Round(Result1.일차E소요량(0).난방면적2 * Result1.사용면적.H / Result1.사용면적.H_WF, 1)
|
|
End If
|
|
If (Result1.사용면적.C_WF = 0) Then
|
|
냉방에너지 = 0
|
|
Else
|
|
냉방에너지 = Math.Round(TOSG(Result1.일차E소요량(0).냉방면적 * Result1.사용면적.C / Result1.사용면적.C_WF), 1)
|
|
End If
|
|
If (Result1.사용면적.W_WF = 0) Then
|
|
급탕에너지 = 0
|
|
Else
|
|
급탕에너지 = Math.Round(Result1.일차E소요량(0).급탕면적2 * Result1.사용면적.W / Result1.사용면적.W_WF, 1)
|
|
End If
|
|
If (Result1.사용면적.L_WF = 0) Then
|
|
조명에너지 = 0
|
|
Else
|
|
조명에너지 = Math.Round(Result1.일차E소요량(0).조명면적 * Result1.사용면적.L / Result1.사용면적.L_WF, 1)
|
|
End If
|
|
If (Result1.사용면적.V_WF = 0) Then
|
|
환기에너지 = 0
|
|
Else
|
|
환기에너지 = Math.Round(Result1.일차E소요량(0).환기면적 * Result1.사용면적.V / Result1.사용면적.V_WF, 1)
|
|
End If
|
|
일차에너지소요량합계 = 냉방에너지 + 난방에너지 + 급탕에너지 + 조명에너지 + 환기에너지
|
|
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 난방에너지.ToString : Row += 1 '//난방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 냉방에너지.ToString : Row += 1 '//냉방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 급탕에너지.ToString : Row += 1 '//급탕
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 조명에너지.ToString : Row += 1 '//조명
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 환기에너지.ToString : Row += 1 '//환기
|
|
합계 = 난방에너지 + 냉방에너지 + 급탕에너지 + 조명에너지 + 환기에너지
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 합계.ToString("N1") : Row += 1 '//환기
|
|
|
|
|
|
'//연간 CO2발생량
|
|
Dim StartCode As Integer = 81 '//76
|
|
Dim CO2_1, CO2_2, CO2_3, CO2_4, CO2_5 As Decimal
|
|
CO2_1 = Math.Round(RData("410", StartCode + 0), 1)
|
|
CO2_2 = Math.Round(RData("410", StartCode + 7), 1)
|
|
CO2_3 = Math.Round(RData("410", StartCode + 15), 1)
|
|
CO2_4 = Math.Round(RData("410", StartCode + 22), 1)
|
|
CO2_5 = Math.Round(RData("410", StartCode + 25), 1)
|
|
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = CO2_1.ToString : Row += 1 '//난방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = CO2_2.ToString : Row += 1 '//냉방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = CO2_3.ToString : Row += 1 '//급탕
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = CO2_4.ToString : Row += 1 '//조명
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = CO2_5.ToString : Row += 1 '//환기
|
|
합계 = CO2_1 + CO2_2 + CO2_3 + CO2_4 + CO2_5
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 합계.ToString() : Row += 1 '//환기
|
|
|
|
'//단위면적당 CO2발생량
|
|
StartCode = 79 '//76
|
|
CO2_1 = Math.Round(RData("410", StartCode + 8), 1)
|
|
CO2_2 = Math.Round(RData("410", StartCode + 16), 1)
|
|
CO2_3 = Math.Round(RData("410", StartCode + 23), 1)
|
|
CO2_4 = Math.Round(RData("410", StartCode + 26), 1)
|
|
CO2_5 = Math.Round(RData("410", StartCode + 29), 1)
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = CO2_1.ToString : Row += 1 '//난방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = CO2_2.ToString : Row += 1 '//냉방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = CO2_3.ToString : Row += 1 '//급탕
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = CO2_4.ToString : Row += 1 '//조명
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = CO2_5.ToString : Row += 1 '//환기
|
|
합계 = CO2_1 + CO2_2 + CO2_3 + CO2_4 + CO2_5
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 합계.ToString() : Row += 1 '//환기
|
|
|
|
'//평가결과값(report_pyonga 에서 가져옴)
|
|
Pub.항목별평가결과(DsReport)
|
|
If DsReport.Pyonga_YK.Rows.Count < 1 Then
|
|
MsgBox("구조체값이 생성되지 않았습니다", MsgBoxStyle.Critical, "확인")
|
|
Return
|
|
End If
|
|
Dim drYK As DSR.Pyonga_YKRow = DsReport.Pyonga_YK.Rows(0)
|
|
|
|
'//구조체
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.벽체종류 : Row += 1 '//난방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.벽체값.ToString("N3") : Row += 1 '//냉방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.지붕종류 : Row += 1 '//급탕
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.지붕값.ToString("N3") : Row += 1 '//조명
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.바닥종류 : Row += 1 '//환기
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.바닥값.ToString("N3") : Row += 1 '//환기
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.창호종류 : Row += 1 '//환기
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.창호값.ToString("N3") : Row += 1 '//환기
|
|
|
|
'//창면적비 9개(?)
|
|
Dim 창및문면적비, 외벽열관류율_평균 As Decimal
|
|
Dim 외벽열관류율_남 As Decimal
|
|
Dim 외벽열관류율_남동 As Decimal
|
|
Dim 외벽열관류율_동 As Decimal
|
|
Dim 외벽열관류율_북동 As Decimal
|
|
Dim 외벽열관류율_북 As Decimal
|
|
Dim 외벽열관류율_북서 As Decimal
|
|
Dim 외벽열관류율_서 As Decimal
|
|
Dim 외벽열관류율_남서 As Decimal
|
|
|
|
Dim 창열관류율_평균 As Decimal
|
|
Dim 창열관류율_남 As Decimal
|
|
Dim 창열관류율_남동 As Decimal
|
|
Dim 창열관류율_동 As Decimal
|
|
Dim 창열관류율_북동 As Decimal
|
|
Dim 창열관류율_북 As Decimal
|
|
Dim 창열관류율_북서 As Decimal
|
|
Dim 창열관류율_서 As Decimal
|
|
Dim 창열관류율_남서 As Decimal
|
|
|
|
Dim 일사에너지투과율_평균 As Decimal
|
|
Dim 일사에너지투과율_남 As Decimal
|
|
Dim 일사에너지투과율_남동 As Decimal
|
|
Dim 일사에너지투과율_동 As Decimal
|
|
Dim 일사에너지투과율_북동 As Decimal
|
|
Dim 일사에너지투과율_북 As Decimal
|
|
Dim 일사에너지투과율_북서 As Decimal
|
|
Dim 일사에너지투과율_서 As Decimal
|
|
Dim 일사에너지투과율_남서 As Decimal
|
|
|
|
|
|
calc_창및문면적비(창및문면적비, 외벽열관류율_평균, 창열관류율_평균, 일사에너지투과율_평균)
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창및문면적비.ToString("N2") : Row += 1 '//난방
|
|
calc_창및문면적비(창및문면적비, 외벽열관류율_남, 창열관류율_남, 일사에너지투과율_남, "남")
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창및문면적비.ToString("N2") : Row += 1 '//냉방
|
|
calc_창및문면적비(창및문면적비, 외벽열관류율_남동, 창열관류율_남동, 일사에너지투과율_남동, "남동")
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창및문면적비.ToString("N2") : Row += 1 '//급탕
|
|
calc_창및문면적비(창및문면적비, 외벽열관류율_동, 창열관류율_동, 일사에너지투과율_동, "동")
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창및문면적비.ToString("N2") : Row += 1 '//조명
|
|
calc_창및문면적비(창및문면적비, 외벽열관류율_북동, 창열관류율_북동, 일사에너지투과율_북동, "북동")
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창및문면적비.ToString("N2") : Row += 1 '//환기
|
|
calc_창및문면적비(창및문면적비, 외벽열관류율_북, 창열관류율_북, 일사에너지투과율_북, "북")
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창및문면적비.ToString("N2") : Row += 1 '//환기
|
|
calc_창및문면적비(창및문면적비, 외벽열관류율_북서, 창열관류율_북서, 일사에너지투과율_북서, "북서")
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창및문면적비.ToString("N2") : Row += 1 '//환기
|
|
calc_창및문면적비(창및문면적비, 외벽열관류율_서, 창열관류율_서, 일사에너지투과율_서, "서")
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창및문면적비.ToString("N2") : Row += 1 '//환기
|
|
calc_창및문면적비(창및문면적비, 외벽열관류율_남서, 창열관류율_남서, 일사에너지투과율_남서, "남서")
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창및문면적비.ToString("N2") : Row += 1 '//환기
|
|
|
|
'//평균열관류율 11개(?)
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 외벽열관류율_평균.ToString("N3") : Row += 1 '//난방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 외벽열관류율_남.ToString("N3") : Row += 1 '//냉방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 외벽열관류율_남동.ToString("N3") : Row += 1 '//급탕
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 외벽열관류율_동.ToString("N3") : Row += 1 '//조명
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 외벽열관류율_북동.ToString("N3") : Row += 1 '//환기
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 외벽열관류율_북.ToString("N3") : Row += 1 '//환기
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 외벽열관류율_북서.ToString("N3") : Row += 1 '//환기
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 외벽열관류율_서.ToString("N3") : Row += 1 '//환기
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 외벽열관류율_남서.ToString("N3") : Row += 1 '//환기
|
|
|
|
'//외벽지붕(평균열관류율)
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = calc_평균열관류율(New String() {"외벽(지붕)", "내벽(지붕)"}).ToString("N3") : Row += 1 '//환기
|
|
'//외벽바닥(평균열관류율)
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = calc_평균열관류율(New String() {"외벽(바닥)", "내벽(바닥)"}).ToString("N3") : Row += 1 '//환기
|
|
|
|
'//기밀성능(주거용 본인증)
|
|
Dim 기밀성능_침기율면적합 As Decimal = 0
|
|
Dim 기밀성능_면적합 As Decimal = 0
|
|
For Each drZOne As DS.tbl_zoneRow In DSET1.tbl_zone.Select("code <> '0'")
|
|
|
|
'//입력존수값이 없는것은 기본값 1로 처리를 한다
|
|
If String.IsNullOrWhiteSpace(drZOne.입력존의수) Then drZOne.입력존의수 = "1"
|
|
If Not IsNumeric(drZOne.입력존의수) Then drZOne.입력존의수 = "1"
|
|
Dim 존수2 As Integer = TOSG(drZOne.입력존의수)
|
|
If 존수2 < 1 Then Continue For
|
|
If Not IsNumeric(drZOne.면적) Then drZOne.면적 = "0"
|
|
If CInt(drZOne.면적) = 0 Then
|
|
MsgBox("입력존(" + drZOne.설명 + ") 의 면적이 입력되지 않았습니다", MsgBoxStyle.Critical, "확인")
|
|
Continue For
|
|
End If
|
|
|
|
기밀성능_면적합 += (존수2 * drZOne.면적)
|
|
기밀성능_침기율면적합 += (drZOne.침기율 * (존수2 * drZOne.면적))
|
|
Next
|
|
Dim 기밀성능 As Decimal = 0
|
|
If 기밀성능_면적합 <> 0 Then 기밀성능 = 기밀성능_침기율면적합 / 기밀성능_면적합
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 기밀성능.ToString("N2") : Row += 1 '//환기
|
|
|
|
'//용도프로필 (tbl_profile, tbl_zone , zone에서 profile 을 연결함 필드명은 프로필
|
|
Dim 면적_총합 As Decimal = 0
|
|
Dim 면적_소규모사무실 As Decimal = 0
|
|
Dim 면적_대규모사무실 As Decimal = 0
|
|
Dim 면적_회의및세미나실 As Decimal = 0
|
|
Dim 면적_강당 As Decimal = 0
|
|
Dim 면적_구내식당 As Decimal = 0
|
|
Dim 면적_화장실 As Decimal = 0
|
|
Dim 면적_그외체류공간 As Decimal = 0
|
|
Dim 면적_부속공간 As Decimal = 0
|
|
Dim 면적_창고설비문서실 As Decimal = 0
|
|
Dim 면적_전산실 As Decimal = 0
|
|
Dim 면적_주방및조리실 As Decimal = 0
|
|
Dim 면적_병실 As Decimal = 0
|
|
Dim 면적_객실 As Decimal = 0
|
|
Dim 면적_교실 As Decimal = 0
|
|
Dim 면적_강의실 As Decimal = 0
|
|
Dim 면적_매장 As Decimal = 0
|
|
Dim 면적_전시실 As Decimal = 0
|
|
Dim 면적_열람실 As Decimal = 0
|
|
Dim 면적_체육시설 As Decimal = 0
|
|
|
|
Dim 면적_주거공간 As Decimal = 0
|
|
Dim 면적_구내식당_초중고 As Decimal = 0
|
|
Dim 면적_주방및조리실_초중고 As Decimal = 0
|
|
Dim 면적_체육시설_초중고 As Decimal = 0
|
|
'Dim 면적_어린이집_유치원 As Decimal = 0
|
|
'Dim 면적_12종근린생활시설 As Decimal = 0
|
|
'Dim 면적_서버실 As Decimal = 0
|
|
'Dim 면적_고밀도서버실 As Decimal = 0
|
|
''''''''''''''''''''''''''''''''''''''
|
|
Dim 비중_소규모사무실 As Decimal = 0 '//0001
|
|
Dim 비중_대규모사무실 As Decimal = 0 '//0002
|
|
Dim 비중_회의및세미나실 As Decimal = 0 '//0003
|
|
Dim 비중_강당 As Decimal = 0 '//0004
|
|
Dim 비중_구내식당 As Decimal = 0 '//0005
|
|
Dim 비중_화장실 As Decimal = 0 '//0006
|
|
Dim 비중_그외체류공간 As Decimal = 0 '//0007
|
|
Dim 비중_부속공간 As Decimal = 0 '//0008
|
|
Dim 비중_창고설비문서실 As Decimal = 0 '//0009
|
|
Dim 비중_전산실 As Decimal = 0 '//0010
|
|
Dim 비중_주방및조리실 As Decimal = 0 '//0011
|
|
Dim 비중_병실 As Decimal = 0 '//0012
|
|
Dim 비중_객실 As Decimal = 0 '//0013
|
|
Dim 비중_교실 As Decimal = 0 '//0014
|
|
Dim 비중_강의실 As Decimal = 0 '//0015
|
|
Dim 비중_매장 As Decimal = 0 '//0016
|
|
Dim 비중_전시실 As Decimal = 0 '//0017
|
|
Dim 비중_열람실 As Decimal = 0 '//0018
|
|
Dim 비중_체육시설 As Decimal = 0 '//0019
|
|
|
|
Dim 비중_주거공간 As Decimal = 0 '//0020
|
|
Dim 비중_구내식당_초중고 As Decimal = 0 '//0020
|
|
Dim 비중_주방및조리실_초중고 As Decimal = 0 '//0021
|
|
Dim 비중_체육시설_초중고 As Decimal = 0 '//0022
|
|
'Dim 비중_어린이집_유치원 As Decimal = 0 '//0023
|
|
'Dim 비중_12종근린생활시설 As Decimal = 0 '//0024
|
|
'Dim 비중_서버실 As Decimal = 0 '//0025
|
|
'Dim 비중_고밀도서버실 As Decimal = 0 '//0026
|
|
|
|
Dim 면적 As Decimal = 0
|
|
For Each drzone As DS.tbl_zoneRow In DSET1.tbl_zone.Select("code <> '0' and 프로필 <> '' and 면적 <> '0' and 면적 <> '' ")
|
|
If Not IsNumeric(drzone.면적) Then drzone.면적 = "0"
|
|
|
|
|
|
Dim 존수2 As Integer = 0
|
|
If IsNumeric(drzone.입력존의수) Then
|
|
존수2 = CInt(drzone.입력존의수)
|
|
Else
|
|
존수2 = 1
|
|
End If
|
|
If IsNumeric(drzone.면적) Then
|
|
면적 = drzone.면적 * 존수2
|
|
Else
|
|
면적 = 0
|
|
End If
|
|
|
|
면적_총합 += 면적
|
|
|
|
If drzone.프로필 = "0001" Then 면적_소규모사무실 += 면적 '//0001
|
|
If drzone.프로필 = "0002" Then 면적_대규모사무실 += 면적 '//0002
|
|
If drzone.프로필 = "0003" Then 면적_회의및세미나실 += 면적 '//0003
|
|
If drzone.프로필 = "0004" Then 면적_강당 += 면적 '//0004
|
|
If drzone.프로필 = "0005" Then 면적_구내식당 += 면적 '//0005
|
|
If drzone.프로필 = "0006" Then 면적_화장실 += 면적 '//0006
|
|
If drzone.프로필 = "0007" Then 면적_그외체류공간 += 면적 '//0007
|
|
If drzone.프로필 = "0008" Then 면적_부속공간 += 면적 '//0008
|
|
If drzone.프로필 = "0009" Then 면적_창고설비문서실 += 면적 '//0009
|
|
If drzone.프로필 = "0010" Then 면적_전산실 += 면적 '//0010
|
|
If drzone.프로필 = "0011" Then 면적_주방및조리실 += 면적 '//0011
|
|
If drzone.프로필 = "0012" Then 면적_병실 += 면적 '//0012
|
|
If drzone.프로필 = "0013" Then 면적_객실 += 면적 '//0013
|
|
If drzone.프로필 = "0014" Then 면적_교실 += 면적 '//0014
|
|
If drzone.프로필 = "0015" Then 면적_강의실 += 면적 '//0015
|
|
If drzone.프로필 = "0016" Then 면적_매장 += 면적 '//0016
|
|
If drzone.프로필 = "0017" Then 면적_전시실 += 면적 '//0017
|
|
If drzone.프로필 = "0018" Then 면적_열람실 += 면적 '//0018
|
|
If drzone.프로필 = "0019" Then 면적_체육시설 += 면적 '//0019
|
|
|
|
If drzone.프로필 = "0000" Then 면적_주거공간 += 면적 '//0020
|
|
If drzone.프로필 = "0020" Then 면적_구내식당_초중고 += 면적 '//0020
|
|
If drzone.프로필 = "0021" Then 면적_주방및조리실_초중고 += 면적 '//0021
|
|
If drzone.프로필 = "0022" Then 면적_체육시설_초중고 += 면적 '//0022
|
|
|
|
'If drzone.프로필 = "0023" Then 면적_어린이집_유치원 += 면적 '//0023
|
|
'If drzone.프로필 = "0024" Then 면적_12종근린생활시설 += 면적 '//0024
|
|
'If drzone.프로필 = "0025" Then 면적_서버실 += 면적 '//0025
|
|
'If drzone.프로필 = "0026" Then 면적_고밀도서버실 += 면적 '//0026
|
|
|
|
Next
|
|
|
|
비중_소규모사무실 = (면적_소규모사무실 / 면적_총합) * 100 '//0001
|
|
비중_대규모사무실 = (면적_대규모사무실 / 면적_총합) * 100 '//0002
|
|
비중_회의및세미나실 = (면적_회의및세미나실 / 면적_총합) * 100 '//0003
|
|
비중_강당 = (면적_강당 / 면적_총합) * 100 '//0004
|
|
비중_구내식당 = (면적_구내식당 / 면적_총합) * 100 '//0005
|
|
비중_화장실 = (면적_화장실 / 면적_총합) * 100 '//0006
|
|
비중_그외체류공간 = (면적_그외체류공간 / 면적_총합) * 100 '//0007
|
|
비중_부속공간 = (면적_부속공간 / 면적_총합) * 100 '//0008
|
|
비중_창고설비문서실 = (면적_창고설비문서실 / 면적_총합) * 100 '//0009
|
|
비중_전산실 = (면적_전산실 / 면적_총합) * 100 '//0010
|
|
비중_주방및조리실 = (면적_주방및조리실 / 면적_총합) * 100 '//0011
|
|
비중_병실 = (면적_병실 / 면적_총합) * 100 '//0012
|
|
비중_객실 = (면적_객실 / 면적_총합) * 100 '//0013
|
|
비중_교실 = (면적_교실 / 면적_총합) * 100 '//0014
|
|
비중_강의실 = (면적_강의실 / 면적_총합) * 100 '//0015
|
|
비중_매장 = (면적_매장 / 면적_총합) * 100 '//0016
|
|
비중_전시실 = (면적_전시실 / 면적_총합) * 100 '//0017
|
|
비중_열람실 = (면적_열람실 / 면적_총합) * 100 '//0018
|
|
비중_체육시설 = (면적_체육시설 / 면적_총합) * 100 '//0019
|
|
|
|
비중_주거공간 = (면적_주거공간 / 면적_총합) * 100 '//0000
|
|
비중_구내식당_초중고 = (면적_구내식당_초중고 / 면적_총합) * 100 '//0020
|
|
비중_주방및조리실_초중고 = (면적_주방및조리실_초중고 / 면적_총합) * 100 '//0021
|
|
비중_체육시설_초중고 = (면적_체육시설_초중고 / 면적_총합) * 100 '//0022
|
|
|
|
'비중_어린이집_유치원 = (면적_어린이집_유치원 / 면적_총합) * 100 '//0023
|
|
'비중_12종근린생활시설 = (면적_12종근린생활시설 / 면적_총합) * 100 '//0024
|
|
'비중_서버실 = (면적_서버실 / 면적_총합) * 100 '//0025
|
|
'비중_고밀도서버실 = (면적_고밀도서버실 / 면적_총합) * 100 '//0026
|
|
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_소규모사무실.ToString("N2") : Row += 1 '//난방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_소규모사무실.ToString("N2") : Row += 1 '//냉방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_대규모사무실.ToString("N2") : Row += 1 '//난방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_대규모사무실.ToString("N2") : Row += 1 '//냉방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_회의및세미나실.ToString("N2") : Row += 1 '//난방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_회의및세미나실.ToString("N2") : Row += 1 '//냉방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_강당.ToString("N2") : Row += 1 '//난방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_강당.ToString("N2") : Row += 1 '//냉방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_구내식당.ToString("N2") : Row += 1 '//난방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_구내식당.ToString("N2") : Row += 1 '//냉방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_화장실.ToString("N2") : Row += 1 '//난방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_화장실.ToString("N2") : Row += 1 '//냉방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_그외체류공간.ToString("N2") : Row += 1 '//난방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_그외체류공간.ToString("N2") : Row += 1 '//냉방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_부속공간.ToString("N2") : Row += 1 '//난방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_부속공간.ToString("N2") : Row += 1 '//냉방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_창고설비문서실.ToString("N2") : Row += 1 '//난방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_창고설비문서실.ToString("N2") : Row += 1 '//냉방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_전산실.ToString("N2") : Row += 1 '//난방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_전산실.ToString("N2") : Row += 1 '//냉방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_주방및조리실.ToString("N2") : Row += 1 '//난방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_주방및조리실.ToString("N2") : Row += 1 '//냉방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_병실.ToString("N2") : Row += 1 '//난방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_병실.ToString("N2") : Row += 1 '//냉방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_객실.ToString("N2") : Row += 1 '//난방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_객실.ToString("N2") : Row += 1 '//냉방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_교실.ToString("N2") : Row += 1 '//난방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_교실.ToString("N2") : Row += 1 '//냉방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_강의실.ToString("N2") : Row += 1 '//난방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_강의실.ToString("N2") : Row += 1 '//냉방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_매장.ToString("N2") : Row += 1 '//난방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_매장.ToString("N2") : Row += 1 '//냉방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_전시실.ToString("N2") : Row += 1 '//난방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_전시실.ToString("N2") : Row += 1 '//냉방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_열람실.ToString("N2") : Row += 1 '//난방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_열람실.ToString("N2") : Row += 1 '//냉방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_체육시설.ToString("N2") : Row += 1 '//난방
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_체육시설.ToString("N2") : Row += 1 '//냉방
|
|
'FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_구내식당_초중고.ToString("N2") : Row += 1 '//난방
|
|
'FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_구내식당_초중고.ToString("N2") : Row += 1 '//냉방
|
|
'FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_주방및조리실_초중고.ToString("N2") : Row += 1 '//난방
|
|
'FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_주방및조리실_초중고.ToString("N2") : Row += 1 '//냉방
|
|
'FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_체육시설_초중고.ToString("N2") : Row += 1 '//난방
|
|
'FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_체육시설_초중고.ToString("N2") : Row += 1 '//냉방
|
|
'FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_어린이집_유치원.ToString("N2") : Row += 1 '//난방
|
|
'FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_어린이집_유치원.ToString("N2") : Row += 1 '//냉방
|
|
'FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_12종근린생활시설.ToString("N2") : Row += 1 '//난방
|
|
'FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_12종근린생활시설.ToString("N2") : Row += 1 '//냉방
|
|
'FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_서버실.ToString("N2") : Row += 1 '//난방
|
|
'FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_서버실.ToString("N2") : Row += 1 '//냉방
|
|
'FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_고밀도서버실.ToString("N2") : Row += 1 '//난방
|
|
'FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_고밀도서버실.ToString("N2") : Row += 1 '//냉방
|
|
|
|
|
|
|
|
'//기계부문평가항목-냉난방방식-난방
|
|
' Dim MaxValue As Decimal = 0
|
|
'Dim MaxValueTitle As String = ""
|
|
Dim 난방용량합 As Decimal = 0
|
|
Dim 난방용량합_전기 As Decimal = 0
|
|
Dim 난방용량합_비전기 As Decimal = 0
|
|
Dim 난방용량비율_전기 As Decimal = 0
|
|
Dim 난방용량비율_비전기 As Decimal = 0
|
|
Dim 펌프동력합 As Decimal = 0
|
|
Dim 냉난방방식_난방 As String = ""
|
|
For Each dr난방 As DS.tbl_nanbangkikiRow In DSET1.tbl_nanbangkiki.Select("code <> '0'")
|
|
Dim filter As String = String.Format("code <> '0' and 열생산난방생산기기='{0}' or 공조난방생산기기='{0}'", dr난방.code)
|
|
Dim 존수3 As Integer = 0
|
|
For Each dr존 As DS.tbl_zoneRow In DSET1.tbl_zone.Select(filter)
|
|
If Not IsNumeric(dr존.입력존의수) Then dr존.입력존의수 = "1"
|
|
존수3 += CInt(dr존.입력존의수)
|
|
Next
|
|
|
|
If Not IsNumeric(dr난방.보일러정격출력) Then dr난방.보일러정격출력 = "0"
|
|
If Not IsNumeric(dr난방.열교환기정격출력) Then dr난방.열교환기정격출력 = "0"
|
|
If Not IsNumeric(dr난방.히트난방용량) Then dr난방.히트난방용량 = "0"
|
|
|
|
|
|
Dim 개별식형태 As Boolean = dr난방.개별기기적용
|
|
If Not 개별식형태 AndAlso 존수3 = 1 Then 개별식형태 = True '//입력존이 1이면 개별식형태로 한다
|
|
|
|
|
|
If 냉난방방식_난방 = "" Then
|
|
냉난방방식_난방 = IIf(개별식형태, "개별식", "중앙식")
|
|
ElseIf 냉난방방식_난방 = "개별식" AndAlso Not 개별식형태 Then
|
|
냉난방방식_난방 = "혼합식"
|
|
ElseIf 냉난방방식_난방 = "중앙식" AndAlso 개별식형태 Then
|
|
냉난방방식_난방 = "혼합식"
|
|
End If
|
|
|
|
|
|
Dim 최대값 As Decimal = 0
|
|
If dr난방.개별기기적용 Then
|
|
|
|
|
|
|
|
최대값 = Math.Max(TOSG(dr난방.보일러정격출력), TOSG(dr난방.열교환기정격출력))
|
|
최대값 = Math.Max(최대값, TOSG(dr난방.히트난방용량))
|
|
최대값 *= 존수3
|
|
|
|
펌프동력합 += TOSG(dr난방.펌프동력) * 존수3
|
|
|
|
If dr난방.열생산기기방식 = "히트펌프" Then
|
|
난방용량합 += TOSG(dr난방.히트난방용량) * 존수3
|
|
If dr난방.히트연료 = "전기" Then 난방용량합_전기 += TOSG(dr난방.히트난방용량) * 존수3
|
|
ElseIf dr난방.열생산기기방식 = "전기보일러" Then
|
|
난방용량합 += TOSG(dr난방.보일러정격출력) * 존수3
|
|
난방용량합_전기 += TOSG(dr난방.보일러정격출력) * 존수3
|
|
ElseIf dr난방.열생산기기방식 = "지역난방" Then
|
|
난방용량합 += TOSG(dr난방.열교환기정격출력) * 존수3
|
|
Else
|
|
난방용량합 += 최대값 '//모를경우에는 해당값중 최대값을 사용함(임의처리함 arin)
|
|
End If
|
|
|
|
Else
|
|
|
|
|
|
|
|
|
|
|
|
펌프동력합 += TOSG(dr난방.펌프동력)
|
|
|
|
최대값 = Math.Max(TOSG(dr난방.보일러정격출력), TOSG(dr난방.열교환기정격출력))
|
|
|
|
If dr난방.열생산기기방식 = "히트펌프" Then
|
|
난방용량합 += TOSG(dr난방.히트난방용량)
|
|
If dr난방.히트연료 = "전기" Then 난방용량합_전기 += TOSG(dr난방.히트난방용량)
|
|
ElseIf dr난방.열생산기기방식 = "전기보일러" Then
|
|
난방용량합 += TOSG(dr난방.보일러정격출력)
|
|
난방용량합_전기 += TOSG(dr난방.보일러정격출력)
|
|
ElseIf dr난방.열생산기기방식 = "지역난방" Then
|
|
난방용량합 += TOSG(dr난방.열교환기정격출력)
|
|
Else
|
|
난방용량합 += 최대값 '//모를경우에는 해당값중 최대값을 사용함(임의처리함 arin)
|
|
End If
|
|
End If
|
|
'If 최대값 > MaxValue Then
|
|
' MaxValue = 최대값
|
|
' MaxValueTitle = dr난방.설명
|
|
'End If
|
|
Next
|
|
|
|
난방용량합_비전기 = 난방용량합 - 난방용량합_전기
|
|
If 난방용량합 <> 0 Then
|
|
난방용량비율_전기 = (난방용량합_전기 / 난방용량합) * 100
|
|
난방용량비율_비전기 = (난방용량합_비전기 / 난방용량합) * 100
|
|
End If
|
|
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 냉난방방식_난방 : Row += 1 '//난방
|
|
|
|
'//기계부문평가항목-냉난방방식-냉방
|
|
'MaxValue = 0
|
|
'MaxValueTitle = ""
|
|
Dim 냉방용량합 As Decimal = 0
|
|
Dim 냉방용량합_전기 As Decimal = 0
|
|
Dim 냉난방방식_냉방 As String = ""
|
|
For Each dr냉방 As DS.tbl_nangbangkikiRow In DSET1.tbl_nangbangkiki.Select("code <> '0'")
|
|
Dim filter As String = String.Format("열생산냉방생산기기='{0}' or 공조냉방생산기기='{0}'", dr냉방.code)
|
|
Dim 존수4 As Integer = 0
|
|
For Each dr존 As DS.tbl_zoneRow In DSET1.tbl_zone.Select(filter)
|
|
If Not IsNumeric(dr존.입력존의수) Then dr존.입력존의수 = "1"
|
|
존수4 += CInt(dr존.입력존의수)
|
|
Next
|
|
|
|
If Not IsNumeric(dr냉방.냉동기용량) Then dr냉방.냉동기용량 = "0"
|
|
|
|
Dim 개별식형태 As Boolean = dr냉방.개별기기적용
|
|
If Not 개별식형태 AndAlso 존수4 = 1 Then 개별식형태 = True '//입력존이 1이면 개별식형태로 한다
|
|
|
|
If 냉난방방식_냉방 = "" Then
|
|
냉난방방식_냉방 = IIf(개별식형태, "개별식", "중앙식")
|
|
ElseIf 냉난방방식_냉방 = "개별식" AndAlso Not 개별식형태 Then
|
|
냉난방방식_냉방 = "혼합식"
|
|
ElseIf 냉난방방식_냉방 = "중앙식" AndAlso 개별식형태 Then
|
|
냉난방방식_냉방 = "혼합식"
|
|
End If
|
|
|
|
|
|
Dim 최대값 As Decimal = 0
|
|
If dr냉방.개별기기적용 Then
|
|
최대값 = TOSG(dr냉방.냉동기용량) * 존수4
|
|
냉방용량합 += TOSG(dr냉방.냉동기용량) * 존수4
|
|
If dr냉방.냉동기방식 = "압축식" Then 냉방용량합_전기 += TOSG(dr냉방.냉동기용량) * 존수4
|
|
Else
|
|
최대값 = TOSG(dr냉방.냉동기용량)
|
|
냉방용량합 += TOSG(dr냉방.냉동기용량)
|
|
If dr냉방.냉동기방식 = "압축식" Then 냉방용량합_전기 += TOSG(dr냉방.냉동기용량)
|
|
End If
|
|
|
|
'If 최대값 > MaxValue Then
|
|
' MaxValue = 최대값
|
|
' MaxValueTitle = dr냉방.설명
|
|
'End If
|
|
Next
|
|
Dim 냉방용량합_비전기 As Decimal = 냉방용량합 - 냉방용량합_전기
|
|
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 냉난방방식_냉방 : Row += 1 '//냉방
|
|
|
|
'//전력수요관리시설(냉방)-전기사용설비-용량합 %
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 냉방용량합_전기.ToString("N2") : Row += 1
|
|
|
|
'//전력수요관리시설(냉방)-전기사용설비-비중 %
|
|
Dim 전기사용설비비중 As Decimal = 0
|
|
If 냉방용량합 <> 0 Then 전기사용설비비중 = (냉방용량합_전기 / 냉방용량합) * 100
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 전기사용설비비중.ToString("N2") : Row += 1
|
|
|
|
'//전력수요관리시설(냉방)-비전기사용설비-용량
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 냉방용량합_비전기.ToString("N2") : Row += 1
|
|
'//전력수요관리시설(냉방)-비전기사용설비-비중
|
|
Dim 비전기사용설비비중 As Decimal = 0
|
|
If 냉방용량합 <> 0 Then 비전기사용설비비중 = (냉방용량합_비전기 / 냉방용량합) * 100
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비전기사용설비비중.ToString("N2") : Row += 1
|
|
|
|
'//전력수요관리시설(난방)-전기사용설비-용량 kw
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 난방용량합_전기.ToString("N2") : Row += 1
|
|
'//전력수요관리시설(난방)-전기사용설비-비중 %
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 난방용량비율_전기.ToString("N2") : Row += 1
|
|
'//전력수요관리시설(난방)-비전기사용설비-용량
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 난방용량합_비전기.ToString("N2") : Row += 1
|
|
'//전력수요관리시설(난방)-비전기사용설비-비중
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 난방용량비율_비전기.ToString("N2") : Row += 1
|
|
|
|
'/온열월설비-난방방식
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.온열원설비방식 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.온열원설비연료 : Row += 1 '/온열월설비-사용연료
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.온열원용량 : Row += 1 '/온열월설비-용량
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.온열원효율 : Row += 1 '/온열월설비-효율
|
|
|
|
'/냉열원설비-냉방방식
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.냉열원설비방식 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.냉열원설비연료 : Row += 1 '/냉열원설비-사용연료
|
|
'//냉열원설비용량 160214
|
|
Dim 냉열원설비용량 As Decimal = 0
|
|
For Each dr냉방 As DS.tbl_nangbangkikiRow In DSET1.tbl_nangbangkiki.Select("code <> '0'")
|
|
If Not IsNumeric(dr냉방.냉동기용량) Then dr냉방.냉동기용량 = "0"
|
|
|
|
If Not dr냉방.개별기기적용 Then
|
|
냉열원설비용량 += dr냉방.냉동기용량
|
|
Else
|
|
Dim filter As String = String.Format("열생산냉방생산기기='{0}' or 공조냉방생산기기='{0}'", dr냉방.code)
|
|
Dim DR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select(filter)
|
|
Dim cnt As Integer = 0
|
|
For Each drow As DS.tbl_zoneRow In DR
|
|
Dim 입력존수문자 As Integer = drow.입력존의수
|
|
If IsNumeric(입력존수문자) = False Then 입력존수문자 = "1"
|
|
cnt += CInt(입력존수문자)
|
|
Next
|
|
냉열원설비용량 += (dr냉방.냉동기용량 * cnt)
|
|
End If
|
|
Next
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 냉열원설비용량 : Row += 1 '/냉열원설비-용량
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.냉열원효율 : Row += 1 '/냉열원설비-효율
|
|
|
|
'//급탕설비-급탕방식
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.급탕설비방식 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.급탕설비연료 : Row += 1 '//급탕설비-사용연료
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.급탕용량 : Row += 1 '//급탕설비-용량
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.급탕효율 : Row += 1 '//급탕설비-효율
|
|
|
|
'//펌프-순환수용-동력
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 펌프동력합.ToString("N2") : Row += 1
|
|
|
|
'//펌프-순환수용-효율(eco2 미지원)
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "X" : Row += 1
|
|
|
|
'//펌프-급탕용-동력
|
|
Dim dr난방기기() As DS.tbl_nanbangkikiRow = DSET1.tbl_nanbangkiki.Select("code <> '0' and code <> '0000'")
|
|
Dim 펌프_급탕용_동력합 As Decimal = 0.0F
|
|
For Each dr난방 As DS.tbl_nanbangkikiRow In dr난방기기
|
|
Dim 연결존수 As Integer = 0
|
|
Dim DRZ() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("code <> '0' and 열생산급탕생산기기='" & dr난방.code & "'")
|
|
For Each drow As DS.tbl_zoneRow In DRZ
|
|
Dim 입력존수문자 As Integer = drow.입력존의수
|
|
If IsNumeric(입력존수문자) = False Then 입력존수문자 = "1"
|
|
연결존수 += CInt(입력존수문자)
|
|
Next
|
|
If 연결존수 > 0 Then
|
|
If Not IsNumeric(dr난방.펌프동력급탕) Then dr난방.펌프동력급탕 = "0"
|
|
펌프_급탕용_동력합 += TOSG(dr난방.펌프동력급탕)
|
|
End If
|
|
Next
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 펌프_급탕용_동력합 : Row += 1
|
|
'//펌프-급탕용-효율(eco2 미지원)
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "X" : Row += 1
|
|
|
|
'//송풍기관련로직(160211)
|
|
Dim filter2 As String = "code <> '0' and code <> '0000' and ( 열교환기유형 = '전열교환' or 열교환기유형='현열교환' or 열교환기유형 = '열회수불가')"
|
|
filter2 = "code <> '0' and code <> '0000'"
|
|
Dim dr공조기기() As DS.tbl_kongjoRow = DSET1.tbl_kongjo.Select(filter2)
|
|
Dim 송풍기_급기_풍량_합 As Decimal = 0
|
|
Dim 송풍기_급기_팬동력_합 As Decimal = 0
|
|
Dim 송풍기_급기_팬효율_평균 As Decimal = 0
|
|
Dim 송풍기_급기_팬효율_합 As Decimal = 0
|
|
Dim 송풍기_배기_풍량_합 As Decimal = 0
|
|
Dim 송풍기_배기_팬동력_합 As Decimal = 0
|
|
Dim 송풍기_배기_팬효율_평균 As Decimal = 0
|
|
Dim 송풍기_배기_팬효율_합 As Decimal = 0
|
|
Dim 전열교환기_풍량_합 As Decimal = 0
|
|
Dim 전열교환기_전열풍량_합 As Decimal = 0
|
|
Dim 전열교환기_열회수효율_난방_합 As Decimal = 0
|
|
Dim 전열교환기_열회수효율_냉방_합 As Decimal = 0
|
|
Dim 전열교환기_열회수효율_난방_수 As Integer = 0
|
|
Dim 전열교환기_열회수효율_냉방_수 As Integer = 0
|
|
|
|
'Dim 송풍기연결면적합 As Decimal = 0 '//전체면적합
|
|
|
|
'//160327 로직변경
|
|
For Each dr공조 As DS.tbl_kongjoRow In dr공조기기
|
|
|
|
|
|
Dim 연결존수 As Integer = 0
|
|
Dim DRz() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("냉난방공조처리시스템='" & dr공조.code & "'")
|
|
If DRz.Length < 1 Then Continue For '//연결이되지 않은 기기는 넘어가도록 한다
|
|
|
|
For Each drow As DS.tbl_zoneRow In DRz
|
|
If Not IsNumeric(drow.입력존의수) Then drow.입력존의수 = "0"
|
|
If Not IsNumeric(drow.면적) Then drow.면적 = "0"
|
|
연결존수 += CInt(drow.입력존의수)
|
|
'송풍기연결면적합 += (TOSG(drow.면적) * TOSG(drow.입력존의수))
|
|
Next
|
|
|
|
'//연결된 존중 입력존의수값이 0이라면 처리하지 않는다
|
|
If 연결존수 < 1 Then Continue For
|
|
|
|
'//160327 - 열교환기유형에따라서 계산식 변경
|
|
If dr공조.열교환기유형 = "열회수불가" Then
|
|
|
|
'//송풍기
|
|
송풍기_급기_풍량_합 += TOSG(dr공조.급기풍량)
|
|
송풍기_급기_팬동력_합 += TOSG(dr공조.급기팬동력)
|
|
If TOSG(dr공조.총효율급기팬) > 0 Then
|
|
송풍기_급기_팬효율_합 += TOSG(dr공조.총효율급기팬) * TOSG(dr공조.급기풍량)
|
|
End If
|
|
|
|
송풍기_배기_풍량_합 += TOSG(dr공조.배기풍량)
|
|
송풍기_배기_팬동력_합 += TOSG(dr공조.배기팬동력)
|
|
If TOSG(dr공조.총효율배기팬) > 0 Then
|
|
송풍기_배기_팬효율_합 += TOSG(dr공조.총효율배기팬) * TOSG(dr공조.배기풍량)
|
|
End If
|
|
|
|
Else
|
|
|
|
'//전열교환기
|
|
If TOSG(dr공조.열회수율) <> 0 Then
|
|
전열교환기_열회수효율_난방_합 += TOSG(dr공조.열회수율)
|
|
전열교환기_열회수효율_난방_수 += 1
|
|
End If
|
|
|
|
If TOSG(dr공조.열회수율냉) <> 0 Then
|
|
전열교환기_열회수효율_냉방_합 += TOSG(dr공조.열회수율냉)
|
|
전열교환기_열회수효율_냉방_수 += 1
|
|
End If
|
|
|
|
전열교환기_풍량_합 += TOSG(dr공조.급기풍량) + TOSG(dr공조.배기풍량)
|
|
|
|
If dr공조.열교환기유형 = "전열교환" Then
|
|
전열교환기_전열풍량_합 += TOSG(dr공조.급기풍량) + TOSG(dr공조.배기풍량)
|
|
End If
|
|
|
|
End If
|
|
Next
|
|
|
|
If 송풍기_급기_풍량_합 > 0 Then
|
|
송풍기_급기_팬효율_평균 = 송풍기_급기_팬효율_합 / 송풍기_급기_풍량_합
|
|
End If
|
|
If 송풍기_배기_풍량_합 > 0 Then
|
|
송풍기_배기_팬효율_평균 = 송풍기_배기_팬효율_합 / 송풍기_배기_풍량_합
|
|
End If
|
|
|
|
|
|
'//송풍기-급기-풍량
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 송풍기_급기_풍량_합 : Row += 1
|
|
'//송풍기-급기-동력
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 송풍기_급기_팬동력_합 : Row += 1
|
|
'//송풍기-급기-효율
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 송풍기_급기_팬효율_평균.ToString("N3") : Row += 1
|
|
|
|
'//송풍기-배기-풍량
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 송풍기_배기_풍량_합 : Row += 1
|
|
'//송풍기-배기-동력
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 송풍기_배기_팬동력_합 : Row += 1
|
|
'//송풍기-배기-효율
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 송풍기_배기_팬효율_평균.ToString("N3") : Row += 1
|
|
|
|
'//전열교환기-풍량
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 전열교환기_풍량_합 : Row += 1
|
|
'//전열교환기-비중
|
|
Dim 전열교환기비중 As Decimal = 0
|
|
If 전열교환기_풍량_합 > 0 Then 전열교환기비중 = (전열교환기_풍량_합 / (전열교환기_풍량_합 + 송풍기_배기_풍량_합 + 송풍기_급기_풍량_합)) * 100
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 전열교환기비중.ToString("N3") + "%" : Row += 1
|
|
'//전열교환기-열회수효율-난방
|
|
Dim 전열교환기_열회수효율_난방_평균 As Decimal = 0
|
|
If 전열교환기_열회수효율_난방_수 > 0 Then 전열교환기_열회수효율_난방_평균 = 전열교환기_열회수효율_난방_합 / 전열교환기_열회수효율_난방_수
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 전열교환기_열회수효율_난방_평균 : Row += 1
|
|
'//전열교환기-열회수효율-냉방
|
|
Dim 전열교환기_열회수효율_냉방_평균 As Decimal = 0
|
|
If 전열교환기_열회수효율_냉방_수 > 0 Then 전열교환기_열회수효율_냉방_평균 = 전열교환기_열회수효율_냉방_합 / 전열교환기_열회수효율_냉방_수
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 전열교환기_열회수효율_냉방_평균 : Row += 1
|
|
|
|
'//조명에너지-평균조명에너지부하율
|
|
Dim 조명에너지_부하율합 As Decimal = 0
|
|
Dim 조명에너지_면적합 As Decimal = 0
|
|
For Each drZone As DS.tbl_zoneRow In DSET1.tbl_zone.Select("code <> '0' and code <>'0000' and 면적 <> '0' and 면적 <> ''")
|
|
|
|
'//입력오류 체크
|
|
If Not IsNumeric(drZone.면적) Then drZone.면적 = "0"
|
|
If Not IsNumeric(drZone.입력존의수) Then drZone.입력존의수 = "1"
|
|
If Not IsNumeric(drZone.조명에너지부하율입력치) Then drZone.조명에너지부하율입력치 = "0"
|
|
If Not IsNumeric(drZone.조명에너지부하율계산치) Then drZone.조명에너지부하율계산치 = "0"
|
|
|
|
If drZone.면적 <> "0" Then
|
|
조명에너지_면적합 += CInt(drZone.입력존의수) * TOSG(drZone.면적) '//모든면적의총합
|
|
|
|
If drZone.조명부하산출방법 = "입력치" Then
|
|
조명에너지_부하율합 += TOSG(drZone.조명에너지부하율입력치) * (CInt(drZone.입력존의수) * TOSG(drZone.면적))
|
|
ElseIf drZone.조명부하산출방법 = "계산치" Then
|
|
조명에너지_부하율합 += TOSG(drZone.조명에너지부하율계산치) * (CInt(drZone.입력존의수) * TOSG(drZone.면적))
|
|
End If
|
|
End If
|
|
|
|
|
|
Next
|
|
Dim 평균조명에너지부하율 As Decimal = 0
|
|
If 조명에너지_면적합 <> 0 Then 평균조명에너지부하율 = (조명에너지_부하율합 / 조명에너지_면적합)
|
|
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 평균조명에너지부하율.ToString("N2") : Row += 1
|
|
'//조명에너지-주조명광원
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.주조명광원 : Row += 1
|
|
|
|
'//태양열-난방-용량
|
|
Dim 난방축열탱크용량_합 As Decimal = 0
|
|
Dim 급탕축열탱크용량_합 As Decimal = 0
|
|
Dim 태양열면적_합 As Decimal = 0
|
|
Dim 태양열계수_합 As Decimal = 0
|
|
Dim 태양광모듈효율_합 As Decimal = 0
|
|
Dim 태양광면적_합 As Decimal = 0
|
|
Dim 태양광용량_합 As Decimal = 0
|
|
For Each dr신재생 As DS.tbl_newRow In DSET1.tbl_new.Select("code <> '0'")
|
|
If dr신재생.기기종류 = "태양열" Then
|
|
If Not IsNumeric(dr신재생.축열탱크체적급탕) Then dr신재생.축열탱크체적급탕 = "0"
|
|
If Not IsNumeric(dr신재생.축열탱크체적난방) Then dr신재생.축열탱크체적난방 = "0"
|
|
If Not IsNumeric(dr신재생.집열판면적) Then dr신재생.집열판면적 = "0"
|
|
If Not IsNumeric(dr신재생.무손실효율계수) Then dr신재생.무손실효율계수 = "0"
|
|
급탕축열탱크용량_합 += dr신재생.축열탱크체적급탕
|
|
난방축열탱크용량_합 += dr신재생.축열탱크체적난방
|
|
If dr신재생.무손실효율계수 <> "0" Then
|
|
태양열면적_합 += dr신재생.집열판면적
|
|
태양열계수_합 += (dr신재생.무손실효율계수 * dr신재생.집열판면적)
|
|
End If
|
|
ElseIf dr신재생.기기종류 = "태양광" Then
|
|
If Not IsNumeric(dr신재생.태양광모듈면적) Then dr신재생.태양광모듈면적 = "0"
|
|
If Not IsNumeric(dr신재생.태양광모듈효율) Then dr신재생.태양광모듈효율 = "0"
|
|
If Not IsNumeric(dr신재생.태양광용량) Then dr신재생.태양광용량 = "0"
|
|
태양광용량_합 += dr신재생.태양광용량
|
|
If dr신재생.태양광모듈효율 <> "0" Then
|
|
태양광면적_합 += dr신재생.태양광모듈면적
|
|
태양광모듈효율_합 += (dr신재생.태양광모듈효율 * dr신재생.태양광모듈면적)
|
|
End If
|
|
End If
|
|
Next
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 난방축열탱크용량_합.ToString("N3") : Row += 1
|
|
'//태양열-난방-효율
|
|
Dim 태양열난방_효율 As Decimal = 0
|
|
If 태양열면적_합 <> 0 Then 태양열난방_효율 = 태양열계수_합 / 태양열면적_합
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 태양열난방_효율.ToString("N3") : Row += 1
|
|
'//태양열-급탕-용량
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 급탕축열탱크용량_합.ToString("N3") : Row += 1
|
|
'//태양열-급탕-효율
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "X" : Row += 1
|
|
'//태양열-집열판면적
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.태양열집열판면적 : Row += 1
|
|
'//태양열-집열판유형
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.태양열집열기유형 : Row += 1
|
|
'//태양열-집열판방위
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.태양열집열판방위 : Row += 1
|
|
|
|
'//태양광-용량
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 태양광용량_합.ToString("N3") : Row += 1
|
|
'//태양광-효율
|
|
Dim 태양광_효율 As Decimal = 0
|
|
If 태양광면적_합 <> 0 Then 태양광_효율 = 태양광모듈효율_합 / 태양광면적_합
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 태양광_효율.ToString("N3") : Row += 1
|
|
'//태양광-모듈면적
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.태양광모듈면적 : Row += 1
|
|
'//태양광-모듈기울기
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.태양광모듈기울기 : Row += 1
|
|
'//태양광-모듈방위
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.태양광모듈방위 : Row += 1
|
|
'//태양광-모듈종류
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.태양광모듈종류 : Row += 1
|
|
'//태양광-모듈적용타입
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.태양광모듈적용타입 : Row += 1
|
|
|
|
'//지열-난방-용량
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.지열히트펌프용량 : Row += 1
|
|
'//지열-난방-효율
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.지열난방COP : Row += 1
|
|
'//지열-냉방-용량
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.지열히트펌프용량냉방 : Row += 1
|
|
'//지열-냉방-효율
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.지열냉방COP : Row += 1
|
|
|
|
'//열병합-열생산능력
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.열병합열생산능력 : Row += 1
|
|
'//열병합-열생산효율
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.열병합열생산효율 : Row += 1
|
|
'//열병합-발전효율
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.열병합발전효율 : Row += 1
|
|
'//열병합-가동연료
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.열병합가동연료 : Row += 1
|
|
|
|
'//신재생 및 열병합 에너지생산량 (68 69 70 71 2page 계산결과 treq, grp=310)
|
|
Dim 신재생에너지생산량합 As Decimal = 0
|
|
Dim 신재생에너지생산량 As Decimal = 0
|
|
For Each dr As DSR.TReqUseRow In DSETR1.TReqUse.Select("grp = '310'")
|
|
If dr.Code = "068" OrElse dr.Code = "069" OrElse dr.Code = "070" OrElse dr.Code = "071" Then
|
|
신재생에너지생산량합 += dr.M00
|
|
End If
|
|
Next
|
|
Dim 조명사용면적 As Decimal = 0
|
|
For Each dr As DSR.TReqUseRow In DSETR1.TReqUse.Select("grp = '110'")
|
|
If dr.Code = "015" Then
|
|
조명사용면적 += dr.M00
|
|
Exit For
|
|
End If
|
|
Next
|
|
If 조명사용면적 <> 0 Then 신재생에너지생산량 = 신재생에너지생산량합 / 조명사용면적
|
|
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 신재생에너지생산량.ToString("N2") : Row += 1
|
|
|
|
'//평가책임자
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "X" : Row += 1
|
|
|
|
'//평가자
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "X" : Row += 1
|
|
|
|
'//에너지효율등급
|
|
Dim 에너지효율등급 As Integer = 평가결과등급(주거용, 일차에너지소요량합계)
|
|
Dim 등급문자 As String = ""
|
|
Select Case 에너지효율등급
|
|
Case 1
|
|
등급문자 = "1+++등급"
|
|
Case 2
|
|
등급문자 = "1++등급"
|
|
Case 3
|
|
등급문자 = "1+등급"
|
|
Case 4
|
|
등급문자 = "1등급"
|
|
Case 5
|
|
등급문자 = "2등급"
|
|
Case 6
|
|
등급문자 = "3등급"
|
|
Case 7
|
|
등급문자 = "4등급"
|
|
Case 8
|
|
등급문자 = "5등급"
|
|
Case 9
|
|
등급문자 = "6등급"
|
|
Case 10
|
|
등급문자 = "7등급"
|
|
End Select
|
|
|
|
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 등급문자 : Row += 1
|
|
|
|
'//예비인증 등급
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "X" : Row += 1
|
|
|
|
'//냉방시스템설치여부(입력존에서 열생산기기 냉방에 연결된 데이터가 있다면 O)
|
|
Dim 냉방시스템설치여부 As Boolean = False
|
|
For Each drZone As DS.tbl_zoneRow In DSET1.tbl_zone.Select("code <> '0'")
|
|
If drZone.열생산냉방생산기기 <> "0" AndAlso drZone.열생산냉방생산기기.Length > 3 Then
|
|
냉방시스템설치여부 = True
|
|
Exit For
|
|
End If
|
|
Next
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = IIf(냉방시스템설치여부, "Y", "N") : Row += 1
|
|
|
|
'//신청지역
|
|
Dim 지역코드 As String = drDesc.buildarea
|
|
Dim 지역명 As String = ""
|
|
If 지역코드 <> "0000" Then
|
|
Dim drWeather() As DS.tbl_weatherRow = DSET1.tbl_weather.Select("code='" + 지역코드 + "'")
|
|
If drWeather.Length = 1 Then 지역명 = drWeather(0).건물위치
|
|
End If
|
|
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 지역명 : Row += 1
|
|
|
|
'//자립률관련추가 170725
|
|
'//170725
|
|
Dim 단위면적당신재생1차에너지합 As Decimal = 0
|
|
Dim 단위면적당신재생1차에너지합_offsite As Decimal = 0
|
|
Dim 단위면적당1차에너소비량합 As Decimal = 0
|
|
Dim 에너지자립률 As Double = 0
|
|
Dim 에너지자립률_offsite As Double = 0
|
|
|
|
Dim Sum As Decimal = (Result1.생산E(0).태양광전력생산량 + Result1.생산E(0).풍력전력생산량 + Result1.생산E(0).신재생열병합전력생산량) / (Result1.일차E소요량(0).난방전력 + Result1.일차E소요량(0).냉방전력 + Result1.일차E소요량(0).급탕전력 + Result1.일차E소요량(0).조명전력 + Result1.일차E소요량(0).환기전력)
|
|
Dim Sum_offsite As Decimal = (Result1.생산E(0).태양광전력생산량_offsite + Result1.생산E(0).풍력전력생산량_offsite + Result1.생산E(0).연료전지전력생산량_offsite) / (Result1.일차E소요량(0).난방전력 + Result1.일차E소요량(0).냉방전력 + Result1.일차E소요량(0).급탕전력 + Result1.일차E소요량(0).조명전력 + Result1.일차E소요량(0).환기전력)
|
|
Dim 난방 As Decimal = Sum * Result1.일차E소요량(0).난방전력 '//아마게산이안도잇으니 여기값들이 0이잇을거에요.
|
|
Dim 냉방 As Decimal = Sum * Result1.일차E소요량(0).냉방전력
|
|
Dim 조명 As Decimal = Sum * Result1.일차E소요량(0).조명전력
|
|
Dim 급탕 As Decimal = Sum * Result1.일차E소요량(0).급탕전력
|
|
Dim 환기 As Decimal = Sum * Result1.일차E소요량(0).환기전력
|
|
|
|
Dim 난방_offsite As Decimal = Sum_offsite * Result1.일차E소요량(0).난방전력 '//아마게산이안도잇으니 여기값들이 0이잇을거에요.
|
|
Dim 냉방_offsite As Decimal = Sum_offsite * Result1.일차E소요량(0).냉방전력
|
|
Dim 조명_offsite As Decimal = Sum_offsite * Result1.일차E소요량(0).조명전력
|
|
Dim 급탕_offsite As Decimal = Sum_offsite * Result1.일차E소요량(0).급탕전력
|
|
Dim 환기_offsite As Decimal = Sum_offsite * Result1.일차E소요량(0).환기전력
|
|
|
|
Dim 난방면적 As Decimal = 0
|
|
Dim 냉방면적 As Decimal = 0
|
|
Dim 조명면적 As Decimal = 0
|
|
Dim 급탕면적 As Decimal = 0
|
|
Dim 환기면적 As Decimal = 0
|
|
|
|
Dim 난방면적_offsite As Decimal = 0
|
|
Dim 냉방면적_offsite As Decimal = 0
|
|
Dim 조명면적_offsite As Decimal = 0
|
|
Dim 급탕면적_offsite As Decimal = 0
|
|
Dim 환기면적_offsite As Decimal = 0
|
|
|
|
|
|
If Result1.사용면적.H <> 0 Then
|
|
난방면적 = TOSG(IIf(난방 = 0, 0, 난방 / Result1.사용면적.H))
|
|
End If
|
|
If Result1.사용면적.C <> 0 Then
|
|
냉방면적 = TOSG(IIf(냉방 = 0, 0, 냉방 / Result1.사용면적.C))
|
|
End If
|
|
If Result1.사용면적.L <> 0 Then
|
|
조명면적 = TOSG(IIf(조명 = 0, 0, 조명 / Result1.사용면적.L))
|
|
End If
|
|
If Result1.사용면적.W <> 0 Then
|
|
급탕면적 = TOSG(IIf(급탕 = 0, 0, 급탕 / Result1.사용면적.W))
|
|
End If
|
|
If Result1.사용면적.V <> 0 Then
|
|
환기면적 = TOSG(IIf(환기 = 0, 0, 환기 / Result1.사용면적.V))
|
|
End If
|
|
|
|
If Result1.사용면적.H <> 0 Then
|
|
난방면적_offsite = TOSG(IIf(난방_offsite = 0, 0, 난방_offsite / Result1.사용면적.H))
|
|
End If
|
|
If Result1.사용면적.C <> 0 Then
|
|
냉방면적_offsite = TOSG(IIf(냉방_offsite = 0, 0, 냉방_offsite / Result1.사용면적.C))
|
|
End If
|
|
If Result1.사용면적.L <> 0 Then
|
|
조명면적_offsite = TOSG(IIf(조명_offsite = 0, 0, 조명_offsite / Result1.사용면적.L))
|
|
End If
|
|
If Result1.사용면적.W <> 0 Then
|
|
급탕면적_offsite = TOSG(IIf(급탕_offsite = 0, 0, 급탕_offsite / Result1.사용면적.W))
|
|
End If
|
|
If Result1.사용면적.V <> 0 Then
|
|
환기면적_offsite = TOSG(IIf(환기_offsite = 0, 0, 환기_offsite / Result1.사용면적.V))
|
|
End If
|
|
|
|
Dim 전기 As Decimal = 난방면적 + 냉방면적 + 조명면적 + 급탕면적 + 환기면적
|
|
Dim 전기_offsite As Decimal = 난방면적_offsite + 냉방면적_offsite + 조명면적_offsite + 급탕면적_offsite + 환기면적_offsite
|
|
|
|
'//열병합신재생에너지추가 130831 arin
|
|
Dim _자립_신재생에너지 As Single = -1 * (Result1.생산E(0).면적당생산량태양열 + Result1.생산E(0).신재생면적당열생산량 + Result1.생산E(0).면적당생산량지열 + 전기 * 2.75)
|
|
Dim _자립_신재생에너지_offsite As Single = -1 * (전기_offsite * 2.75)
|
|
난방에너지 = Math.Round(Result1.일차E소요량(0).난방면적, 1)
|
|
냉방에너지 = Math.Round(Result1.일차E소요량(0).냉방면적, 1)
|
|
급탕에너지 = Math.Round(Result1.일차E소요량(0).급탕면적, 1)
|
|
조명에너지 = Math.Round(Result1.일차E소요량(0).조명면적, 1)
|
|
환기에너지 = Math.Round(Result1.일차E소요량(0).환기면적, 1)
|
|
단위면적당신재생1차에너지합 = Math.Round(-1 * _자립_신재생에너지, 1)
|
|
단위면적당신재생1차에너지합_offsite = Math.Round(-1 * _자립_신재생에너지_offsite, 1)
|
|
|
|
|
|
단위면적당1차에너소비량합 = 난방에너지 + 냉방에너지 + 급탕에너지 + 조명에너지 + 환기에너지 + 단위면적당신재생1차에너지합
|
|
If 단위면적당1차에너소비량합 <> 0 Then
|
|
'에너지자립률 = (단위면적당신재생1차에너지합 / 단위면적당1차에너소비량합) * 100
|
|
|
|
에너지자립률 = (Math.Round(단위면적당신재생1차에너지합, 1) / 단위면적당1차에너소비량합) * 100
|
|
|
|
Dim scale As Decimal = 0
|
|
If 에너지자립률 >= 20 Then
|
|
scale = 1.0
|
|
ElseIf 에너지자립률 >= 15 Then
|
|
scale = 0.9
|
|
ElseIf 에너지자립률 >= 10 Then
|
|
scale = 0.8
|
|
Else
|
|
scale = 0.7
|
|
End If
|
|
|
|
에너지자립률_offsite = (Math.Round(단위면적당신재생1차에너지합_offsite * scale, 1) / 단위면적당1차에너소비량합) * 100
|
|
에너지자립률 += 에너지자립률_offsite
|
|
|
|
Else
|
|
에너지자립률 = 0
|
|
에너지자립률_offsite = 0
|
|
End If
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 에너지자립률.ToString("N2") : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 단위면적당신재생1차에너지합.ToString("N1") : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 단위면적당1차에너소비량합.ToString("N1") : Row += 1
|
|
|
|
'//210702
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 에너지자립률_offsite.ToString("N2") : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 단위면적당신재생1차에너지합_offsite.ToString("N1") : Row += 1
|
|
|
|
|
|
'//240105
|
|
Dim vv0 As Decimal = CType(DSETR1.TReqUse.Select("GRP='110' and CODE='007'")(0), DSR.TReqUseRow).M00
|
|
Dim vv1 As Decimal = CType(DSETR1.TReqUse.Select("GRP='110' and CODE='012'")(0), DSR.TReqUseRow).M00
|
|
Dim vv2 As Decimal = CType(DSETR1.TReqUse.Select("GRP='110' and CODE='015'")(0), DSR.TReqUseRow).M00
|
|
Dim vv3 As Decimal = CType(DSETR1.TReqUse.Select("GRP='110' and CODE='018'")(0), DSR.TReqUseRow).M00
|
|
Dim vv4 As Decimal = CType(DSETR1.TReqUse.Select("GRP='110' and CODE='019'")(0), DSR.TReqUseRow).M00
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = vv0 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = vv1 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = vv2 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = vv3 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = vv4 : Row += 1
|
|
|
|
Dim 면적합값 As Tuple(Of Decimal, Int32) = Pub.면적존수합()
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적합값.Item1 : Row += 1
|
|
|
|
'//난방 1차에너지소요량
|
|
'FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = v3_1.ToString("N1") : Row += 1 '//난방
|
|
vv0 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='040'")(0), DSR.TReqUseRow).M00
|
|
vv1 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='041'")(0), DSR.TReqUseRow).M00
|
|
vv2 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='042'")(0), DSR.TReqUseRow).M00
|
|
vv3 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='043'")(0), DSR.TReqUseRow).M00
|
|
vv4 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='044'")(0), DSR.TReqUseRow).M00
|
|
Dim vv5 As Decimal = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='045'")(0), DSR.TReqUseRow).M00
|
|
Dim vv6 As Decimal
|
|
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = vv0 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = vv1 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = vv2 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = vv3 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = vv4 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = vv5 : Row += 1
|
|
|
|
'//냉방 1차에너지소요량
|
|
vv0 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='047'")(0), DSR.TReqUseRow).M00
|
|
vv1 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='048'")(0), DSR.TReqUseRow).M00
|
|
vv2 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='049'")(0), DSR.TReqUseRow).M00
|
|
vv3 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='050'")(0), DSR.TReqUseRow).M00
|
|
vv4 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='051'")(0), DSR.TReqUseRow).M00
|
|
vv5 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='052'")(0), DSR.TReqUseRow).M00
|
|
vv6 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='053'")(0), DSR.TReqUseRow).M00
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = vv0 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = vv1 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = vv2 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = vv3 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = vv4 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = vv5 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = vv6 : Row += 1
|
|
|
|
'//급탕 1차에너지소요량
|
|
vv0 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='055'")(0), DSR.TReqUseRow).M00
|
|
vv1 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='056'")(0), DSR.TReqUseRow).M00
|
|
vv2 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='057'")(0), DSR.TReqUseRow).M00
|
|
vv3 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='058'")(0), DSR.TReqUseRow).M00
|
|
vv4 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='059'")(0), DSR.TReqUseRow).M00
|
|
vv5 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='060'")(0), DSR.TReqUseRow).M00
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = vv0 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = vv1 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = vv2 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = vv3 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = vv4 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = vv5 : Row += 1
|
|
|
|
'//조명 1차에너지소요량
|
|
vv0 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='062'")(0), DSR.TReqUseRow).M00
|
|
vv1 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='063'")(0), DSR.TReqUseRow).M00
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = vv0 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = vv1 : Row += 1
|
|
|
|
'//전기 1차에너지소요량
|
|
vv0 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='065'")(0), DSR.TReqUseRow).M00
|
|
vv1 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='066'")(0), DSR.TReqUseRow).M00
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = vv0 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = vv1 : Row += 1
|
|
|
|
'//신재생 생산량
|
|
vv0 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='068'")(0), DSR.TReqUseRow).M00
|
|
vv1 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='069'")(0), DSR.TReqUseRow).M00
|
|
vv2 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='070'")(0), DSR.TReqUseRow).M00
|
|
vv3 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='071'")(0), DSR.TReqUseRow).M00
|
|
vv4 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='072'")(0), DSR.TReqUseRow).M00
|
|
vv5 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='073'")(0), DSR.TReqUseRow).M00
|
|
vv6 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='074'")(0), DSR.TReqUseRow).M00
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = vv0 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = vv1 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = vv2 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = vv3 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = vv4 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = vv5 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = vv6 : Row += 1
|
|
|
|
'//풍력회전면적(최대)
|
|
Dim 풍력로우터회전면적 As Decimal = 0
|
|
Dim 풍력허브높이 As Decimal = 0
|
|
For Each dr As DS.tbl_newRow In DSET1.tbl_new
|
|
If dr.기기종류 <> "풍력" Then Continue For
|
|
|
|
If dr.풍력로우터회전면적 > 풍력로우터회전면적 Then
|
|
풍력로우터회전면적 = dr.풍력로우터회전면적
|
|
풍력허브높이 = dr.풍력허브높이
|
|
End If
|
|
Next
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 풍력로우터회전면적 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 풍력허브높이 : Row += 1
|
|
|
|
'//수열월(최대)
|
|
Dim 수열시스템펌프용량 As Decimal = 0
|
|
Dim 수열시스템난방 As Decimal = 0
|
|
Dim 수열시스템냉방 As Decimal = 0
|
|
Dim 수열원 As String = ""
|
|
For Each dr As DS.tbl_newRow In DSET1.tbl_new
|
|
If dr.기기종류 <> "수열" Then Continue For
|
|
If dr.수열_수열히트펌프용량 > 수열시스템펌프용량 Then
|
|
수열시스템펌프용량 = dr.수열_수열히트펌프용량
|
|
수열시스템난방 = dr.수열_열성능비_난방5도
|
|
수열시스템냉방 = dr.수열_열성능비_냉방35도
|
|
수열원 = dr.수열_수열원
|
|
End If
|
|
Next
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 수열원 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 수열시스템펌프용량 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 수열시스템난방 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 수열시스템냉방 : Row += 1
|
|
|
|
'태양광(BIPV)
|
|
Dim 태양광모듈면적 As Decimal = 0
|
|
Dim dr태양광bipv As DS.tbl_newRow = Nothing
|
|
Dim 태양광용량_합_BIPV As Decimal = 0
|
|
Dim 태양광면적_합_BIPV As Decimal = 0
|
|
Dim 태양광모듈효율_합_BIPV As Decimal = 0
|
|
For Each dr As DS.tbl_newRow In DSET1.tbl_new
|
|
If dr.기기종류 <> "태양광" Then Continue For
|
|
If dr.태양광모듈적용타입 <> "밀착형" Then Continue For
|
|
|
|
|
|
If Not IsNumeric(dr.태양광모듈면적) Then dr.태양광모듈면적 = "0"
|
|
If Not IsNumeric(dr.태양광모듈효율) Then dr.태양광모듈효율 = "0"
|
|
If Not IsNumeric(dr.태양광용량) Then dr.태양광용량 = "0"
|
|
태양광용량_합_BIPV += dr.태양광용량
|
|
If dr.태양광모듈효율 <> "0" Then
|
|
태양광면적_합_BIPV += dr.태양광모듈면적
|
|
태양광모듈효율_합_BIPV += (dr.태양광모듈효율 * dr.태양광모듈면적)
|
|
End If
|
|
|
|
|
|
If dr.태양광모듈면적 > 태양광모듈면적 Then
|
|
태양광모듈면적 = dr.태양광모듈면적
|
|
dr태양광bipv = dr
|
|
End If
|
|
Next
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 태양광용량_합_BIPV : Row += 1
|
|
If 태양광면적_합_BIPV = 0 Then
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 0 : Row += 1
|
|
Else
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = (태양광모듈효율_합_BIPV / 태양광면적_합_BIPV) : Row += 1
|
|
End If
|
|
|
|
|
|
If dr태양광bipv Is Nothing Then
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
|
'FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
|
Else
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = dr태양광bipv.태양광모듈면적 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = dr태양광bipv.태양광모듈기울기 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = dr태양광bipv.태양광모듈방위 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = dr태양광bipv.태양광모듈종류 : Row += 1
|
|
'FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = dr태양광bipv.태양광모듈적용타입 : Row += 1
|
|
End If
|
|
|
|
'//히트펌프
|
|
Dim 히트펌프용량_가스_난방 As Decimal = 0
|
|
Dim 히트펌프용량_전기_난방 As Decimal = 0
|
|
Dim 히트펌프용량_가스_냉방 As Decimal = 0
|
|
Dim 히트펌프용량_전기_냉방 As Decimal = 0
|
|
|
|
For Each dr As DS.tbl_nanbangkikiRow In DSET1.tbl_nanbangkiki
|
|
If dr.히트연료.EndsWith("가스") Then
|
|
히트펌프용량_가스_난방 += dr.히트난방용량
|
|
ElseIf dr.히트연료 = "전기" Then
|
|
히트펌프용량_전기_난방 += dr.히트난방용량
|
|
End If
|
|
Next
|
|
|
|
For Each dr As DS.tbl_nangbangkikiRow In DSET1.tbl_nangbangkiki
|
|
If dr.냉동기종류 <> "실내공조시스템" Then Continue For
|
|
If dr.냉동기방식 = "압축식(LNG)" Then
|
|
히트펌프용량_가스_냉방 += dr.냉동기용량
|
|
ElseIf dr.냉동기방식 = "압축식" Then
|
|
히트펌프용량_전기_냉방 += dr.냉동기용량
|
|
End If
|
|
Next
|
|
|
|
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 히트펌프용량_가스_난방 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 히트펌프용량_전기_난방 : Row += 1
|
|
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 히트펌프용량_가스_냉방 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 히트펌프용량_전기_냉방 : Row += 1
|
|
|
|
'//추가작업 230724
|
|
'If column < 11 Then Return '//아래는 매크로동작시 전체출력되도록 241209
|
|
|
|
'FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = processfile : Row += 1
|
|
|
|
'//벽체면적
|
|
Dim WallArea As Decimal = 0
|
|
Dim WindowArea As Decimal = 0
|
|
Dim 열관류율합 As Double
|
|
Dim 존수 As Integer = 0
|
|
Dim 비연결 As Integer = 0
|
|
Dim 비연결존 As String = ""
|
|
Dim 방위목록() As String = New String() {"수평", "남", "남동", "동", "북동", "북", "북서", "서", "남서"}
|
|
Dim 외피면적비_지붕포함합 As Decimal = 0
|
|
For Each 방위 As String In 방위목록
|
|
Dim filter As String = "code <> '0' and (건축부위방식='외벽' or 건축부위방식 ='외부창' or 건축부위방식='내벽' or 건축부위방식 ='내부창')"
|
|
If 방위 <> "" Then filter += " and 방위='" + 방위 + "'"
|
|
Dim 면데이터() As DS.tbl_myounRow = DSET1.tbl_myoun.Select(filter)
|
|
Dim 열관없는갯수 As Integer = 0
|
|
Try
|
|
For Each Dr입력면 As DS.tbl_myounRow In 면데이터
|
|
Dim 열관 As Single = 0
|
|
|
|
If Dr입력면.열관류율2 = "0" OrElse Dr입력면.열관류율2 = "" Then
|
|
열관없는갯수 += 1
|
|
End If
|
|
|
|
Dim Dryk1 As DS.tbl_ykRow = Nothing
|
|
If Dr입력면.열관류율2 <> "0" Then '
|
|
Dryk1 = DSET1.tbl_yk.Select("code='" & Dr입력면.열관류율2 & "'")(0)
|
|
열관 = TOSG(Dryk1("열관류율").ToString)
|
|
Else '//선택안된경우
|
|
열관 = TOSG(Dr입력면.열관류율)
|
|
End If
|
|
|
|
Dim 존코드 As String = Dr입력면.존분류
|
|
Dim dr존() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("code='" + 존코드 + "'")
|
|
If dr존.GetUpperBound(0) = -1 Then
|
|
존수 = 1
|
|
Else
|
|
If IsNumeric(dr존(0).입력존의수) Then
|
|
존수 = CInt(dr존(0).입력존의수)
|
|
Else
|
|
존수 = 1
|
|
End If
|
|
End If
|
|
|
|
Select Case Dr입력면.건축부위방식
|
|
Case "외벽"
|
|
열관류율합 += 열관 * 1 * TOSG(Dr입력면.건축부위면적) * 존수
|
|
Case "내벽"
|
|
열관류율합 += 열관 * 0.7 * TOSG(Dr입력면.건축부위면적) * 존수
|
|
Case "외부창"
|
|
열관류율합 += 열관 * 1 * TOSG(Dr입력면.건축부위면적) * 존수
|
|
Case "내부창"
|
|
열관류율합 += 열관 * 0.8 * TOSG(Dr입력면.건축부위면적) * 존수
|
|
End Select
|
|
|
|
'// Debug.WriteLine(Dr입력면.열관류율2 + "/" + Dr입력면.code + "/" + 열관.ToString() + "/" + Dr입력면.설명 + "/" + Dr입력면.건축부위면적.ToCharArray() + "/" + 존수.ToString() + "/" + 열관류율합.ToString(), True)
|
|
|
|
If Dryk1 Is Nothing Then
|
|
비연결 += 1
|
|
|
|
'//사용한 존
|
|
If dr존 Is Nothing Then
|
|
Else
|
|
비연결존 = dr존(0).설명 + "의 " + Dr입력면.설명
|
|
End If
|
|
|
|
|
|
'//열관류 선택안된경우
|
|
Select Case Dr입력면.건축부위방식
|
|
Case "외벽"
|
|
If Dr입력면.방위 <> "수평" AndAlso Dr입력면.방위 <> "일사없음" AndAlso Dr입력면.방위 <> "(없음)" Then
|
|
WallArea = WallArea + TOSG(Dr입력면.건축부위면적) * 존수
|
|
End If
|
|
Case "내벽" '
|
|
WallArea = WallArea + TOSG(Dr입력면.건축부위면적) * 존수
|
|
Case "외부창"
|
|
If Dr입력면.방위 <> "수평" AndAlso Dr입력면.방위 <> "일사없음" AndAlso Dr입력면.방위 <> "(없음)" Then
|
|
WindowArea = WindowArea + TOSG(Dr입력면.건축부위면적) * 존수
|
|
End If
|
|
Case "내부창"
|
|
WindowArea = WindowArea + TOSG(Dr입력면.건축부위면적) * 존수
|
|
End Select
|
|
|
|
Else
|
|
|
|
Dim 면형태이름 As String = Get_CName("1088", Dryk1.면형태)
|
|
Select Case 면형태이름
|
|
Case "외벽(벽체)"
|
|
WallArea = WallArea + TOSG(Dr입력면.건축부위면적) * 존수
|
|
외피면적비_지붕포함합 += TOSG(Dr입력면.건축부위면적) * 존수
|
|
Case "내벽(벽체)"
|
|
WallArea = WallArea + TOSG(Dr입력면.건축부위면적) * 존수
|
|
Case "외부창"
|
|
If Dr입력면.방위 <> "수평" AndAlso Dr입력면.방위 <> "일사없음" AndAlso Dr입력면.방위 <> "(없음)" Then
|
|
WindowArea = WindowArea + TOSG(Dr입력면.건축부위면적) * 존수
|
|
End If
|
|
외피면적비_지붕포함합 += TOSG(Dr입력면.건축부위면적) * 존수
|
|
Case "외벽(지붕)"
|
|
WallArea = WallArea + TOSG(Dr입력면.건축부위면적) * 존수
|
|
외피면적비_지붕포함합 += TOSG(Dr입력면.건축부위면적) * 존수
|
|
Case "내부창"
|
|
WindowArea = WindowArea + TOSG(Dr입력면.건축부위면적) * 존수
|
|
End Select
|
|
|
|
|
|
|
|
End If
|
|
|
|
'Debug.WriteLine(Dr입력면.code + ":wall=" + WallArea.ToString() + ",win=" + WindowArea.ToString())
|
|
Next
|
|
'For Each Dr입력면 As DS.tbl_myounRow In DSET1.tbl_myoun.Select("건축부위방식='외부창'")
|
|
' WindowArea = WindowArea + TOSG(Dr입력면.건축부위면적) * 존수
|
|
'Next
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
Next
|
|
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = WallArea.ToString("N1") : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = WindowArea.ToString("N1") : Row += 1
|
|
|
|
|
|
Try
|
|
창및문면적비 = WindowArea / (WallArea + WindowArea) * 100
|
|
Catch ex As Exception
|
|
창및문면적비 = 0 '//게삭과정에 오류가낫다면 0처리합니다.
|
|
End Try
|
|
If WallArea + WindowArea = 0 Then
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "0 %" : Row += 1
|
|
Else
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창및문면적비.ToString("N1") : Row += 1
|
|
End If
|
|
|
|
|
|
|
|
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창열관류율_평균.ToString("N3") : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창열관류율_남.ToString("N3") : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창열관류율_남동.ToString("N3") : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창열관류율_동.ToString("N3") : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창열관류율_북동.ToString("N3") : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창열관류율_북.ToString("N3") : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창열관류율_북서.ToString("N3") : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창열관류율_서.ToString("N3") : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창열관류율_남서.ToString("N3") : Row += 1
|
|
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 일사에너지투과율_평균.ToString("N3") : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 일사에너지투과율_남.ToString("N3") : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 일사에너지투과율_남동.ToString("N3") : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 일사에너지투과율_동.ToString("N3") : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 일사에너지투과율_북동.ToString("N3") : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 일사에너지투과율_북.ToString("N3") : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 일사에너지투과율_북서.ToString("N3") : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 일사에너지투과율_서.ToString("N3") : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 일사에너지투과율_남서.ToString("N3") : Row += 1
|
|
|
|
|
|
'//난방기기 - 보일러중에 용량이 가장 큰
|
|
Dim 보일러목록() As DS.tbl_nanbangkikiRow = DSET1.tbl_nanbangkiki.Select("열생산기기방식='보일러'", "보일러정격출력 desc")
|
|
If 보일러목록 Is Nothing OrElse 보일러목록.Length < 1 Then
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
|
Else
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 보일러목록(0).보일러방식 : Row += 1
|
|
End If
|
|
|
|
보일러목록 = DSET1.tbl_nanbangkiki.Select("열생산기기방식='지역난방'", "열교환기정격출력 desc")
|
|
If 보일러목록 Is Nothing OrElse 보일러목록.Length < 1 Then
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
|
Else
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 보일러목록(0).지역난방방식 : Row += 1
|
|
End If
|
|
|
|
보일러목록 = DSET1.tbl_nanbangkiki.Select("열생산기기방식='히트펌프'", "히트난방용량 desc")
|
|
If 보일러목록 Is Nothing OrElse 보일러목록.Length < 1 Then
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
|
Else
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 보일러목록(0).히트난방용량 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 보일러목록(0).히트난방정격7 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 보일러목록(0).히트난방정격10 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 보일러목록(0).히트배관길이 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 보일러목록(0).히트펌프시스템종류 : Row += 1
|
|
End If
|
|
|
|
|
|
Dim 냉방기목록 = DSET1.tbl_nangbangkiki.Select("냉동기방식='압축식'", "냉동기용량 desc")
|
|
If 냉방기목록 Is Nothing OrElse 냉방기목록.Length < 1 Then
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
|
Else
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 냉방기목록(0).냉동기종류 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 냉방기목록(0).냉동기압축방식 : Row += 1
|
|
End If
|
|
|
|
냉방기목록 = DSET1.tbl_nangbangkiki.Select("냉동기방식='흡수식'", "냉동기용량 desc")
|
|
If 냉방기목록 Is Nothing OrElse 냉방기목록.Length < 1 Then
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
|
Else
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 냉방기목록(0).압축기제어방식 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 냉방기목록(0).열생산연결방식 : Row += 1
|
|
End If
|
|
|
|
냉방기목록 = DSET1.tbl_nangbangkiki.Select("냉동기방식='압축식' and 냉동기종류='실내공조시스템'", "냉동기용량 desc")
|
|
If 냉방기목록 Is Nothing OrElse 냉방기목록.Length < 1 Then
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
|
Else
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 냉방기목록(0).냉동기설비시스템 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 냉방기목록(0).제어방식 : Row += 1
|
|
End If
|
|
|
|
'//급탕기기로 연결된 자료
|
|
Dim 급탕기기대상 As DS.tbl_nanbangkikiRow = Nothing
|
|
Dim 급탕기기대상용량 As Decimal = 0
|
|
For Each dr As DS.tbl_nanbangkikiRow In DSET1.tbl_nanbangkiki.Rows
|
|
Dim cnt = 0
|
|
Dim 존목록() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("code <> '0' and 열생산급탕생산기기='" & dr.code & "'")
|
|
For Each drow As DS.tbl_zoneRow In 존목록
|
|
Dim 입력존수문자 As Integer = drow.입력존의수
|
|
If IsNumeric(입력존수문자) = False Then 입력존수문자 = "1"
|
|
cnt += CInt(입력존수문자)
|
|
Next
|
|
If cnt > 0 Then
|
|
If dr.보일러정격출력 > 급탕기기대상용량 Then
|
|
급탕기기대상 = dr
|
|
급탕기기대상용량 = dr.보일러정격출력
|
|
End If
|
|
End If
|
|
Next
|
|
|
|
If 급탕기기대상 Is Nothing Then
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
|
Else
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 급탕기기대상.축열탱크방식 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 급탕기기대상.축열제척 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 급탕기기대상.펌프정격전력 : Row += 1
|
|
End If
|
|
|
|
|
|
Dim 태양광목록() As DS.tbl_newRow = DSET1.tbl_new.Select("기기종류='태양광'", "태양광모듈면적 desc")
|
|
If 태양광목록 Is Nothing OrElse 태양광목록.Length < 1 Then
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1
|
|
Else
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 태양광목록(0).태양광용량 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 태양광목록(0).태양광모듈효율 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 태양광목록(0).태양광모듈면적 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 태양광목록(0).태양광모듈기울기 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 태양광목록(0).태양광모듈방위 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 태양광목록(0).태양광모듈종류 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 태양광목록(0).태양광모듈적용타입 : Row += 1
|
|
End If
|
|
|
|
|
|
'//230804 에너지생산량 ` 1차 추가
|
|
Dim 에너지생산량_난방 As Decimal = 난방면적 + 난방면적_offsite + _
|
|
Result1.생산E(0).면적당생산량태양열_난방 + _
|
|
Result1.생산E(0).면적당생산량수열_난방 + _
|
|
Result1.생산E(0).면적당생산량지열_난방 + _
|
|
Result1.생산E(0).신재생면적당열생산량_난방
|
|
|
|
Dim 에너지생산량_냉방 As Decimal = 냉방면적 + 냉방면적_offsite + _
|
|
Result1.생산E(0).면적당생산량태양열_냉방 + _
|
|
Result1.생산E(0).면적당생산량수열_냉방 + _
|
|
Result1.생산E(0).면적당생산량지열_냉방 + _
|
|
Result1.생산E(0).신재생면적당열생산량_냉방
|
|
|
|
Dim 에너지생산량_급탕 As Decimal = 급탕면적 + 급탕면적_offsite + _
|
|
Result1.생산E(0).면적당생산량태양열_급탕 + _
|
|
Result1.생산E(0).면적당생산량수열_급탕 + _
|
|
Result1.생산E(0).면적당생산량지열_급탕 + _
|
|
Result1.생산E(0).신재생면적당열생산량_급탕
|
|
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 에너지생산량_난방 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 에너지생산량_냉방 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 에너지생산량_급탕 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 조명면적 + 조명면적_offsite : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 환기면적 + 환기면적_offsite : Row += 1
|
|
|
|
Dim multi As Decimal = 2.75
|
|
Dim 에너지생산량_난방_1차 As Decimal = (난방면적 + 난방면적_offsite) * multi + _
|
|
Result1.생산E(0).면적당생산량태양열_난방 + _
|
|
Result1.생산E(0).면적당생산량수열_난방 + _
|
|
Result1.생산E(0).면적당생산량지열_난방 + _
|
|
Result1.생산E(0).신재생면적당열생산량_난방
|
|
|
|
Dim 에너지생산량_냉방_1차 As Decimal = (냉방면적 + 냉방면적_offsite) * multi + _
|
|
Result1.생산E(0).면적당생산량태양열_냉방 + _
|
|
Result1.생산E(0).면적당생산량수열_냉방 + _
|
|
Result1.생산E(0).면적당생산량지열_냉방 + _
|
|
Result1.생산E(0).신재생면적당열생산량_냉방
|
|
|
|
Dim 에너지생산량_급탕_1차 As Decimal = (급탕면적 + 급탕면적_offsite) * multi + _
|
|
Result1.생산E(0).면적당생산량태양열_급탕 + _
|
|
Result1.생산E(0).면적당생산량수열_급탕 + _
|
|
Result1.생산E(0).면적당생산량지열_급탕 + _
|
|
Result1.생산E(0).신재생면적당열생산량_급탕
|
|
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 에너지생산량_난방_1차 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 에너지생산량_냉방_1차 : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 에너지생산량_급탕_1차 : Row += 1
|
|
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = (조명면적 + 조명면적_offsite) * multi : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = (환기면적 + 환기면적_offsite) * multi : Row += 1
|
|
|
|
|
|
'//면적별분류(A-G) 240126
|
|
Dim AREA_A As Integer = 0
|
|
Dim AREA_B As Integer = 0
|
|
Dim AREA_C As Integer = 0
|
|
Dim AREA_D As Integer = 0
|
|
Dim AREA_E As Integer = 0
|
|
Dim AREA_F As Integer = 0
|
|
Dim AREA_G As Integer = 0
|
|
|
|
For Each dr As DS.tbl_zoneRow In DSET1.tbl_zone
|
|
If dr.code = "0" Then Continue For
|
|
|
|
Dim PROFILECODE As String = dr.프로필
|
|
Dim DR프로필() As DS.tbl_profileRow = DSET1.tbl_profile.Select("code='" + PROFILECODE + "'")
|
|
If DR프로필.Length <> 1 Then Continue For
|
|
|
|
If DR프로필(0).설명.StartsWith("00") OrElse DR프로필(0).설명.StartsWith("27") Then
|
|
Dim 면적범위 As Char = Pub.면적별범위값(TOSG(dr.면적))
|
|
If 면적범위 = "A"c Then
|
|
AREA_A += 1
|
|
ElseIf 면적범위 = "B"c Then
|
|
AREA_B += 1
|
|
ElseIf 면적범위 = "C"c Then
|
|
AREA_C += 1
|
|
ElseIf 면적범위 = "D"c Then
|
|
AREA_D += 1
|
|
ElseIf 면적범위 = "E"c Then
|
|
AREA_E += 1
|
|
ElseIf 면적범위 = "F"c Then
|
|
AREA_F += 1
|
|
ElseIf 면적범위 = "G"c Then
|
|
AREA_G += 1
|
|
End If
|
|
End If
|
|
|
|
Next
|
|
|
|
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = AREA_A : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = AREA_B : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = AREA_C : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = AREA_D : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = AREA_E : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = AREA_F : Row += 1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = AREA_G : Row += 1
|
|
|
|
'//건물개요
|
|
Dim code As String = drDesc.buildarea
|
|
Dim GrpName As String = ""
|
|
Dim CodeName As String = ""
|
|
Dim GrpCode As String = code.Substring(0, 2) + "0000"
|
|
Dim GrpList() As DS.weather_groupRow = DSET1.weather_group.Select("code='" + GrpCode + "'")
|
|
If GrpList Is Nothing OrElse GrpList.Length = 1 Then
|
|
GrpName = GrpList(0).name
|
|
End If
|
|
GrpList = DSET1.weather_group.Select("code='" + code + "'")
|
|
If GrpList Is Nothing OrElse GrpList.Length = 1 Then
|
|
CodeName = GrpList(0).name
|
|
End If
|
|
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = GrpName : Row += 1 '신청지역 대분류
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = CodeName : Row += 1 '신청지역 중분류
|
|
|
|
Dim drzone0() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("", "침기율 desc")
|
|
If drzone0.Length < 1 Then
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 0 : Row += 1 '신청지역 중분류
|
|
Else
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drzone0(0).침기율 : Row += 1 '신청지역 중분류
|
|
End If
|
|
|
|
|
|
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_주거공간.ToString("N2") : Row += 1 '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_주거공간.ToString("N2") : Row += 1 '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_구내식당_초중고.ToString("N2") : Row += 1 '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_구내식당_초중고.ToString("N2") : Row += 1 '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_주방및조리실_초중고.ToString("N2") : Row += 1 '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_주방및조리실_초중고.ToString("N2") : Row += 1 '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 면적_체육시설_초중고.ToString("N2") : Row += 1 '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 비중_체육시설_초중고.ToString("N2") : Row += 1 '//
|
|
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1 '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1 '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1 '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1 '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1 '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1 '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1 '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1 '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1 '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1 '//
|
|
|
|
Dim 공조목록역순 As DS.tbl_kongjoRow = Nothing
|
|
Dim 공조면적 As Decimal = 0
|
|
Dim 공조면적총합 As Decimal = 0
|
|
Dim 공조방사율총합 As Decimal = 0
|
|
For Each drkongjo As DS.tbl_kongjoRow In DSET1.tbl_kongjo.Rows
|
|
If drkongjo.공기식태양열적용 <> "예" Then
|
|
Continue For
|
|
End If
|
|
Dim kjcode As String = drkongjo.code
|
|
Dim DR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("냉난방공조처리시스템='" & kjcode & "'")
|
|
If DR.GetUpperBound(0) >= 0 Then '//해당되는 데이터가
|
|
|
|
|
|
If TOSG(drkongjo.집열기면적) > 공조면적 Then
|
|
공조면적 = TOSG(drkongjo.집열기면적)
|
|
공조목록역순 = drkongjo
|
|
End If
|
|
|
|
Try
|
|
공조면적총합 += TOSG(drkongjo.집열기면적) '* TOSG(drow.입력존의수)
|
|
공조방사율총합 += TOSG(drkongjo.집열기방사율) * TOSG(drkongjo.집열기면적) '* TOSG(drow.입력존의수)
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End If
|
|
Next
|
|
|
|
If 공조목록역순 Is Nothing Then
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1 '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1 '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1 '//
|
|
Else
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 공조목록역순.집열기방위 : Row += 1 '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 공조면적총합 : Row += 1 '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = TOSG(공조방사율총합 / 공조면적총합) : Row += 1 '//
|
|
End If
|
|
|
|
|
|
Dim 외피면적비지붕포함 As Decimal = 외피면적비_지붕포함합 / 면적합값.Item1
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 외피면적비지붕포함 : Row += 1 '//
|
|
|
|
Dim 면적체적합 As Decimal = 0
|
|
Dim 존면적합침기율값있음 As Decimal = 0
|
|
For Each drzone As DS.tbl_zoneRow In DSET1.tbl_zone
|
|
면적체적합 += TOSG(drzone.천장고p) * TOSG(drzone.면적)
|
|
If TOSG(drzone.침기율) > 0 Then
|
|
존면적합침기율값있음 += TOSG(drzone.면적)
|
|
End If
|
|
Next
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = (외피면적비_지붕포함합 / 면적체적합) : Row += 1 '//
|
|
|
|
If 공조면적총합 < 1 Then
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 0 : Row += 1 '//
|
|
Else
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = (존면적합침기율값있음 / 공조면적총합) : Row += 1 '//
|
|
End If
|
|
|
|
|
|
Dim 난방기기신재상합 As Decimal = 0
|
|
Dim 난방기기전체용량합 As Decimal = 0
|
|
For Each drnanbang As DS.tbl_nanbangkikiRow In DSET1.tbl_nanbangkiki
|
|
|
|
Dim DR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("code <> '0' and 열생산난방생산기기='" & drnanbang.code & "' or 공조난방생산기기='" & drnanbang.code & "'")
|
|
If DR.Length < 1 Then Continue For
|
|
|
|
If drnanbang.신재생연결여부 <> "연결없음" Then
|
|
If drnanbang.열생산기기방식 = "히트펌프" Then
|
|
난방기기신재상합 += TOSG(drnanbang.히트난방용량)
|
|
ElseIf drnanbang.열생산기기방식 = "보일러" Then
|
|
난방기기신재상합 += TOSG(drnanbang.보일러정격출력)
|
|
End If
|
|
End If
|
|
|
|
If drnanbang.열생산기기방식 = "히트펌프" Then
|
|
난방기기전체용량합 += TOSG(drnanbang.히트난방용량)
|
|
ElseIf drnanbang.열생산기기방식 = "보일러" Then
|
|
난방기기전체용량합 += TOSG(drnanbang.보일러정격출력)
|
|
End If
|
|
|
|
Next
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = (난방기기신재상합) : Row += 1 '//
|
|
If 난방기기전체용량합 = 0 Then
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 0 : Row += 1 '//
|
|
Else
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = (난방기기신재상합 / 난방기기전체용량합) : Row += 1 '//
|
|
End If
|
|
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = (난방기기전체용량합) : Row += 1 '//
|
|
|
|
|
|
Dim 냉방기기신재상합 As Decimal = 0
|
|
Dim 냉방기기전체용량합 As Decimal = 0
|
|
For Each drnanbang As DS.tbl_nangbangkikiRow In DSET1.tbl_nangbangkiki
|
|
|
|
Dim DR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("열생산냉방생산기기='" & drnanbang.code & "' or 공조냉방생산기기='" & drnanbang.code & "'") '//2010.12.02 수정
|
|
If DR.Length < 1 Then Continue For
|
|
|
|
If drnanbang.신재생연결여부 <> "연결없음" Then
|
|
냉방기기신재상합 += TOSG(drnanbang.냉동기용량)
|
|
End If
|
|
|
|
냉방기기전체용량합 += TOSG(drnanbang.냉동기용량)
|
|
Next
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = (냉방기기신재상합) : Row += 1 '//
|
|
If 냉방기기전체용량합 < 1 Then
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 0 : Row += 1 '//
|
|
Else
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = (냉방기기신재상합 / 냉방기기전체용량합) : Row += 1 '//
|
|
End If
|
|
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = (냉방기기전체용량합) : Row += 1 '//
|
|
|
|
|
|
Dim 난방기기용량 As Decimal = 0
|
|
Dim 난방기기 As DS.tbl_nanbangkikiRow = Nothing
|
|
Dim 급탕설비용량_전기설비용량 As Decimal = 0
|
|
Dim 급탕설비용량합 As Decimal = 0
|
|
Dim 급탕설비용량_비전기설비용량 As Decimal = 0
|
|
Dim 급탕설비용량_신재생설비용량 As Decimal = 0
|
|
Dim 급탕설비신재생용량합 As Decimal = 0
|
|
Dim 급탕설비용량_신재생설비비중 As Decimal = 0
|
|
|
|
For Each drnkiki As DS.tbl_nanbangkikiRow In DSET1.tbl_nanbangkiki
|
|
|
|
Dim DR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("code <> '0' and 열생산급탕생산기기='" & drnkiki.code & "'")
|
|
If DR.Length < 1 Then Continue For
|
|
|
|
If drnkiki.열생산기기방식 = "히트펌프" Then
|
|
If drnkiki.히트난방용량 > 난방기기용량 Then
|
|
난방기기용량 = TOSG(drnkiki.히트난방용량)
|
|
난방기기 = drnkiki
|
|
End If
|
|
|
|
급탕설비용량합 += TOSG(drnkiki.히트난방용량)
|
|
|
|
If drnkiki.히트연료.EndsWith("가스") Then
|
|
급탕설비용량_비전기설비용량 += TOSG(drnkiki.히트난방용량)
|
|
ElseIf drnkiki.히트연료 = ("전기") Then
|
|
급탕설비용량_전기설비용량 += TOSG(drnkiki.히트난방용량)
|
|
End If
|
|
|
|
If drnkiki.신재생연결여부 <> "연결없음" Then
|
|
급탕설비용량_신재생설비용량 += TOSG(drnkiki.히트난방용량)
|
|
End If
|
|
|
|
ElseIf drnkiki.열생산기기방식 = "보일러" Then
|
|
If drnkiki.보일러정격출력 > 난방기기용량 Then
|
|
난방기기용량 = TOSG(drnkiki.보일러정격출력)
|
|
난방기기 = drnkiki
|
|
End If
|
|
급탕설비용량합 += drnkiki.보일러정격출력
|
|
급탕설비용량_비전기설비용량 += TOSG(drnkiki.보일러정격출력)
|
|
|
|
If drnkiki.신재생연결여부 <> "연결없음" Then
|
|
급탕설비용량_신재생설비용량 += TOSG(drnkiki.보일러정격출력)
|
|
End If
|
|
|
|
ElseIf drnkiki.열생산기기방식 = "지역난방" Then
|
|
급탕설비용량합 += TOSG(drnkiki.열교환기정격출력)
|
|
급탕설비용량_비전기설비용량 += TOSG(drnkiki.열교환기정격출력)
|
|
|
|
If drnkiki.신재생연결여부 <> "연결없음" Then
|
|
급탕설비용량_신재생설비용량 += TOSG(drnkiki.열교환기정격출력)
|
|
End If
|
|
|
|
ElseIf drnkiki.열생산기기방식 = "전기보일러" Then
|
|
급탕설비용량_전기설비용량 += TOSG(drnkiki.보일러정격출력)
|
|
급탕설비용량합 += TOSG(drnkiki.보일러정격출력)
|
|
|
|
If drnkiki.신재생연결여부 <> "연결없음" Then
|
|
급탕설비용량_신재생설비용량 += TOSG(drnkiki.보일러정격출력)
|
|
End If
|
|
End If
|
|
|
|
|
|
|
|
|
|
If drnkiki.신재생연결여부 <> "연결없음" Then
|
|
Dim newlist() As DS.tbl_newRow = DSET1.tbl_new.Select("code = '" + drnkiki.연결된시스템 + "'")
|
|
If newlist.Length = 1 Then
|
|
Dim newkikidr As DS.tbl_newRow = newlist(0)
|
|
If newkikidr.기기종류 = "열병합" Then
|
|
급탕설비용량_신재생설비비중 += TOSG(newkikidr.열생산능력)
|
|
ElseIf newkikidr.기기종류 = "지열" Then
|
|
급탕설비용량_신재생설비비중 += TOSG(newkikidr.지열히트펌프용량)
|
|
ElseIf newkikidr.기기종류 = "수열" Then
|
|
급탕설비용량_신재생설비비중 += TOSG(newkikidr.수열_수열히트펌프용량)
|
|
End If
|
|
End If
|
|
End If
|
|
Next
|
|
|
|
|
|
If 난방기기 Is Nothing Then
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1 '//
|
|
Else
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 난방기기.열생산기기방식 : Row += 1 '//
|
|
End If
|
|
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 급탕설비용량_전기설비용량 : Row += 1 '//
|
|
If 급탕설비용량합 < 1 Then
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 0 : Row += 1 '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 급탕설비용량_비전기설비용량 : Row += 1 '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 0 : Row += 1 '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = (급탕설비용량_신재생설비용량) : Row += 1 '//
|
|
Else
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = TOSG(급탕설비용량_전기설비용량 / 급탕설비용량합) : Row += 1 '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 급탕설비용량_비전기설비용량 : Row += 1 '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = TOSG(급탕설비용량_비전기설비용량 / 급탕설비용량합) : Row += 1 '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = (급탕설비용량_신재생설비용량) : Row += 1 '//
|
|
End If
|
|
|
|
If 급탕설비용량_신재생설비용량 < 1 Then
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 0 : Row += 1 '//
|
|
Else
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = (급탕설비용량_신재생설비비중 / 급탕설비용량_신재생설비용량) : Row += 1 '//
|
|
End If
|
|
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 급탕설비용량합 : Row += 1 '//
|
|
|
|
|
|
Dim BIPV_용량 As Decimal = 0
|
|
Dim BIPV_모듈면적 As Decimal = 0
|
|
Dim BIPV_모듈면적_동 As Decimal = 0
|
|
Dim BIPV_모듈면적_남동 As Decimal = 0
|
|
Dim BIPV_모듈면적_남 As Decimal = 0
|
|
Dim BIPV_모듈면적_남서 As Decimal = 0
|
|
Dim BIPV_모듈면적_서 As Decimal = 0
|
|
Dim BIPV_평균효율합 As Decimal = 0
|
|
Dim BIPV_갯수 As Decimal = 0
|
|
Dim BIPV_대표면적 As DS.tbl_newRow = Nothing
|
|
Dim BIPV_태양광최대면적 As Decimal = 0
|
|
|
|
Dim 태양광후면통풍형_용량 As Decimal = 0
|
|
Dim 태양광후면통풍형_모듈면적 As Decimal = 0
|
|
Dim 태양광후면통풍형_모듈면적_수평 As Decimal = 0
|
|
Dim 태양광후면통풍형_모듈면적_동 As Decimal = 0
|
|
Dim 태양광후면통풍형_모듈면적_남동 As Decimal = 0
|
|
Dim 태양광후면통풍형_모듈면적_남 As Decimal = 0
|
|
Dim 태양광후면통풍형_모듈면적_남서 As Decimal = 0
|
|
Dim 태양광후면통풍형_모듈면적_서 As Decimal = 0
|
|
Dim 태양광후면통풍형_평균효율합 As Decimal = 0
|
|
Dim 태양광후면통풍형_갯수 As Decimal = 0
|
|
Dim 태양광후면통풍형_대표면적 As DS.tbl_newRow = Nothing
|
|
Dim 태양광후면통풍형_태양광최대면적 As Decimal = 0
|
|
|
|
|
|
Dim 기계환기형_용량 As Decimal = 0
|
|
Dim 기계환기형_모듈면적 As Decimal = 0
|
|
Dim 기계환기형_모듈면적_수평 As Decimal = 0
|
|
Dim 기계환기형_모듈면적_동 As Decimal = 0
|
|
Dim 기계환기형_모듈면적_남동 As Decimal = 0
|
|
Dim 기계환기형_모듈면적_남 As Decimal = 0
|
|
Dim 기계환기형_모듈면적_남서 As Decimal = 0
|
|
Dim 기계환기형_모듈면적_서 As Decimal = 0
|
|
Dim 기계환기형_평균효율합 As Decimal = 0
|
|
Dim 기계환기형_갯수 As Decimal = 0
|
|
Dim 기계환기형_대표면적 As DS.tbl_newRow = Nothing
|
|
Dim 기계환기형_태양광최대면적 As Decimal = 0
|
|
|
|
|
|
|
|
For Each drnew As DS.tbl_newRow In DSET1.tbl_new.Select("code <> '0'")
|
|
|
|
If drnew.기기종류 = "태양광" AndAlso drnew.태양광모듈종류 = "밀착형" AndAlso drnew.태양광모듈기울기 = "수직" Then
|
|
BIPV_용량 += TOSG(drnew.태양광용량)
|
|
BIPV_모듈면적 += TOSG(drnew.태양광모듈면적)
|
|
|
|
If drnew.태양광모듈면적 > BIPV_태양광최대면적 Then
|
|
BIPV_대표면적 = drnew
|
|
BIPV_태양광최대면적 = TOSG(drnew.태양광모듈면적)
|
|
End If
|
|
|
|
If TOSG(drnew.태양광모듈효율) > 0 Then
|
|
BIPV_평균효율합 += TOSG(drnew.태양광모듈효율)
|
|
BIPV_갯수 += 1
|
|
End If
|
|
|
|
If drnew.태양광모듈방위 = "동" Then
|
|
BIPV_모듈면적_동 += TOSG(drnew.태양광모듈면적)
|
|
ElseIf drnew.태양광모듈방위 = "남동" Then
|
|
BIPV_모듈면적_남동 += TOSG(drnew.태양광모듈면적)
|
|
ElseIf drnew.태양광모듈방위 = "남" Then
|
|
BIPV_모듈면적_남 += TOSG(drnew.태양광모듈면적)
|
|
ElseIf drnew.태양광모듈방위 = "남서" Then
|
|
BIPV_모듈면적_남서 += TOSG(drnew.태양광모듈면적)
|
|
ElseIf drnew.태양광모듈방위 = "서" Then
|
|
BIPV_모듈면적_서 += TOSG(drnew.태양광모듈면적)
|
|
End If
|
|
End If
|
|
|
|
|
|
If drnew.기기종류 = "태양광" AndAlso drnew.태양광모듈종류 = "후면통풍형" AndAlso (drnew.태양광모듈기울기 = "수평" Or drnew.태양광모듈기울기 = "45도") Then
|
|
태양광후면통풍형_용량 += TOSG(drnew.태양광용량)
|
|
태양광후면통풍형_모듈면적 += TOSG(drnew.태양광모듈면적)
|
|
|
|
|
|
If drnew.태양광모듈면적 > 태양광후면통풍형_태양광최대면적 Then
|
|
태양광후면통풍형_대표면적 = drnew
|
|
태양광후면통풍형_태양광최대면적 = drnew.태양광모듈면적
|
|
End If
|
|
|
|
If TOSG(drnew.태양광모듈효율) > 0 Then
|
|
태양광후면통풍형_평균효율합 += TOSG(drnew.태양광모듈효율)
|
|
태양광후면통풍형_갯수 += 1
|
|
End If
|
|
|
|
If drnew.태양광모듈방위 = "수평" Then
|
|
태양광후면통풍형_모듈면적_수평 += TOSG(drnew.태양광모듈면적)
|
|
ElseIf drnew.태양광모듈방위 = "동" Then
|
|
태양광후면통풍형_모듈면적_동 += TOSG(drnew.태양광모듈면적)
|
|
ElseIf drnew.태양광모듈방위 = "남동" Then
|
|
태양광후면통풍형_모듈면적_남동 += TOSG(drnew.태양광모듈면적)
|
|
ElseIf drnew.태양광모듈방위 = "남" Then
|
|
태양광후면통풍형_모듈면적_남 += TOSG(drnew.태양광모듈면적)
|
|
ElseIf drnew.태양광모듈방위 = "남서" Then
|
|
태양광후면통풍형_모듈면적_남서 += TOSG(drnew.태양광모듈면적)
|
|
ElseIf drnew.태양광모듈방위 = "서" Then
|
|
태양광후면통풍형_모듈면적_서 += TOSG(drnew.태양광모듈면적)
|
|
End If
|
|
End If
|
|
|
|
|
|
|
|
If drnew.기기종류 = "태양광" AndAlso drnew.태양광모듈종류 = "기계환기형" AndAlso (drnew.태양광모듈기울기 = "수평" Or drnew.태양광모듈기울기 = "45도") Then
|
|
기계환기형_용량 += TOSG(drnew.태양광용량)
|
|
기계환기형_모듈면적 += TOSG(drnew.태양광모듈면적)
|
|
|
|
|
|
If drnew.태양광모듈면적 > 기계환기형_태양광최대면적 Then
|
|
기계환기형_대표면적 = drnew
|
|
기계환기형_태양광최대면적 = drnew.태양광모듈면적
|
|
End If
|
|
|
|
If TOSG(drnew.태양광모듈효율) > 0 Then
|
|
기계환기형_평균효율합 += TOSG(drnew.태양광모듈효율)
|
|
기계환기형_갯수 += 1
|
|
End If
|
|
|
|
If drnew.태양광모듈방위 = "수평" Then
|
|
기계환기형_모듈면적_수평 += TOSG(drnew.태양광모듈면적)
|
|
ElseIf drnew.태양광모듈방위 = "동" Then
|
|
기계환기형_모듈면적_동 += TOSG(drnew.태양광모듈면적)
|
|
ElseIf drnew.태양광모듈방위 = "남동" Then
|
|
기계환기형_모듈면적_남동 += TOSG(drnew.태양광모듈면적)
|
|
ElseIf drnew.태양광모듈방위 = "남" Then
|
|
기계환기형_모듈면적_남 += TOSG(drnew.태양광모듈면적)
|
|
ElseIf drnew.태양광모듈방위 = "남서" Then
|
|
기계환기형_모듈면적_남서 += TOSG(drnew.태양광모듈면적)
|
|
ElseIf drnew.태양광모듈방위 = "서" Then
|
|
기계환기형_모듈면적_서 += TOSG(drnew.태양광모듈면적)
|
|
End If
|
|
End If
|
|
|
|
|
|
Next
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = BIPV_용량 : Row += 1 '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = BIPV_모듈면적 : Row += 1 '//
|
|
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = BIPV_모듈면적_동 : Row += 1 '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = BIPV_모듈면적_남동 : Row += 1 '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = BIPV_모듈면적_남 : Row += 1 '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = BIPV_모듈면적_남서 : Row += 1 '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = BIPV_모듈면적_서 : Row += 1 '//
|
|
|
|
If BIPV_갯수 = 0 Then
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 0 : Row += 1 '//
|
|
Else
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = (BIPV_평균효율합 / BIPV_갯수) : Row += 1 '//
|
|
End If
|
|
|
|
If BIPV_대표면적 Is Nothing Then
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1 '//
|
|
Else
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = BIPV_대표면적.태양광모듈종류 : Row += 1 '//
|
|
End If
|
|
|
|
|
|
|
|
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 태양광후면통풍형_용량 : Row += 1 '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 태양광후면통풍형_모듈면적 : Row += 1 '//
|
|
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 태양광후면통풍형_모듈면적_수평 : Row += 1 '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 태양광후면통풍형_모듈면적_동 : Row += 1 '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 태양광후면통풍형_모듈면적_남동 : Row += 1 '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 태양광후면통풍형_모듈면적_남 : Row += 1 '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 태양광후면통풍형_모듈면적_남서 : Row += 1 '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 태양광후면통풍형_모듈면적_서 : Row += 1 '//
|
|
|
|
If 태양광후면통풍형_갯수 = 0 Then
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 0 : Row += 1 '//
|
|
Else
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = (태양광후면통풍형_평균효율합 / 태양광후면통풍형_갯수) : Row += 1 '//
|
|
End If
|
|
|
|
If 태양광후면통풍형_대표면적 Is Nothing Then
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1 '//
|
|
Else
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 태양광후면통풍형_대표면적.태양광모듈종류 : Row += 1 '//
|
|
End If
|
|
|
|
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 기계환기형_용량 : Row += 1 '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 기계환기형_모듈면적 : Row += 1 '//
|
|
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 기계환기형_모듈면적_수평 : Row += 1 '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 기계환기형_모듈면적_동 : Row += 1 '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 기계환기형_모듈면적_남동 : Row += 1 '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 기계환기형_모듈면적_남 : Row += 1 '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 기계환기형_모듈면적_남서 : Row += 1 '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 기계환기형_모듈면적_서 : Row += 1 '//
|
|
|
|
If 기계환기형_갯수 = 0 Then
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 0 : Row += 1 '//
|
|
Else
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = (기계환기형_평균효율합 / 기계환기형_갯수) : Row += 1 '//
|
|
End If
|
|
|
|
If 기계환기형_대표면적 Is Nothing Then
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = "" : Row += 1 '//
|
|
Else
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 기계환기형_대표면적.태양광모듈종류 : Row += 1 '//
|
|
End If
|
|
|
|
|
|
Dim 태양열급탕_집열판면적_합계 As Decimal = 0
|
|
Dim 태양열급탕_집열판_평판형면적_합계 As Decimal = 0
|
|
Dim 태양열급탕_집열판_진공관형면적_합계 As Decimal = 0
|
|
Dim 태양열급탕_무손실효율계수_합계 As Decimal = 0
|
|
Dim 태양열급탕_무손실효율계수_수량 As Decimal = 0
|
|
|
|
Dim 태양열난방급탕_집열판면적_합계 As Decimal = 0
|
|
Dim 태양열난방급탕_집열판_평판형면적_합계 As Decimal = 0
|
|
Dim 태양열난방급탕_집열판_진공관형면적_합계 As Decimal = 0
|
|
Dim 태양열난방급탕_무손실효율계수_합계 As Decimal = 0
|
|
Dim 태양열난방급탕_무손실효율계수_수량 As Decimal = 0
|
|
|
|
|
|
For Each drnew As DS.tbl_newRow In DSET1.tbl_new.Select("code <> '0'")
|
|
|
|
If drnew.기기종류 = "태양열" AndAlso drnew.태양열종류 = "급탕" Then
|
|
|
|
태양열급탕_집열판면적_합계 += TOSG(drnew.집열판면적)
|
|
If drnew.집열기유형 = "평판형" Then
|
|
태양열급탕_집열판_평판형면적_합계 += TOSG(drnew.집열판면적)
|
|
ElseIf drnew.집열기유형 = "진공관형" Then
|
|
태양열급탕_집열판_진공관형면적_합계 += TOSG(drnew.집열판면적)
|
|
End If
|
|
|
|
If TOSG(drnew.무손실효율계수) > 0 Then
|
|
태양열급탕_무손실효율계수_합계 += TOSG(drnew.무손실효율계수)
|
|
태양열급탕_무손실효율계수_수량 += 1
|
|
End If
|
|
|
|
End If
|
|
|
|
If drnew.기기종류 = "태양열" AndAlso drnew.태양열종류 = "난방+급탕" Then
|
|
|
|
태양열난방급탕_집열판면적_합계 += TOSG(drnew.집열판면적)
|
|
If drnew.집열기유형 = "평판형" Then
|
|
태양열난방급탕_집열판_평판형면적_합계 += TOSG(drnew.집열판면적)
|
|
ElseIf drnew.집열기유형 = "진공관형" Then
|
|
태양열난방급탕_집열판_진공관형면적_합계 += TOSG(drnew.집열판면적)
|
|
End If
|
|
|
|
If TOSG(drnew.무손실효율계수) > 0 Then
|
|
태양열난방급탕_무손실효율계수_합계 += TOSG(drnew.무손실효율계수)
|
|
태양열난방급탕_무손실효율계수_수량 += 1
|
|
End If
|
|
|
|
End If
|
|
|
|
Next
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 태양열급탕_집열판면적_합계 : Row += 1 '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 태양열급탕_집열판_평판형면적_합계 : Row += 1 '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 태양열급탕_집열판_진공관형면적_합계 : Row += 1 '//
|
|
If 태양열급탕_무손실효율계수_수량 = 0 Then
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 0 : Row += 1 '//
|
|
Else
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = (태양열급탕_무손실효율계수_합계 / 태양열급탕_무손실효율계수_수량) : Row += 1 '//
|
|
End If
|
|
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 태양열난방급탕_집열판면적_합계 : Row += 1 '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 태양열난방급탕_집열판_평판형면적_합계 : Row += 1 '//
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 태양열난방급탕_집열판_진공관형면적_합계 : Row += 1 '//
|
|
If 태양열난방급탕_무손실효율계수_수량 = 0 Then
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 0 : Row += 1 '//
|
|
Else
|
|
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = (태양열난방급탕_무손실효율계수_합계 / 태양열난방급탕_무손실효율계수_수량) : Row += 1 '//
|
|
End If
|
|
|
|
|
|
|
|
|
|
End Sub
|
|
|
|
Private Function MakeDataTAB() As String
|
|
|
|
Dim buffer As New System.Text.StringBuilder()
|
|
|
|
|
|
'//결과데이터에서 자료를 추출하고 그 값을 넣는다
|
|
Dim DataColumnIndex As Integer = Me.column
|
|
Dim Row As Integer = 0
|
|
Dim DsReport As New DSR
|
|
|
|
|
|
|
|
'//건물개요 건물개요-공공기관 체크된 경우 '공공기관' 표시 - 160211
|
|
Dim drDesc As DS.tbl_DescRow = DSET1.tbl_Desc.Rows(0)
|
|
buffer.Append(processfile) : buffer.Append(vbTab) ' Row += 1 '//파일명
|
|
buffer.Append(drDesc.buildm21) : buffer.Append(vbTab) '//대지면적
|
|
buffer.Append(drDesc.buildm23) : buffer.Append(vbTab) '//연면적
|
|
buffer.Append(drDesc.buildm22) : buffer.Append(vbTab) '//건축면적
|
|
buffer.Append(drDesc.gujo) : buffer.Append(vbTab) '//구조
|
|
buffer.Append(String.Format("지하{0}층／지상{1}층", drDesc.builds1, drDesc.builds2)) : buffer.Append(vbTab) '//건물규모
|
|
|
|
If drDesc.공공 = "1" Then '//
|
|
buffer.Append("공공") : buffer.Append(vbTab) '//주체
|
|
Else
|
|
buffer.Append("민간") : buffer.Append(vbTab) '//주체
|
|
End If
|
|
|
|
Dim 주거용 As Integer = CInt(drDesc.isjugo)
|
|
|
|
'//에너지 요구량
|
|
' Result1.E요구량(0).면적당요구량
|
|
Dim v1_1 As Double = Math.Round(Result1.E요구량(0).난방면적, 1)
|
|
Dim v1_2 As Double = Math.Round(Result1.E요구량(0).냉방면적, 1)
|
|
Dim v1_3 As Double = Math.Round(Result1.E요구량(0).급탕면적, 1)
|
|
Dim v1_4 As Double = Math.Round(Result1.E요구량(0).조명면적, 1)
|
|
Dim v1_s As Double = v1_1 + v1_2 + v1_3 + v1_4
|
|
buffer.Append(v1_1.ToString("N1")) : buffer.Append(vbTab) '//난방
|
|
buffer.Append(v1_2.ToString("N1")) : buffer.Append(vbTab) '//냉방
|
|
buffer.Append(v1_3.ToString("N1")) : buffer.Append(vbTab) '//급탕
|
|
buffer.Append(v1_4.ToString("N1")) : buffer.Append(vbTab) '//조명
|
|
buffer.Append("0") : buffer.Append(vbTab) '//환기
|
|
buffer.Append(v1_s.ToString("N1")) : buffer.Append(vbTab) '//환기
|
|
|
|
'//에너지 소요량
|
|
Dim v2_1 As Double = Math.Round(Result1.E소요량(0).난방면적, 1)
|
|
Dim v2_2 As Double = Math.Round(Result1.E소요량(0).냉방면적, 1)
|
|
Dim v2_3 As Double = Math.Round(Result1.E소요량(0).급탕면적, 1)
|
|
Dim v2_4 As Double = Math.Round(Result1.E소요량(0).조명면적, 1)
|
|
Dim v2_5 As Double = Math.Round(Result1.E소요량(0).환기면적, 1)
|
|
Dim v2_s As Double = v2_1 + v2_2 + v2_3 + v2_4 + v2_5
|
|
buffer.Append(v2_1.ToString("N1")) : buffer.Append(vbTab) '//난방
|
|
buffer.Append(v2_2.ToString("N1")) : buffer.Append(vbTab) '//냉방
|
|
buffer.Append(v2_3.ToString("N1")) : buffer.Append(vbTab) '//급탕
|
|
buffer.Append(v2_4.ToString("N1")) : buffer.Append(vbTab) '//조명
|
|
buffer.Append(v2_5.ToString("N1")) : buffer.Append(vbTab) '//환기
|
|
buffer.Append(v2_s.ToString("N1")) : buffer.Append(vbTab) '//합계
|
|
|
|
'//1차에너지 소요량
|
|
Dim v3_1 As Double = Math.Round(Result1.일차E소요량(0).난방면적, 1)
|
|
Dim v3_2 As Double = Math.Round(Result1.일차E소요량(0).냉방면적, 1)
|
|
Dim v3_3 As Double = Math.Round(Result1.일차E소요량(0).급탕면적, 1)
|
|
Dim v3_4 As Double = Math.Round(Result1.일차E소요량(0).조명면적, 1)
|
|
Dim v3_5 As Double = Math.Round(Result1.일차E소요량(0).환기면적, 1)
|
|
Dim v3_s As Double = v3_1 + v3_2 + v3_3 + v3_4 + v3_5
|
|
buffer.Append(v3_1.ToString("N1")) : buffer.Append(vbTab) '//난방
|
|
buffer.Append(v3_2.ToString("N1")) : buffer.Append(vbTab) '//냉방
|
|
buffer.Append(v3_3.ToString("N1")) : buffer.Append(vbTab) '//급탕
|
|
buffer.Append(v3_4.ToString("N1")) : buffer.Append(vbTab) '//조명
|
|
buffer.Append(v3_5.ToString("N1")) : buffer.Append(vbTab) '//환기
|
|
buffer.Append(v3_s.ToString("N1")) : buffer.Append(vbTab) '//환기
|
|
|
|
Dim 합계 As Decimal = 0
|
|
'//등급용1차에너지
|
|
Dim 일차에너지소요량합계 As Decimal = 0 '//등급계산에서 사용함
|
|
Dim 난방에너지, 냉방에너지, 급탕에너지, 조명에너지, 환기에너지 As Single
|
|
If (Result1.사용면적.H_WF = 0) Then
|
|
난방에너지 = 0
|
|
Else
|
|
난방에너지 = Math.Round(Result1.일차E소요량(0).난방면적2 * Result1.사용면적.H / Result1.사용면적.H_WF, 1)
|
|
End If
|
|
If (Result1.사용면적.C_WF = 0) Then
|
|
냉방에너지 = 0
|
|
Else
|
|
냉방에너지 = Math.Round(TOSG(Result1.일차E소요량(0).냉방면적 * Result1.사용면적.C / Result1.사용면적.C_WF), 1)
|
|
End If
|
|
If (Result1.사용면적.W_WF = 0) Then
|
|
급탕에너지 = 0
|
|
Else
|
|
급탕에너지 = Math.Round(Result1.일차E소요량(0).급탕면적2 * Result1.사용면적.W / Result1.사용면적.W_WF, 1)
|
|
End If
|
|
If (Result1.사용면적.L_WF = 0) Then
|
|
조명에너지 = 0
|
|
Else
|
|
조명에너지 = Math.Round(Result1.일차E소요량(0).조명면적 * Result1.사용면적.L / Result1.사용면적.L_WF, 1)
|
|
End If
|
|
If (Result1.사용면적.V_WF = 0) Then
|
|
환기에너지 = 0
|
|
Else
|
|
환기에너지 = Math.Round(Result1.일차E소요량(0).환기면적 * Result1.사용면적.V / Result1.사용면적.V_WF, 1)
|
|
End If
|
|
일차에너지소요량합계 = 냉방에너지 + 난방에너지 + 급탕에너지 + 조명에너지 + 환기에너지
|
|
|
|
buffer.Append(난방에너지.ToString) : buffer.Append(vbTab) '//난방
|
|
buffer.Append(냉방에너지.ToString) : buffer.Append(vbTab) '//냉방
|
|
buffer.Append(급탕에너지.ToString) : buffer.Append(vbTab) '//급탕
|
|
buffer.Append(조명에너지.ToString) : buffer.Append(vbTab) '//조명
|
|
buffer.Append(환기에너지.ToString) : buffer.Append(vbTab) '//환기
|
|
합계 = 난방에너지 + 냉방에너지 + 급탕에너지 + 조명에너지 + 환기에너지
|
|
buffer.Append(합계.ToString("N1")) : buffer.Append(vbTab) '//환기
|
|
|
|
|
|
'//연간 CO2발생량
|
|
Dim StartCode As Integer = 81 '//76
|
|
Dim CO2_1, CO2_2, CO2_3, CO2_4, CO2_5 As Decimal
|
|
CO2_1 = Math.Round(RData("410", StartCode + 0), 1)
|
|
CO2_2 = Math.Round(RData("410", StartCode + 7), 1)
|
|
CO2_3 = Math.Round(RData("410", StartCode + 15), 1)
|
|
CO2_4 = Math.Round(RData("410", StartCode + 22), 1)
|
|
CO2_5 = Math.Round(RData("410", StartCode + 25), 1)
|
|
|
|
buffer.Append(CO2_1.ToString) : buffer.Append(vbTab) '//난방
|
|
buffer.Append(CO2_2.ToString) : buffer.Append(vbTab) '//냉방
|
|
buffer.Append(CO2_3.ToString) : buffer.Append(vbTab) '//급탕
|
|
buffer.Append(CO2_4.ToString) : buffer.Append(vbTab) '//조명
|
|
buffer.Append(CO2_5.ToString) : buffer.Append(vbTab) '//환기
|
|
합계 = CO2_1 + CO2_2 + CO2_3 + CO2_4 + CO2_5
|
|
buffer.Append(합계.ToString()) : buffer.Append(vbTab) '//환기
|
|
|
|
'//단위면적당 CO2발생량
|
|
StartCode = 79 '//76
|
|
CO2_1 = Math.Round(RData("410", StartCode + 8), 1)
|
|
CO2_2 = Math.Round(RData("410", StartCode + 16), 1)
|
|
CO2_3 = Math.Round(RData("410", StartCode + 23), 1)
|
|
CO2_4 = Math.Round(RData("410", StartCode + 26), 1)
|
|
CO2_5 = Math.Round(RData("410", StartCode + 29), 1)
|
|
buffer.Append(CO2_1.ToString) : buffer.Append(vbTab) '//난방
|
|
buffer.Append(CO2_2.ToString) : buffer.Append(vbTab) '//냉방
|
|
buffer.Append(CO2_3.ToString) : buffer.Append(vbTab) '//급탕
|
|
buffer.Append(CO2_4.ToString) : buffer.Append(vbTab) '//조명
|
|
buffer.Append(CO2_5.ToString) : buffer.Append(vbTab) '//환기
|
|
합계 = CO2_1 + CO2_2 + CO2_3 + CO2_4 + CO2_5
|
|
buffer.Append(합계.ToString()) : buffer.Append(vbTab) '//환기
|
|
|
|
'//평가결과값(report_pyonga 에서 가져옴)
|
|
Pub.항목별평가결과(DsReport)
|
|
If DsReport.Pyonga_YK.Rows.Count < 1 Then
|
|
MsgBox("구조체값이 생성되지 않았습니다", MsgBoxStyle.Critical, "확인")
|
|
Return buffer.ToString()
|
|
End If
|
|
Dim drYK As DSR.Pyonga_YKRow = DsReport.Pyonga_YK.Rows(0)
|
|
|
|
'//구조체
|
|
buffer.Append(drYK.벽체종류) : buffer.Append(vbTab) '//난방
|
|
buffer.Append(drYK.벽체값.ToString("N3")) : buffer.Append(vbTab) '//냉방
|
|
buffer.Append(drYK.지붕종류) : buffer.Append(vbTab) '//급탕
|
|
buffer.Append(drYK.지붕값.ToString("N3")) : buffer.Append(vbTab) '//조명
|
|
buffer.Append(drYK.바닥종류) : buffer.Append(vbTab) '//환기
|
|
buffer.Append(drYK.바닥값.ToString("N3")) : buffer.Append(vbTab) '//환기
|
|
buffer.Append(drYK.창호종류) : buffer.Append(vbTab) '//환기
|
|
buffer.Append(drYK.창호값.ToString("N3")) : buffer.Append(vbTab) '//환기
|
|
|
|
'//창면적비 9개(?)
|
|
Dim 창및문면적비, 외벽열관류율_평균 As Decimal
|
|
Dim 외벽열관류율_남 As Decimal
|
|
Dim 외벽열관류율_남동 As Decimal
|
|
Dim 외벽열관류율_동 As Decimal
|
|
Dim 외벽열관류율_북동 As Decimal
|
|
Dim 외벽열관류율_북 As Decimal
|
|
Dim 외벽열관류율_북서 As Decimal
|
|
Dim 외벽열관류율_서 As Decimal
|
|
Dim 외벽열관류율_남서 As Decimal
|
|
|
|
Dim 창열관류율_평균 As Decimal
|
|
Dim 창열관류율_남 As Decimal
|
|
Dim 창열관류율_남동 As Decimal
|
|
Dim 창열관류율_동 As Decimal
|
|
Dim 창열관류율_북동 As Decimal
|
|
Dim 창열관류율_북 As Decimal
|
|
Dim 창열관류율_북서 As Decimal
|
|
Dim 창열관류율_서 As Decimal
|
|
Dim 창열관류율_남서 As Decimal
|
|
|
|
Dim 일사에너지투과율_평균 As Decimal
|
|
Dim 일사에너지투과율_남 As Decimal
|
|
Dim 일사에너지투과율_남동 As Decimal
|
|
Dim 일사에너지투과율_동 As Decimal
|
|
Dim 일사에너지투과율_북동 As Decimal
|
|
Dim 일사에너지투과율_북 As Decimal
|
|
Dim 일사에너지투과율_북서 As Decimal
|
|
Dim 일사에너지투과율_서 As Decimal
|
|
Dim 일사에너지투과율_남서 As Decimal
|
|
|
|
|
|
calc_창및문면적비(창및문면적비, 외벽열관류율_평균, 창열관류율_평균, 일사에너지투과율_평균)
|
|
buffer.Append(창및문면적비.ToString("N2")) : buffer.Append(vbTab) '//난방
|
|
calc_창및문면적비(창및문면적비, 외벽열관류율_남, 창열관류율_남, 일사에너지투과율_남, "남")
|
|
buffer.Append(창및문면적비.ToString("N2")) : buffer.Append(vbTab) '//냉방
|
|
calc_창및문면적비(창및문면적비, 외벽열관류율_남동, 창열관류율_남동, 일사에너지투과율_남동, "남동")
|
|
buffer.Append(창및문면적비.ToString("N2")) : buffer.Append(vbTab) '//급탕
|
|
calc_창및문면적비(창및문면적비, 외벽열관류율_동, 창열관류율_동, 일사에너지투과율_동, "동")
|
|
buffer.Append(창및문면적비.ToString("N2")) : buffer.Append(vbTab) '//조명
|
|
calc_창및문면적비(창및문면적비, 외벽열관류율_북동, 창열관류율_북동, 일사에너지투과율_북동, "북동")
|
|
buffer.Append(창및문면적비.ToString("N2")) : buffer.Append(vbTab) '//환기
|
|
calc_창및문면적비(창및문면적비, 외벽열관류율_북, 창열관류율_북, 일사에너지투과율_북, "북")
|
|
buffer.Append(창및문면적비.ToString("N2")) : buffer.Append(vbTab) '//환기
|
|
calc_창및문면적비(창및문면적비, 외벽열관류율_북서, 창열관류율_북서, 일사에너지투과율_북서, "북서")
|
|
buffer.Append(창및문면적비.ToString("N2")) : buffer.Append(vbTab) '//환기
|
|
calc_창및문면적비(창및문면적비, 외벽열관류율_서, 창열관류율_서, 일사에너지투과율_서, "서")
|
|
buffer.Append(창및문면적비.ToString("N2")) : buffer.Append(vbTab) '//환기
|
|
calc_창및문면적비(창및문면적비, 외벽열관류율_남서, 창열관류율_남서, 일사에너지투과율_남서, "남서")
|
|
buffer.Append(창및문면적비.ToString("N2")) : buffer.Append(vbTab) '//환기
|
|
|
|
'//평균열관류율 11개(?)
|
|
buffer.Append(외벽열관류율_평균.ToString("N3")) : buffer.Append(vbTab) '//난방
|
|
buffer.Append(외벽열관류율_남.ToString("N3")) : buffer.Append(vbTab) '//냉방
|
|
buffer.Append(외벽열관류율_남동.ToString("N3")) : buffer.Append(vbTab) '//급탕
|
|
buffer.Append(외벽열관류율_동.ToString("N3")) : buffer.Append(vbTab) '//조명
|
|
buffer.Append(외벽열관류율_북동.ToString("N3")) : buffer.Append(vbTab) '//환기
|
|
buffer.Append(외벽열관류율_북.ToString("N3")) : buffer.Append(vbTab) '//환기
|
|
buffer.Append(외벽열관류율_북서.ToString("N3")) : buffer.Append(vbTab) '//환기
|
|
buffer.Append(외벽열관류율_서.ToString("N3")) : buffer.Append(vbTab) '//환기
|
|
buffer.Append(외벽열관류율_남서.ToString("N3")) : buffer.Append(vbTab) '//환기
|
|
|
|
'//외벽지붕(평균열관류율)
|
|
buffer.Append(calc_평균열관류율(New String() {"외벽(지붕)", "내벽(지붕)"}).ToString("N3")) : buffer.Append(vbTab) '//환기
|
|
'//외벽바닥(평균열관류율)
|
|
buffer.Append(calc_평균열관류율(New String() {"외벽(바닥)", "내벽(바닥)"}).ToString("N3")) : buffer.Append(vbTab) '//환기
|
|
|
|
'//기밀성능(주거용 본인증)
|
|
Dim 기밀성능_침기율면적합 As Decimal = 0
|
|
Dim 기밀성능_면적합 As Decimal = 0
|
|
For Each drZOne As DS.tbl_zoneRow In DSET1.tbl_zone.Select("code <> '0'")
|
|
|
|
'//입력존수값이 없는것은 기본값 1로 처리를 한다
|
|
If String.IsNullOrWhiteSpace(drZOne.입력존의수) Then drZOne.입력존의수 = "1"
|
|
If Not IsNumeric(drZOne.입력존의수) Then drZOne.입력존의수 = "1"
|
|
Dim 존수2 As Integer = TOSG(drZOne.입력존의수)
|
|
If 존수2 < 1 Then Continue For
|
|
If Not IsNumeric(drZOne.면적) Then drZOne.면적 = "0"
|
|
If CInt(drZOne.면적) = 0 Then
|
|
MsgBox("입력존(" + drZOne.설명 + ") 의 면적이 입력되지 않았습니다", MsgBoxStyle.Critical, "확인")
|
|
Continue For
|
|
End If
|
|
|
|
기밀성능_면적합 += (존수2 * drZOne.면적)
|
|
기밀성능_침기율면적합 += (drZOne.침기율 * (존수2 * drZOne.면적))
|
|
Next
|
|
Dim 기밀성능 As Decimal = 0
|
|
If 기밀성능_면적합 <> 0 Then 기밀성능 = 기밀성능_침기율면적합 / 기밀성능_면적합
|
|
buffer.Append(기밀성능.ToString("N2")) : buffer.Append(vbTab) '//환기
|
|
|
|
'//용도프로필 (tbl_profile, tbl_zone , zone에서 profile 을 연결함 필드명은 프로필
|
|
Dim 면적_총합 As Decimal = 0
|
|
Dim 면적_소규모사무실 As Decimal = 0
|
|
Dim 면적_대규모사무실 As Decimal = 0
|
|
Dim 면적_회의및세미나실 As Decimal = 0
|
|
Dim 면적_강당 As Decimal = 0
|
|
Dim 면적_구내식당 As Decimal = 0
|
|
Dim 면적_화장실 As Decimal = 0
|
|
Dim 면적_그외체류공간 As Decimal = 0
|
|
Dim 면적_부속공간 As Decimal = 0
|
|
Dim 면적_창고설비문서실 As Decimal = 0
|
|
Dim 면적_전산실 As Decimal = 0
|
|
Dim 면적_주방및조리실 As Decimal = 0
|
|
Dim 면적_병실 As Decimal = 0
|
|
Dim 면적_객실 As Decimal = 0
|
|
Dim 면적_교실 As Decimal = 0
|
|
Dim 면적_강의실 As Decimal = 0
|
|
Dim 면적_매장 As Decimal = 0
|
|
Dim 면적_전시실 As Decimal = 0
|
|
Dim 면적_열람실 As Decimal = 0
|
|
Dim 면적_체육시설 As Decimal = 0
|
|
'Dim 면적_구내식당_초중고 As Decimal = 0
|
|
'Dim 면적_주방및조리실_초중고 As Decimal = 0
|
|
'Dim 면적_체육시설_초중고 As Decimal = 0
|
|
'Dim 면적_어린이집_유치원 As Decimal = 0
|
|
'Dim 면적_12종근린생활시설 As Decimal = 0
|
|
'Dim 면적_서버실 As Decimal = 0
|
|
'Dim 면적_고밀도서버실 As Decimal = 0
|
|
''''''''''''''''''''''''''''''''''''''
|
|
Dim 비중_소규모사무실 As Decimal = 0 '//0001
|
|
Dim 비중_대규모사무실 As Decimal = 0 '//0002
|
|
Dim 비중_회의및세미나실 As Decimal = 0 '//0003
|
|
Dim 비중_강당 As Decimal = 0 '//0004
|
|
Dim 비중_구내식당 As Decimal = 0 '//0005
|
|
Dim 비중_화장실 As Decimal = 0 '//0006
|
|
Dim 비중_그외체류공간 As Decimal = 0 '//0007
|
|
Dim 비중_부속공간 As Decimal = 0 '//0008
|
|
Dim 비중_창고설비문서실 As Decimal = 0 '//0009
|
|
Dim 비중_전산실 As Decimal = 0 '//0010
|
|
Dim 비중_주방및조리실 As Decimal = 0 '//0011
|
|
Dim 비중_병실 As Decimal = 0 '//0012
|
|
Dim 비중_객실 As Decimal = 0 '//0013
|
|
Dim 비중_교실 As Decimal = 0 '//0014
|
|
Dim 비중_강의실 As Decimal = 0 '//0015
|
|
Dim 비중_매장 As Decimal = 0 '//0016
|
|
Dim 비중_전시실 As Decimal = 0 '//0017
|
|
Dim 비중_열람실 As Decimal = 0 '//0018
|
|
Dim 비중_체육시설 As Decimal = 0 '//0019
|
|
'Dim 비중_구내식당_초중고 As Decimal = 0 '//0020
|
|
'Dim 비중_주방및조리실_초중고 As Decimal = 0 '//0021
|
|
'Dim 비중_체육시설_초중고 As Decimal = 0 '//0022
|
|
'Dim 비중_어린이집_유치원 As Decimal = 0 '//0023
|
|
'Dim 비중_12종근린생활시설 As Decimal = 0 '//0024
|
|
'Dim 비중_서버실 As Decimal = 0 '//0025
|
|
'Dim 비중_고밀도서버실 As Decimal = 0 '//0026
|
|
|
|
Dim 면적 As Decimal = 0
|
|
For Each drzone As DS.tbl_zoneRow In DSET1.tbl_zone.Select("code <> '0' and 프로필 <> '' and 면적 <> '0' and 면적 <> '' ")
|
|
If Not IsNumeric(drzone.면적) Then drzone.면적 = "0"
|
|
|
|
|
|
Dim 존수2 As Integer = 0
|
|
If IsNumeric(drzone.입력존의수) Then
|
|
존수2 = CInt(drzone.입력존의수)
|
|
Else
|
|
존수2 = 1
|
|
End If
|
|
If IsNumeric(drzone.면적) Then
|
|
면적 = drzone.면적 * 존수2
|
|
Else
|
|
면적 = 0
|
|
End If
|
|
|
|
면적_총합 += 면적
|
|
|
|
If drzone.프로필 = "0001" Then 면적_소규모사무실 += 면적 '//0001
|
|
If drzone.프로필 = "0002" Then 면적_대규모사무실 += 면적 '//0002
|
|
If drzone.프로필 = "0003" Then 면적_회의및세미나실 += 면적 '//0003
|
|
If drzone.프로필 = "0004" Then 면적_강당 += 면적 '//0004
|
|
If drzone.프로필 = "0005" Then 면적_구내식당 += 면적 '//0005
|
|
If drzone.프로필 = "0006" Then 면적_화장실 += 면적 '//0006
|
|
If drzone.프로필 = "0007" Then 면적_그외체류공간 += 면적 '//0007
|
|
If drzone.프로필 = "0008" Then 면적_부속공간 += 면적 '//0008
|
|
If drzone.프로필 = "0009" Then 면적_창고설비문서실 += 면적 '//0009
|
|
If drzone.프로필 = "0010" Then 면적_전산실 += 면적 '//0010
|
|
If drzone.프로필 = "0011" Then 면적_주방및조리실 += 면적 '//0011
|
|
If drzone.프로필 = "0012" Then 면적_병실 += 면적 '//0012
|
|
If drzone.프로필 = "0013" Then 면적_객실 += 면적 '//0013
|
|
If drzone.프로필 = "0014" Then 면적_교실 += 면적 '//0014
|
|
If drzone.프로필 = "0015" Then 면적_강의실 += 면적 '//0015
|
|
If drzone.프로필 = "0016" Then 면적_매장 += 면적 '//0016
|
|
If drzone.프로필 = "0017" Then 면적_전시실 += 면적 '//0017
|
|
If drzone.프로필 = "0018" Then 면적_열람실 += 면적 '//0018
|
|
If drzone.프로필 = "0019" Then 면적_체육시설 += 면적 '//0019
|
|
'If drzone.프로필 = "0020" Then 면적_구내식당_초중고 += 면적 '//0020
|
|
'If drzone.프로필 = "0021" Then 면적_주방및조리실_초중고 += 면적 '//0021
|
|
'If drzone.프로필 = "0022" Then 면적_체육시설_초중고 += 면적 '//0022
|
|
'If drzone.프로필 = "0023" Then 면적_어린이집_유치원 += 면적 '//0023
|
|
'If drzone.프로필 = "0024" Then 면적_12종근린생활시설 += 면적 '//0024
|
|
'If drzone.프로필 = "0025" Then 면적_서버실 += 면적 '//0025
|
|
'If drzone.프로필 = "0026" Then 면적_고밀도서버실 += 면적 '//0026
|
|
|
|
Next
|
|
|
|
비중_소규모사무실 = (면적_소규모사무실 / 면적_총합) * 100 '//0001
|
|
비중_대규모사무실 = (면적_대규모사무실 / 면적_총합) * 100 '//0002
|
|
비중_회의및세미나실 = (면적_회의및세미나실 / 면적_총합) * 100 '//0003
|
|
비중_강당 = (면적_강당 / 면적_총합) * 100 '//0004
|
|
비중_구내식당 = (면적_구내식당 / 면적_총합) * 100 '//0005
|
|
비중_화장실 = (면적_화장실 / 면적_총합) * 100 '//0006
|
|
비중_그외체류공간 = (면적_그외체류공간 / 면적_총합) * 100 '//0007
|
|
비중_부속공간 = (면적_부속공간 / 면적_총합) * 100 '//0008
|
|
비중_창고설비문서실 = (면적_창고설비문서실 / 면적_총합) * 100 '//0009
|
|
비중_전산실 = (면적_전산실 / 면적_총합) * 100 '//0010
|
|
비중_주방및조리실 = (면적_주방및조리실 / 면적_총합) * 100 '//0011
|
|
비중_병실 = (면적_병실 / 면적_총합) * 100 '//0012
|
|
비중_객실 = (면적_객실 / 면적_총합) * 100 '//0013
|
|
비중_교실 = (면적_교실 / 면적_총합) * 100 '//0014
|
|
비중_강의실 = (면적_강의실 / 면적_총합) * 100 '//0015
|
|
비중_매장 = (면적_매장 / 면적_총합) * 100 '//0016
|
|
비중_전시실 = (면적_전시실 / 면적_총합) * 100 '//0017
|
|
비중_열람실 = (면적_열람실 / 면적_총합) * 100 '//0018
|
|
비중_체육시설 = (면적_체육시설 / 면적_총합) * 100 '//0019
|
|
'비중_구내식당_초중고 = (면적_구내식당_초중고 / 면적_총합) * 100 '//0020
|
|
'비중_주방및조리실_초중고 = (면적_주방및조리실_초중고 / 면적_총합) * 100 '//0021
|
|
'비중_체육시설_초중고 = (면적_체육시설_초중고 / 면적_총합) * 100 '//0022
|
|
'비중_어린이집_유치원 = (면적_어린이집_유치원 / 면적_총합) * 100 '//0023
|
|
'비중_12종근린생활시설 = (면적_12종근린생활시설 / 면적_총합) * 100 '//0024
|
|
'비중_서버실 = (면적_서버실 / 면적_총합) * 100 '//0025
|
|
'비중_고밀도서버실 = (면적_고밀도서버실 / 면적_총합) * 100 '//0026
|
|
|
|
buffer.Append(면적_소규모사무실.ToString("N2")) : buffer.Append(vbTab) '//난방
|
|
buffer.Append(비중_소규모사무실.ToString("N2")) : buffer.Append(vbTab) '//냉방
|
|
buffer.Append(면적_대규모사무실.ToString("N2")) : buffer.Append(vbTab) '//난방
|
|
buffer.Append(비중_대규모사무실.ToString("N2")) : buffer.Append(vbTab) '//냉방
|
|
buffer.Append(면적_회의및세미나실.ToString("N2")) : buffer.Append(vbTab) '//난방
|
|
buffer.Append(비중_회의및세미나실.ToString("N2")) : buffer.Append(vbTab) '//냉방
|
|
buffer.Append(면적_강당.ToString("N2")) : buffer.Append(vbTab) '//난방
|
|
buffer.Append(비중_강당.ToString("N2")) : buffer.Append(vbTab) '//냉방
|
|
buffer.Append(면적_구내식당.ToString("N2")) : buffer.Append(vbTab) '//난방
|
|
buffer.Append(비중_구내식당.ToString("N2")) : buffer.Append(vbTab) '//냉방
|
|
buffer.Append(면적_화장실.ToString("N2")) : buffer.Append(vbTab) '//난방
|
|
buffer.Append(비중_화장실.ToString("N2")) : buffer.Append(vbTab) '//냉방
|
|
buffer.Append(면적_그외체류공간.ToString("N2")) : buffer.Append(vbTab) '//난방
|
|
buffer.Append(비중_그외체류공간.ToString("N2")) : buffer.Append(vbTab) '//냉방
|
|
buffer.Append(면적_부속공간.ToString("N2")) : buffer.Append(vbTab) '//난방
|
|
buffer.Append(비중_부속공간.ToString("N2")) : buffer.Append(vbTab) '//냉방
|
|
buffer.Append(면적_창고설비문서실.ToString("N2")) : buffer.Append(vbTab) '//난방
|
|
buffer.Append(비중_창고설비문서실.ToString("N2")) : buffer.Append(vbTab) '//냉방
|
|
buffer.Append(면적_전산실.ToString("N2")) : buffer.Append(vbTab) '//난방
|
|
buffer.Append(비중_전산실.ToString("N2")) : buffer.Append(vbTab) '//냉방
|
|
buffer.Append(면적_주방및조리실.ToString("N2")) : buffer.Append(vbTab) '//난방
|
|
buffer.Append(비중_주방및조리실.ToString("N2")) : buffer.Append(vbTab) '//냉방
|
|
buffer.Append(면적_병실.ToString("N2")) : buffer.Append(vbTab) '//난방
|
|
buffer.Append(비중_병실.ToString("N2")) : buffer.Append(vbTab) '//냉방
|
|
buffer.Append(면적_객실.ToString("N2")) : buffer.Append(vbTab) '//난방
|
|
buffer.Append(비중_객실.ToString("N2")) : buffer.Append(vbTab) '//냉방
|
|
buffer.Append(면적_교실.ToString("N2")) : buffer.Append(vbTab) '//난방
|
|
buffer.Append(비중_교실.ToString("N2")) : buffer.Append(vbTab) '//냉방
|
|
buffer.Append(면적_강의실.ToString("N2")) : buffer.Append(vbTab) '//난방
|
|
buffer.Append(비중_강의실.ToString("N2")) : buffer.Append(vbTab) '//냉방
|
|
buffer.Append(면적_매장.ToString("N2")) : buffer.Append(vbTab) '//난방
|
|
buffer.Append(비중_매장.ToString("N2")) : buffer.Append(vbTab) '//냉방
|
|
buffer.Append(면적_전시실.ToString("N2")) : buffer.Append(vbTab) '//난방
|
|
buffer.Append(비중_전시실.ToString("N2")) : buffer.Append(vbTab) '//냉방
|
|
buffer.Append(면적_열람실.ToString("N2")) : buffer.Append(vbTab) '//난방
|
|
buffer.Append(비중_열람실.ToString("N2")) : buffer.Append(vbTab) '//냉방
|
|
buffer.Append(면적_체육시설.ToString("N2")) : buffer.Append(vbTab) '//난방
|
|
buffer.Append(비중_체육시설.ToString("N2")) : buffer.Append(vbTab) '//냉방
|
|
'buffer.Append( 면적_구내식당_초중고.ToString("N2") ) : buffer.Append(vbTab) '//난방
|
|
'buffer.Append( 비중_구내식당_초중고.ToString("N2") ) : buffer.Append(vbTab) '//냉방
|
|
'buffer.Append( 면적_주방및조리실_초중고.ToString("N2") ) : buffer.Append(vbTab) '//난방
|
|
'buffer.Append( 비중_주방및조리실_초중고.ToString("N2") ) : buffer.Append(vbTab) '//냉방
|
|
'buffer.Append( 면적_체육시설_초중고.ToString("N2") ) : buffer.Append(vbTab) '//난방
|
|
'buffer.Append( 비중_체육시설_초중고.ToString("N2") ) : buffer.Append(vbTab) '//냉방
|
|
'buffer.Append( 면적_어린이집_유치원.ToString("N2") ) : buffer.Append(vbTab) '//난방
|
|
'buffer.Append( 비중_어린이집_유치원.ToString("N2") ) : buffer.Append(vbTab) '//냉방
|
|
'buffer.Append( 면적_12종근린생활시설.ToString("N2") ) : buffer.Append(vbTab) '//난방
|
|
'buffer.Append( 비중_12종근린생활시설.ToString("N2") ) : buffer.Append(vbTab) '//냉방
|
|
'buffer.Append( 면적_서버실.ToString("N2") ) : buffer.Append(vbTab) '//난방
|
|
'buffer.Append( 비중_서버실.ToString("N2") ) : buffer.Append(vbTab) '//냉방
|
|
'buffer.Append( 면적_고밀도서버실.ToString("N2") ) : buffer.Append(vbTab) '//난방
|
|
'buffer.Append( 비중_고밀도서버실.ToString("N2") ) : buffer.Append(vbTab) '//냉방
|
|
|
|
|
|
|
|
'//기계부문평가항목-냉난방방식-난방
|
|
' Dim MaxValue As Decimal = 0
|
|
'Dim MaxValueTitle As String = ""
|
|
Dim 난방용량합 As Decimal = 0
|
|
Dim 난방용량합_전기 As Decimal = 0
|
|
Dim 난방용량합_비전기 As Decimal = 0
|
|
Dim 난방용량비율_전기 As Decimal = 0
|
|
Dim 난방용량비율_비전기 As Decimal = 0
|
|
Dim 펌프동력합 As Decimal = 0
|
|
Dim 냉난방방식_난방 As String = ""
|
|
For Each dr난방 As DS.tbl_nanbangkikiRow In DSET1.tbl_nanbangkiki.Select("code <> '0'")
|
|
Dim filter As String = String.Format("code <> '0' and 열생산난방생산기기='{0}' or 공조난방생산기기='{0}'", dr난방.code)
|
|
Dim 존수3 As Integer = 0
|
|
For Each dr존 As DS.tbl_zoneRow In DSET1.tbl_zone.Select(filter)
|
|
If Not IsNumeric(dr존.입력존의수) Then dr존.입력존의수 = "1"
|
|
존수3 += CInt(dr존.입력존의수)
|
|
Next
|
|
|
|
If Not IsNumeric(dr난방.보일러정격출력) Then dr난방.보일러정격출력 = "0"
|
|
If Not IsNumeric(dr난방.열교환기정격출력) Then dr난방.열교환기정격출력 = "0"
|
|
If Not IsNumeric(dr난방.히트난방용량) Then dr난방.히트난방용량 = "0"
|
|
|
|
|
|
Dim 개별식형태 As Boolean = dr난방.개별기기적용
|
|
If Not 개별식형태 AndAlso 존수3 = 1 Then 개별식형태 = True '//입력존이 1이면 개별식형태로 한다
|
|
|
|
|
|
If 냉난방방식_난방 = "" Then
|
|
냉난방방식_난방 = IIf(개별식형태, "개별식", "중앙식")
|
|
ElseIf 냉난방방식_난방 = "개별식" AndAlso Not 개별식형태 Then
|
|
냉난방방식_난방 = "혼합식"
|
|
ElseIf 냉난방방식_난방 = "중앙식" AndAlso 개별식형태 Then
|
|
냉난방방식_난방 = "혼합식"
|
|
End If
|
|
|
|
|
|
Dim 최대값 As Decimal = 0
|
|
If dr난방.개별기기적용 Then
|
|
|
|
|
|
|
|
최대값 = Math.Max(TOSG(dr난방.보일러정격출력), TOSG(dr난방.열교환기정격출력))
|
|
최대값 = Math.Max(최대값, TOSG(dr난방.히트난방용량))
|
|
최대값 *= 존수3
|
|
|
|
펌프동력합 += TOSG(dr난방.펌프동력) * 존수3
|
|
|
|
If dr난방.열생산기기방식 = "히트펌프" Then
|
|
난방용량합 += TOSG(dr난방.히트난방용량) * 존수3
|
|
If dr난방.히트연료 = "전기" Then 난방용량합_전기 += TOSG(dr난방.히트난방용량) * 존수3
|
|
ElseIf dr난방.열생산기기방식 = "전기보일러" Then
|
|
난방용량합 += TOSG(dr난방.보일러정격출력) * 존수3
|
|
난방용량합_전기 += TOSG(dr난방.보일러정격출력) * 존수3
|
|
ElseIf dr난방.열생산기기방식 = "지역난방" Then
|
|
난방용량합 += TOSG(dr난방.열교환기정격출력) * 존수3
|
|
Else
|
|
난방용량합 += 최대값 '//모를경우에는 해당값중 최대값을 사용함(임의처리함 arin)
|
|
End If
|
|
|
|
Else
|
|
|
|
|
|
|
|
|
|
|
|
펌프동력합 += TOSG(dr난방.펌프동력)
|
|
|
|
최대값 = Math.Max(TOSG(dr난방.보일러정격출력), TOSG(dr난방.열교환기정격출력))
|
|
|
|
If dr난방.열생산기기방식 = "히트펌프" Then
|
|
난방용량합 += TOSG(dr난방.히트난방용량)
|
|
If dr난방.히트연료 = "전기" Then 난방용량합_전기 += TOSG(dr난방.히트난방용량)
|
|
ElseIf dr난방.열생산기기방식 = "전기보일러" Then
|
|
난방용량합 += TOSG(dr난방.보일러정격출력)
|
|
난방용량합_전기 += TOSG(dr난방.보일러정격출력)
|
|
ElseIf dr난방.열생산기기방식 = "지역난방" Then
|
|
난방용량합 += TOSG(dr난방.열교환기정격출력)
|
|
Else
|
|
난방용량합 += 최대값 '//모를경우에는 해당값중 최대값을 사용함(임의처리함 arin)
|
|
End If
|
|
End If
|
|
'If 최대값 > MaxValue Then
|
|
' MaxValue = 최대값
|
|
' MaxValueTitle = dr난방.설명
|
|
'End If
|
|
Next
|
|
|
|
난방용량합_비전기 = 난방용량합 - 난방용량합_전기
|
|
If 난방용량합 <> 0 Then
|
|
난방용량비율_전기 = (난방용량합_전기 / 난방용량합) * 100
|
|
난방용량비율_비전기 = (난방용량합_비전기 / 난방용량합) * 100
|
|
End If
|
|
|
|
buffer.Append(냉난방방식_난방) : buffer.Append(vbTab) '//난방
|
|
|
|
'//기계부문평가항목-냉난방방식-냉방
|
|
'MaxValue = 0
|
|
'MaxValueTitle = ""
|
|
Dim 냉방용량합 As Decimal = 0
|
|
Dim 냉방용량합_전기 As Decimal = 0
|
|
Dim 냉난방방식_냉방 As String = ""
|
|
For Each dr냉방 As DS.tbl_nangbangkikiRow In DSET1.tbl_nangbangkiki.Select("code <> '0'")
|
|
Dim filter As String = String.Format("열생산냉방생산기기='{0}' or 공조냉방생산기기='{0}'", dr냉방.code)
|
|
Dim 존수4 As Integer = 0
|
|
For Each dr존 As DS.tbl_zoneRow In DSET1.tbl_zone.Select(filter)
|
|
If Not IsNumeric(dr존.입력존의수) Then dr존.입력존의수 = "1"
|
|
존수4 += CInt(dr존.입력존의수)
|
|
Next
|
|
|
|
If Not IsNumeric(dr냉방.냉동기용량) Then dr냉방.냉동기용량 = "0"
|
|
|
|
Dim 개별식형태 As Boolean = dr냉방.개별기기적용
|
|
If Not 개별식형태 AndAlso 존수4 = 1 Then 개별식형태 = True '//입력존이 1이면 개별식형태로 한다
|
|
|
|
If 냉난방방식_냉방 = "" Then
|
|
냉난방방식_냉방 = IIf(개별식형태, "개별식", "중앙식")
|
|
ElseIf 냉난방방식_냉방 = "개별식" AndAlso Not 개별식형태 Then
|
|
냉난방방식_냉방 = "혼합식"
|
|
ElseIf 냉난방방식_냉방 = "중앙식" AndAlso 개별식형태 Then
|
|
냉난방방식_냉방 = "혼합식"
|
|
End If
|
|
|
|
|
|
Dim 최대값 As Decimal = 0
|
|
If dr냉방.개별기기적용 Then
|
|
최대값 = TOSG(dr냉방.냉동기용량) * 존수4
|
|
냉방용량합 += TOSG(dr냉방.냉동기용량) * 존수4
|
|
If dr냉방.냉동기방식 = "압축식" Then 냉방용량합_전기 += TOSG(dr냉방.냉동기용량) * 존수4
|
|
Else
|
|
최대값 = TOSG(dr냉방.냉동기용량)
|
|
냉방용량합 += TOSG(dr냉방.냉동기용량)
|
|
If dr냉방.냉동기방식 = "압축식" Then 냉방용량합_전기 += TOSG(dr냉방.냉동기용량)
|
|
End If
|
|
|
|
'If 최대값 > MaxValue Then
|
|
' MaxValue = 최대값
|
|
' MaxValueTitle = dr냉방.설명
|
|
'End If
|
|
Next
|
|
Dim 냉방용량합_비전기 As Decimal = 냉방용량합 - 냉방용량합_전기
|
|
|
|
buffer.Append(냉난방방식_냉방) : buffer.Append(vbTab) '//냉방
|
|
|
|
'//전력수요관리시설(냉방)-전기사용설비-용량합 %
|
|
buffer.Append(냉방용량합_전기.ToString("N2")) : buffer.Append(vbTab)
|
|
|
|
'//전력수요관리시설(냉방)-전기사용설비-비중 %
|
|
Dim 전기사용설비비중 As Decimal = 0
|
|
If 냉방용량합 <> 0 Then 전기사용설비비중 = (냉방용량합_전기 / 냉방용량합) * 100
|
|
buffer.Append(전기사용설비비중.ToString("N2")) : buffer.Append(vbTab)
|
|
|
|
'//전력수요관리시설(냉방)-비전기사용설비-용량
|
|
buffer.Append(냉방용량합_비전기.ToString("N2")) : buffer.Append(vbTab)
|
|
'//전력수요관리시설(냉방)-비전기사용설비-비중
|
|
Dim 비전기사용설비비중 As Decimal = 0
|
|
If 냉방용량합 <> 0 Then 비전기사용설비비중 = (냉방용량합_비전기 / 냉방용량합) * 100
|
|
buffer.Append(비전기사용설비비중.ToString("N2")) : buffer.Append(vbTab)
|
|
|
|
'//전력수요관리시설(난방)-전기사용설비-용량 kw
|
|
buffer.Append(난방용량합_전기.ToString("N2")) : buffer.Append(vbTab)
|
|
'//전력수요관리시설(난방)-전기사용설비-비중 %
|
|
buffer.Append(난방용량비율_전기.ToString("N2")) : buffer.Append(vbTab)
|
|
'//전력수요관리시설(난방)-비전기사용설비-용량
|
|
buffer.Append(난방용량합_비전기.ToString("N2")) : buffer.Append(vbTab)
|
|
'//전력수요관리시설(난방)-비전기사용설비-비중
|
|
buffer.Append(난방용량비율_비전기.ToString("N2")) : buffer.Append(vbTab)
|
|
|
|
'/온열월설비-난방방식
|
|
buffer.Append(drYK.온열원설비방식) : buffer.Append(vbTab)
|
|
buffer.Append(drYK.온열원설비연료) : buffer.Append(vbTab) '/온열월설비-사용연료
|
|
buffer.Append(drYK.온열원용량) : buffer.Append(vbTab) '/온열월설비-용량
|
|
buffer.Append(drYK.온열원효율) : buffer.Append(vbTab) '/온열월설비-효율
|
|
|
|
'/냉열원설비-냉방방식
|
|
buffer.Append(drYK.냉열원설비방식) : buffer.Append(vbTab)
|
|
buffer.Append(drYK.냉열원설비연료) : buffer.Append(vbTab) '/냉열원설비-사용연료
|
|
'//냉열원설비용량 160214
|
|
Dim 냉열원설비용량 As Decimal = 0
|
|
For Each dr냉방 As DS.tbl_nangbangkikiRow In DSET1.tbl_nangbangkiki.Select("code <> '0'")
|
|
If Not IsNumeric(dr냉방.냉동기용량) Then dr냉방.냉동기용량 = "0"
|
|
|
|
If Not dr냉방.개별기기적용 Then
|
|
냉열원설비용량 += dr냉방.냉동기용량
|
|
Else
|
|
Dim filter As String = String.Format("열생산냉방생산기기='{0}' or 공조냉방생산기기='{0}'", dr냉방.code)
|
|
Dim DR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select(filter)
|
|
Dim cnt As Integer = 0
|
|
For Each drow As DS.tbl_zoneRow In DR
|
|
Dim 입력존수문자 As Integer = drow.입력존의수
|
|
If IsNumeric(입력존수문자) = False Then 입력존수문자 = "1"
|
|
cnt += CInt(입력존수문자)
|
|
Next
|
|
냉열원설비용량 += (dr냉방.냉동기용량 * cnt)
|
|
End If
|
|
Next
|
|
buffer.Append(냉열원설비용량) : buffer.Append(vbTab) '/냉열원설비-용량
|
|
buffer.Append(drYK.냉열원효율) : buffer.Append(vbTab) '/냉열원설비-효율
|
|
|
|
'//급탕설비-급탕방식
|
|
buffer.Append(drYK.급탕설비방식) : buffer.Append(vbTab)
|
|
buffer.Append(drYK.급탕설비연료) : buffer.Append(vbTab) '//급탕설비-사용연료
|
|
buffer.Append(drYK.급탕용량) : buffer.Append(vbTab) '//급탕설비-용량
|
|
buffer.Append(drYK.급탕효율) : buffer.Append(vbTab) '//급탕설비-효율
|
|
|
|
'//펌프-순환수용-동력
|
|
buffer.Append(펌프동력합.ToString("N2")) : buffer.Append(vbTab)
|
|
|
|
'//펌프-순환수용-효율(eco2 미지원)
|
|
buffer.Append("X") : buffer.Append(vbTab)
|
|
|
|
'//펌프-급탕용-동력
|
|
Dim dr난방기기() As DS.tbl_nanbangkikiRow = DSET1.tbl_nanbangkiki.Select("code <> '0' and code <> '0000'")
|
|
Dim 펌프_급탕용_동력합 As Decimal = 0.0F
|
|
For Each dr난방 As DS.tbl_nanbangkikiRow In dr난방기기
|
|
Dim 연결존수 As Integer = 0
|
|
Dim DRZ() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("code <> '0' and 열생산급탕생산기기='" & dr난방.code & "'")
|
|
For Each drow As DS.tbl_zoneRow In DRZ
|
|
Dim 입력존수문자 As Integer = drow.입력존의수
|
|
If IsNumeric(입력존수문자) = False Then 입력존수문자 = "1"
|
|
연결존수 += CInt(입력존수문자)
|
|
Next
|
|
If 연결존수 > 0 Then
|
|
If Not IsNumeric(dr난방.펌프동력급탕) Then dr난방.펌프동력급탕 = "0"
|
|
펌프_급탕용_동력합 += TOSG(dr난방.펌프동력급탕)
|
|
End If
|
|
Next
|
|
buffer.Append(펌프_급탕용_동력합) : buffer.Append(vbTab)
|
|
'//펌프-급탕용-효율(eco2 미지원)
|
|
buffer.Append("X") : buffer.Append(vbTab)
|
|
|
|
'//송풍기관련로직(160211)
|
|
Dim filter2 As String = "code <> '0' and code <> '0000' and ( 열교환기유형 = '전열교환' or 열교환기유형='현열교환' or 열교환기유형 = '열회수불가')"
|
|
filter2 = "code <> '0' and code <> '0000'"
|
|
Dim dr공조기기() As DS.tbl_kongjoRow = DSET1.tbl_kongjo.Select(filter2)
|
|
Dim 송풍기_급기_풍량_합 As Decimal = 0
|
|
Dim 송풍기_급기_팬동력_합 As Decimal = 0
|
|
Dim 송풍기_급기_팬효율_평균 As Decimal = 0
|
|
Dim 송풍기_급기_팬효율_합 As Decimal = 0
|
|
Dim 송풍기_배기_풍량_합 As Decimal = 0
|
|
Dim 송풍기_배기_팬동력_합 As Decimal = 0
|
|
Dim 송풍기_배기_팬효율_평균 As Decimal = 0
|
|
Dim 송풍기_배기_팬효율_합 As Decimal = 0
|
|
Dim 전열교환기_풍량_합 As Decimal = 0
|
|
Dim 전열교환기_전열풍량_합 As Decimal = 0
|
|
Dim 전열교환기_열회수효율_난방_합 As Decimal = 0
|
|
Dim 전열교환기_열회수효율_냉방_합 As Decimal = 0
|
|
Dim 전열교환기_열회수효율_난방_수 As Integer = 0
|
|
Dim 전열교환기_열회수효율_냉방_수 As Integer = 0
|
|
|
|
'Dim 송풍기연결면적합 As Decimal = 0 '//전체면적합
|
|
|
|
'//160327 로직변경
|
|
For Each dr공조 As DS.tbl_kongjoRow In dr공조기기
|
|
|
|
|
|
Dim 연결존수 As Integer = 0
|
|
Dim DRz() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("냉난방공조처리시스템='" & dr공조.code & "'")
|
|
If DRz.Length < 1 Then Continue For '//연결이되지 않은 기기는 넘어가도록 한다
|
|
|
|
For Each drow As DS.tbl_zoneRow In DRz
|
|
If Not IsNumeric(drow.입력존의수) Then drow.입력존의수 = "0"
|
|
If Not IsNumeric(drow.면적) Then drow.면적 = "0"
|
|
연결존수 += CInt(drow.입력존의수)
|
|
'송풍기연결면적합 += (TOSG(drow.면적) * TOSG(drow.입력존의수))
|
|
Next
|
|
|
|
'//연결된 존중 입력존의수값이 0이라면 처리하지 않는다
|
|
If 연결존수 < 1 Then Continue For
|
|
|
|
'//160327 - 열교환기유형에따라서 계산식 변경
|
|
If dr공조.열교환기유형 = "열회수불가" Then
|
|
|
|
'//송풍기
|
|
송풍기_급기_풍량_합 += TOSG(dr공조.급기풍량)
|
|
송풍기_급기_팬동력_합 += TOSG(dr공조.급기팬동력)
|
|
If TOSG(dr공조.총효율급기팬) > 0 Then
|
|
송풍기_급기_팬효율_합 += TOSG(dr공조.총효율급기팬) * TOSG(dr공조.급기풍량)
|
|
End If
|
|
|
|
송풍기_배기_풍량_합 += TOSG(dr공조.배기풍량)
|
|
송풍기_배기_팬동력_합 += TOSG(dr공조.배기팬동력)
|
|
If TOSG(dr공조.총효율배기팬) > 0 Then
|
|
송풍기_배기_팬효율_합 += TOSG(dr공조.총효율배기팬) * TOSG(dr공조.배기풍량)
|
|
End If
|
|
|
|
Else
|
|
|
|
'//전열교환기
|
|
If TOSG(dr공조.열회수율) <> 0 Then
|
|
전열교환기_열회수효율_난방_합 += TOSG(dr공조.열회수율)
|
|
전열교환기_열회수효율_난방_수 += 1
|
|
End If
|
|
|
|
If TOSG(dr공조.열회수율냉) <> 0 Then
|
|
전열교환기_열회수효율_냉방_합 += TOSG(dr공조.열회수율냉)
|
|
전열교환기_열회수효율_냉방_수 += 1
|
|
End If
|
|
|
|
전열교환기_풍량_합 += TOSG(dr공조.급기풍량) + TOSG(dr공조.배기풍량)
|
|
|
|
If dr공조.열교환기유형 = "전열교환" Then
|
|
전열교환기_전열풍량_합 += TOSG(dr공조.급기풍량) + TOSG(dr공조.배기풍량)
|
|
End If
|
|
|
|
End If
|
|
Next
|
|
|
|
If 송풍기_급기_풍량_합 > 0 Then
|
|
송풍기_급기_팬효율_평균 = 송풍기_급기_팬효율_합 / 송풍기_급기_풍량_합
|
|
End If
|
|
If 송풍기_배기_풍량_합 > 0 Then
|
|
송풍기_배기_팬효율_평균 = 송풍기_배기_팬효율_합 / 송풍기_배기_풍량_합
|
|
End If
|
|
|
|
|
|
'//송풍기-급기-풍량
|
|
buffer.Append(송풍기_급기_풍량_합) : buffer.Append(vbTab)
|
|
'//송풍기-급기-동력
|
|
buffer.Append(송풍기_급기_팬동력_합) : buffer.Append(vbTab)
|
|
'//송풍기-급기-효율
|
|
buffer.Append(송풍기_급기_팬효율_평균.ToString("N3")) : buffer.Append(vbTab)
|
|
|
|
'//송풍기-배기-풍량
|
|
buffer.Append(송풍기_배기_풍량_합) : buffer.Append(vbTab)
|
|
'//송풍기-배기-동력
|
|
buffer.Append(송풍기_배기_팬동력_합) : buffer.Append(vbTab)
|
|
'//송풍기-배기-효율
|
|
buffer.Append(송풍기_배기_팬효율_평균.ToString("N3")) : buffer.Append(vbTab)
|
|
|
|
'//전열교환기-풍량
|
|
buffer.Append(전열교환기_풍량_합) : buffer.Append(vbTab)
|
|
'//전열교환기-비중
|
|
Dim 전열교환기비중 As Decimal = 0
|
|
If 전열교환기_풍량_합 > 0 Then 전열교환기비중 = (전열교환기_풍량_합 / (전열교환기_풍량_합 + 송풍기_배기_풍량_합 + 송풍기_급기_풍량_합)) * 100
|
|
buffer.Append(전열교환기비중.ToString("N3") + "%") : buffer.Append(vbTab)
|
|
'//전열교환기-열회수효율-난방
|
|
Dim 전열교환기_열회수효율_난방_평균 As Decimal = 0
|
|
If 전열교환기_열회수효율_난방_수 > 0 Then 전열교환기_열회수효율_난방_평균 = 전열교환기_열회수효율_난방_합 / 전열교환기_열회수효율_난방_수
|
|
buffer.Append(전열교환기_열회수효율_난방_평균) : buffer.Append(vbTab)
|
|
'//전열교환기-열회수효율-냉방
|
|
Dim 전열교환기_열회수효율_냉방_평균 As Decimal = 0
|
|
If 전열교환기_열회수효율_냉방_수 > 0 Then 전열교환기_열회수효율_냉방_평균 = 전열교환기_열회수효율_냉방_합 / 전열교환기_열회수효율_냉방_수
|
|
buffer.Append(전열교환기_열회수효율_냉방_평균) : buffer.Append(vbTab)
|
|
|
|
'//조명에너지-평균조명에너지부하율
|
|
Dim 조명에너지_부하율합 As Decimal = 0
|
|
Dim 조명에너지_면적합 As Decimal = 0
|
|
For Each drZone As DS.tbl_zoneRow In DSET1.tbl_zone.Select("code <> '0' and code <>'0000' and 면적 <> '0' and 면적 <> ''")
|
|
|
|
'//입력오류 체크
|
|
If Not IsNumeric(drZone.면적) Then drZone.면적 = "0"
|
|
If Not IsNumeric(drZone.입력존의수) Then drZone.입력존의수 = "1"
|
|
If Not IsNumeric(drZone.조명에너지부하율입력치) Then drZone.조명에너지부하율입력치 = "0"
|
|
If Not IsNumeric(drZone.조명에너지부하율계산치) Then drZone.조명에너지부하율계산치 = "0"
|
|
|
|
If drZone.면적 <> "0" Then
|
|
조명에너지_면적합 += CInt(drZone.입력존의수) * TOSG(drZone.면적) '//모든면적의총합
|
|
|
|
If drZone.조명부하산출방법 = "입력치" Then
|
|
조명에너지_부하율합 += TOSG(drZone.조명에너지부하율입력치) * (CInt(drZone.입력존의수) * TOSG(drZone.면적))
|
|
ElseIf drZone.조명부하산출방법 = "계산치" Then
|
|
조명에너지_부하율합 += TOSG(drZone.조명에너지부하율계산치) * (CInt(drZone.입력존의수) * TOSG(drZone.면적))
|
|
End If
|
|
End If
|
|
|
|
|
|
Next
|
|
Dim 평균조명에너지부하율 As Decimal = 0
|
|
If 조명에너지_면적합 <> 0 Then 평균조명에너지부하율 = (조명에너지_부하율합 / 조명에너지_면적합)
|
|
|
|
buffer.Append(평균조명에너지부하율.ToString("N2")) : buffer.Append(vbTab)
|
|
'//조명에너지-주조명광원
|
|
buffer.Append(drYK.주조명광원) : buffer.Append(vbTab)
|
|
|
|
'//태양열-난방-용량
|
|
Dim 난방축열탱크용량_합 As Decimal = 0
|
|
Dim 급탕축열탱크용량_합 As Decimal = 0
|
|
Dim 태양열면적_합 As Decimal = 0
|
|
Dim 태양열계수_합 As Decimal = 0
|
|
Dim 태양광모듈효율_합 As Decimal = 0
|
|
Dim 태양광면적_합 As Decimal = 0
|
|
Dim 태양광용량_합 As Decimal = 0
|
|
For Each dr신재생 As DS.tbl_newRow In DSET1.tbl_new.Select("code <> '0'")
|
|
If dr신재생.기기종류 = "태양열" Then
|
|
If Not IsNumeric(dr신재생.축열탱크체적급탕) Then dr신재생.축열탱크체적급탕 = "0"
|
|
If Not IsNumeric(dr신재생.축열탱크체적난방) Then dr신재생.축열탱크체적난방 = "0"
|
|
If Not IsNumeric(dr신재생.집열판면적) Then dr신재생.집열판면적 = "0"
|
|
If Not IsNumeric(dr신재생.무손실효율계수) Then dr신재생.무손실효율계수 = "0"
|
|
급탕축열탱크용량_합 += dr신재생.축열탱크체적급탕
|
|
난방축열탱크용량_합 += dr신재생.축열탱크체적난방
|
|
If dr신재생.무손실효율계수 <> "0" Then
|
|
태양열면적_합 += dr신재생.집열판면적
|
|
태양열계수_합 += (dr신재생.무손실효율계수 * dr신재생.집열판면적)
|
|
End If
|
|
ElseIf dr신재생.기기종류 = "태양광" Then
|
|
If Not IsNumeric(dr신재생.태양광모듈면적) Then dr신재생.태양광모듈면적 = "0"
|
|
If Not IsNumeric(dr신재생.태양광모듈효율) Then dr신재생.태양광모듈효율 = "0"
|
|
If Not IsNumeric(dr신재생.태양광용량) Then dr신재생.태양광용량 = "0"
|
|
태양광용량_합 += dr신재생.태양광용량
|
|
If dr신재생.태양광모듈효율 <> "0" Then
|
|
태양광면적_합 += dr신재생.태양광모듈면적
|
|
태양광모듈효율_합 += (dr신재생.태양광모듈효율 * dr신재생.태양광모듈면적)
|
|
End If
|
|
End If
|
|
Next
|
|
buffer.Append(난방축열탱크용량_합.ToString("N3")) : buffer.Append(vbTab)
|
|
'//태양열-난방-효율
|
|
Dim 태양열난방_효율 As Decimal = 0
|
|
If 태양열면적_합 <> 0 Then 태양열난방_효율 = 태양열계수_합 / 태양열면적_합
|
|
buffer.Append(태양열난방_효율.ToString("N3")) : buffer.Append(vbTab)
|
|
'//태양열-급탕-용량
|
|
buffer.Append(급탕축열탱크용량_합.ToString("N3")) : buffer.Append(vbTab)
|
|
'//태양열-급탕-효율
|
|
buffer.Append("X") : buffer.Append(vbTab)
|
|
'//태양열-집열판면적
|
|
buffer.Append(drYK.태양열집열판면적) : buffer.Append(vbTab)
|
|
'//태양열-집열판유형
|
|
buffer.Append(drYK.태양열집열기유형) : buffer.Append(vbTab)
|
|
'//태양열-집열판방위
|
|
buffer.Append(drYK.태양열집열판방위) : buffer.Append(vbTab)
|
|
|
|
'//태양광-용량
|
|
buffer.Append(태양광용량_합.ToString("N3")) : buffer.Append(vbTab)
|
|
'//태양광-효율
|
|
Dim 태양광_효율 As Decimal = 0
|
|
If 태양광면적_합 <> 0 Then 태양광_효율 = 태양광모듈효율_합 / 태양광면적_합
|
|
buffer.Append(태양광_효율.ToString("N3")) : buffer.Append(vbTab)
|
|
'//태양광-모듈면적
|
|
buffer.Append(drYK.태양광모듈면적) : buffer.Append(vbTab)
|
|
'//태양광-모듈기울기
|
|
buffer.Append(drYK.태양광모듈기울기) : buffer.Append(vbTab)
|
|
'//태양광-모듈방위
|
|
buffer.Append(drYK.태양광모듈방위) : buffer.Append(vbTab)
|
|
'//태양광-모듈종류
|
|
buffer.Append(drYK.태양광모듈종류) : buffer.Append(vbTab)
|
|
'//태양광-모듈적용타입
|
|
buffer.Append(drYK.태양광모듈적용타입) : buffer.Append(vbTab)
|
|
|
|
'//지열-난방-용량
|
|
buffer.Append(drYK.지열히트펌프용량) : buffer.Append(vbTab)
|
|
'//지열-난방-효율
|
|
buffer.Append(drYK.지열난방COP) : buffer.Append(vbTab)
|
|
'//지열-냉방-용량
|
|
buffer.Append(drYK.지열히트펌프용량냉방) : buffer.Append(vbTab)
|
|
'//지열-냉방-효율
|
|
buffer.Append(drYK.지열냉방COP) : buffer.Append(vbTab)
|
|
|
|
'//열병합-열생산능력
|
|
buffer.Append(drYK.열병합열생산능력) : buffer.Append(vbTab)
|
|
'//열병합-열생산효율
|
|
buffer.Append(drYK.열병합열생산효율) : buffer.Append(vbTab)
|
|
'//열병합-발전효율
|
|
buffer.Append(drYK.열병합발전효율) : buffer.Append(vbTab)
|
|
'//열병합-가동연료
|
|
buffer.Append(drYK.열병합가동연료) : buffer.Append(vbTab)
|
|
|
|
'//신재생 및 열병합 에너지생산량 (68 69 70 71 2page 계산결과 treq, grp=310)
|
|
Dim 신재생에너지생산량합 As Decimal = 0
|
|
Dim 신재생에너지생산량 As Decimal = 0
|
|
For Each dr As DSR.TReqUseRow In DSETR1.TReqUse.Select("grp = '310'")
|
|
If dr.Code = "068" OrElse dr.Code = "069" OrElse dr.Code = "070" OrElse dr.Code = "071" Then
|
|
신재생에너지생산량합 += dr.M00
|
|
End If
|
|
Next
|
|
Dim 조명사용면적 As Decimal = 0
|
|
For Each dr As DSR.TReqUseRow In DSETR1.TReqUse.Select("grp = '110'")
|
|
If dr.Code = "015" Then
|
|
조명사용면적 += dr.M00
|
|
Exit For
|
|
End If
|
|
Next
|
|
If 조명사용면적 <> 0 Then 신재생에너지생산량 = 신재생에너지생산량합 / 조명사용면적
|
|
|
|
buffer.Append(신재생에너지생산량.ToString("N2")) : buffer.Append(vbTab)
|
|
|
|
'//평가책임자
|
|
buffer.Append("X") : buffer.Append(vbTab)
|
|
|
|
'//평가자
|
|
buffer.Append("X") : buffer.Append(vbTab)
|
|
|
|
'//에너지효율등급
|
|
Dim 에너지효율등급 As Integer = 평가결과등급(주거용, 일차에너지소요량합계)
|
|
Dim 등급문자 As String = ""
|
|
Select Case 에너지효율등급
|
|
Case 1
|
|
등급문자 = "1+++등급"
|
|
Case 2
|
|
등급문자 = "1++등급"
|
|
Case 3
|
|
등급문자 = "1+등급"
|
|
Case 4
|
|
등급문자 = "1등급"
|
|
Case 5
|
|
등급문자 = "2등급"
|
|
Case 6
|
|
등급문자 = "3등급"
|
|
Case 7
|
|
등급문자 = "4등급"
|
|
Case 8
|
|
등급문자 = "5등급"
|
|
Case 9
|
|
등급문자 = "6등급"
|
|
Case 10
|
|
등급문자 = "7등급"
|
|
End Select
|
|
|
|
|
|
buffer.Append(등급문자) : buffer.Append(vbTab)
|
|
|
|
'//예비인증 등급
|
|
buffer.Append("X") : buffer.Append(vbTab)
|
|
|
|
'//냉방시스템설치여부(입력존에서 열생산기기 냉방에 연결된 데이터가 있다면 O)
|
|
Dim 냉방시스템설치여부 As Boolean = False
|
|
For Each drZone As DS.tbl_zoneRow In DSET1.tbl_zone.Select("code <> '0'")
|
|
If drZone.열생산냉방생산기기 <> "0" AndAlso drZone.열생산냉방생산기기.Length > 3 Then
|
|
냉방시스템설치여부 = True
|
|
Exit For
|
|
End If
|
|
Next
|
|
buffer.Append(IIf(냉방시스템설치여부, "Y", "N")) : buffer.Append(vbTab)
|
|
|
|
'//신청지역
|
|
Dim 지역코드 As String = drDesc.buildarea
|
|
Dim 지역명 As String = ""
|
|
If 지역코드 <> "0000" Then
|
|
Dim drWeather() As DS.tbl_weatherRow = DSET1.tbl_weather.Select("code='" + 지역코드 + "'")
|
|
If drWeather.Length = 1 Then 지역명 = drWeather(0).건물위치
|
|
End If
|
|
|
|
buffer.Append(지역명) : buffer.Append(vbTab)
|
|
|
|
'//자립률관련추가 170725
|
|
'//170725
|
|
Dim 단위면적당신재생1차에너지합 As Decimal = 0
|
|
Dim 단위면적당신재생1차에너지합_offsite As Decimal = 0
|
|
Dim 단위면적당1차에너소비량합 As Decimal = 0
|
|
Dim 에너지자립률 As Double = 0
|
|
Dim 에너지자립률_offsite As Double = 0
|
|
|
|
Dim Sum As Decimal = (Result1.생산E(0).태양광전력생산량 + Result1.생산E(0).풍력전력생산량 + Result1.생산E(0).신재생열병합전력생산량) / (Result1.일차E소요량(0).난방전력 + Result1.일차E소요량(0).냉방전력 + Result1.일차E소요량(0).급탕전력 + Result1.일차E소요량(0).조명전력 + Result1.일차E소요량(0).환기전력)
|
|
Dim Sum_offsite As Decimal = (Result1.생산E(0).태양광전력생산량_offsite + Result1.생산E(0).풍력전력생산량_offsite + Result1.생산E(0).연료전지전력생산량_offsite) / (Result1.일차E소요량(0).난방전력 + Result1.일차E소요량(0).냉방전력 + Result1.일차E소요량(0).급탕전력 + Result1.일차E소요량(0).조명전력 + Result1.일차E소요량(0).환기전력)
|
|
Dim 난방 As Decimal = Sum * Result1.일차E소요량(0).난방전력 '//아마게산이안도잇으니 여기값들이 0이잇을거에요.
|
|
Dim 냉방 As Decimal = Sum * Result1.일차E소요량(0).냉방전력
|
|
Dim 조명 As Decimal = Sum * Result1.일차E소요량(0).조명전력
|
|
Dim 급탕 As Decimal = Sum * Result1.일차E소요량(0).급탕전력
|
|
Dim 환기 As Decimal = Sum * Result1.일차E소요량(0).환기전력
|
|
|
|
Dim 난방_offsite As Decimal = Sum_offsite * Result1.일차E소요량(0).난방전력 '//아마게산이안도잇으니 여기값들이 0이잇을거에요.
|
|
Dim 냉방_offsite As Decimal = Sum_offsite * Result1.일차E소요량(0).냉방전력
|
|
Dim 조명_offsite As Decimal = Sum_offsite * Result1.일차E소요량(0).조명전력
|
|
Dim 급탕_offsite As Decimal = Sum_offsite * Result1.일차E소요량(0).급탕전력
|
|
Dim 환기_offsite As Decimal = Sum_offsite * Result1.일차E소요량(0).환기전력
|
|
|
|
Dim 난방면적 As Decimal = 0
|
|
Dim 냉방면적 As Decimal = 0
|
|
Dim 조명면적 As Decimal = 0
|
|
Dim 급탕면적 As Decimal = 0
|
|
Dim 환기면적 As Decimal = 0
|
|
|
|
Dim 난방면적_offsite As Decimal = 0
|
|
Dim 냉방면적_offsite As Decimal = 0
|
|
Dim 조명면적_offsite As Decimal = 0
|
|
Dim 급탕면적_offsite As Decimal = 0
|
|
Dim 환기면적_offsite As Decimal = 0
|
|
|
|
|
|
If Result1.사용면적.H <> 0 Then
|
|
난방면적 = TOSG(IIf(난방 = 0, 0, 난방 / Result1.사용면적.H))
|
|
End If
|
|
If Result1.사용면적.C <> 0 Then
|
|
냉방면적 = TOSG(IIf(냉방 = 0, 0, 냉방 / Result1.사용면적.C))
|
|
End If
|
|
If Result1.사용면적.L <> 0 Then
|
|
조명면적 = TOSG(IIf(조명 = 0, 0, 조명 / Result1.사용면적.L))
|
|
End If
|
|
If Result1.사용면적.W <> 0 Then
|
|
급탕면적 = TOSG(IIf(급탕 = 0, 0, 급탕 / Result1.사용면적.W))
|
|
End If
|
|
If Result1.사용면적.V <> 0 Then
|
|
환기면적 = TOSG(IIf(환기 = 0, 0, 환기 / Result1.사용면적.V))
|
|
End If
|
|
|
|
If Result1.사용면적.H <> 0 Then
|
|
난방면적_offsite = TOSG(IIf(난방_offsite = 0, 0, 난방_offsite / Result1.사용면적.H))
|
|
End If
|
|
If Result1.사용면적.C <> 0 Then
|
|
냉방면적_offsite = TOSG(IIf(냉방_offsite = 0, 0, 냉방_offsite / Result1.사용면적.C))
|
|
End If
|
|
If Result1.사용면적.L <> 0 Then
|
|
조명면적_offsite = TOSG(IIf(조명_offsite = 0, 0, 조명_offsite / Result1.사용면적.L))
|
|
End If
|
|
If Result1.사용면적.W <> 0 Then
|
|
급탕면적_offsite = TOSG(IIf(급탕_offsite = 0, 0, 급탕_offsite / Result1.사용면적.W))
|
|
End If
|
|
If Result1.사용면적.V <> 0 Then
|
|
환기면적_offsite = TOSG(IIf(환기_offsite = 0, 0, 환기_offsite / Result1.사용면적.V))
|
|
End If
|
|
|
|
Dim 전기 As Decimal = 난방면적 + 냉방면적 + 조명면적 + 급탕면적 + 환기면적
|
|
Dim 전기_offsite As Decimal = 난방면적_offsite + 냉방면적_offsite + 조명면적_offsite + 급탕면적_offsite + 환기면적_offsite
|
|
|
|
'//열병합신재생에너지추가 130831 arin
|
|
Dim _자립_신재생에너지 As Single = -1 * (Result1.생산E(0).면적당생산량태양열 + Result1.생산E(0).신재생면적당열생산량 + Result1.생산E(0).면적당생산량지열 + 전기 * 2.75)
|
|
Dim _자립_신재생에너지_offsite As Single = -1 * (전기_offsite * 2.75)
|
|
난방에너지 = Math.Round(Result1.일차E소요량(0).난방면적, 1)
|
|
냉방에너지 = Math.Round(Result1.일차E소요량(0).냉방면적, 1)
|
|
급탕에너지 = Math.Round(Result1.일차E소요량(0).급탕면적, 1)
|
|
조명에너지 = Math.Round(Result1.일차E소요량(0).조명면적, 1)
|
|
환기에너지 = Math.Round(Result1.일차E소요량(0).환기면적, 1)
|
|
단위면적당신재생1차에너지합 = Math.Round(-1 * _자립_신재생에너지, 1)
|
|
단위면적당신재생1차에너지합_offsite = Math.Round(-1 * _자립_신재생에너지_offsite, 1)
|
|
|
|
|
|
단위면적당1차에너소비량합 = 난방에너지 + 냉방에너지 + 급탕에너지 + 조명에너지 + 환기에너지 + 단위면적당신재생1차에너지합
|
|
If 단위면적당1차에너소비량합 <> 0 Then
|
|
'에너지자립률 = (단위면적당신재생1차에너지합 / 단위면적당1차에너소비량합) * 100
|
|
|
|
에너지자립률 = (Math.Round(단위면적당신재생1차에너지합, 1) / 단위면적당1차에너소비량합) * 100
|
|
|
|
Dim scale As Decimal = 0
|
|
If 에너지자립률 >= 20 Then
|
|
scale = 1.0
|
|
ElseIf 에너지자립률 >= 15 Then
|
|
scale = 0.9
|
|
ElseIf 에너지자립률 >= 10 Then
|
|
scale = 0.8
|
|
Else
|
|
scale = 0.7
|
|
End If
|
|
|
|
에너지자립률_offsite = (Math.Round(단위면적당신재생1차에너지합_offsite * scale, 1) / 단위면적당1차에너소비량합) * 100
|
|
에너지자립률 += 에너지자립률_offsite
|
|
|
|
Else
|
|
에너지자립률 = 0
|
|
에너지자립률_offsite = 0
|
|
End If
|
|
buffer.Append(에너지자립률.ToString("N2")) : buffer.Append(vbTab)
|
|
buffer.Append(단위면적당신재생1차에너지합.ToString("N1")) : buffer.Append(vbTab)
|
|
buffer.Append(단위면적당1차에너소비량합.ToString("N1")) : buffer.Append(vbTab)
|
|
|
|
'//210702
|
|
buffer.Append(에너지자립률_offsite.ToString("N2")) : buffer.Append(vbTab)
|
|
buffer.Append(단위면적당신재생1차에너지합_offsite.ToString("N1")) : buffer.Append(vbTab)
|
|
|
|
|
|
'//240105
|
|
Dim vv0 As Decimal = CType(DSETR1.TReqUse.Select("GRP='110' and CODE='007'")(0), DSR.TReqUseRow).M00
|
|
Dim vv1 As Decimal = CType(DSETR1.TReqUse.Select("GRP='110' and CODE='012'")(0), DSR.TReqUseRow).M00
|
|
Dim vv2 As Decimal = CType(DSETR1.TReqUse.Select("GRP='110' and CODE='015'")(0), DSR.TReqUseRow).M00
|
|
Dim vv3 As Decimal = CType(DSETR1.TReqUse.Select("GRP='110' and CODE='018'")(0), DSR.TReqUseRow).M00
|
|
Dim vv4 As Decimal = CType(DSETR1.TReqUse.Select("GRP='110' and CODE='019'")(0), DSR.TReqUseRow).M00
|
|
buffer.Append(vv0) : buffer.Append(vbTab)
|
|
buffer.Append(vv1) : buffer.Append(vbTab)
|
|
buffer.Append(vv2) : buffer.Append(vbTab)
|
|
buffer.Append(vv3) : buffer.Append(vbTab)
|
|
buffer.Append(vv4) : buffer.Append(vbTab)
|
|
|
|
Dim 면적합값 As Tuple(Of Decimal, Int32) = Pub.면적존수합()
|
|
buffer.Append(면적합값.Item1) : buffer.Append(vbTab)
|
|
|
|
'//난방 1차에너지소요량
|
|
'buffer.Append( v3_1.ToString("N1") ) : buffer.Append(vbTab) '//난방
|
|
vv0 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='040'")(0), DSR.TReqUseRow).M00
|
|
vv1 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='041'")(0), DSR.TReqUseRow).M00
|
|
vv2 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='042'")(0), DSR.TReqUseRow).M00
|
|
vv3 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='043'")(0), DSR.TReqUseRow).M00
|
|
vv4 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='044'")(0), DSR.TReqUseRow).M00
|
|
Dim vv5 As Decimal = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='045'")(0), DSR.TReqUseRow).M00
|
|
Dim vv6 As Decimal
|
|
|
|
buffer.Append(vv0) : buffer.Append(vbTab)
|
|
buffer.Append(vv1) : buffer.Append(vbTab)
|
|
buffer.Append(vv2) : buffer.Append(vbTab)
|
|
buffer.Append(vv3) : buffer.Append(vbTab)
|
|
buffer.Append(vv4) : buffer.Append(vbTab)
|
|
buffer.Append(vv5) : buffer.Append(vbTab)
|
|
|
|
'//냉방 1차에너지소요량
|
|
vv0 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='047'")(0), DSR.TReqUseRow).M00
|
|
vv1 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='048'")(0), DSR.TReqUseRow).M00
|
|
vv2 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='049'")(0), DSR.TReqUseRow).M00
|
|
vv3 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='050'")(0), DSR.TReqUseRow).M00
|
|
vv4 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='051'")(0), DSR.TReqUseRow).M00
|
|
vv5 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='052'")(0), DSR.TReqUseRow).M00
|
|
vv6 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='053'")(0), DSR.TReqUseRow).M00
|
|
buffer.Append(vv0) : buffer.Append(vbTab)
|
|
buffer.Append(vv1) : buffer.Append(vbTab)
|
|
buffer.Append(vv2) : buffer.Append(vbTab)
|
|
buffer.Append(vv3) : buffer.Append(vbTab)
|
|
buffer.Append(vv4) : buffer.Append(vbTab)
|
|
buffer.Append(vv5) : buffer.Append(vbTab)
|
|
buffer.Append(vv6) : buffer.Append(vbTab)
|
|
|
|
'//급탕 1차에너지소요량
|
|
vv0 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='055'")(0), DSR.TReqUseRow).M00
|
|
vv1 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='056'")(0), DSR.TReqUseRow).M00
|
|
vv2 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='057'")(0), DSR.TReqUseRow).M00
|
|
vv3 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='058'")(0), DSR.TReqUseRow).M00
|
|
vv4 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='059'")(0), DSR.TReqUseRow).M00
|
|
vv5 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='060'")(0), DSR.TReqUseRow).M00
|
|
buffer.Append(vv0) : buffer.Append(vbTab)
|
|
buffer.Append(vv1) : buffer.Append(vbTab)
|
|
buffer.Append(vv2) : buffer.Append(vbTab)
|
|
buffer.Append(vv3) : buffer.Append(vbTab)
|
|
buffer.Append(vv4) : buffer.Append(vbTab)
|
|
buffer.Append(vv5) : buffer.Append(vbTab)
|
|
|
|
'//조명 1차에너지소요량
|
|
vv0 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='062'")(0), DSR.TReqUseRow).M00
|
|
vv1 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='063'")(0), DSR.TReqUseRow).M00
|
|
buffer.Append(vv0) : buffer.Append(vbTab)
|
|
buffer.Append(vv1) : buffer.Append(vbTab)
|
|
|
|
'//전기 1차에너지소요량
|
|
vv0 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='065'")(0), DSR.TReqUseRow).M00
|
|
vv1 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='066'")(0), DSR.TReqUseRow).M00
|
|
buffer.Append(vv0) : buffer.Append(vbTab)
|
|
buffer.Append(vv1) : buffer.Append(vbTab)
|
|
|
|
'//신재생 생산량
|
|
vv0 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='068'")(0), DSR.TReqUseRow).M00
|
|
vv1 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='069'")(0), DSR.TReqUseRow).M00
|
|
vv2 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='070'")(0), DSR.TReqUseRow).M00
|
|
vv3 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='071'")(0), DSR.TReqUseRow).M00
|
|
vv4 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='072'")(0), DSR.TReqUseRow).M00
|
|
vv5 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='073'")(0), DSR.TReqUseRow).M00
|
|
vv6 = CType(DSETR1.TReqUse.Select("GRP='310' and CODE='074'")(0), DSR.TReqUseRow).M00
|
|
buffer.Append(vv0) : buffer.Append(vbTab)
|
|
buffer.Append(vv1) : buffer.Append(vbTab)
|
|
buffer.Append(vv2) : buffer.Append(vbTab)
|
|
buffer.Append(vv3) : buffer.Append(vbTab)
|
|
buffer.Append(vv4) : buffer.Append(vbTab)
|
|
buffer.Append(vv5) : buffer.Append(vbTab)
|
|
buffer.Append(vv6) : buffer.Append(vbTab)
|
|
|
|
'//풍력회전면적(최대)
|
|
Dim 풍력로우터회전면적 As Decimal = 0
|
|
Dim 풍력허브높이 As Decimal = 0
|
|
For Each dr As DS.tbl_newRow In DSET1.tbl_new
|
|
If dr.기기종류 <> "풍력" Then Continue For
|
|
|
|
If dr.풍력로우터회전면적 > 풍력로우터회전면적 Then
|
|
풍력로우터회전면적 = dr.풍력로우터회전면적
|
|
풍력허브높이 = dr.풍력허브높이
|
|
End If
|
|
Next
|
|
buffer.Append(풍력로우터회전면적) : buffer.Append(vbTab)
|
|
buffer.Append(풍력허브높이) : buffer.Append(vbTab)
|
|
|
|
'//수열월(최대)
|
|
Dim 수열시스템펌프용량 As Decimal = 0
|
|
Dim 수열시스템난방 As Decimal = 0
|
|
Dim 수열시스템냉방 As Decimal = 0
|
|
Dim 수열원 As String = ""
|
|
For Each dr As DS.tbl_newRow In DSET1.tbl_new
|
|
If dr.기기종류 <> "수열" Then Continue For
|
|
If dr.수열_수열히트펌프용량 > 수열시스템펌프용량 Then
|
|
수열시스템펌프용량 = dr.수열_수열히트펌프용량
|
|
수열시스템난방 = dr.수열_열성능비_난방5도
|
|
수열시스템냉방 = dr.수열_열성능비_냉방35도
|
|
수열원 = dr.수열_수열원
|
|
End If
|
|
Next
|
|
buffer.Append(수열원) : buffer.Append(vbTab)
|
|
buffer.Append(수열시스템펌프용량) : buffer.Append(vbTab)
|
|
buffer.Append(수열시스템난방) : buffer.Append(vbTab)
|
|
buffer.Append(수열시스템냉방) : buffer.Append(vbTab)
|
|
|
|
'태양광(BIPV)
|
|
Dim 태양광모듈면적 As Decimal = 0
|
|
Dim dr태양광bipv As DS.tbl_newRow = Nothing
|
|
Dim 태양광용량_합_BIPV As Decimal = 0
|
|
Dim 태양광면적_합_BIPV As Decimal = 0
|
|
Dim 태양광모듈효율_합_BIPV As Decimal = 0
|
|
For Each dr As DS.tbl_newRow In DSET1.tbl_new
|
|
If dr.기기종류 <> "태양광" Then Continue For
|
|
If dr.태양광모듈적용타입 <> "밀착형" Then Continue For
|
|
|
|
|
|
If Not IsNumeric(dr.태양광모듈면적) Then dr.태양광모듈면적 = "0"
|
|
If Not IsNumeric(dr.태양광모듈효율) Then dr.태양광모듈효율 = "0"
|
|
If Not IsNumeric(dr.태양광용량) Then dr.태양광용량 = "0"
|
|
태양광용량_합_BIPV += dr.태양광용량
|
|
If dr.태양광모듈효율 <> "0" Then
|
|
태양광면적_합_BIPV += dr.태양광모듈면적
|
|
태양광모듈효율_합_BIPV += (dr.태양광모듈효율 * dr.태양광모듈면적)
|
|
End If
|
|
|
|
|
|
If dr.태양광모듈면적 > 태양광모듈면적 Then
|
|
태양광모듈면적 = dr.태양광모듈면적
|
|
dr태양광bipv = dr
|
|
End If
|
|
Next
|
|
buffer.Append(태양광용량_합_BIPV) : buffer.Append(vbTab)
|
|
If 태양광면적_합_BIPV = 0 Then
|
|
buffer.Append(0) : buffer.Append(vbTab)
|
|
Else
|
|
buffer.Append((태양광모듈효율_합_BIPV / 태양광면적_합_BIPV)) : buffer.Append(vbTab)
|
|
End If
|
|
|
|
|
|
If dr태양광bipv Is Nothing Then
|
|
buffer.Append("") : buffer.Append(vbTab)
|
|
buffer.Append("") : buffer.Append(vbTab)
|
|
buffer.Append("") : buffer.Append(vbTab)
|
|
buffer.Append("") : buffer.Append(vbTab)
|
|
buffer.Append("") : buffer.Append(vbTab)
|
|
Else
|
|
buffer.Append(dr태양광bipv.태양광모듈면적) : buffer.Append(vbTab)
|
|
buffer.Append(dr태양광bipv.태양광모듈기울기) : buffer.Append(vbTab)
|
|
buffer.Append(dr태양광bipv.태양광모듈방위) : buffer.Append(vbTab)
|
|
buffer.Append(dr태양광bipv.태양광모듈종류) : buffer.Append(vbTab)
|
|
buffer.Append(dr태양광bipv.태양광모듈적용타입) : buffer.Append(vbTab)
|
|
End If
|
|
|
|
'//히트펌프
|
|
Dim 히트펌프용량_가스_난방 As Decimal = 0
|
|
Dim 히트펌프용량_전기_난방 As Decimal = 0
|
|
Dim 히트펌프용량_가스_냉방 As Decimal = 0
|
|
Dim 히트펌프용량_전기_냉방 As Decimal = 0
|
|
|
|
For Each dr As DS.tbl_nanbangkikiRow In DSET1.tbl_nanbangkiki
|
|
If dr.히트연료.EndsWith("가스") Then
|
|
히트펌프용량_가스_난방 += dr.히트난방용량
|
|
ElseIf dr.히트연료 = "전기" Then
|
|
히트펌프용량_전기_난방 += dr.히트난방용량
|
|
End If
|
|
Next
|
|
|
|
For Each dr As DS.tbl_nangbangkikiRow In DSET1.tbl_nangbangkiki
|
|
If dr.냉동기종류 <> "실내공조시스템" Then Continue For
|
|
If dr.냉동기방식 = "압축식(LNG)" Then
|
|
히트펌프용량_가스_냉방 += dr.냉동기용량
|
|
ElseIf dr.냉동기방식 = "압축식" Then
|
|
히트펌프용량_전기_냉방 += dr.냉동기용량
|
|
End If
|
|
Next
|
|
|
|
|
|
buffer.Append(히트펌프용량_가스_난방) : buffer.Append(vbTab)
|
|
buffer.Append(히트펌프용량_전기_난방) : buffer.Append(vbTab)
|
|
|
|
buffer.Append(히트펌프용량_가스_냉방) : buffer.Append(vbTab)
|
|
buffer.Append(히트펌프용량_전기_냉방) : buffer.Append(vbTab)
|
|
|
|
'//추가작업 230724
|
|
If column < 11 Then Return buffer.ToString() '//아래는 매크로동작시
|
|
|
|
|
|
buffer.Append("") : buffer.Append(vbTab)
|
|
|
|
'//벽체면적
|
|
Dim WallArea As Decimal = 0
|
|
Dim WindowArea As Decimal = 0
|
|
Dim 열관류율합 As Double
|
|
Dim 존수 As Integer = 0
|
|
Dim 비연결 As Integer = 0
|
|
Dim 비연결존 As String = ""
|
|
Dim 방위목록() As String = New String() {"수평", "남", "남동", "동", "북동", "북", "북서", "서", "남서"}
|
|
For Each 방위 As String In 방위목록
|
|
Dim filter As String = "code <> '0' and (건축부위방식='외벽' or 건축부위방식 ='외부창' or 건축부위방식='내벽' or 건축부위방식 ='내부창')"
|
|
If 방위 <> "" Then filter += " and 방위='" + 방위 + "'"
|
|
Dim 면데이터() As DS.tbl_myounRow = DSET1.tbl_myoun.Select(filter)
|
|
Dim 열관없는갯수 As Integer = 0
|
|
Try
|
|
For Each Dr입력면 As DS.tbl_myounRow In 면데이터
|
|
Dim 열관 As Single = 0
|
|
|
|
If Dr입력면.열관류율2 = "0" OrElse Dr입력면.열관류율2 = "" Then
|
|
열관없는갯수 += 1
|
|
End If
|
|
|
|
Dim Dryk1 As DS.tbl_ykRow = Nothing
|
|
If Dr입력면.열관류율2 <> "0" Then '
|
|
Dryk1 = DSET1.tbl_yk.Select("code='" & Dr입력면.열관류율2 & "'")(0)
|
|
열관 = TOSG(Dryk1("열관류율").ToString)
|
|
Else '//선택안된경우
|
|
열관 = TOSG(Dr입력면.열관류율)
|
|
End If
|
|
|
|
Dim 존코드 As String = Dr입력면.존분류
|
|
Dim dr존() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("code='" + 존코드 + "'")
|
|
If dr존.GetUpperBound(0) = -1 Then
|
|
존수 = 1
|
|
Else
|
|
If IsNumeric(dr존(0).입력존의수) Then
|
|
존수 = CInt(dr존(0).입력존의수)
|
|
Else
|
|
존수 = 1
|
|
End If
|
|
End If
|
|
|
|
Select Case Dr입력면.건축부위방식
|
|
Case "외벽"
|
|
열관류율합 += 열관 * 1 * TOSG(Dr입력면.건축부위면적) * 존수
|
|
Case "내벽"
|
|
열관류율합 += 열관 * 0.7 * TOSG(Dr입력면.건축부위면적) * 존수
|
|
Case "외부창"
|
|
열관류율합 += 열관 * 1 * TOSG(Dr입력면.건축부위면적) * 존수
|
|
Case "내부창"
|
|
열관류율합 += 열관 * 0.8 * TOSG(Dr입력면.건축부위면적) * 존수
|
|
End Select
|
|
|
|
'// Debug.WriteLine(Dr입력면.열관류율2 + "/" + Dr입력면.code + "/" + 열관.ToString() + "/" + Dr입력면.설명 + "/" + Dr입력면.건축부위면적.ToCharArray() + "/" + 존수.ToString() + "/" + 열관류율합.ToString(), True)
|
|
|
|
If Dryk1 Is Nothing Then
|
|
비연결 += 1
|
|
|
|
'//사용한 존
|
|
If dr존 Is Nothing Then
|
|
Else
|
|
비연결존 = dr존(0).설명 + "의 " + Dr입력면.설명
|
|
End If
|
|
|
|
|
|
'//열관류 선택안된경우
|
|
Select Case Dr입력면.건축부위방식
|
|
Case "외벽"
|
|
If Dr입력면.방위 <> "수평" AndAlso Dr입력면.방위 <> "일사없음" AndAlso Dr입력면.방위 <> "(없음)" Then
|
|
WallArea = WallArea + TOSG(Dr입력면.건축부위면적) * 존수
|
|
End If
|
|
Case "내벽" '
|
|
WallArea = WallArea + TOSG(Dr입력면.건축부위면적) * 존수
|
|
Case "외부창"
|
|
If Dr입력면.방위 <> "수평" AndAlso Dr입력면.방위 <> "일사없음" AndAlso Dr입력면.방위 <> "(없음)" Then
|
|
WindowArea = WindowArea + TOSG(Dr입력면.건축부위면적) * 존수
|
|
End If
|
|
Case "내부창"
|
|
WindowArea = WindowArea + TOSG(Dr입력면.건축부위면적) * 존수
|
|
End Select
|
|
|
|
Else
|
|
|
|
Dim 면형태이름 As String = Get_CName("1088", Dryk1.면형태)
|
|
Select Case 면형태이름
|
|
Case "외벽(벽체)"
|
|
WallArea = WallArea + TOSG(Dr입력면.건축부위면적) * 존수
|
|
Case "내벽(벽체)"
|
|
WallArea = WallArea + TOSG(Dr입력면.건축부위면적) * 존수
|
|
Case "외부창"
|
|
If Dr입력면.방위 <> "수평" AndAlso Dr입력면.방위 <> "일사없음" AndAlso Dr입력면.방위 <> "(없음)" Then
|
|
WindowArea = WindowArea + TOSG(Dr입력면.건축부위면적) * 존수
|
|
End If
|
|
Case "내부창"
|
|
WindowArea = WindowArea + TOSG(Dr입력면.건축부위면적) * 존수
|
|
End Select
|
|
End If
|
|
|
|
'Debug.WriteLine(Dr입력면.code + ":wall=" + WallArea.ToString() + ",win=" + WindowArea.ToString())
|
|
Next
|
|
'For Each Dr입력면 As DS.tbl_myounRow In DSET1.tbl_myoun.Select("건축부위방식='외부창'")
|
|
' WindowArea = WindowArea + TOSG(Dr입력면.건축부위면적) * 존수
|
|
'Next
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
Next
|
|
|
|
buffer.Append(WallArea.ToString("N1")) : buffer.Append(vbTab)
|
|
buffer.Append(WindowArea.ToString("N1")) : buffer.Append(vbTab)
|
|
|
|
|
|
Try
|
|
창및문면적비 = WindowArea / (WallArea + WindowArea) * 100
|
|
Catch ex As Exception
|
|
창및문면적비 = 0 '//게삭과정에 오류가낫다면 0처리합니다.
|
|
End Try
|
|
If WallArea + WindowArea = 0 Then
|
|
buffer.Append("0 %") : buffer.Append(vbTab)
|
|
Else
|
|
buffer.Append(창및문면적비.ToString("N1")) : buffer.Append(vbTab)
|
|
End If
|
|
|
|
|
|
|
|
|
|
buffer.Append(창열관류율_평균.ToString("N3")) : buffer.Append(vbTab)
|
|
buffer.Append(창열관류율_남.ToString("N3")) : buffer.Append(vbTab)
|
|
buffer.Append(창열관류율_남동.ToString("N3")) : buffer.Append(vbTab)
|
|
buffer.Append(창열관류율_동.ToString("N3")) : buffer.Append(vbTab)
|
|
buffer.Append(창열관류율_북동.ToString("N3")) : buffer.Append(vbTab)
|
|
buffer.Append(창열관류율_북.ToString("N3")) : buffer.Append(vbTab)
|
|
buffer.Append(창열관류율_북서.ToString("N3")) : buffer.Append(vbTab)
|
|
buffer.Append(창열관류율_서.ToString("N3")) : buffer.Append(vbTab)
|
|
buffer.Append(창열관류율_남서.ToString("N3")) : buffer.Append(vbTab)
|
|
|
|
buffer.Append(일사에너지투과율_평균.ToString("N3")) : buffer.Append(vbTab)
|
|
buffer.Append(일사에너지투과율_남.ToString("N3")) : buffer.Append(vbTab)
|
|
buffer.Append(일사에너지투과율_남동.ToString("N3")) : buffer.Append(vbTab)
|
|
buffer.Append(일사에너지투과율_동.ToString("N3")) : buffer.Append(vbTab)
|
|
buffer.Append(일사에너지투과율_북동.ToString("N3")) : buffer.Append(vbTab)
|
|
buffer.Append(일사에너지투과율_북.ToString("N3")) : buffer.Append(vbTab)
|
|
buffer.Append(일사에너지투과율_북서.ToString("N3")) : buffer.Append(vbTab)
|
|
buffer.Append(일사에너지투과율_서.ToString("N3")) : buffer.Append(vbTab)
|
|
buffer.Append(일사에너지투과율_남서.ToString("N3")) : buffer.Append(vbTab)
|
|
|
|
|
|
'//난방기기 - 보일러중에 용량이 가장 큰
|
|
Dim 보일러목록() As DS.tbl_nanbangkikiRow = DSET1.tbl_nanbangkiki.Select("열생산기기방식='보일러'", "보일러정격출력 desc")
|
|
If 보일러목록 Is Nothing OrElse 보일러목록.Length < 1 Then
|
|
buffer.Append("") : buffer.Append(vbTab)
|
|
Else
|
|
buffer.Append(보일러목록(0).보일러방식) : buffer.Append(vbTab)
|
|
End If
|
|
|
|
보일러목록 = DSET1.tbl_nanbangkiki.Select("열생산기기방식='지역난방'", "열교환기정격출력 desc")
|
|
If 보일러목록 Is Nothing OrElse 보일러목록.Length < 1 Then
|
|
buffer.Append("") : buffer.Append(vbTab)
|
|
Else
|
|
buffer.Append(보일러목록(0).지역난방방식) : buffer.Append(vbTab)
|
|
End If
|
|
|
|
보일러목록 = DSET1.tbl_nanbangkiki.Select("열생산기기방식='히트펌프'", "히트난방용량 desc")
|
|
If 보일러목록 Is Nothing OrElse 보일러목록.Length < 1 Then
|
|
buffer.Append("") : buffer.Append(vbTab)
|
|
buffer.Append("") : buffer.Append(vbTab)
|
|
buffer.Append("") : buffer.Append(vbTab)
|
|
buffer.Append("") : buffer.Append(vbTab)
|
|
buffer.Append("") : buffer.Append(vbTab)
|
|
Else
|
|
buffer.Append(보일러목록(0).히트난방용량) : buffer.Append(vbTab)
|
|
buffer.Append(보일러목록(0).히트난방정격7) : buffer.Append(vbTab)
|
|
buffer.Append(보일러목록(0).히트난방정격10) : buffer.Append(vbTab)
|
|
buffer.Append(보일러목록(0).히트배관길이) : buffer.Append(vbTab)
|
|
buffer.Append(보일러목록(0).히트펌프시스템종류) : buffer.Append(vbTab)
|
|
End If
|
|
|
|
|
|
Dim 냉방기목록 = DSET1.tbl_nangbangkiki.Select("냉동기방식='압축식'", "냉동기용량 desc")
|
|
If 냉방기목록 Is Nothing OrElse 냉방기목록.Length < 1 Then
|
|
buffer.Append("") : buffer.Append(vbTab)
|
|
buffer.Append("") : buffer.Append(vbTab)
|
|
Else
|
|
buffer.Append(냉방기목록(0).냉동기종류) : buffer.Append(vbTab)
|
|
buffer.Append(냉방기목록(0).냉동기압축방식) : buffer.Append(vbTab)
|
|
End If
|
|
|
|
냉방기목록 = DSET1.tbl_nangbangkiki.Select("냉동기방식='흡수식'", "냉동기용량 desc")
|
|
If 냉방기목록 Is Nothing OrElse 냉방기목록.Length < 1 Then
|
|
buffer.Append("") : buffer.Append(vbTab)
|
|
buffer.Append("") : buffer.Append(vbTab)
|
|
Else
|
|
buffer.Append(냉방기목록(0).압축기제어방식) : buffer.Append(vbTab)
|
|
buffer.Append(냉방기목록(0).열생산연결방식) : buffer.Append(vbTab)
|
|
End If
|
|
|
|
냉방기목록 = DSET1.tbl_nangbangkiki.Select("냉동기방식='압축식' and 냉동기종류='실내공조시스템'", "냉동기용량 desc")
|
|
If 냉방기목록 Is Nothing OrElse 냉방기목록.Length < 1 Then
|
|
buffer.Append("") : buffer.Append(vbTab)
|
|
buffer.Append("") : buffer.Append(vbTab)
|
|
Else
|
|
buffer.Append(냉방기목록(0).냉동기설비시스템) : buffer.Append(vbTab)
|
|
buffer.Append(냉방기목록(0).제어방식) : buffer.Append(vbTab)
|
|
End If
|
|
|
|
'//급탕기기로 연결된 자료
|
|
Dim 급탕기기대상 As DS.tbl_nanbangkikiRow = Nothing
|
|
Dim 급탕기기대상용량 As Decimal = 0
|
|
For Each dr As DS.tbl_nanbangkikiRow In DSET1.tbl_nanbangkiki.Rows
|
|
Dim cnt = 0
|
|
Dim 존목록() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("code <> '0' and 열생산급탕생산기기='" & dr.code & "'")
|
|
For Each drow As DS.tbl_zoneRow In 존목록
|
|
Dim 입력존수문자 As Integer = drow.입력존의수
|
|
If IsNumeric(입력존수문자) = False Then 입력존수문자 = "1"
|
|
cnt += CInt(입력존수문자)
|
|
Next
|
|
If cnt > 0 Then
|
|
If dr.보일러정격출력 > 급탕기기대상용량 Then
|
|
급탕기기대상 = dr
|
|
급탕기기대상용량 = dr.보일러정격출력
|
|
End If
|
|
End If
|
|
Next
|
|
|
|
If 급탕기기대상 Is Nothing Then
|
|
buffer.Append("") : buffer.Append(vbTab)
|
|
buffer.Append("") : buffer.Append(vbTab)
|
|
buffer.Append("") : buffer.Append(vbTab)
|
|
Else
|
|
buffer.Append(급탕기기대상.축열탱크방식) : buffer.Append(vbTab)
|
|
buffer.Append(급탕기기대상.축열제척) : buffer.Append(vbTab)
|
|
buffer.Append(급탕기기대상.펌프정격전력) : buffer.Append(vbTab)
|
|
End If
|
|
|
|
|
|
Dim 태양광목록() As DS.tbl_newRow = DSET1.tbl_new.Select("기기종류='태양광'", "태양광모듈면적 desc")
|
|
If 태양광목록 Is Nothing OrElse 태양광목록.Length < 1 Then
|
|
buffer.Append("") : buffer.Append(vbTab)
|
|
buffer.Append("") : buffer.Append(vbTab)
|
|
buffer.Append("") : buffer.Append(vbTab)
|
|
buffer.Append("") : buffer.Append(vbTab)
|
|
buffer.Append("") : buffer.Append(vbTab)
|
|
buffer.Append("") : buffer.Append(vbTab)
|
|
buffer.Append("") : buffer.Append(vbTab)
|
|
Else
|
|
buffer.Append(태양광목록(0).태양광용량) : buffer.Append(vbTab)
|
|
buffer.Append(태양광목록(0).태양광모듈효율) : buffer.Append(vbTab)
|
|
buffer.Append(태양광목록(0).태양광모듈면적) : buffer.Append(vbTab)
|
|
buffer.Append(태양광목록(0).태양광모듈기울기) : buffer.Append(vbTab)
|
|
buffer.Append(태양광목록(0).태양광모듈방위) : buffer.Append(vbTab)
|
|
buffer.Append(태양광목록(0).태양광모듈종류) : buffer.Append(vbTab)
|
|
buffer.Append(태양광목록(0).태양광모듈적용타입) : buffer.Append(vbTab)
|
|
End If
|
|
|
|
|
|
'//230804 에너지생산량 ` 1차 추가
|
|
Dim 에너지생산량_난방 As Decimal = 난방면적 + 난방면적_offsite + _
|
|
Result1.생산E(0).면적당생산량태양열_난방 + _
|
|
Result1.생산E(0).면적당생산량수열_난방 + _
|
|
Result1.생산E(0).면적당생산량지열_난방 + _
|
|
Result1.생산E(0).신재생면적당열생산량_난방
|
|
|
|
Dim 에너지생산량_냉방 As Decimal = 냉방면적 + 냉방면적_offsite + _
|
|
Result1.생산E(0).면적당생산량태양열_냉방 + _
|
|
Result1.생산E(0).면적당생산량수열_냉방 + _
|
|
Result1.생산E(0).면적당생산량지열_냉방 + _
|
|
Result1.생산E(0).신재생면적당열생산량_냉방
|
|
|
|
Dim 에너지생산량_급탕 As Decimal = 급탕면적 + 급탕면적_offsite + _
|
|
Result1.생산E(0).면적당생산량태양열_급탕 + _
|
|
Result1.생산E(0).면적당생산량수열_급탕 + _
|
|
Result1.생산E(0).면적당생산량지열_급탕 + _
|
|
Result1.생산E(0).신재생면적당열생산량_급탕
|
|
|
|
buffer.Append(에너지생산량_난방) : buffer.Append(vbTab)
|
|
buffer.Append(에너지생산량_냉방) : buffer.Append(vbTab)
|
|
buffer.Append(에너지생산량_급탕) : buffer.Append(vbTab)
|
|
buffer.Append(조명면적 + 조명면적_offsite) : buffer.Append(vbTab)
|
|
buffer.Append(환기면적 + 환기면적_offsite) : buffer.Append(vbTab)
|
|
|
|
Dim multi As Decimal = 2.75
|
|
Dim 에너지생산량_난방_1차 As Decimal = (난방면적 + 난방면적_offsite) * multi + _
|
|
Result1.생산E(0).면적당생산량태양열_난방 + _
|
|
Result1.생산E(0).면적당생산량수열_난방 + _
|
|
Result1.생산E(0).면적당생산량지열_난방 + _
|
|
Result1.생산E(0).신재생면적당열생산량_난방
|
|
|
|
Dim 에너지생산량_냉방_1차 As Decimal = (냉방면적 + 냉방면적_offsite) * multi + _
|
|
Result1.생산E(0).면적당생산량태양열_냉방 + _
|
|
Result1.생산E(0).면적당생산량수열_냉방 + _
|
|
Result1.생산E(0).면적당생산량지열_냉방 + _
|
|
Result1.생산E(0).신재생면적당열생산량_냉방
|
|
|
|
Dim 에너지생산량_급탕_1차 As Decimal = (급탕면적 + 급탕면적_offsite) * multi + _
|
|
Result1.생산E(0).면적당생산량태양열_급탕 + _
|
|
Result1.생산E(0).면적당생산량수열_급탕 + _
|
|
Result1.생산E(0).면적당생산량지열_급탕 + _
|
|
Result1.생산E(0).신재생면적당열생산량_급탕
|
|
|
|
buffer.Append(에너지생산량_난방_1차) : buffer.Append(vbTab)
|
|
buffer.Append(에너지생산량_냉방_1차) : buffer.Append(vbTab)
|
|
buffer.Append(에너지생산량_급탕_1차) : buffer.Append(vbTab)
|
|
|
|
buffer.Append((조명면적 + 조명면적_offsite) * multi) : buffer.Append(vbTab)
|
|
buffer.Append((환기면적 + 환기면적_offsite) * multi) : buffer.Append(vbTab)
|
|
|
|
|
|
'//면적별분류(A-G) 240126
|
|
Dim AREA_A As Integer = 0
|
|
Dim AREA_B As Integer = 0
|
|
Dim AREA_C As Integer = 0
|
|
Dim AREA_D As Integer = 0
|
|
Dim AREA_E As Integer = 0
|
|
Dim AREA_F As Integer = 0
|
|
Dim AREA_G As Integer = 0
|
|
|
|
For Each dr As DS.tbl_zoneRow In DSET1.tbl_zone
|
|
If dr.code = "0" Then Continue For
|
|
|
|
Dim PROFILECODE As String = dr.프로필
|
|
Dim DR프로필() As DS.tbl_profileRow = DSET1.tbl_profile.Select("code='" + PROFILECODE + "'")
|
|
If DR프로필.Length <> 1 Then Continue For
|
|
|
|
If DR프로필(0).설명.StartsWith("00") OrElse DR프로필(0).설명.StartsWith("27") Then
|
|
Dim 면적범위 As Char = Pub.면적별범위값(TOSG(dr.면적))
|
|
If 면적범위 = "A"c Then
|
|
AREA_A += 1
|
|
ElseIf 면적범위 = "B"c Then
|
|
AREA_B += 1
|
|
ElseIf 면적범위 = "C"c Then
|
|
AREA_C += 1
|
|
ElseIf 면적범위 = "D"c Then
|
|
AREA_D += 1
|
|
ElseIf 면적범위 = "E"c Then
|
|
AREA_E += 1
|
|
ElseIf 면적범위 = "F"c Then
|
|
AREA_F += 1
|
|
ElseIf 면적범위 = "G"c Then
|
|
AREA_G += 1
|
|
End If
|
|
End If
|
|
|
|
Next
|
|
|
|
buffer.Append(AREA_A) : buffer.Append(vbTab)
|
|
buffer.Append(AREA_B) : buffer.Append(vbTab)
|
|
buffer.Append(AREA_C) : buffer.Append(vbTab)
|
|
buffer.Append(AREA_D) : buffer.Append(vbTab)
|
|
buffer.Append(AREA_E) : buffer.Append(vbTab)
|
|
buffer.Append(AREA_F) : buffer.Append(vbTab)
|
|
buffer.Append(AREA_G) : buffer.Append(vbTab)
|
|
buffer.AppendLine()
|
|
|
|
Return buffer.ToString()
|
|
|
|
|
|
End Function
|
|
|
|
Private Function RData(grp As String, code As Integer) As Decimal
|
|
Dim filter As String = String.Format("GRP='{0}' and code='{1}'", grp, code.ToString("000"))
|
|
Dim DR() As DSR.TReqUseRow = DSETR1.TReqUse.Select(filter)
|
|
If DR.GetUpperBound(0) = -1 Then Return 0
|
|
Return DR(0).M00
|
|
End Function
|
|
|
|
Dim DSR As New DSR
|
|
|
|
'Private Sub MakeGraphTable()
|
|
' DSR.TReqUse.Clear()
|
|
' DSR.TReqUse.Merge(DSETR1.TReqUse)
|
|
|
|
' If DSR.TReqUse.Rows.Count < 1 Then Return
|
|
|
|
|
|
|
|
' Dim Dr As DSR.Graph_ReqRow
|
|
' For Gubun As Short = 0 To 1
|
|
' For mon As Short = 1 To 12
|
|
' If Gubun = 0 Then '//6번
|
|
' Dr = Me.DSR.Graph_Req.NewGraph_ReqRow
|
|
' Dr.Gubun = "난방에너지요구량"
|
|
' Dr.Mon = Format(mon, "0") & "월"
|
|
' Dr.Req = Math.Round(Result1.E요구량(mon).난방면적, 1)
|
|
' Me.DSR.Graph_Req.Rows.Add(Dr)
|
|
' Else '//11번
|
|
' Dr = Me.DSR.Graph_Req.NewGraph_ReqRow
|
|
' Dr.Gubun = "냉방에너지요구량"
|
|
' Dr.Mon = Format(mon, "0") & "월"
|
|
' Dr.Req = Math.Round(Result1.E요구량(mon).냉방면적, 1)
|
|
' Me.DSR.Graph_Req.Rows.Add(Dr)
|
|
' End If
|
|
' Next
|
|
' Next
|
|
|
|
' '//연간에너지요구량및소요량
|
|
' '//Graph_requse gubun,type,
|
|
' '1차에너지소요량 에너지소요량 에너지요구량
|
|
' '신재생에너지(-57)
|
|
' '난방에너지 106 91.87445415 56.14013248
|
|
' '냉방에너지 155.3678094 119.8832527 40.83005443
|
|
' '급탕에너지 42.6421498 14.21404993 14.6
|
|
' '조명에너지 144.2220948 48.07403159 73.08380082
|
|
' '환기에너지 61.68818331 20.56272777
|
|
|
|
' Dim 신재생에너지 As Decimal
|
|
' Dim 난방에너지 As Decimal
|
|
' Dim 냉방에너지 As Decimal
|
|
' Dim 급탕에너지 As Decimal
|
|
' Dim 조명에너지 As Decimal
|
|
' Dim 환기에너지 As Decimal
|
|
' 'Dim 합계 As Decimal
|
|
|
|
|
|
|
|
' Dim 소요량1차_신재생 As Decimal = 0
|
|
' Dim 소요량_신재생 As Decimal = 0
|
|
|
|
' Dim 단위면적당신재생1차에너지합 As Decimal = 0
|
|
' Dim 단위면적당신재생1차에너지합offsite As Decimal = 0
|
|
' Dim 단위면적당1차에너소비량합 As Decimal = 0
|
|
' Dim 에너지자립률offsite As Decimal = 0
|
|
' Dim 에너지자립률 As Decimal = 0
|
|
|
|
' Dim Dr2 As DSR.Graph_ReqUseRow
|
|
' For Gubun As Short = 0 To 4
|
|
' Select Case Gubun
|
|
' Case 0 '//1차에너지소요량
|
|
|
|
|
|
' Dim Sum As Decimal = (Result1.생산E(0).태양광전력생산량 + Result1.생산E(0).풍력전력생산량 + Result1.생산E(0).신재생열병합전력생산량) / (Result1.일차E소요량(0).난방전력 + Result1.일차E소요량(0).냉방전력 + Result1.일차E소요량(0).급탕전력 + Result1.일차E소요량(0).조명전력 + Result1.일차E소요량(0).환기전력)
|
|
|
|
' Dim Sum_offsite As Decimal = (Result1.생산E(0).태양광전력생산량_offsite + Result1.생산E(0).풍력전력생산량_offsite) / (Result1.일차E소요량(0).난방전력 + Result1.일차E소요량(0).냉방전력 + Result1.일차E소요량(0).급탕전력 + Result1.일차E소요량(0).조명전력 + Result1.일차E소요량(0).환기전력)
|
|
|
|
' Dim 난방 As Decimal = Sum * Result1.일차E소요량(0).난방전력 '//아마게산이안도잇으니 여기값들이 0이잇을거에요.
|
|
' Dim 냉방 As Decimal = Sum * Result1.일차E소요량(0).냉방전력
|
|
' Dim 조명 As Decimal = Sum * Result1.일차E소요량(0).조명전력
|
|
' Dim 급탕 As Decimal = Sum * Result1.일차E소요량(0).급탕전력
|
|
' Dim 환기 As Decimal = Sum * Result1.일차E소요량(0).환기전력
|
|
|
|
' Dim 난방_offsite As Decimal = Sum_offsite * Result1.일차E소요량(0).난방전력 '//아마게산이안도잇으니 여기값들이 0이잇을거에요.
|
|
' Dim 냉방_offsite As Decimal = Sum_offsite * Result1.일차E소요량(0).냉방전력
|
|
' Dim 조명_offsite As Decimal = Sum_offsite * Result1.일차E소요량(0).조명전력
|
|
' Dim 급탕_offsite As Decimal = Sum_offsite * Result1.일차E소요량(0).급탕전력
|
|
' Dim 환기_offsite As Decimal = Sum_offsite * Result1.일차E소요량(0).환기전력
|
|
|
|
|
|
' Dim 난방면적 As Decimal = 0
|
|
' Dim 냉방면적 As Decimal = 0
|
|
' Dim 조명면적 As Decimal = 0
|
|
' Dim 급탕면적 As Decimal = 0
|
|
' Dim 환기면적 As Decimal = 0
|
|
|
|
' Dim 난방면적_offsite As Decimal = 0
|
|
' Dim 냉방면적_offsite As Decimal = 0
|
|
' Dim 조명면적_offsite As Decimal = 0
|
|
' Dim 급탕면적_offsite As Decimal = 0
|
|
' Dim 환기면적_offsite As Decimal = 0
|
|
|
|
' If Result1.사용면적.H <> 0 Then
|
|
' 난방면적 = TOSG(IIf(난방 = 0, 0, 난방 / Result1.사용면적.H))
|
|
' End If
|
|
' If Result1.사용면적.C <> 0 Then
|
|
' 냉방면적 = TOSG(IIf(냉방 = 0, 0, 냉방 / Result1.사용면적.C))
|
|
' End If
|
|
' If Result1.사용면적.L <> 0 Then
|
|
' 조명면적 = TOSG(IIf(조명 = 0, 0, 조명 / Result1.사용면적.L))
|
|
' End If
|
|
' If Result1.사용면적.W <> 0 Then
|
|
' 급탕면적 = TOSG(IIf(급탕 = 0, 0, 급탕 / Result1.사용면적.W))
|
|
' End If
|
|
' If Result1.사용면적.V <> 0 Then
|
|
' 환기면적 = TOSG(IIf(환기 = 0, 0, 환기 / Result1.사용면적.V))
|
|
' End If
|
|
|
|
' If Result1.사용면적.H <> 0 Then
|
|
' 난방면적_offsite = TOSG(IIf(난방_offsite = 0, 0, 난방_offsite / Result1.사용면적.H))
|
|
' End If
|
|
' If Result1.사용면적.C <> 0 Then
|
|
' 냉방면적_offsite = TOSG(IIf(냉방_offsite = 0, 0, 냉방_offsite / Result1.사용면적.C))
|
|
' End If
|
|
' If Result1.사용면적.L <> 0 Then
|
|
' 조명면적_offsite = TOSG(IIf(조명_offsite = 0, 0, 조명_offsite / Result1.사용면적.L))
|
|
' End If
|
|
' If Result1.사용면적.W <> 0 Then
|
|
' 급탕면적_offsite = TOSG(IIf(급탕_offsite = 0, 0, 급탕_offsite / Result1.사용면적.W))
|
|
' End If
|
|
' If Result1.사용면적.V <> 0 Then
|
|
' 환기면적_offsite = TOSG(IIf(환기_offsite = 0, 0, 환기_offsite / Result1.사용면적.V))
|
|
' End If
|
|
|
|
|
|
|
|
' Dim 전기 As Decimal = 난방면적 + 냉방면적 + 조명면적 + 급탕면적 + 환기면적
|
|
' Dim 전기_offsite As Decimal = 난방면적_offsite + 냉방면적_offsite + 조명면적_offsite + 급탕면적_offsite + 환기면적_offsite
|
|
|
|
|
|
' '//열병합신재생에너지추가 130831 arin
|
|
' 신재생에너지 = Math.Round(-1 * (Result1.생산E(0).면적당생산량태양열 + Result1.생산E(0).신재생면적당열생산량 + Result1.생산E(0).면적당생산량지열 + Result1.생산E(0).면적당생산량수열 + 전기 * 2.75), 1)
|
|
' Dim 신재생에너지_offsite As Decimal = Math.Round(-1 * (전기_offsite * 2.75), 1)
|
|
|
|
' 단위면적당신재생1차에너지합 = -1 * 신재생에너지
|
|
' 단위면적당신재생1차에너지합offsite = -1 * 신재생에너지_offsite
|
|
|
|
|
|
' ' 신재생에너지 = -1 * (합_열 + 합_전기 * 2.75) ' ' Result1.생산E(0).태양광전력생산량 * 2.75)
|
|
|
|
' ' Dim Sum As Decimal = (Result1.생산E(0).태양광전력생산량 * 2.75 + Result1.생산E(0).신재생열병합전력생산량 * 2.75) / (Result1.일차E소요량(0).난방전력 + Result1.일차E소요량(0).냉방전력 + Result1.일차E소요량(0).급탕전력 + Result1.일차E소요량(0).조명전력 + Result1.일차E소요량(0).환기전력)
|
|
|
|
|
|
' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
|
|
' Dr2.Gubun = "1차소요량"
|
|
' Dr2.type = "신재생에너지"
|
|
' Dr2.Req = 신재생에너지
|
|
' Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
|
|
|
|
' 난방에너지 = Math.Round(Result1.일차E소요량(0).난방면적, 1)
|
|
' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
|
|
' Dr2.Gubun = "1차소요량"
|
|
' Dr2.type = "난방에너지"
|
|
' Dr2.Req = 난방에너지
|
|
' Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
|
|
|
|
' 냉방에너지 = Math.Round(Result1.일차E소요량(0).냉방면적, 1)
|
|
' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
|
|
' Dr2.Gubun = "1차소요량"
|
|
' Dr2.type = "냉방에너지"
|
|
' Dr2.Req = 냉방에너지
|
|
' Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
|
|
|
|
' 급탕에너지 = Math.Round(Result1.일차E소요량(0).급탕면적, 1)
|
|
' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
|
|
' Dr2.Gubun = "1차소요량"
|
|
' Dr2.type = "급탕에너지"
|
|
' Dr2.Req = 급탕에너지
|
|
' Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
|
|
|
|
' 조명에너지 = Math.Round(Result1.일차E소요량(0).조명면적, 1)
|
|
' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
|
|
' Dr2.Gubun = "1차소요량"
|
|
' Dr2.type = "조명에너지"
|
|
' Dr2.Req = 조명에너지
|
|
' Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
|
|
|
|
' '계산결과!H92*3/계산결과!H27
|
|
' 환기에너지 = Math.Round(Result1.일차E소요량(0).환기면적, 1)
|
|
' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
|
|
' Dr2.Gubun = "1차소요량"
|
|
' Dr2.type = "환기에너지"
|
|
' Dr2.Req = 환기에너지
|
|
' Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
|
|
|
|
' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
|
|
' Dr2.Gubun = "1차소요량"
|
|
' Dr2.type = "합계"
|
|
' Dr2.Req = 난방에너지 + 냉방에너지 + 급탕에너지 + 조명에너지 + 환기에너지
|
|
' Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
|
|
|
|
' 단위면적당1차에너소비량합 = 난방에너지 + 냉방에너지 + 급탕에너지 + 조명에너지 + 환기에너지 + Math.Round(단위면적당신재생1차에너지합, 1)
|
|
|
|
' If 단위면적당1차에너소비량합 <> 0 Then
|
|
|
|
' 에너지자립률 = (Math.Round(단위면적당신재생1차에너지합, 1) / 단위면적당1차에너소비량합) * 100
|
|
|
|
' Dim scale As Decimal = 0
|
|
' If 에너지자립률 >= 20 Then
|
|
' scale = 1.0
|
|
' ElseIf 에너지자립률 >= 15 Then
|
|
' scale = 0.9
|
|
' ElseIf 에너지자립률 >= 10 Then
|
|
' scale = 0.8
|
|
' Else
|
|
' scale = 0.7
|
|
' End If
|
|
|
|
' 에너지자립률offsite = (Math.Round(단위면적당신재생1차에너지합offsite * scale, 1) / 단위면적당1차에너소비량합) * 100
|
|
' 에너지자립률 += 에너지자립률offsite
|
|
|
|
' Else
|
|
' 에너지자립률 = 0
|
|
' 에너지자립률offsite = 0
|
|
' End If
|
|
|
|
' Case 1 '//에너지소요량
|
|
|
|
|
|
|
|
' Dim Sum As Decimal = (Result1.생산E(0).태양광전력생산량 + Result1.생산E(0).풍력전력생산량 + Result1.생산E(0).신재생열병합전력생산량) / (Result1.일차E소요량(0).난방전력 + Result1.일차E소요량(0).냉방전력 + Result1.일차E소요량(0).급탕전력 + Result1.일차E소요량(0).조명전력 + Result1.일차E소요량(0).환기전력)
|
|
|
|
' Dim 난방 As Decimal = Sum * Result1.일차E소요량(0).난방전력 '//아마게산이안도잇으니 여기값들이 0이잇을거에요.
|
|
' Dim 냉방 As Decimal = Sum * Result1.일차E소요량(0).냉방전력
|
|
' Dim 조명 As Decimal = Sum * Result1.일차E소요량(0).조명전력
|
|
' Dim 급탕 As Decimal = Sum * Result1.일차E소요량(0).급탕전력
|
|
' Dim 환기 As Decimal = Sum * Result1.일차E소요량(0).환기전력
|
|
|
|
|
|
|
|
' Dim 난방면적 As Decimal = 0
|
|
' Dim 냉방면적 As Decimal = 0
|
|
' Dim 조명면적 As Decimal = 0
|
|
' Dim 급탕면적 As Decimal = 0
|
|
' Dim 환기면적 As Decimal = 0
|
|
' If Result1.사용면적.H <> 0 Then
|
|
' 난방면적 = TOSG(IIf(난방 = 0, 0, 난방 / Result1.사용면적.H))
|
|
' End If
|
|
' If Result1.사용면적.C <> 0 Then
|
|
' 냉방면적 = TOSG(IIf(냉방 = 0, 0, 냉방 / Result1.사용면적.C))
|
|
' End If
|
|
' If Result1.사용면적.L <> 0 Then
|
|
' 조명면적 = TOSG(IIf(조명 = 0, 0, 조명 / Result1.사용면적.L))
|
|
' End If
|
|
' If Result1.사용면적.W <> 0 Then
|
|
' 급탕면적 = TOSG(IIf(급탕 = 0, 0, 급탕 / Result1.사용면적.W))
|
|
' End If
|
|
' If Result1.사용면적.V <> 0 Then
|
|
' 환기면적 = TOSG(IIf(환기 = 0, 0, 환기 / Result1.사용면적.V))
|
|
' End If
|
|
|
|
' Dim 면적 As Decimal = 난방면적 + 냉방면적 + 조명면적 + 급탕면적 + 환기면적
|
|
|
|
' '=-SUM(계산결과!G108:G109)-계산결과!F42-계산결과!F48-계산결과!F51-계산결과!F56-계산결과!F59
|
|
|
|
' 'F42=IF($G$15=0,0,F38/$G$15)
|
|
' 'f38=(G104)/(SUM(H76:S76)+SUM(H85:S85)+SUM(H93:S93)+SUM(H97:S97)+SUM(H101:S101))*SUM(H76:S76)
|
|
' 'g15=난방면적
|
|
|
|
' 'f48=IF($G$20=0,0,F44/$G$20)
|
|
' 'f44=(G104)/(SUM(H76:S76)+SUM(H85:S85)+SUM(H93:S93)+SUM(H97:S97)+SUM(H101:S101))*SUM(H85:S85)
|
|
' 'g20=냉방면적
|
|
|
|
|
|
|
|
|
|
|
|
' '//열병합신재생에너지추가 130831 arin
|
|
' 신재생에너지 = Math.Round(-1 * (Result1.생산E(0).면적당생산량태양열 + Result1.생산E(0).신재생면적당열생산량 + Result1.생산E(0).면적당생산량지열 + Result1.생산E(0).면적당생산량수열) - 면적, 1)
|
|
' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
|
|
' Dr2.Gubun = "소요량"
|
|
' Dr2.type = "신재생에너지"
|
|
' Dr2.Req = 신재생에너지
|
|
' Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
|
|
|
|
' 난방에너지 = Math.Round(Result1.E소요량(0).난방면적, 1)
|
|
' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
|
|
' Dr2.Gubun = "소요량"
|
|
' Dr2.type = "난방에너지"
|
|
' Dr2.Req = 난방에너지
|
|
' Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
|
|
|
|
|
|
' 냉방에너지 = Math.Round(Result1.E소요량(0).냉방면적, 1)
|
|
' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
|
|
' Dr2.Gubun = "소요량"
|
|
' Dr2.type = "냉방에너지"
|
|
' Dr2.Req = 냉방에너지
|
|
' Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
|
|
|
|
|
|
' 급탕에너지 = Math.Round(Result1.E소요량(0).급탕면적, 1)
|
|
' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
|
|
' Dr2.Gubun = "소요량"
|
|
' Dr2.type = "급탕에너지"
|
|
' Dr2.Req = 급탕에너지
|
|
' Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
|
|
|
|
' 조명에너지 = Math.Round(Result1.E소요량(0).조명면적, 1)
|
|
' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
|
|
' Dr2.Gubun = "소요량"
|
|
' Dr2.type = "조명에너지"
|
|
' Dr2.Req = 조명에너지
|
|
' Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
|
|
|
|
' 환기에너지 = Math.Round(Result1.E소요량(0).환기면적, 1)
|
|
' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
|
|
' Dr2.Gubun = "소요량"
|
|
' Dr2.type = "환기에너지"
|
|
' Dr2.Req = 환기에너지
|
|
' Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
|
|
|
|
' Dr2 = Me.DSR.Graph_ReqUse.NewGraph_ReqUseRow
|
|
' Dr2.Gubun = "소요량"
|
|
' Dr2.type = "합계"
|
|
' Dr2.Req = 난방에너지 + 냉방에너지 + 급탕에너지 + 조명에너지 + 환기에너지
|
|
' Me.DSR.Graph_ReqUse.Rows.Add(Dr2)
|
|
|
|
|
|
' Case 2 '//에너지요구량
|
|
' 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(Result1.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(Result1.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(Result1.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(Result1.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(Result1.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)
|
|
' Case 4 '//1차에너지소요량(+계수) + 131020
|
|
|
|
' End Select
|
|
' Next
|
|
|
|
'End Sub
|
|
|
|
|
|
|
|
|
|
|
|
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
|
|
Dim sd As New SaveFileDialog()
|
|
sd.Filter = "Excel(*.xls)|*.xls"
|
|
sd.FilterIndex = 0
|
|
If sd.ShowDialog = Windows.Forms.DialogResult.OK Then
|
|
Try
|
|
If FpSpread1.SaveExcel(sd.FileName, FarPoint.Excel.ExcelSaveFlags.NoFlagsSet) Then
|
|
MsgBox("저장완료", MsgBoxStyle.Information, "확인")
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message, MsgBoxStyle.Critical, "error")
|
|
End Try
|
|
|
|
End If
|
|
End Sub
|
|
End Class |