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

소요량 평가서 날짜 변경
2025-06-29 00:00:52 +09:00
parent 4819e4ce22
commit 744e55f9e9
5 changed files with 327 additions and 36 deletions
--- a/ArinWarev1/FORM-BASIC/Frm_v20091231_YK.Designer.vb
+++ b/ArinWarev1/FORM-BASIC/Frm_v20091231_YK.Designer.vb
@@ -63,6 +63,13 @@ Partial Class Frm_V20091231_YK
        Me.bsmain = New System.Windows.Forms.BindingSource(Me.components)
        Me.체크바닥난방여부 = New System.Windows.Forms.CheckBox()
        Me.체크열교방지구조 = New System.Windows.Forms.CheckBox()
+        Me.tb_발코니열관류율 = New System.Windows.Forms.TextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.chk_발코니여부 = New System.Windows.Forms.CheckBox()
+        Me.tb_발코니투과율 = New System.Windows.Forms.TextBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.tb_투과율 = New Eco2OD.MyTb()
+        Me.Label5 = New System.Windows.Forms.Label()
        CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.Panel2.SuspendLayout()
@@ -83,7 +90,7 @@ Partial Class Frm_V20091231_YK
        Me.NTb_창호세부설명.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.NTb_창호세부설명.BackColor = System.Drawing.Color.White
        Me.NTb_창호세부설명.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "창호세부설명", True))
-        Me.NTb_창호세부설명.Location = New System.Drawing.Point(282, 519)
+        Me.NTb_창호세부설명.Location = New System.Drawing.Point(282, 518)
        Me.NTb_창호세부설명.Name = "NTb_창호세부설명"
        Me.NTb_창호세부설명.Size = New System.Drawing.Size(226, 25)
        Me.NTb_창호세부설명.TabIndex = 2
@@ -104,7 +111,7 @@ Partial Class Frm_V20091231_YK
        Me.NTb_일사에너지투과율.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.NTb_일사에너지투과율.BackColor = System.Drawing.Color.White
        Me.NTb_일사에너지투과율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "일사에너지투과율", True))
-        Me.NTb_일사에너지투과율.Location = New System.Drawing.Point(306, 483)
+        Me.NTb_일사에너지투과율.Location = New System.Drawing.Point(496, 451)
        Me.NTb_일사에너지투과율.Name = "NTb_일사에너지투과율"
        Me.NTb_일사에너지투과율.Size = New System.Drawing.Size(50, 25)
        Me.NTb_일사에너지투과율.TabIndex = 1
@@ -114,7 +121,7 @@ Partial Class Frm_V20091231_YK
        Me.NTb_창호열관류율.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.NTb_창호열관류율.BackColor = System.Drawing.Color.White
        Me.NTb_창호열관류율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "창호열관류율", True))
-        Me.NTb_창호열관류율.Location = New System.Drawing.Point(282, 453)
+        Me.NTb_창호열관류율.Location = New System.Drawing.Point(282, 451)
        Me.NTb_창호열관류율.Name = "NTb_창호열관류율"
        Me.NTb_창호열관류율.Size = New System.Drawing.Size(74, 25)
        Me.NTb_창호열관류율.TabIndex = 0
@@ -154,11 +161,11 @@ Partial Class Frm_V20091231_YK
        '
        Me.lbl_일사에너지투과율.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.lbl_일사에너지투과율.AutoSize = True
-        Me.lbl_일사에너지투과율.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lbl_일사에너지투과율.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lbl_일사에너지투과율.ForeColor = System.Drawing.Color.Black
-        Me.lbl_일사에너지투과율.Location = New System.Drawing.Point(183, 488)
+        Me.lbl_일사에너지투과율.Location = New System.Drawing.Point(373, 456)
        Me.lbl_일사에너지투과율.Name = "lbl_일사에너지투과율"
-        Me.lbl_일사에너지투과율.Size = New System.Drawing.Size(120, 15)
+        Me.lbl_일사에너지투과율.Size = New System.Drawing.Size(116, 15)
        Me.lbl_일사에너지투과율.TabIndex = 153
        Me.lbl_일사에너지투과율.Text = "일사에너지투과율[-]:"
        '
