From 744e55f9e9f3166e75540c59d5ade40654e99ef3 Mon Sep 17 00:00:00 2001 From: ykh Date: Sun, 29 Jun 2025 00:00:52 +0900 Subject: [PATCH] =?UTF-8?q?=EC=B0=BD=ED=98=B8=20=EC=97=B4=EA=B4=80?= =?UTF-8?q?=EB=A5=98=EC=9C=A8=20=EB=B0=9C=EC=BD=94=EB=8B=88=EC=B0=BD=20?= =?UTF-8?q?=EC=B6=94=EA=B0=80=20=EC=86=8C=EC=9A=94=EB=9F=89=20=ED=8F=89?= =?UTF-8?q?=EA=B0=80=EC=84=9C=20=EB=82=A0=EC=A7=9C=20=EB=B3=80=EA=B2=BD?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../FORM-BASIC/Frm_v20091231_YK.Designer.vb | 124 +++++++++++++-- ArinWarev1/FORM-BASIC/Frm_v20091231_YK.vb | 147 +++++++++++++++--- ArinWarev1/FORM-OD/Frm_2_Build.vb | 86 +++++++++- ArinWarev1/REPORT-OD/Result_친환경.rdlc | 4 +- Setup/Setup.vdproj | 2 +- 5 files changed, 327 insertions(+), 36 deletions(-) diff --git a/ArinWarev1/FORM-BASIC/Frm_v20091231_YK.Designer.vb b/ArinWarev1/FORM-BASIC/Frm_v20091231_YK.Designer.vb index 6b70955..01c5ff4 100644 --- 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 diff --git a/ArinWarev1/FORM-BASIC/Frm_v20091231_YK.vb b/ArinWarev1/FORM-BASIC/Frm_v20091231_YK.vb index 6fa7631..f9cb07b 100644 --- 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 diff --git a/ArinWarev1/FORM-OD/Frm_2_Build.vb b/ArinWarev1/FORM-OD/Frm_2_Build.vb index cadf8de..f0984dc 100644 --- a/ArinWarev1/FORM-OD/Frm_2_Build.vb +++ b/ArinWarev1/FORM-OD/Frm_2_Build.vb @@ -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 diff --git a/ArinWarev1/REPORT-OD/Result_친환경.rdlc b/ArinWarev1/REPORT-OD/Result_친환경.rdlc index 810f71d..aee91d1 100644 --- a/ArinWarev1/REPORT-OD/Result_친환경.rdlc +++ b/ArinWarev1/REPORT-OD/Result_친환경.rdlc @@ -886,7 +886,7 @@ - 2017-12-15 + 2025-06-30