KICT/ECO2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
ec0e3013c66fbea3fe50ccccbef39a030c1fa107
ECO2/ArinWarev1/Forms_Report/Frm_Upload.vb
ykh ec0e3013c6 ..
2023-10-27 23:05:50 +09:00

1831 lines
105 KiB
VB.net
Raw Blame History

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
Private Sub Frm_Upload_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
' Me.Hide()
'Application.DoEvents()
LoadFile()
'MakeGraphTable()
MakeData()
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
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
LoadFile()
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
MakeData()
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
End Try
End Sub
Private Sub MakeData()
'//결과데이터에서 자료를 추출하고 그 값을 넣는다
Dim DataColumnIndex As Integer = Me.column
Dim Row As Integer = 1
Dim DsReport As New DSR
'//건물개요 건물개요-공공기관 체크된 경우 '공공기관' 표시 - 160211
Dim drDesc As DS.tbl_DescRow = DSET1.tbl_Desc.Rows(0)
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 '//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
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
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
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 '//냉방
'//기계부문평가항목-냉난방방식-난방
' 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).난방전력 + Result1.일차E소요량(0).냉방전력 + Result1.일차E소요량(0).급탕전력 + Result1.일차E소요량(0).조명전력 + Result1.일차E소요량(0).환기전력)
Dim 난방 As Decimal = Sum * Result1.일차E소요량(0).난방전력 '//아마게산이안도잇으니 여기값들이 0이잇을거에요.
Dim 냉방 As Decimal = Sum * Result1.일차E소요량(0).냉방전력
Dim 조명 As Decimal = Sum * Result1.일차E소요량(0).조명전력
Dim 급탕 As Decimal = Sum * Result1.일차E소요량(0).급탕전력
Dim 환기 As Decimal = Sum * Result1.일차E소요량(0).환기전력
Dim 난방_offsite As Decimal = Sum_offsite * Result1.일차E소요량(0).난방전력 '//아마게산이안도잇으니 여기값들이 0이잇을거에요.
Dim 냉방_offsite As Decimal = Sum_offsite * Result1.일차E소요량(0).냉방전력
Dim 조명_offsite As Decimal = Sum_offsite * Result1.일차E소요량(0).조명전력
Dim 급탕_offsite As Decimal = Sum_offsite * Result1.일차E소요량(0).급탕전력
Dim 환기_offsite As Decimal = Sum_offsite * Result1.일차E소요량(0).환기전력
Dim 난방면적 As Decimal = 0
Dim 냉방면적 As Decimal = 0
Dim 조명면적 As Decimal = 0
Dim 급탕면적 As Decimal = 0
Dim 환기면적 As Decimal = 0
Dim 난방면적_offsite As Decimal = 0
Dim 냉방면적_offsite As Decimal = 0
Dim 조명면적_offsite As Decimal = 0
Dim 급탕면적_offsite As Decimal = 0
Dim 환기면적_offsite As Decimal = 0
If Result1.사용면적.H <> 0 Then
난방면적 = TOSG(IIf(난방 = 0, 0, 난방 / Result1.사용면적.H))
End If
If Result1.사용면적.C <> 0 Then
냉방면적 = TOSG(IIf(냉방 = 0, 0, 냉방 / Result1.사용면적.C))
End If
If Result1.사용면적.L <> 0 Then
조명면적 = TOSG(IIf(조명 = 0, 0, 조명 / Result1.사용면적.L))
End If
If Result1.사용면적.W <> 0 Then
급탕면적 = TOSG(IIf(급탕 = 0, 0, 급탕 / Result1.사용면적.W))
End If
If Result1.사용면적.V <> 0 Then
환기면적 = TOSG(IIf(환기 = 0, 0, 환기 / Result1.사용면적.V))
End If
If Result1.사용면적.H <> 0 Then
난방면적_offsite = TOSG(IIf(난방_offsite = 0, 0, 난방_offsite / Result1.사용면적.H))
End If
If Result1.사용면적.C <> 0 Then
냉방면적_offsite = TOSG(IIf(냉방_offsite = 0, 0, 냉방_offsite / Result1.사용면적.C))
End If
If Result1.사용면적.L <> 0 Then
조명면적_offsite = TOSG(IIf(조명_offsite = 0, 0, 조명_offsite / Result1.사용면적.L))
End If
If Result1.사용면적.W <> 0 Then
급탕면적_offsite = TOSG(IIf(급탕_offsite = 0, 0, 급탕_offsite / Result1.사용면적.W))
End If
If Result1.사용면적.V <> 0 Then
환기면적_offsite = TOSG(IIf(환기_offsite = 0, 0, 환기_offsite / Result1.사용면적.V))
End If
Dim 전기 As Decimal = 난방면적 + 냉방면적 + 조명면적 + 급탕면적 + 환기면적
Dim 전기_offsite As Decimal = 난방면적_offsite + 냉방면적_offsite + 조명면적_offsite + 급탕면적_offsite + 환기면적_offsite
'//열병합신재생에너지추가 130831 arin
Dim _자립_신재생에너지 As Single = -1 * (Result1.생산E(0).면적당생산량태양열 + Result1.생산E(0).신재생면적당열생산량 + Result1.생산E(0).면적당생산량지열 + 전기 * 2.75)
Dim _자립_신재생에너지_offsite As Single = -1 * (전기_offsite * 2.75)
난방에너지 = Math.Round(Result1.일차E소요량(0).난방면적, 1)
냉방에너지 = Math.Round(Result1.일차E소요량(0).냉방면적, 1)
급탕에너지 = Math.Round(Result1.일차E소요량(0).급탕면적, 1)
조명에너지 = Math.Round(Result1.일차E소요량(0).조명면적, 1)
환기에너지 = Math.Round(Result1.일차E소요량(0).환기면적, 1)
단위면적당신재생1차에너지합 = Math.Round(-1 * _자립_신재생에너지, 1)
단위면적당신재생1차에너지합_offsite = Math.Round(-1 * _자립_신재생에너지_offsite, 1)
단위면적당1차에너소비량합 = 난방에너지 + 냉방에너지 + 급탕에너지 + 조명에너지 + 환기에너지 + 단위면적당신재생1차에너지합
If 단위면적당1차에너소비량합 <> 0 Then
'에너지자립률 = (단위면적당신재생1차에너지합 / 단위면적당1차에너소비량합) * 100
에너지자립률 = (Math.Round(단위면적당신재생1차에너지합, 1) / 단위면적당1차에너소비량합) * 100
Dim scale As Decimal = 0
If 에너지자립률 >= 20 Then
scale = 1.0
ElseIf 에너지자립률 >= 15 Then
scale = 0.9
ElseIf 에너지자립률 >= 10 Then
scale = 0.8
Else
scale = 0.7
End If
에너지자립률_offsite = (Math.Round(단위면적당신재생1차에너지합_offsite * scale, 1) / 단위면적당1차에너소비량합) * 100
에너지자립률 += 에너지자립률_offsite
Else
에너지자립률 = 0
에너지자립률_offsite = 0
End If
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 에너지자립률.ToString("N2") : Row += 1
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 단위면적당신재생1차에너지합.ToString("N1") : Row += 1
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 단위면적당1차에너소비량합.ToString("N1") : Row += 1
'//210702
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 에너지자립률_offsite.ToString("N2") : Row += 1
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 단위면적당신재생1차에너지합_offsite.ToString("N1") : Row += 1
'//추가작업 230724
If column < 11 Then Return
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() {"수평", "남", "남동", "동", "북동", "북", "북서", "서", "남서"}
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
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
End Sub
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
Reference in New Issue View Git Blame Copy Permalink