@@ -167,7 +174,7 @@ Partial Class Frm_V20091231_YK
        Me.lbl_창호열관류율.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.lbl_창호열관류율.AutoSize = True
        Me.lbl_창호열관류율.ForeColor = System.Drawing.Color.Black
-        Me.lbl_창호열관류율.Location = New System.Drawing.Point(183, 456)
+        Me.lbl_창호열관류율.Location = New System.Drawing.Point(183, 455)
        Me.lbl_창호열관류율.Name = "lbl_창호열관류율"
        Me.lbl_창호열관류율.Size = New System.Drawing.Size(94, 17)
        Me.lbl_창호열관류율.TabIndex = 153
@@ -207,7 +214,7 @@ Partial Class Frm_V20091231_YK
        Me.Panel1.Controls.Add(Me.C1StatusBar1)
        Me.Panel1.Location = New System.Drawing.Point(362, 12)
        Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(619, 461)
+        Me.Panel1.Size = New System.Drawing.Size(619, 427)
        Me.Panel1.TabIndex = 154
        '
        'fxData
@@ -220,7 +227,7 @@ Partial Class Frm_V20091231_YK
        Me.fxData.Name = "fxData"
        Me.fxData.Rows.Count = 1
        Me.fxData.Rows.DefaultSize = 24
-        Me.fxData.Size = New System.Drawing.Size(617, 436)
+        Me.fxData.Size = New System.Drawing.Size(617, 402)
        Me.fxData.StyleInfo = resources.GetString("fxData.StyleInfo")
        Me.fxData.TabIndex = 158
        '
@@ -264,7 +271,7 @@ Partial Class Frm_V20091231_YK
        Me.C1StatusBar1.AutoSizeElement = C1.Framework.AutoSizeElement.Width
        Me.C1StatusBar1.LeftPaneItems.Add(Me.RibbonButton1)
        Me.C1StatusBar1.LeftPaneItems.Add(Me.RibbonButton2)
-        Me.C1StatusBar1.Location = New System.Drawing.Point(0, 436)
+        Me.C1StatusBar1.Location = New System.Drawing.Point(0, 402)
        Me.C1StatusBar1.Name = "C1StatusBar1"
        Me.C1StatusBar1.Size = New System.Drawing.Size(617, 23)
        Me.C1StatusBar1.VisualStyle = C1.Win.C1Ribbon.VisualStyle.Office2010Silver
@@ -371,7 +378,7 @@ Partial Class Frm_V20091231_YK
        'Label2
        '
        Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Label2.Location = New System.Drawing.Point(530, 518)
+        Me.Label2.Location = New System.Drawing.Point(530, 519)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(155, 22)
        Me.Label2.TabIndex = 153
@@ -399,7 +406,7 @@ Partial Class Frm_V20091231_YK
        Me.체크바닥난방여부.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.체크바닥난방여부.AutoSize = True
        Me.체크바닥난방여부.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Me.bs, "바닥난방여부", True))
-        Me.체크바닥난방여부.Location = New System.Drawing.Point(748, 485)
+        Me.체크바닥난방여부.Location = New System.Drawing.Point(743, 453)
        Me.체크바닥난방여부.Name = "체크바닥난방여부"
        Me.체크바닥난방여부.Size = New System.Drawing.Size(105, 21)
        Me.체크바닥난방여부.TabIndex = 164
@@ -411,17 +418,101 @@ Partial Class Frm_V20091231_YK
        Me.체크열교방지구조.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.체크열교방지구조.AutoSize = True
        Me.체크열교방지구조.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Me.bs, "열교방지구조", True))
-        Me.체크열교방지구조.Location = New System.Drawing.Point(867, 485)
+        Me.체크열교방지구조.Location = New System.Drawing.Point(871, 453)
        Me.체크열교방지구조.Name = "체크열교방지구조"
        Me.체크열교방지구조.Size = New System.Drawing.Size(105, 21)
        Me.체크열교방지구조.TabIndex = 165
        Me.체크열교방지구조.Text = "열교방지구조"
        Me.체크열교방지구조.UseVisualStyleBackColor = True
        '
