법적기준수정, 문,세대현관문 직간접 추가, 냉방기기 디폴트 적용, 단열재 추가
This commit is contained in:
ykh
@@ -777,20 +777,9 @@
|
||||
|
||||
|
||||
Try
|
||||
If cmb_형태.Text.StartsWith("문") OrElse cmb_형태.Text.StartsWith("세대현관문") Then
|
||||
Me.열관류율NTb.Text = Me.NTb_창호열관류율.Text
|
||||
Else
|
||||
Me.열관류율NTb.Text = CSng(Math.Round(1 / R_value, 3)).ToString
|
||||
End If
|
||||
Check열관류율()
|
||||
Catch ex As Exception
|
||||
Me.열관류율NTb.Text = ""
|
||||
'MsgBox("4. " & ex.Message.ToString)
|
||||
End Try
|
||||
If cmb_형태.Text = "창(직접)" OrElse cmb_형태.Text = "창(간접)" OrElse cmb_형태.Text.StartsWith("문") OrElse cmb_형태.Text.StartsWith("세대현관문") Then
|
||||
'Me.열관류율NTb.Text = Me.NTb_창호열관류율.Text
|
||||
|
||||
Try
|
||||
|
||||
If cmb_형태.Text = "창(직접)" OrElse cmb_형태.Text = "창(간접)" Then
|
||||
If Me.chk_발코니여부.Checked Then
|
||||
Me.tb_투과율.Text = Math.Round(TOSG(tb_발코니투과율.Text) * TOSG(NTb_일사에너지투과율.Text), 3)
|
||||
Me.열관류율NTb.Text = Math.Round((1 / ((1 / TOSG(Me.NTb_창호열관류율.Text)) + (1 / TOSG(Me.tb_발코니열관류율.Text)) * 0.5)), 3)
|
||||
@@ -798,15 +787,37 @@
|
||||
Me.tb_투과율.Text = NTb_일사에너지투과율.Text
|
||||
Me.열관류율NTb.Text = Me.NTb_창호열관류율.Text
|
||||
End If
|
||||
|
||||
Else
|
||||
Me.열관류율NTb.Text = CSng(Math.Round(1 / R_value, 3)).ToString
|
||||
Me.tb_투과율.Text = ""
|
||||
End If
|
||||
Check열관류율()
|
||||
Catch ex As Exception
|
||||
Me.열관류율NTb.Text = ""
|
||||
Me.tb_투과율.Text = ""
|
||||
'MsgBox("4. " & ex.Message.ToString)
|
||||
End Try
|
||||
|
||||
'Try
|
||||
|
||||
' If cmb_형태.Text = "창(직접)" OrElse cmb_형태.Text = "창(간접)" Then
|
||||
' If Me.chk_발코니여부.Checked Then
|
||||
' Me.tb_투과율.Text = Math.Round(TOSG(tb_발코니투과율.Text) * TOSG(NTb_일사에너지투과율.Text), 3)
|
||||
' Me.열관류율NTb.Text = Math.Round((1 / ((1 / TOSG(Me.NTb_창호열관류율.Text)) + (1 / TOSG(Me.tb_발코니열관류율.Text)) * 0.5)), 3)
|
||||
' Else
|
||||
' Me.tb_투과율.Text = NTb_일사에너지투과율.Text
|
||||
' Me.열관류율NTb.Text = Me.NTb_창호열관류율.Text
|
||||
' End If
|
||||
' Else
|
||||
' Me.열관류율NTb.Text = CSng(Math.Round(1 / R_value, 3)).ToString
|
||||
' Me.tb_투과율.Text = ""
|
||||
' End If
|
||||
'Catch ex As Exception
|
||||
' Me.열관류율NTb.Text = ""
|
||||
' Me.tb_투과율.Text = ""
|
||||
'End Try
|
||||
|
||||
|
||||
|
||||
' Me.MyTb1.Text = width.ToString("N2")
|
||||
@@ -1046,36 +1057,36 @@
|
||||
Case "지붕(직접)"
|
||||
tb법적기준.Text = "0.150"
|
||||
Case "바닥(직접)"
|
||||
If 체크바닥난방여부.Checked Then
|
||||
tb법적기준.Text = "0.150"
|
||||
Else
|
||||
tb법적기준.Text = "0.170"
|
||||
End If
|
||||
'If 체크바닥난방여부.Checked Then
|
||||
tb법적기준.Text = "0.150"
|
||||
'Else
|
||||
'tb법적기준.Text = "0.170"
|
||||
'End If
|
||||
Case "창(직접)"
|
||||
tb법적기준.Text = "0.900"
|
||||
Case "창(간접)"
|
||||
tb법적기준.Text = "1.300"
|
||||
tb법적기준.Text = "1.200"
|
||||
Case "문(직접)"
|
||||
tb법적기준.Text = "0.900"
|
||||
Case "문(간접)"
|
||||
tb법적기준.Text = "1.300"
|
||||
tb법적기준.Text = "1.200"
|
||||
Case "외벽(간접)"
|
||||
tb법적기준.Text = "0.210"
|
||||
Case "지붕(간접)"
|
||||
tb법적기준.Text = "0.210"
|
||||
Case "바닥(간접)"
|
||||
If 체크바닥난방여부.Checked Then
|
||||
tb법적기준.Text = "0.210"
|
||||
Else
|
||||
tb법적기준.Text = "0.240"
|
||||
End If
|
||||
'If 체크바닥난방여부.Checked Then
|
||||
tb법적기준.Text = "0.210"
|
||||
'Else
|
||||
' tb법적기준.Text = "0.240"
|
||||
'End If
|
||||
|
||||
Case "지중벽"
|
||||
tb법적기준.Text = "0.210"
|
||||
Case "세대현관문(직접)"
|
||||
tb법적기준.Text = "1.400"
|
||||
Case "세대현관문(간접)"
|
||||
tb법적기준.Text = "1.800"
|
||||
tb법적기준.Text = "1.600"
|
||||
Case Else
|
||||
tb법적기준.Text = "--"
|
||||
End Select
|
||||
@@ -1086,17 +1097,17 @@
|
||||
Case "지붕(직접)"
|
||||
tb법적기준.Text = "0.150"
|
||||
Case "바닥(직접)"
|
||||
If 체크바닥난방여부.Checked Then
|
||||
tb법적기준.Text = "0.170"
|
||||
Else
|
||||
tb법적기준.Text = "0.200"
|
||||
End If
|
||||
'If 체크바닥난방여부.Checked Then
|
||||
tb법적기준.Text = "0.170"
|
||||
'Else
|
||||
' tb법적기준.Text = "0.200"
|
||||
'End If
|
||||
Case "창(직접)"
|
||||
tb법적기준.Text = "1.000"
|
||||
tb법적기준.Text = "0.900"
|
||||
Case "창(간접)"
|
||||
tb법적기준.Text = "1.500"
|
||||
Case "문(직접)"
|
||||
tb법적기준.Text = "1.000"
|
||||
tb법적기준.Text = "0.900"
|
||||
Case "문(간접)"
|
||||
tb법적기준.Text = "1.500"
|
||||
Case "외벽(간접)"
|
||||
@@ -1104,18 +1115,18 @@
|
||||
Case "지붕(간접)"
|
||||
tb법적기준.Text = "0.210"
|
||||
Case "바닥(간접)"
|
||||
If 체크바닥난방여부.Checked Then
|
||||
tb법적기준.Text = "0.240"
|
||||
Else
|
||||
tb법적기준.Text = "0.290"
|
||||
End If
|
||||
'If 체크바닥난방여부.Checked Then
|
||||
tb법적기준.Text = "0.240"
|
||||
'Else
|
||||
' tb법적기준.Text = "0.290"
|
||||
'End If
|
||||
|
||||
Case "지중벽"
|
||||
tb법적기준.Text = "0.240"
|
||||
Case "세대현관문(직접)"
|
||||
tb법적기준.Text = "1.400"
|
||||
Case "세대현관문(간접)"
|
||||
tb법적기준.Text = "1.800"
|
||||
tb법적기준.Text = "1.600"
|
||||
Case Else
|
||||
tb법적기준.Text = "--"
|
||||
End Select
|
||||
@@ -1126,17 +1137,17 @@
|
||||
Case "지붕(직접)"
|
||||
tb법적기준.Text = "0.180"
|
||||
Case "바닥(직접)"
|
||||
If 체크바닥난방여부.Checked Then
|
||||
tb법적기준.Text = "0.220"
|
||||
Else
|
||||
tb법적기준.Text = "0.250"
|
||||
End If
|
||||
'If 체크바닥난방여부.Checked Then
|
||||
tb법적기준.Text = "0.220"
|
||||
'Else
|
||||
' tb법적기준.Text = "0.250"
|
||||
'End If
|
||||
Case "창(직접)"
|
||||
tb법적기준.Text = "1.200"
|
||||
tb법적기준.Text = "1.000"
|
||||
Case "창(간접)"
|
||||
tb법적기준.Text = "1.700"
|
||||
Case "문(직접)"
|
||||
tb법적기준.Text = "1.200"
|
||||
tb법적기준.Text = "1.000"
|
||||
Case "문(간접)"
|
||||
tb법적기준.Text = "1.700"
|
||||
Case "외벽(간접)"
|
||||
@@ -1144,18 +1155,18 @@
|
||||
Case "지붕(간접)"
|
||||
tb법적기준.Text = "0.260"
|
||||
Case "바닥(간접)"
|
||||
If 체크바닥난방여부.Checked Then
|
||||
tb법적기준.Text = "0.310"
|
||||
Else
|
||||
tb법적기준.Text = "0.350"
|
||||
End If
|
||||
'If 체크바닥난방여부.Checked Then
|
||||
tb법적기준.Text = "0.310"
|
||||
'Else
|
||||
' tb법적기준.Text = "0.350"
|
||||
'End If
|
||||
|
||||
Case "지중벽"
|
||||
tb법적기준.Text = "0.310"
|
||||
Case "세대현관문(직접)"
|
||||
tb법적기준.Text = "1.400"
|
||||
Case "세대현관문(간접)"
|
||||
tb법적기준.Text = "1.800"
|
||||
tb법적기준.Text = "1.600"
|
||||
Case Else
|
||||
tb법적기준.Text = "--"
|
||||
End Select
|
||||
@@ -1166,36 +1177,36 @@
|
||||
Case "지붕(직접)"
|
||||
tb법적기준.Text = "0.250"
|
||||
Case "바닥(직접)"
|
||||
If 체크바닥난방여부.Checked Then
|
||||
tb법적기준.Text = "0.290"
|
||||
Else
|
||||
tb법적기준.Text = "0.330"
|
||||
End If
|
||||
'If 체크바닥난방여부.Checked Then
|
||||
tb법적기준.Text = "0.290"
|
||||
'Else
|
||||
' tb법적기준.Text = "0.330"
|
||||
'End If
|
||||
Case "창(직접)"
|
||||
tb법적기준.Text = "1.600"
|
||||
tb법적기준.Text = "1.500"
|
||||
Case "창(간접)"
|
||||
tb법적기준.Text = "2.000"
|
||||
tb법적기준.Text = "1.700"
|
||||
Case "문(직접)"
|
||||
tb법적기준.Text = "1.600"
|
||||
tb법적기준.Text = "1.500"
|
||||
Case "문(간접)"
|
||||
tb법적기준.Text = "2.000"
|
||||
tb법적기준.Text = "1.700"
|
||||
Case "외벽(간접)"
|
||||
tb법적기준.Text = "0.410"
|
||||
Case "지붕(간접)"
|
||||
tb법적기준.Text = "0.350"
|
||||
Case "바닥(간접)"
|
||||
If 체크바닥난방여부.Checked Then
|
||||
tb법적기준.Text = "0.410"
|
||||
Else
|
||||
tb법적기준.Text = "0.470"
|
||||
End If
|
||||
'If 체크바닥난방여부.Checked Then
|
||||
tb법적기준.Text = "0.410"
|
||||
'Else
|
||||
' tb법적기준.Text = "0.470"
|
||||
'End If
|
||||
|
||||
Case "지중벽"
|
||||
tb법적기준.Text = "0.410"
|
||||
Case "세대현관문(직접)"
|
||||
tb법적기준.Text = "1.400"
|
||||
Case "세대현관문(간접)"
|
||||
tb법적기준.Text = "1.800"
|
||||
tb법적기준.Text = "1.600"
|
||||
Case Else
|
||||
tb법적기준.Text = "--"
|
||||
End Select
|
||||
@@ -1418,12 +1429,12 @@
|
||||
|
||||
If cmb_형태.Text.StartsWith("바닥") Then
|
||||
체크바닥난방여부.Enabled = True
|
||||
|
||||
체크바닥난방여부.ForeColor = Color.Black
|
||||
Else
|
||||
체크바닥난방여부.Enabled = False
|
||||
|
||||
체크바닥난방여부.ForeColor = Color.LightGray
|
||||
End If
|
||||
|
||||
체크바닥난방여부.Refresh()
|
||||
'//형태가 바뀌었으므로 그림을 다시 그려준다.
|
||||
Me.refresh_Image()
|
||||
|
||||
@@ -1437,16 +1448,7 @@
|
||||
Me.lbl_창호열관류율.ForeColor = Color.Black
|
||||
Me.lbl_일사에너지투과율.ForeColor = Color.Black
|
||||
Me.lbl_창호세부설명.ForeColor = Color.Black
|
||||
Else
|
||||
Me.NTb_창호열관류율.Visible = False
|
||||
Me.NTb_일사에너지투과율.Visible = False
|
||||
Me.NTb_창호세부설명.Visible = False
|
||||
Me.lbl_창호열관류율.ForeColor = Color.LightGray
|
||||
Me.lbl_일사에너지투과율.ForeColor = Color.LightGray
|
||||
Me.lbl_창호세부설명.ForeColor = Color.LightGray
|
||||
End If
|
||||
|
||||
If cmb_형태.Text.StartsWith("창(직접)") OrElse cmb_형태.Text.StartsWith("창(간접)") Then
|
||||
Me.chk_발코니여부.ForeColor = Color.Black
|
||||
Application.DoEvents()
|
||||
Me.chk_발코니여부.Refresh()
|
||||
@@ -1459,11 +1461,19 @@
|
||||
Me.Label3.ForeColor = Color.Black
|
||||
Me.Label4.ForeColor = Color.Black
|
||||
Me.Label5.ForeColor = Color.Black
|
||||
' 체크바닥난방여부.ForeColor = Color.Black
|
||||
Else
|
||||
체크바닥난방여부.ForeColor = Color.LightGray
|
||||
Me.NTb_창호열관류율.Visible = False
|
||||
Me.NTb_일사에너지투과율.Visible = False
|
||||
Me.NTb_창호세부설명.Visible = False
|
||||
Me.lbl_창호열관류율.ForeColor = Color.LightGray
|
||||
Me.lbl_일사에너지투과율.ForeColor = Color.LightGray
|
||||
Me.lbl_창호세부설명.ForeColor = Color.LightGray
|
||||
Me.chk_발코니여부.Refresh()
|
||||
'체크바닥난방여부.ForeColor = Color.LightGray
|
||||
Application.DoEvents()
|
||||
Me.chk_발코니여부.Enabled = False
|
||||
Me.chk_발코니여부.Refresh()
|
||||
Me.Label3.ForeColor = Color.LightGray
|
||||
Me.Label4.ForeColor = Color.LightGray
|
||||
Me.Label5.ForeColor = Color.LightGray
|
||||
@@ -1471,9 +1481,10 @@
|
||||
'Me.Label5.Enabled = False
|
||||
Me.tb_발코니투과율.Visible = False
|
||||
Me.tb_발코니열관류율.Visible = False
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub NTb_창호열관류율_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NTb_창호열관류율.TextChanged
|
||||
|
||||
Reference in New Issue
Block a user