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

창호 열관류율 발코니창 추가

Browse Source 
소요량 평가서 날짜 변경
This commit is contained in:
ykh
2025-06-29 00:00:52 +09:00
parent 4819e4ce22
commit 744e55f9e9
5 changed files with 327 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

86
ArinWarev1/FORM-OD/Frm_2_Build.vb
View File

@@ -463,7 +463,15 @@
If dr.GetUpperBound(0) <> -1 Then
e.Row("열관류율") = dr(0).열관류율
e.Row("투과율") = dr(0).일사에너지투과율
'e.Row("투과율") = dr(0).일사에너지투과율
If dr(0).면형태 = "0007" OrElse dr(0).면형태 = "0008" Then
e.Row("투과율") = dr(0).투과율
Else
e.Row("투과율") = dr(0).일사에너지투과율
End If
Select Case dr(0).면형태
Case "외벽(직접)", "0"
e.Row("면형태") = "외벽(직접)"
@@ -499,7 +507,7 @@
ElseIf dr(0).면형태 = "0008" Then
e.Row("면형태") = "창(간접)"
e.Row("건축부위방식") = "내부창"
e.Row("방위") = "(없음)"
'e.Row("방위") = "(없음)"
ElseIf dr(0).면형태 = "0010" Then
e.Row("면형태") = "문(직접)"
e.Row("건축부위방식") = "외부창"
@@ -613,6 +621,79 @@
Dim Dr열관류율 As DS.tbl_ykRow = DSET1.tbl_yk.Select("code='" & Dr입력면.열관류율2.ToString & "'")(0)
Dr입력면("열관류율") = Dr열관류율.열관류율
If Dr열관류율.면형태 = "0007" OrElse Dr열관류율.면형태 = "0008" Then
Dr입력면("투과율") = Dr열관류율.투과율
Else
Dr입력면("투과율") = Dr열관류율.일사에너지투과율
End If
Select Case Dr열관류율.면형태
Case "외벽(직접)", "0"
Dr입력면("면형태") = "외벽(직접)"
Dr입력면("건축부위방식") = "외벽"
Case "지붕(직접)", "0001"
Dr입력면("면형태") = "지붕(직접)"
Dr입력면("건축부위방식") = "외벽"
Dr입력면("방위") = "수평"
Case "바닥(직접)", "0002"
Dr입력면("면형태") = "바닥(직접)"
Dr입력면("건축부위방식") = "외벽"
Dr입력면("방위") = "일사없음"
Case "외벽(간접)", "0003"
Dr입력면("면형태") = "외벽(간접)"
Dr입력면("건축부위방식") = "내벽"
Dr입력면("방위") = "(없음)"
Case "지붕(간접)", "0004"
Dr입력면("면형태") = "지붕(간접)"
Dr입력면("건축부위방식") = "내벽"
Dr입력면("방위") = "일사없음"
Case "바닥(간접)", "0005"
Dr입력면("면형태") = "바닥(간접)"
Dr입력면("건축부위방식") = "내벽"
Dr입력면("방위") = "일사없음"
Case "간벽", "0006"
Dr입력면("면형태") = "간벽"
Dr입력면("건축부위방식") = "간벽"
Dr입력면("방위") = "(없음)"
Case "창(직접)", "창(간접)", "문(직접)", "문(간접)", "세대현관문(직접)", "세대현관문(간접)", "0007", "0008", "0010", "0011", "0012", "0013"
If Dr열관류율.면형태 = "0007" Then
Dr입력면("면형태") = "창(직접)"
Dr입력면("건축부위방식") = "외부창"
ElseIf Dr열관류율.면형태 = "0008" Then
Dr입력면("면형태") = "창(간접)"
Dr입력면("건축부위방식") = "내부창"
'e.Row("방위") = "(없음)"
ElseIf Dr열관류율.면형태 = "0010" Then
Dr입력면("면형태") = "문(직접)"
Dr입력면("건축부위방식") = "외부창"
ElseIf Dr열관류율.면형태 = "0011" Then
Dr입력면("면형태") = "문(간접)"
Dr입력면("건축부위방식") = "내부창"
Dr입력면("방위") = "(없음)"
ElseIf Dr열관류율.면형태 = "0012" Then
Dr입력면("면형태") = "세대현관문(직접)"
Dr입력면("건축부위방식") = "외부창"
ElseIf Dr열관류율.면형태 = "0013" Then
Dr입력면("면형태") = "세대현관문(간접)"
Dr입력면("건축부위방식") = "내부창"
Dr입력면("방위") = "(없음)"
End If
Case "지중벽", "0009"
Dr입력면("면형태") = "지중벽"
Dr입력면("건축부위방식") = "내벽"
Dr입력면("방위") = "(없음)"
Case Else
Dr입력면("면형태") = "--"
MsgBox("모르는값 " & Dr열관류율.면형태 & "/")
End Select
Me.bs.EndEdit()
Select Case Dr입력면.건축부위방식
Case "외벽"
@@ -832,6 +913,7 @@
'//형별성능내역목록 업데이트 170517
Make_형별성능내역_List(fxList.Cols("열관류율2").Index)
Display_info()
End Sub
Private Sub MyTb1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb_층고.TextChanged