+        'tb_발코니열관류율
+        '
+        Me.tb_발코니열관류율.BackColor = System.Drawing.Color.White
+        Me.tb_발코니열관류율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "발코니창호열관류율", True))
+        Me.tb_발코니열관류율.Enabled = False
+        Me.tb_발코니열관류율.Location = New System.Drawing.Point(386, 484)
+        Me.tb_발코니열관류율.Name = "tb_발코니열관류율"
+        Me.tb_발코니열관류율.Size = New System.Drawing.Size(66, 25)
+        Me.tb_발코니열관류율.TabIndex = 168
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Enabled = False
+        Me.Label3.ForeColor = System.Drawing.Color.Black
+        Me.Label3.Location = New System.Drawing.Point(279, 488)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(102, 17)
+        Me.Label3.TabIndex = 169
+        Me.Label3.Text = "발코니열관류율:"
+        '
+        'chk_발코니여부
+        '
+        Me.chk_발코니여부.AutoSize = True
+        Me.chk_발코니여부.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Me.bs, "발코니창호여부", True))
+        Me.chk_발코니여부.Location = New System.Drawing.Point(184, 486)
+        Me.chk_발코니여부.Name = "chk_발코니여부"
+        Me.chk_발코니여부.Size = New System.Drawing.Size(92, 21)
+        Me.chk_발코니여부.TabIndex = 167
+        Me.chk_발코니여부.Text = "발코니여부"
+        Me.chk_발코니여부.UseVisualStyleBackColor = True
+        '
+        'tb_발코니투과율
+        '
+        Me.tb_발코니투과율.BackColor = System.Drawing.Color.White
+        Me.tb_발코니투과율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "발코니투과율", True))
+        Me.tb_발코니투과율.Enabled = False
+        Me.tb_발코니투과율.Location = New System.Drawing.Point(581, 484)
+        Me.tb_발코니투과율.Name = "tb_발코니투과율"
+        Me.tb_발코니투과율.Size = New System.Drawing.Size(62, 25)
+        Me.tb_발코니투과율.TabIndex = 170
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Enabled = False
+        Me.Label4.ForeColor = System.Drawing.Color.Black
+        Me.Label4.Location = New System.Drawing.Point(466, 488)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(102, 17)
+        Me.Label4.TabIndex = 171
+        Me.Label4.Text = "발코니투과율[-]:"
+        '
+        'tb_투과율
+        '
+        Me.tb_투과율.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.tb_투과율.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.tb_투과율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "투과율", True))
+        Me.tb_투과율.Location = New System.Drawing.Point(893, 484)
+        Me.tb_투과율.Name = "tb_투과율"
+        Me.tb_투과율.NectControl = Nothing
+        Me.tb_투과율.Size = New System.Drawing.Size(83, 25)
+        Me.tb_투과율.TabIndex = 172
+        Me.tb_투과율.TabStop = False
+        Me.tb_투과율.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.tb_투과율.TextFormat = Eco2OD.MyTb.ETFormat.Normal
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.ForeColor = System.Drawing.Color.Black
+        Me.Label5.Location = New System.Drawing.Point(824, 488)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(63, 17)
+        Me.Label5.TabIndex = 173
+        Me.Label5.Text = "투과율[-]:"
+        '
        'Frm_V20091231_YK
        '
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
        Me.ClientSize = New System.Drawing.Size(992, 575)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.tb_투과율)
+        Me.Controls.Add(Me.tb_발코니투과율)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.tb_발코니열관류율)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.chk_발코니여부)
        Me.Controls.Add(Me.체크열교방지구조)
        Me.Controls.Add(Me.체크바닥난방여부)
        Me.Controls.Add(Me.tb법적기준)
@@ -503,4 +594,11 @@ Partial Class Frm_V20091231_YK
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents 체크바닥난방여부 As System.Windows.Forms.CheckBox
    Friend WithEvents 체크열교방지구조 As System.Windows.Forms.CheckBox
