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).면적당생산량지열 + 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