KICT/ECO2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
890d88bbfc5afa111ec5038ef9c20e84e1e64a45
ECO2/ArinWarev1/Forms_Report/Frm_Upload.vb
Chikyun 376f7d9de0 initial commit
2019-10-24 21:24:21 +09:00

1800 lines
97 KiB
VB.net
Raw Blame History

Public Class Frm_Upload
Dim fn As String = ""
Public Sub New()
' 이 호출은 디자이너에 필요합니다.
InitializeComponent()
fn = ""
' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오.
End Sub
Public Sub New(_file As String)
' 이 호출은 디자이너에 필요합니다.
InitializeComponent()
fn = _file
' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오.
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 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 = 10
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 = 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발생량
CO2_1 = Math.Round(RData("410", StartCode + 6), 1)
CO2_2 = Math.Round(RData("410", StartCode + 14), 1)
CO2_3 = Math.Round(RData("410", StartCode + 21), 1)
CO2_4 = Math.Round(RData("410", StartCode + 24), 1)
CO2_5 = Math.Round(RData("410", StartCode + 27), 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 에서 가져옴)
항목별평가결과(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
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 존수 As Integer = TOSG(drZOne.입력존의수)
If 존수 < 1 Then Continue For
If Not IsNumeric(drZOne.면적) Then drZOne.면적 = "0"
If CInt(drZOne.면적) = 0 Then
MsgBox("입력존(" + drZOne.설명 + ") 의 면적이 입력되지 않았습니다", MsgBoxStyle.Critical, "확인")
Continue For
End If
기밀성능_면적합 += (존수 * drZOne.면적)
기밀성능_침기율면적합 += (drZOne.침기율 * (존수 * 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 존수 As Integer = 0
If IsNumeric(drzone.입력존의수) Then
존수 = CInt(drzone.입력존의수)
Else
존수 = 1
End If
If IsNumeric(drzone.면적) Then
면적 = drzone.면적 * 존수
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 존수 As Integer = 0
For Each dr존 As DS.tbl_zoneRow In DSET1.tbl_zone.Select(filter)
If Not IsNumeric(dr존.입력존의수) Then dr존.입력존의수 = "1"
존수 += 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 존수 = 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난방.히트난방용량))
최대값 *= 존수
펌프동력합 += 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
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 존수 As Integer = 0
For Each dr존 As DS.tbl_zoneRow In DSET1.tbl_zone.Select(filter)
If Not IsNumeric(dr존.입력존의수) Then dr존.입력존의수 = "1"
존수 += CInt(dr존.입력존의수)
Next
If Not IsNumeric(dr냉방.냉동기용량) Then dr냉방.냉동기용량 = "0"
Dim 개별식형태 As Boolean = dr냉방.개별기기적용
If Not 개별식형태 AndAlso 존수 = 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냉방.냉동기용량) * 존수
냉방용량합 += TOSG(dr냉방.냉동기용량) * 존수
If dr냉방.냉동기방식 = "압축식" Then 냉방용량합_전기 += TOSG(dr냉방.냉동기용량) * 존수
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차에너소비량합 As Decimal = 0
Dim 에너지자립률 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).환기전력)
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 = 난방면적 + 냉방면적 + 조명면적 + 급탕면적 + 환기면적
'//열병합신재생에너지추가 130831 arin
Dim _자립_신재생에너지 As Single = -1 * (Result1.생산E(0).면적당생산량태양열 + Result1.생산E(0).신재생면적당열생산량 + Result1.생산E(0).면적당생산량지열 + 전기 * 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차에너소비량합 = 난방에너지 + 냉방에너지 + 급탕에너지 + 조명에너지 + 환기에너지 + 단위면적당신재생1차에너지합
If 단위면적당1차에너소비량합 <> 0 Then
에너지자립률 = (단위면적당신재생1차에너지합 / 단위면적당1차에너소비량합) * 100
Else
에너지자립률 = 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
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
Private Sub 항목별평가결과(ByRef DSR As Eco2Ar.DSR)
Dim NDr As DSR.Pyonga_YKRow = DSR.Pyonga_YK.NewPyonga_YKRow
'//기준(*)데이터가없는경우에는 1번째데이터를 쓰도록한다.
Dim 외벽벽체찾음 As Boolean = False
Dim 외벽지붕찾음 As Boolean = False
Dim 외벽바닥찾음 As Boolean = False
For Each dr As DS.tbl_ykRow In DSET1.tbl_yk.Select("code <> '0'")
Dim gcode As String = dr.면형태.ToString()
Dim gname As String = Get_CName("1088", gcode)
If gname = "외벽(벽체)" OrElse gname = "내벽(벽체)" Then
If dr.설명.Substring(0, 1) = "*" Then '//기준데이터가져오기
NDr.벽체값 = dr.열관류율
Dim 최대저항값 As Decimal = 0
'//세부데이터글가져온다 이중열저항이 가장큰것을 가져아야한다
For Each ddr As DS.tbl_ykdetailRow In DSET1.tbl_ykdetail.Select("code <> '0' and pcode = '" + dr.code + "'")
If CDec(ddr.열저항) > 최대저항값 Then '//최대저항값의설명을 가져와야한다.
외벽벽체찾음 = True
NDr.벽체종류 = ddr.설명 + Space(1) + ddr.두께 + "mm"
최대저항값 = CDec(ddr.열저항)
End If
Next
End If
ElseIf gname = "외벽(지붕)" OrElse gname = "내벽(지붕)" Then
If dr.설명.Substring(0, 1) = "*" Then '//기준데이터가져오기
NDr.지붕값 = dr.열관류율
Dim 최대저항값 As Decimal = 0
'//세부데이터글가져온다 이중열저항이 가장큰것을 가져아야한다
For Each ddr As DS.tbl_ykdetailRow In DSET1.tbl_ykdetail.Select("code <> '0' and pcode = '" + dr.code + "'")
If CDec(ddr.열저항) > 최대저항값 Then '//최대저항값의설명을 가져와야한다.
외벽지붕찾음 = True
NDr.지붕종류 = ddr.설명 + Space(1) + ddr.두께 + "mm"
최대저항값 = CDec(ddr.열저항)
End If
Next
End If
ElseIf gname = "외벽(바닥)" OrElse gname = "내벽(바닥)" Then
If dr.설명.Substring(0, 1) = "*" Then '//기준데이터가져오기
NDr.바닥값 = dr.열관류율
Dim 최대저항값 As Decimal = 0
'//세부데이터글가져온다 이중열저항이 가장큰것을 가져아야한다
For Each ddr As DS.tbl_ykdetailRow In DSET1.tbl_ykdetail.Select("code <> '0' and pcode = '" + dr.code + "'")
If CDec(ddr.열저항) > 최대저항값 Then '//최대저항값의설명을 가져와야한다.
외벽바닥찾음 = True
NDr.바닥종류 = ddr.설명 + Space(1) + ddr.두께 + "mm"
최대저항값 = CDec(ddr.열저항)
End If
Next
End If
End If
Next
If Not 외벽벽체찾음 Then
For Each dr As DS.tbl_ykRow In DSET1.tbl_yk.Select("code <> '0'")
Dim gcode As String = dr.면형태.ToString()
Dim gname As String = Get_CName("1088", gcode)
If gname = "외벽(벽체)" OrElse gname = "내벽(벽체)" Then
NDr.벽체값 = dr.열관류율
Dim 최대저항값 As Decimal = 0
'//세부데이터글가져온다 이중열저항이 가장큰것을 가져아야한다
For Each ddr As DS.tbl_ykdetailRow In DSET1.tbl_ykdetail.Select("code <> '0' and pcode = '" + dr.code + "'")
If CDec(ddr.열저항) > 최대저항값 Then '//최대저항값의설명을 가져와야한다.
외벽벽체찾음 = True
NDr.벽체종류 = ddr.설명 + Space(1) + ddr.두께 + "mm"
최대저항값 = CDec(ddr.열저항)
End If
Next
If 외벽벽체찾음 Then Exit For
End If
Next
If Not 외벽벽체찾음 Then
NDr.벽체종류 = ""
NDr.벽체값 = 0
End If
End If
If Not 외벽지붕찾음 Then
For Each dr As DS.tbl_ykRow In DSET1.tbl_yk.Select("code <> '0'")
Dim gcode As String = dr.면형태.ToString()
Dim gname As String = Get_CName("1088", gcode)
If gname = "외벽(지붕)" OrElse gname = "내벽(지붕)" Then
NDr.지붕값 = dr.열관류율
Dim 최대저항값 As Decimal = 0
'//세부데이터글가져온다 이중열저항이 가장큰것을 가져아야한다
For Each ddr As DS.tbl_ykdetailRow In DSET1.tbl_ykdetail.Select("code <> '0' and pcode = '" + dr.code + "'")
If CDec(ddr.열저항) > 최대저항값 Then '//최대저항값의설명을 가져와야한다.
외벽지붕찾음 = True
NDr.지붕종류 = ddr.설명 + Space(1) + ddr.두께 + "mm"
최대저항값 = CDec(ddr.열저항)
End If
Next
If 외벽지붕찾음 Then Exit For
End If
Next
If Not 외벽지붕찾음 Then
NDr.지붕종류 = ""
NDr.지붕값 = 0
End If
End If
If Not 외벽바닥찾음 Then
For Each dr As DS.tbl_ykRow In DSET1.tbl_yk.Select("code <> '0'")
Dim gcode As String = dr.면형태.ToString()
Dim gname As String = Get_CName("1088", gcode)
If gname = "외벽(바닥)" OrElse gname = "내벽(바닥)" Then
NDr.바닥값 = dr.열관류율
Dim 최대저항값 As Decimal = 0
'//세부데이터글가져온다 이중열저항이 가장큰것을 가져아야한다
For Each ddr As DS.tbl_ykdetailRow In DSET1.tbl_ykdetail.Select("code <> '0' and pcode = '" + dr.code + "'")
If CDec(ddr.열저항) > 최대저항값 Then '//최대저항값의설명을 가져와야한다.
외벽바닥찾음 = True
NDr.바닥종류 = ddr.설명 + Space(1) + ddr.두께 + "mm"
최대저항값 = CDec(ddr.열저항)
End If
Next
If 외벽바닥찾음 Then Exit For
End If
Next
If Not 외벽바닥찾음 Then
NDr.바닥종류 = ""
NDr.바닥값 = 0
End If
End If
'//지열설비정보확인
Dim Sum_지열히트펌프용량_난방 As Single = 0
Dim Sum_지열히트펌프용량_냉방 As Single = 0
Dim Max_난방 As Single = 0
Dim Max_냉방 As Single = 0
Dim JDROW() As DS.tbl_newRow = DSET1.tbl_new.Select("code <> '0' and 기기종류='지열'", "설명")
If JDROW.GetUpperBound(0) = -1 Then '//지열데이터가없는경우엔 빈값처리
NDr.지열히트펌프용량냉방 = ""
NDr.지열히트펌프용량 = ""
NDr.지열비고 = ""
NDr.지열난방COP = ""
NDr.지열냉방COP = ""
Else '//데이터가있다면 1번째 데이터를 이용한다.
Dim Max_Row_난방 As DS.tbl_newRow = Nothing
Dim MAx_Row_냉방 As DS.tbl_newRow = Nothing
NDr.지열비고 = JDROW(0).지열비고
For Each jdrowrow As DS.tbl_newRow In JDROW
Dim 난방연결수 As Integer = (DSET1.tbl_nanbangkiki.Select("신재생연결여부='시스템연결' and 연결된시스템='" & jdrowrow.code.ToString & "'").GetUpperBound(0) + 1)
Dim 냉방연결수 As Integer = (DSET1.tbl_nangbangkiki.Select("신재생연결여부='시스템연결' and 연결된시스템='" & jdrowrow.code.ToString & "'").GetUpperBound(0) + 1)
Dim 난방값 As String = jdrowrow.열성능비난방
Dim 냉방값 As String = jdrowrow.열성능비냉방
If 난방연결수 > 0 AndAlso 난방값 <> "" AndAlso IsNumeric(난방값) AndAlso 난방값 <> "0" Then
Sum_지열히트펌프용량_난방 += jdrowrow.지열히트펌프용량
If TOSG(jdrowrow.지열히트펌프용량) > Max_난방 Then
Max_난방 = TOSG(jdrowrow.지열히트펌프용량)
Max_Row_난방 = jdrowrow
End If
End If
If 냉방연결수 > 0 AndAlso 냉방값 <> "" AndAlso IsNumeric(냉방값) AndAlso 냉방값 <> "0" Then
Sum_지열히트펌프용량_냉방 += jdrowrow.지열히트펌프용량
If TOSG(jdrowrow.지열히트펌프용량) > Max_냉방 Then
Max_냉방 = TOSG(jdrowrow.지열히트펌프용량)
MAx_Row_냉방 = jdrowrow
End If
End If
Next
NDr.지열히트펌프용량냉방 = Sum_지열히트펌프용량_냉방.ToString()
NDr.지열히트펌프용량 = Sum_지열히트펌프용량_난방.ToString()
'NDr.지열히트펌프용량냉방 = Sum_지열히트펌프용량_냉방.ToString() + "(" + Max_냉방.ToString() + ")"
'If Sum_지열히트펌프용량_난방 > 0 Then
' NDr.지열히트펌프용량 = Sum_지열히트펌프용량_난방.ToString()
' 'NDr.지열히트펌프용량 = "난방: " + Sum_지열히트펌프용량_난방.ToString() + "(" + Max_난방.ToString() + ")"
'Else
' NDr.지열히트펌프용량 = ""
'End If
'If Sum_지열히트펌프용량_냉방 > 0 Then
' NDr.지열히트펌프용량 += " / 냉방: " + NDr.지열히트펌프용량냉방
'End If
If Max_난방 <> 0 Then
NDr.지열난방COP = Max_Row_난방.열성능비난방
Else
NDr.지열난방COP = ""
End If
If Max_냉방 <> 0 Then
NDr.지열냉방COP = MAx_Row_냉방.열성능비냉방
Else
NDr.지열냉방COP = ""
End If
End If
'//######################
'//13-12-08
'//######################
'//태양열시스템
Dim JDROW2() As DS.tbl_newRow = DSET1.tbl_new.Select("code <> '0' and 기기종류='태양열'", "설명")
Dim Max_태양열면적 As Single = -999
Dim Max_집열기유형 As String = ""
Dim Max_집열판방위 As String = ""
Dim Sum_태양열면적 As Single = 0
For Each rowsun As DS.tbl_newRow In JDROW2
Dim 난방연결수 As Integer = (DSET1.tbl_nanbangkiki.Select("신재생연결여부='시스템연결' and 연결된시스템='" & rowsun.code.ToString & "'").GetUpperBound(0) + 1)
Dim 냉방연결수 As Integer = (DSET1.tbl_nangbangkiki.Select("신재생연결여부='시스템연결' and 연결된시스템='" & rowsun.code.ToString & "'").GetUpperBound(0) + 1)
If 난방연결수 > 0 OrElse 냉방연결수 > 0 Then
Dim 태양면적 As String = rowsun.집열판면적
If 태양면적 <> "" AndAlso IsNumeric(태양면적) AndAlso 태양면적 <> "0" Then
Sum_태양열면적 += TOSG(태양면적)
If TOSG(태양면적) > Max_태양열면적 Then
Max_태양열면적 = TOSG(태양면적)
Max_집열기유형 = rowsun.집열기유형
Max_집열판방위 = rowsun.집열판방위
End If
End If
End If
Next
If Sum_태양열면적 > 0 Then
NDr.태양열집열판면적 = Sum_태양열면적.ToString() + "(" + Max_태양열면적.ToString + ")"
NDr.태양열집열기유형 = Max_집열기유형
NDr.태양열집열판방위 = Max_집열판방위
Else
NDr.태양열집열판면적 = ""
NDr.태양열집열기유형 = ""
NDr.태양열집열판방위 = ""
End If
'//태양광시스템
Dim JDROW3() As DS.tbl_newRow = DSET1.tbl_new.Select("code <> '0' and 기기종류='태양광'", "설명")
Dim Max_태양광면적 As Single = -999
Dim Max_태양광종류 As String = ""
Dim Max_태양광방위 As String = ""
Dim Max_태양광기울기 As String = ""
Dim Max_태양광적용타입 As String = ""
Dim Sum_태양광면적 As Single = 0
For Each rowsun As DS.tbl_newRow In JDROW3
Dim 태양면적 As String = rowsun.태양광모듈면적
If 태양면적 <> "" AndAlso IsNumeric(태양면적) AndAlso 태양면적 <> "0" Then
Sum_태양광면적 += TOSG(태양면적)
If TOSG(태양면적) > Max_태양광면적 Then
Max_태양광면적 = TOSG(태양면적)
Max_태양광종류 = rowsun.태양광모듈종류
Max_태양광방위 = rowsun.태양광모듈방위
Max_태양광기울기 = rowsun.태양광모듈기울기
Max_태양광적용타입 = rowsun.태양광모듈적용타입
End If
End If
Next
If Sum_태양광면적 > 0 Then
NDr.태양광모듈면적 = Sum_태양광면적.ToString() '+ "(" + Max_태양광면적.ToString + ")"
NDr.태양광모듈종류 = Max_태양광종류
NDr.태양광모듈방위 = Max_태양광방위
NDr.태양광모듈기울기 = Max_태양광기울기
NDr.태양광모듈적용타입 = Max_태양광적용타입
If NDr.태양광모듈방위 = "(없음)" Then
NDr.태양광모듈방위 = ""
End If
Else
NDr.태양광모듈면적 = ""
NDr.태양광모듈종류 = ""
NDr.태양광모듈방위 = ""
NDr.태양광모듈기울기 = ""
NDr.태양광모듈적용타입 = ""
End If
'//열병합시스템
Dim JDROW4() As DS.tbl_newRow = DSET1.tbl_new.Select("code <> '0' and 기기종류='열병합'", "설명")
Dim Max_열병합능력 As Single = -999
Dim Max_열병합생산효율 As String = ""
Dim Max_열병합발전효율 As String = ""
Dim Max_열병합가동연료 As String = ""
Dim Sum_열병합능력 As Single = 0
For Each rowsun As DS.tbl_newRow In JDROW4
Dim 난방연결수 As Integer = (DSET1.tbl_nanbangkiki.Select("신재생연결여부='시스템연결' and 연결된시스템='" & rowsun.code.ToString & "'").GetUpperBound(0) + 1)
Dim 냉방연결수 As Integer = (DSET1.tbl_nangbangkiki.Select("신재생연결여부='시스템연결' and 연결된시스템='" & rowsun.code.ToString & "'").GetUpperBound(0) + 1)
If 난방연결수 > 0 OrElse 냉방연결수 > 0 Then
Dim 값 As String = rowsun.열생산능력
If 값 <> "" AndAlso IsNumeric(값) AndAlso 값 <> "0" Then
Sum_열병합능력 += TOSG(값)
If TOSG(값) > Max_열병합능력 Then
Max_열병합능력 = TOSG(값)
Max_열병합생산효율 = rowsun.열생산효율.ToString
Max_열병합발전효율 = rowsun.발전효율.ToString
Max_열병합가동연료 = rowsun.가동연료
End If
End If
End If
Next
If Sum_열병합능력 > 0 Then
NDr.열병합열생산능력 = Sum_열병합능력.ToString() + "(" + Max_열병합능력.ToString + ")"
NDr.열병합열생산효율 = Max_열병합생산효율
NDr.열병합발전효율 = Max_열병합발전효율
NDr.열병합가동연료 = Max_열병합가동연료
Else
NDr.열병합열생산능력 = ""
NDr.열병합열생산효율 = ""
NDr.열병합발전효율 = ""
NDr.열병합가동연료 = ""
End If
'//창호종류 및 창호값확인
Dim 창호종류찾음 As Boolean = False
Dim 창호그룹 As New Dictionary(Of String, Double)
For Each drmyoun As DS.tbl_myounRow In DSET1.tbl_myoun.Select("code <> '0'")
If drmyoun.열관류율2 = "" OrElse drmyoun.열관류율2 = "0" Then Continue For
For Each cdr As DS.tbl_ykRow In DSET1.tbl_yk.Select("code= '" + drmyoun.열관류율2 + "'")
Dim 면코드 As String = cdr.면형태
If 면코드 = "" Then Continue For
Dim 면이름 As String = Get_CName("1088", 면코드)
If 면이름 = "" Then Continue For
If 면이름.IndexOf("외부창") <> -1 Then '//이름에 외부창이잇는것을 찾음
If Not 창호그룹.ContainsKey(cdr.code) Then
창호그룹.Add(cdr.code, TOSG(drmyoun.건축부위면적))
Else
창호그룹.Item(cdr.code) = 창호그룹.Item(cdr.code) + TOSG(drmyoun.건축부위면적)
End If
End If
Next
Next
Dim 최대면적 As Double = 0
Dim 최대면적면코드 As String = ""
For Each item As System.Collections.Generic.KeyValuePair(Of String, Double) In 창호그룹
If item.Value > 최대면적 Then
최대면적 = item.Value
최대면적면코드 = item.Key
End If
Next
For Each cdr As DS.tbl_ykRow In DSET1.tbl_yk.Select("code <> '0'")
Dim 면코드 As String = cdr.code
If 면코드 = 최대면적면코드 Then
NDr.창호종류 = cdr.창호세부설명
NDr.창호값 = TOSG(cdr.열관류율)
Exit For
End If
Next
'//조명설비값(모든존 ; sum(면적*조명에너지부하율) / sum(면적)
Dim 존면적합 As Decimal = 0
Dim 존면적부하율 As Decimal = 0
For Each drz As DS.tbl_zoneRow In DSET1.tbl_zone.Select("code <> '0'")
If drz.조명부하산출방법 = "계산치" Then
존면적합 += TOSG(drz.면적)
존면적부하율 += TOSG(drz.면적) * TOSG(drz.조명에너지부하율계산치)
ElseIf drz.조명부하산출방법 = "입력치" Then
존면적합 += TOSG(drz.면적)
존면적부하율 += TOSG(drz.면적) * TOSG(drz.조명에너지부하율입력치)
End If
Next
If 존면적합 <> 0 Then
NDr.주거실조명전력 = Math.Round(존면적부하율 / 존면적합, 2)
End If
'//주조명광원값()
NDr.주조명광원 = DSET1.tbl_Desc.Rows(0)("주조명").ToString
'///#################################################################################
'///#################################################################################
'//설비방식및사용연료
'//난방(입력존에서 가장많이 사용한놈)
Dim fndr As DS.tbl_nanbangkikiRow = Nothing
Dim fndrcnt As Integer = 0
Dim sum_보일러 As Single = 0
Dim sum_히트펌프 As Single = 0
Dim sum_지역난방 As Single = 0
Dim sum_전기보일러 As Single = 0
For Each dr As DS.tbl_nanbangkikiRow In DSET1.tbl_nanbangkiki.Select("code <> '0'")
Dim cnt As Integer = 0
Dim zDR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("code <> '0' and 열생산난방생산기기='" & dr.code & "' or 공조난방생산기기='" & dr.code & "'")
'//131207
If zDR.Length > 0 Then
Select Case dr.열생산기기방식
Case "보일러"
sum_보일러 += TOSG(dr.보일러정격출력)
Case "히트펌프"
sum_히트펌프 += TOSG(dr.히트난방용량)
Case "지역난방"
sum_지역난방 += TOSG(dr.열교환기정격출력)
Case "전기보일러"
sum_전기보일러 += TOSG(dr.보일러정격출력)
End Select
End If
Next
'//합이 가장 큰 그룹을 검색
Dim maxvalue As Single = 0
' Dim maxindex As Integer = 0
maxvalue = Math.Max(sum_보일러, sum_히트펌프)
maxvalue = Math.Max(maxvalue, sum_지역난방)
maxvalue = Math.Max(maxvalue, sum_전기보일러)
Dim searchfilter As String = ""
If maxvalue = 0 Then
searchfilter = ""
' maxindex = 0 '//없음
ElseIf maxvalue = sum_보일러 Then
' maxindex = 1
searchfilter = "열생산기기방식='보일러'"
ElseIf maxvalue = sum_히트펌프 Then
'maxindex = 2
searchfilter = "열생산기기방식='히트펌프'"
ElseIf maxvalue = sum_지역난방 Then
' maxindex = 3
searchfilter = "열생산기기방식='지역난방'"
ElseIf maxvalue = sum_전기보일러 Then
' maxindex = 4
searchfilter = "열생산기기방식='전기보일러'"
End If
'//가장큰 그룹내의 개별 대표값 찾기
If searchfilter <> "" Then
For Each dr As DS.tbl_nanbangkikiRow In DSET1.tbl_nanbangkiki.Select("code <> '0' and " + searchfilter)
Dim cnt As Integer = 0
Dim zDR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("code <> '0' and 열생산난방생산기기='" & dr.code & "' or 공조난방생산기기='" & dr.code & "'")
'///
For Each drow As DS.tbl_zoneRow In zDR
Dim 입력존수문자 As Integer = drow.입력존의수
If IsNumeric(입력존수문자) = False Then 입력존수문자 = "1"
cnt += CInt(입력존수문자)
Next
If cnt > fndrcnt Then '//최대값찾기
fndr = dr
fndrcnt = cnt
End If
If Not fndr Is Nothing Then
'//20160327
If Not IsNumeric(fndr.보일러대수) Then fndr.보일러대수 = "0"
If CInt(fndr.보일러대수) = 0 AndAlso (fndr.운전방식 = "동시가동" OrElse fndr.운전방식 = "순차가동") Then
MsgBox("다음 난방기기의 보일러 대수 가 입력되지 않았습니다" + vbCrLf + vbCrLf + _
"난방기기 : " + fndr.설명 + vbCrLf + _
"운전방식 : " + fndr.운전방식 + vbCrLf + _
"보일러대수 : " + fndr.보일러대수 + vbCrLf + vbCrLf + _
"단독가동이 아닌 경우에는 보일러 대수가 입력되어야 합니다", MsgBoxStyle.Critical, "확인")
End If
NDr.온열원설비방식 = fndr.열생산기기방식
Select Case fndr.열생산기기방식
Case "보일러"
NDr.온열원설비연료 = fndr.사용연료
If fndr.운전방식 = "동시가동" OrElse fndr.운전방식 = "순차가동" Then
NDr.온열원용량 = maxvalue * CInt(fndr.보일러대수) '+ "(" + fndr.보일러정격출력 + ")"
Else
NDr.온열원용량 = maxvalue.ToString() '+ "(" + fndr.보일러정격출력 + ")"
End If
NDr.온열원효율 = fndr.정격보일러효율 + "%"
Case "히트펌프"
NDr.온열원설비연료 = fndr.히트연료
If fndr.운전방식 = "동시가동" OrElse fndr.운전방식 = "순차가동" Then
NDr.온열원용량 = maxvalue * CInt(fndr.보일러대수) '+ "(" + fndr.보일러정격출력 + ")"
Else
NDr.온열원용량 = maxvalue.ToString() '+ "(" + fndr.보일러정격출력 + ")"
End If
NDr.온열원효율 = fndr.히트난방정격7
Case "지역난방"
NDr.온열원설비연료 = "지역난방" 'fndr.사용연료
If fndr.운전방식 = "동시가동" OrElse fndr.운전방식 = "순차가동" Then
NDr.온열원용량 = maxvalue * CInt(fndr.보일러대수) '+ "(" + fndr.보일러정격출력 + ")"
Else
NDr.온열원용량 = maxvalue.ToString() '+ "(" + fndr.보일러정격출력 + ")"
End If
NDr.온열원효율 = fndr.정격보일러효율 + "%"
Case "전기보일러"
NDr.온열원설비연료 = "전기" ' fndr.사용연료
If fndr.운전방식 = "동시가동" OrElse fndr.운전방식 = "순차가동" Then
NDr.온열원용량 = maxvalue * CInt(fndr.보일러대수) '+ "(" + fndr.보일러정격출력 + ")"
Else
NDr.온열원용량 = maxvalue.ToString() '+ "(" + fndr.보일러정격출력 + ")"
End If
NDr.온열원효율 = fndr.정격보일러효율 + "%"
End Select
End If
Next
Else
NDr.온열원설비연료 = ""
NDr.온열원용량 = ""
NDr.온열원효율 = ""
End If
'///#################################################################################
'///#################################################################################
'//급탕(입력존에서 가장많이 사용한놈)
fndr = Nothing
fndrcnt = 0
sum_보일러 = 0
sum_히트펌프 = 0
sum_지역난방 = 0
sum_전기보일러 = 0
For Each dr As DS.tbl_nanbangkikiRow In DSET1.tbl_nanbangkiki.Select("code <> '0'")
Dim cnt As Integer = 0
Dim zDR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("code <> '0' and 열생산급탕생산기기='" & dr.code & "'")
'//131207
If zDR.Length > 0 Then
Select Case dr.열생산기기방식
Case "보일러"
sum_보일러 += TOSG(dr.보일러정격출력)
Case "히트펌프"
sum_히트펌프 += TOSG(dr.히트난방용량)
Case "지역난방"
sum_지역난방 += TOSG(dr.열교환기정격출력)
Case "전기보일러"
sum_전기보일러 += TOSG(dr.보일러정격출력)
End Select
End If
Next
'//합이 가장 큰 그룹을 검색
maxvalue = 0
maxvalue = Math.Max(sum_보일러, sum_히트펌프)
maxvalue = Math.Max(maxvalue, sum_지역난방)
maxvalue = Math.Max(maxvalue, sum_전기보일러)
searchfilter = ""
If maxvalue = 0 Then
searchfilter = ""
ElseIf maxvalue = sum_보일러 Then
searchfilter = "열생산기기방식='보일러'"
ElseIf maxvalue = sum_히트펌프 Then
searchfilter = "열생산기기방식='히트펌프'"
ElseIf maxvalue = sum_지역난방 Then
searchfilter = "열생산기기방식='지역난방'"
ElseIf maxvalue = sum_전기보일러 Then
searchfilter = "열생산기기방식='전기보일러'"
End If
'//가장큰 그룹내의 개별 대표값 찾기
NDr.급탕설비방식 = ""
NDr.급탕설비연료 = ""
NDr.급탕용량 = ""
NDr.급탕효율 = ""
If searchfilter <> "" Then
For Each dr As DS.tbl_nanbangkikiRow In DSET1.tbl_nanbangkiki.Select("code <> '0' and " + searchfilter)
Dim cnt As Integer = 0
Dim zDR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("code <> '0' and 열생산급탕생산기기='" & dr.code + "'")
For Each drow As DS.tbl_zoneRow In zDR
Dim 입력존수문자 As Integer = drow.입력존의수
If IsNumeric(입력존수문자) = False Then 입력존수문자 = "1"
cnt += CInt(입력존수문자)
Next
If cnt > fndrcnt Then '//최대값찾기
fndr = dr
fndrcnt = cnt
End If
If Not fndr Is Nothing Then
NDr.급탕설비방식 = fndr.열생산기기방식
Select Case fndr.열생산기기방식
Case "보일러"
NDr.급탕설비연료 = fndr.사용연료
NDr.급탕용량 = maxvalue.ToString() '+ "(" + fndr.보일러정격출력 + ")"
NDr.급탕효율 = fndr.정격보일러효율 + "%"
Case "히트펌프"
NDr.급탕설비연료 = fndr.히트연료
NDr.급탕용량 = maxvalue.ToString() ' + "(" + fndr.히트난방용량 + ")"
NDr.급탕효율 = fndr.히트난방정격7
Case "지역난방"
NDr.급탕설비연료 = "지역난방" ' fndr.사용연료
NDr.급탕용량 = maxvalue.ToString() '+ "(" + fndr.열교환기정격출력 + ")"
NDr.급탕효율 = fndr.정격보일러효율 + "%"
Case "전기보일러"
NDr.급탕설비연료 = "전기" ' fndr.사용연료
NDr.급탕용량 = maxvalue.ToString() ' + "(" + fndr.보일러정격출력 + ")"
NDr.급탕효율 = fndr.정격보일러효율 + "%"
End Select
End If
Next
End If
'///#################################################################################
'///#################################################################################
'//냉방(입력존에서 가장많이 사용한놈)
Dim fndr2 As DS.tbl_nangbangkikiRow = Nothing
Dim fndr2cnt As Integer = 0
Dim sum_압축식 As Single = 0
Dim sum_압축식_LNG As Single = 0
Dim sum_지역냉방 As Single = 0
Dim sum_흡수식 As Single = 0
For Each dr As DS.tbl_nangbangkikiRow In DSET1.tbl_nangbangkiki.Select("code <> '0'")
Dim cnt2 As Integer = 0
Dim zDR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("열생산냉방생산기기='" & dr.code & "' or 공조냉방생산기기='" & dr.code & "'")
'//131207
If zDR.Length > 0 Then
Select Case dr.냉동기방식
Case "압축식"
sum_압축식 += TOSG(dr.냉동기용량)
Case "압축식(LNG)"
sum_압축식_LNG += TOSG(dr.냉동기용량)
Case "지역냉방"
sum_지역냉방 += TOSG(dr.냉동기용량)
Case "흡수식"
sum_흡수식 += TOSG(dr.냉동기용량)
End Select
End If
Next
'//합이 가장 큰 그룹을 검색
maxvalue = 0
maxvalue = Math.Max(sum_압축식, sum_압축식_LNG)
maxvalue = Math.Max(maxvalue, sum_지역냉방)
maxvalue = Math.Max(maxvalue, sum_흡수식)
searchfilter = ""
If maxvalue = 0 Then
searchfilter = ""
ElseIf maxvalue = sum_압축식 Then
searchfilter = "냉동기방식='압축식'"
ElseIf maxvalue = sum_압축식_LNG Then
searchfilter = "냉동기방식='압축식(LNG)'"
ElseIf maxvalue = sum_지역냉방 Then
searchfilter = "냉동기방식='지역냉방'"
ElseIf maxvalue = sum_흡수식 Then
searchfilter = "냉동기방식='흡수식'"
End If
'//가장큰 그룹내의 개별 대표값 찾기
If searchfilter <> "" Then
For Each dr As DS.tbl_nangbangkikiRow In DSET1.tbl_nangbangkiki.Select("code <> '0' and " + searchfilter)
Dim cnt2 As Integer = 0
Dim zDR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("열생산냉방생산기기='" & dr.code & "' or 공조냉방생산기기='" & dr.code & "'")
For Each drow As DS.tbl_zoneRow In zDR
Dim 입력존수문자 As Integer = drow.입력존의수
If IsNumeric(입력존수문자) = False Then 입력존수문자 = "1"
cnt2 += CInt(입력존수문자)
Next
If cnt2 > fndr2cnt Then '//최대값찾기
fndr2 = dr
fndr2cnt = cnt2
End If
If Not fndr2 Is Nothing Then
NDr.냉열원설비방식 = fndr2.냉동기방식
NDr.냉열원용량 = maxvalue.ToString() + "(" + fndr2.냉동기용량 + ")"
NDr.냉열원효율 = fndr2.열성능비
Select Case fndr2.냉동기방식
Case "압축식"
NDr.냉열원설비연료 = "전기"
Case "압축식(LNG)"
NDr.냉열원설비연료 = "천연가스"
Case "지역냉방"
NDr.냉열원설비연료 = "지역냉방"
Case "흡수식"
If fndr2.열생산연결방식 = "직화식" Then
NDr.냉열원설비연료 = fndr2.사용연료
ElseIf fndr2.열생산연결방식 = "외부연결" Then
Dim 온수열생산기기코드 As String = fndr2.온수열생산기기
If 온수열생산기기코드 <> "" Then
Dim 난방기기() As DS.tbl_nanbangkikiRow = DSET1.tbl_nanbangkiki.Select("code='" + 온수열생산기기코드 + "'")
If 난방기기.GetUpperBound(0) = 0 Then
NDr.냉열원설비연료 = fndr2.사용연료
End If
End If
End If
End Select
End If
Next
Else
NDr.냉열원설비방식 = ""
NDr.냉열원용량 = ""
NDr.냉열원효율 = ""
End If
DSR.Pyonga_YK.Rows.Add(NDr)
DSR.Pyonga_YK.AcceptChanges()
End Sub
Private Sub Frm_Upload_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
' Me.Hide()
LoadFile()
MakeData()
If fn <> "" Then
Try
If FpSpread1.SaveExcel(fn) Then
MsgBox("다음파일이 생성되었습니다" + vbCrLf + fn, MsgBoxStyle.Information, "확인")
Me.Close()
Else
MsgBox("저장실패", MsgBoxStyle.Critical, "확인")
' Me.Show()
End If
Catch ex As Exception
MsgBox("저장실패" + vbCrLf + ex.Message, MsgBoxStyle.Critical, "확인")
Me.Close()
End Try
End If
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