+    Friend WithEvents tb_발코니열관류율 As System.Windows.Forms.TextBox
+    Friend WithEvents Label3 As System.Windows.Forms.Label
+    Friend WithEvents chk_발코니여부 As System.Windows.Forms.CheckBox
+    Friend WithEvents tb_발코니투과율 As System.Windows.Forms.TextBox
+    Friend WithEvents Label4 As System.Windows.Forms.Label
+    Friend WithEvents tb_투과율 As Eco2OD.MyTb
+    Friend WithEvents Label5 As System.Windows.Forms.Label
 End Class
--- a/ArinWarev1/FORM-BASIC/Frm_v20091231_YK.vb
+++ b/ArinWarev1/FORM-BASIC/Frm_v20091231_YK.vb
@@ -51,6 +51,13 @@
            AddHandler .OwnerDrawCell, AddressOf flexOwnerDrawCell

        End With
+
+        Label3.Enabled = True
+        Label4.Enabled = True
+        Label5.Enabled = True
+        열관류율NTb.ReadOnly = True
+
+
    End Sub

    Private Function Refresh_열전도율목록() As String
@@ -768,8 +775,9 @@
            End If
        Next

+
        Try
-            If cmb_형태.Text.StartsWith("창") OrElse cmb_형태.Text.StartsWith("문") OrElse cmb_형태.Text.StartsWith("세대현관문") Then
+            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
@@ -780,6 +788,27 @@
            '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")
        Me.UserControl11.MaxSize = width
        'MsgBox(width)
@@ -950,7 +979,7 @@
                                Else
                                    tb법적기준.Text = "0.350"
                                End If
-                          
+
                            Case "지중벽"
                                tb법적기준.Text = "0.450"
                            Case "세대현관문(직접)"
@@ -990,7 +1019,7 @@
                                Else
                                    tb법적기준.Text = "0.470"
                                End If
-                            
+
                            Case "지중벽"
                                tb법적기준.Text = "0.560"
                            Case "세대현관문(직접)"
@@ -1311,40 +1340,68 @@

            End If

-            
+
        Else
            '//지역코드가 연결되지 않은경우
            tb법적기준.Text = "--"
        End If

        UpdateColor()
-      
+

    End Sub

    Sub UpdateColor()
        '열관류율NTb,tb법적기준
-        If IsNumeric(tb법적기준.Text) AndAlso IsNumeric(열관류율NTb.Text) Then
-            Dim S1 As Single = TOSG(tb법적기준.Text)
+        NTb_창호열관류율.BackColor = Color.WhiteSmoke
+        열관류율NTb.BackColor = Color.WhiteSmoke

-            Dim S2 As Single = TOSG(열관류율NTb.Text)
-            If S2 > S1 Then
-                열관류율NTb.BackColor = Color.HotPink
-                Label2.Text = "법적기준(부적합)"
-                Label2.ForeColor = Color.Red
-                Label2.Font = New Font("맑은 고딕", 9.75, FontStyle.Bold)
+        If cmb_형태.Text = "창(간접)" Then
+            If IsNumeric(tb법적기준.Text) AndAlso IsNumeric(NTb_창호열관류율.Text) Then
+                Dim S1 As Single = TOSG(tb법적기준.Text)
+
+                Dim S2 As Single = TOSG(NTb_창호열관류율.Text)
+                If S2 > S1 Then
+                    NTb_창호열관류율.BackColor = Color.HotPink
+                    Label2.Text = "법적기준(부적합)"
+                    Label2.ForeColor = Color.Red
+                    Label2.Font = New Font("맑은 고딕", 9.75, FontStyle.Bold)
+                Else
+                    NTb_창호열관류율.BackColor = Color.WhiteSmoke
+                    Label2.Text = "법적기준"
+                    Label2.ForeColor = Color.Black
+                    Label2.Font = New Font("맑은 고딕", 9.75, FontStyle.Regular)
+                End If
+            Else
+                NTb_창호열관류율.BackColor = Color.WhiteSmoke
+                Label2.Text = "법적기준"
+                Label2.ForeColor = Color.Black
+                Label2.Font = New Font("맑은 고딕", 9.75, FontStyle.Regular)
+            End If
+        Else
+            If IsNumeric(tb법적기준.Text) AndAlso IsNumeric(열관류율NTb.Text) Then
+                Dim S1 As Single = TOSG(tb법적기준.Text)
+
+                Dim S2 As Single = TOSG(열관류율NTb.Text)
+                If S2 > S1 Then
+                    열관류율NTb.BackColor = Color.HotPink
+                    Label2.Text = "법적기준(부적합)"
+                    Label2.ForeColor = Color.Red
+                    Label2.Font = New Font("맑은 고딕", 9.75, FontStyle.Bold)
+                Else
+                    열관류율NTb.BackColor = Color.WhiteSmoke
+                    Label2.Text = "법적기준"
+                    Label2.ForeColor = Color.Black
+                    Label2.Font = New Font("맑은 고딕", 9.75, FontStyle.Regular)
+                End If
            Else
                열관류율NTb.BackColor = Color.WhiteSmoke
                Label2.Text = "법적기준"
                Label2.ForeColor = Color.Black
                Label2.Font = New Font("맑은 고딕", 9.75, FontStyle.Regular)
            End If
-        Else
-            열관류율NTb.BackColor = Color.WhiteSmoke
-            Label2.Text = "법적기준"
-            Label2.ForeColor = Color.Black
-            Label2.Font = New Font("맑은 고딕", 9.75, FontStyle.Regular)
        End If
+   
    End Sub
    Private Sub cmb_형태_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_형태.SelectedIndexChanged
        If cmb_형태.Text = "지붕(직접)" OrElse cmb_형태.Text = "바닥(직접)" OrElse cmb_형태.Text = "지붕(간접)" OrElse cmb_형태.Text = "바닥(간접)" Then
@@ -1388,6 +1445,35 @@
            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()
+            Application.DoEvents()
+            Me.chk_발코니여부.Enabled = True
+            Me.tb_투과율.Enabled = True
+            Me.Label5.Enabled = True
+            Me.tb_발코니투과율.Visible = True
+            Me.tb_발코니열관류율.Visible = True
+            Me.Label3.ForeColor = Color.Black
+            Me.Label4.ForeColor = Color.Black
+            Me.Label5.ForeColor = Color.Black
+        Else
+            체크바닥난방여부.ForeColor = Color.LightGray
+            Me.chk_발코니여부.Refresh()
+            Application.DoEvents()
+            Me.chk_발코니여부.Enabled = False
+            Me.Label3.ForeColor = Color.LightGray
+            Me.Label4.ForeColor = Color.LightGray
+            Me.Label5.ForeColor = Color.LightGray
+            Me.tb_투과율.Enabled = False
+            '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
@@ -1554,4 +1640,29 @@
    Private Sub 열관류율NTb_TextChanged(sender As System.Object, e As System.EventArgs) Handles 열관류율NTb.TextChanged
        UpdateColor()
    End Sub
+
+    Private Sub CheckBox1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chk_발코니여부.CheckedChanged
+        refresh_Image()
+
+        Me.tb_발코니열관류율.Enabled = chk_발코니여부.Checked
+        Me.tb_발코니투과율.Enabled = chk_발코니여부.Checked
+        'Me.Label2.Enabled = chk_발코니여부.Checked
+        'Me.Label3.Enabled = chk_발코니여부.Checked
+    End Sub
+
+    Private Sub tb_발코니열관류율_TextChanged(sender As System.Object, e As System.EventArgs) Handles tb_발코니열관류율.TextChanged, tb_발코니투과율.TextChanged
+        refresh_Image()
+    End Sub
+
+    Private Sub chk_발코니여부_EnabledChanged(sender As System.Object, e As System.EventArgs) Handles chk_발코니여부.EnabledChanged
+        refresh_Image()
+        If chk_발코니여부.Enabled = False Then
+            Me.tb_발코니열관류율.Enabled = chk_발코니여부.Enabled
+            Me.tb_발코니투과율.Enabled = chk_발코니여부.Enabled
+            'Me.Label2.Enabled = chk_발코니여부.Enabled
+            'Me.Label3.Enabled = chk_발코니여부.Enabled
+        Else
+            CheckBox1_CheckedChanged(sender, e)
+        End If
+    End Sub
 End Class