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-07-28 00:26:19 +09:00
parent 1de072b424
commit 27704968e6
10 changed files with 1493 additions and 1348 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
ArinWarev1/FORM-BASIC/Frm_v20091231_YK.Designer.vb generated
View File

@@ -92,7 +92,7 @@ Partial Class Frm_V20091231_YK
Me.NTb_창호세부설명.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "창호세부설명", True))
Me.NTb_창호세부설명.Location = New System.Drawing.Point(282, 518)
Me.NTb_창호세부설명.Name = "NTb_창호세부설명"
Me.NTb_창호세부설명.Size = New System.Drawing.Size(226, 25)
Me.NTb_창호세부설명.Size = New System.Drawing.Size(293, 25)
Me.NTb_창호세부설명.TabIndex = 2
'
'bs
@@ -378,9 +378,9 @@ 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, 519)
Me.Label2.Location = New System.Drawing.Point(581, 519)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(155, 22)
Me.Label2.Size = New System.Drawing.Size(104, 22)
Me.Label2.TabIndex = 153
Me.Label2.Text = "법적기준"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -427,6 +427,7 @@ Partial Class Frm_V20091231_YK
'
'tb_발코니열관류율
'
Me.tb_발코니열관류율.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.tb_발코니열관류율.BackColor = System.Drawing.Color.White
Me.tb_발코니열관류율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "발코니창호열관류율", True))
Me.tb_발코니열관류율.Enabled = False
@@ -437,6 +438,7 @@ Partial Class Frm_V20091231_YK
'
'Label3
'
Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Label3.AutoSize = True
Me.Label3.Enabled = False
Me.Label3.ForeColor = System.Drawing.Color.Black
@@ -448,6 +450,7 @@ Partial Class Frm_V20091231_YK
'
'chk_발코니여부
'
Me.chk_발코니여부.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
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)
@@ -459,6 +462,7 @@ Partial Class Frm_V20091231_YK
'
'tb_발코니투과율
'
Me.tb_발코니투과율.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.tb_발코니투과율.BackColor = System.Drawing.Color.White
Me.tb_발코니투과율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "발코니투과율", True))
Me.tb_발코니투과율.Enabled = False
@@ -469,6 +473,7 @@ Partial Class Frm_V20091231_YK
'
'Label4
'
Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Label4.AutoSize = True
Me.Label4.Enabled = False
Me.Label4.ForeColor = System.Drawing.Color.Black
@@ -494,6 +499,7 @@ Partial Class Frm_V20091231_YK
'
'Label5
'
Me.Label5.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label5.AutoSize = True
Me.Label5.ForeColor = System.Drawing.Color.Black
Me.Label5.Location = New System.Drawing.Point(824, 488)

191
ArinWarev1/FORM-BASIC/Frm_v20091231_YK.resx
View File

@@ -123,6 +123,9 @@
<metadata name="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>81, 17</value>
</metadata>
<metadata name="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>81, 17</value>
</metadata>
<data name="fxData.ColumnInfo" xml:space="preserve">
<value>11,1,0,0,0,120,Columns:1{Name:"pcode";Caption:"pcode";Visible:False;Style:"DataType:System.String;TextAlign:LeftCenter;";} 2{Width:41;Name:"code";Caption:"번호";AllowEditing:False;Style:"DataType:System.String;BackColor:WhiteSmoke;ForeColor:DimGray;TextAlign:CenterCenter;";} 3{Width:54;Name:"설명";Caption:"재료명";Style:"DataType:System.String;TextAlign:CenterCenter;";} 4{Width:111;Name:"열전도율";Caption:"열전도율(W/mK)";Style:"DataType:System.String;TextAlign:CenterCenter;";} 5{Width:71;Name:"두께";Caption:"두께(mm)";Style:"DataType:System.String;TextAlign:CenterCenter;";} 6{Name:"구분";Caption:"구분";Visible:False;Style:"DataType:System.String;TextAlign:CenterCenter;";} 7{Width:100;Name:"열저항";Caption:"열저항(㎡K/W)";AllowEditing:False;Style:"DataType:System.String;BackColor:WhiteSmoke;ForeColor:DimGray;TextAlign:RightCenter;";} 8{Width:54;Name:"전경색";Caption:"전경색";Visible:False;Style:"DataType:System.String;TextAlign:LeftCenter;";} 9{Width:54;Name:"후경색";Caption:"후경색";Visible:False;Style:"DataType:System.String;TextAlign:LeftCenter;";} 10{Width:54;Name:"커스텀";Caption:"커스텀";Visible:False;Style:"DataType:System.String;TextAlign:LeftCenter;";} </value>
</data>
@@ -139,25 +142,25 @@
<data name="RibbonButton1.SmallImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAAX1JREFUOE9jGBygYNZT2/r6/0xQLukgrOzE//hJrzVCV/1nhgqRBjKmPP0f1HDz
dULnU1t0Q26s01j6/rTjlL+vKnbcXiX/+++zvN1fr3i23FqnUQdVwsCQ2Pv0f+fWv//dSi//T+x9ZI9s
yK+b/lV3thj++/+x5//jQxH//3+c8P/2Jr1/ny95tEKVMDBEdT/+X7vm7//U2X//2+SeRTEEZPP/z9P+
//99/P/np2uB9OH/ID5IHKwZBIJbHv3PWwh0QdO3/zIx1/4bRy7771BwOh4kd3OZ/O+H+4P/f3mx/v/f
/x/+f3u95T+I/2Sb3i+wZhDwqnnw36f9+3/p6Gv/FV16/st4rwyESkFc8HHy//8/9oMNAbkExEdxgUPZ
vf962XfBmqW9V3hBhcHg162AitubDf79fVn7/9mx2P//P0zGDAOLvDtgzRJ+K7WgQnBwc73GNHAsPM3Y
83y/2U+QzSDNKLFgkHV7k5TXEgMol3SgmXJVG8oceYCBAQAUuvHyLVq4HwAAAABJRU5ErkJggg==
wwAADsMBx2+oZAAAAXlJREFUOE9jYBgUoGDWU9v6+v9M6OJEg7CyE//jJ73WCF31nxldjiiQMeXp/6CG
m68TOp/aohtyY53G0venHaf8fVWx4/Yq+d9/n+Xt/nrFs+XWOo06uKLE3qf/O7f+/e9Wevl/Yu8je2RD
ft30r7qzxfDf/489/x8fivj//+OE/7c36f37fMmjFW5AVPfj/7Vr/v5Pnf33v03uWRRDQDb//zzt///f
x/9/frr2///fh/+D+CBxuAHBLY/+5y38+9+t6dt/mZhr/40jl/13KDgdD5K7uUz+98P9wf+/vFj//+//
D/+/vd7yH8R/sk3vF9wAr5oH/33av/+Xjr72X9Gl57+M98pAmBzYBR8n////Yz/YEJBLQHwUFziU3fuv
l30XrFnae4UXXAIUBrcCKm5vNvj392Xt/2fHYv///zAZMwws8u6ANUv4rdRC1gwCN9drTAPHwtOMPc/3
m/0E2QzSjBILBlm3N0l5LTFA0UkK0Ey5qo0uNoIAABS68fIfwHRXAAAAAElFTkSuQmCC
</value>
</data>
<data name="RibbonButton2.SmallImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAAVFJREFUOE/dkrFOwzAURd8fNCMDwhkrBpoVCSkZK1TV3uiCmo2oA8nWwELGbs1G
N/oHZGTsH5A/qP+g3iu42CZNsQpiRRzJSvLeu/ddKaa/Qfq4jprXlrecV9vpUOKeB03pZ0ReYzzfOIPG
ALmAPVPuLHjPeYbpcNV8EmULicGDVOO5m8QO7k1iU7OpbgcKN19M41KifAEim8Q1wR0XO5NtqsXJhcI4
9Jv2J/FMoqiAeKFNsm9MUh4hifSAPlc9p2cR2iBbanGh4Mc1gtESYfpqI2PCA1zrrSLQAz7sM2SeFe4Q
hYSYafGoht8vwfizMHUTtRWGrMB5R6guQY0iWOGOKJcIEumIDegfKwQeoEUIO3YrGBWrI23CqLRDhihr
xe2vBGeeEaquh1q4G+UJrSqP9rWzRFbs8ungwqBHQvo6wSkd9DaM2qTUm6x/v23/FaIP9rjNHyjFDZoA
AAAASUVORK5CYII=
wwAADsMBx2+oZAAAAUdJREFUOE/lkjFOwzAUht8NmpEBYY8VA82KVCkeK1TV3siCko2oA8nWwELGbs1G
N3oDMjLmBuQG9Q3qvYIf1RJJ3XAAJJ5kWfr9/u/9sk30Jyp92YpT7TOX1X4x03iS/ulZr1TeIFrtnMYD
ALmCXQvpDPjKZYbFrG6FbK0xfdYmWrlJbGMHiQ+aTfUwNbg/gsalRvkOCJvEheBRqh/IPp1pJGODKODH
PRQvNYoKiNeAyH6BpFIgEUAsgNtR775ILTWyDSAKAx438MMNgvTDRsZc+rgbGygfEBx2D5jnAgoNtTTg
YQM+KcHkm7LmKOCtMWAFrgfKDAkmFHAAItfwE+2YLWBybuB7wJCAYGCnglFRnxEMo7IDZK25fUpI5h2M
ZuihUe5EfUF15VGnXSW6YjevvQ+DESnNPeCSemc7Rm1SGs23vYZ/VN/2uM0frsGBhAAAAABJRU5ErkJg
gg==
</value>
</data>
<data name="fxList.ColumnInfo" xml:space="preserve">
@@ -169,111 +172,111 @@
<data name="btAdd1.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAABK5JREFUWEftlWtMm3UUxvGSqPGDn/ygTj8JMrwkismc02QqKoZkZmFRtyjZB6Nf
NoObS0RY5lyIYZNxG1BKoQzK2ByXAi0t126rgylCV7eUYgEZjIu90LeX99q+HM9pUzp0LtGxxBhO8uQF
0vM+v//Tc/4krNd6rdf/oqYNyY8sDGdu8nnKX/a7+1IYRpfKWrdvm2rf+K7X2/V85G+u6lT3z+kvWc5s
eAxb7op2rlEtDH+4adKQnOMcfa+eZSoKfN6ubO6XzOYp7cZmt1P7WXBJ/aXXkl4/oUvMs3ekvoIt96LW
DsLv0WxxjmTVXVUkjfOO9EWeP2sRpj9YcJx+Zo71dfaz42l2a+lTE/OmzY2jg9lp2HI/6u5I81oURcwy
mqPC/J5FR21iSJKKZZHZL3sHX5AlSSHbqxJDnO1V14wjr6Sj9ehmbHkAtXYADKN/0efV7xfF3glJ0vLL
y1aQJSOEXd/B8vIIhEINst/fOvKrXX2wv//Y69iytgl4Lu3IcA/tOPWb4blZ3pEpyLIWjadRsyDLzSDY
M+Qp7bPXbW1Pay/WJe/ElngCjR0/gKbdDBqtGerbzsPJ1vNQ12KC2uYBqDnbD6rv+0B5pheUp7tB0WQE
RaMRKhsNUK7pghP1eig72QlDP+rBN6eG0PzHEBYK8PQ6NLdEAYQmoK+Dn9625LK+b7xszMhC2wdR90QA
mnSDIEgy8FIYeDEMXEQhYPEZFEIRBfgwBLgQ+NkQ+EhBCRhWAi8+vQEJ+wMY83U87QUIh5RobAVhLg9k
rgl/HgZJLJK93lNDdpvykMFwhIYwDkAJkLmAhvSMAAhhYNGYReMgjwBkjvKhKQEwQVIUYAkBggIHonAV
pJkscNSnIEgbOE0pEPYdAlHUBG3KpDB3bffC9GRB0V+GsEF7AY2jCRw43v2v9E3dT2AbLgK75i0QF/Mw
hVGY6dwK4tzn4HF3DARsb09ZSpMmJ0zbVWZzzptoGx9Cdcs5jDAaP72sziTGNSBC7YAANf0CqPp4qEYp
e3hQ9HBQYWSh3MDCia4gmEfHwDZSBfNjhXDp8jkIstfAafkCZvB3q0WdO3ZF8dW4aVfxUPWT+Qb1G1tX
AdTgkMWi/zOA2iREAdCYAJS9PFShuaKbALgVAFXXLOjNVmi/OAM5hVpYWPKB7Uo3FHy7B9Tq3HSd9vBr
g4O5ae3V72wp2/doEtretwJQ1dSzMnw3ApC5Gs1r8fQEQKev7uUiAJVoXkHmqDIEKNUHoEQXgOLOAHx6
sAFcjABOrwg7934NaPEE6iEUnZpE5vGrmFaKwxm4WQJ0egJQ9QloLmD8CICnr8T4IwBoXqZHAF1wFYCT
ERFAiAE8jqKppxOTyDj+f4B2mcxZnHwCoBfcrsj893gCG1A09TevEnXHCgApsvu0eija+9ju09oxuHK0
97R6S34JPCi3XwS3T8TY8dQRYfyrE7g1QJFKiwC485FLh/YeL50bdt/P0aUT3f3YxUMAHjSOAbh8Aipm
Tt//P0igsLoVjte0wIF8BXyScwx278uHj7KPwK69hyMvuF2hxa0BsGgqH0bRB++E6N3k8bdFk0kfIMo7
ofjOr9d6/fcqIeEPQ/fR8XoQSMYAAAAASUVORK5CYII=
wwAADsMBx2+oZAAABLBJREFUWEftlVlsVGUYhn+XRI0XXnmholdSAZdEMUFEE1TUGhIMgagQJVwYvQGD
IImVEkTSmIKlpWWZzrSdUqaUpZRpO1vbaQeotGhthwqZTu1iaenizLSzneU/27zmPzNtbXGJLIkx/ZI3
k5ycfO/zf+d7/yFkruZqrv4PNeBc8Mho25ol0fFDL8dC7kWRiG0x37l6VX/1wnfDYcfz+rOgaXHop/SX
vCfnPUYIuWt2j1uq0bYPl/Q5F2QEOt4r4yOHs6Nhxxbh5zWV/daFlaGA9TNuwvxl2Jte1mubn+mvWfwK
IeTe2woRG7csC7RvKL1qSOsWe9LHRPG0lw58MNpz4plhPlrbyHev8HfmP9U74lla3tGyZQUh5H5CyN2z
+9x0sRHzEcteOrJprKdkviLLeZoU2aaFW17QZNmg+QvnK4Lv1eBgT+aBmqq9SwkhD9xWgEjE/mI0bN8m
SQ29smwVE4lOaLILavA7JBLtUJRjWixW1f6L37yzsXHf67d9AuOX1q4Mta49/qvzuSGxZw3VNCsSiQEk
EkPQtEpQ/0qt3/rsdd/Zp60XSxesmzGB8prvYaluhsXajLKz53G06jxKz3hQUtmE4tONKDrlhvFkA4wn
6mCocMFQ7sKRcicOWRw4WGZHwdFatP5gR3TYDGXkY6g0G5psQyLhTQLQCrDPIQ6smgh2vu+67Fq5gRDy
ICHkHh2gwtYCKmsQZRWipELQpYCXVHBU0RUXVcQFBTFeQZSJkxHhZYQ5GeG4DCrHoSjXoWkXoCpGsE9A
hzOhCRVIJNogS7laOHy81e8z7nI697AlnAZgE2DmVFL1Xx2AquCpAl5UwYlK0lxg5rIOEOGYkgATcRkc
FSDRq5AHN6CnbBE07SwCnkVQo7sgSRbOZ0xThWsbRwf6snNvWMJj1gsQUxPYvr/upvRN6Y/wteXCb3kL
0lgmVKUDg7XLIQ1/jvFQTVPc93a/Nz+tr9ezuqi5OePNGUtoPnMONDV+1qzUI02rSUJJE0VxI0WRW4TJ
LcJYL8JQL+Cwi8chJ4+DDg7NHV3wtRdipCsHly6fA8dfQ8D7BQa7ctDpNe/oumL4qtuzPq/V9GSW0/zG
8hkAxafcU6OfDWD20CSAW9QBjA0iCusFGOoYgDAFUOQYgr25E9UXB5GRY8XoRBS+K3XI/nYTzOYd6Tbr
7tdaWnasqDa9s6xg66NphJD7pgAKK+qnlu+PAMzc3ERR0pgEYKc3NQg6wBGXgMPM3MmjwMEh3x7HAVsc
ebVxfLrzGIIRikBYwrrNX4MQ8gQh5KHUqZmY+fRVzCIlyNoNAEzs9AygyE1haqAw1gsorGMAfBLAwaHA
ziHfxs0ACEQkBMJ0EuDx1NazEzMx4+n/AZZlZs7TJABrcKti5r9NT2Beauv/vA6Ya6YAmPTss+iJydxP
Zp/FLhJP5p5FbyImYzwmIxSTEIpKCLJT66KzJ/D3ALlF1uTFo186LPeqbj6Z/ZjALp1k9icvHgYwHpOm
AIJRimB00px9/38xgRxTFfYXn8H2LAM+ydiHjVuz8NGWPVi/ebfe4Fb1jwCprXw49eKdEOvNPP6y2Gay
FxjlndB05udqrv6L9TtD99HxndTgSwAAAABJRU5ErkJggg==
</value>
</data>
<data name="btAdd1.SmallImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAAX1JREFUOE9jGBygYNZT2/r6/0xQLukgrOzE//hJrzVCV/1nhgqRBjKmPP0f1HDz
dULnU1t0Q26s01j6/rTjlL+vKnbcXiX/+++zvN1fr3i23FqnUQdVwsCQ2Pv0f+fWv//dSi//T+x9ZI9s
yK+b/lV3thj++/+x5//jQxH//3+c8P/2Jr1/ny95tEKVMDBEdT/+X7vm7//U2X//2+SeRTEEZPP/z9P+
//99/P/np2uB9OH/ID5IHKwZBIJbHv3PWwh0QdO3/zIx1/4bRy7771BwOh4kd3OZ/O+H+4P/f3mx/v/f
/x/+f3u95T+I/2Sb3i+wZhDwqnnw36f9+3/p6Gv/FV16/st4rwyESkFc8HHy//8/9oMNAbkExEdxgUPZ
vf962XfBmqW9V3hBhcHg162AitubDf79fVn7/9mx2P//P0zGDAOLvDtgzRJ+K7WgQnBwc73GNHAsPM3Y
83y/2U+QzSDNKLFgkHV7k5TXEgMol3SgmXJVG8oceYCBAQAUuvHyLVq4HwAAAABJRU5ErkJggg==
wwAADsMBx2+oZAAAAXlJREFUOE9jYBgUoGDWU9v6+v9M6OJEg7CyE//jJ73WCF31nxldjiiQMeXp/6CG
m68TOp/aohtyY53G0venHaf8fVWx4/Yq+d9/n+Xt/nrFs+XWOo06uKLE3qf/O7f+/e9Wevl/Yu8je2RD
ft30r7qzxfDf/489/x8fivj//+OE/7c36f37fMmjFW5AVPfj/7Vr/v5Pnf33v03uWRRDQDb//zzt///f
x/9/frr2///fh/+D+CBxuAHBLY/+5y38+9+t6dt/mZhr/40jl/13KDgdD5K7uUz+98P9wf+/vFj//+//
D/+/vd7yH8R/sk3vF9wAr5oH/33av/+Xjr72X9Gl57+M98pAmBzYBR8n////Yz/YEJBLQHwUFziU3fuv
l30XrFnae4UXXAIUBrcCKm5vNvj392Xt/2fHYv///zAZMwws8u6ANUv4rdRC1gwCN9drTAPHwtOMPc/3
m/0E2QzSjBILBlm3N0l5LTFA0UkK0Ey5qo0uNoIAABS68fIfwHRXAAAAAElFTkSuQmCC
</value>
</data>
<data name="btDel1.SmallImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAAVFJREFUOE/dkrFOwzAURd8fNCMDwhkrBpoVCSkZK1TV3uiCmo2oA8nWwELGbs1G
N/oHZGTsH5A/qP+g3iu42CZNsQpiRRzJSvLeu/ddKaa/Qfq4jprXlrecV9vpUOKeB03pZ0ReYzzfOIPG
ALmAPVPuLHjPeYbpcNV8EmULicGDVOO5m8QO7k1iU7OpbgcKN19M41KifAEim8Q1wR0XO5NtqsXJhcI4
9Jv2J/FMoqiAeKFNsm9MUh4hifSAPlc9p2cR2iBbanGh4Mc1gtESYfpqI2PCA1zrrSLQAz7sM2SeFe4Q
hYSYafGoht8vwfizMHUTtRWGrMB5R6guQY0iWOGOKJcIEumIDegfKwQeoEUIO3YrGBWrI23CqLRDhihr
xe2vBGeeEaquh1q4G+UJrSqP9rWzRFbs8ungwqBHQvo6wSkd9DaM2qTUm6x/v23/FaIP9rjNHyjFDZoA
AAAASUVORK5CYII=
wwAADsMBx2+oZAAAAUdJREFUOE/lkjFOwzAUht8NmpEBYY8VA82KVCkeK1TV3siCko2oA8nWwELGbs1G
N3oDMjLmBuQG9Q3qvYIf1RJJ3XAAJJ5kWfr9/u/9sk30Jyp92YpT7TOX1X4x03iS/ulZr1TeIFrtnMYD
ALmCXQvpDPjKZYbFrG6FbK0xfdYmWrlJbGMHiQ+aTfUwNbg/gsalRvkOCJvEheBRqh/IPp1pJGODKODH
PRQvNYoKiNeAyH6BpFIgEUAsgNtR775ILTWyDSAKAx438MMNgvTDRsZc+rgbGygfEBx2D5jnAgoNtTTg
YQM+KcHkm7LmKOCtMWAFrgfKDAkmFHAAItfwE+2YLWBybuB7wJCAYGCnglFRnxEMo7IDZK25fUpI5h2M
ZuihUe5EfUF15VGnXSW6YjevvQ+DESnNPeCSemc7Rm1SGs23vYZ/VN/2uM0frsGBhAAAAABJRU5ErkJg
gg==
</value>
</data>
<data name="RibbonButton6.SmallImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAAgNJREFUOE+lkutLk2EYxvePhJaHShFBUTEPiCieQOmDiEZgrEbpYGiCQxkqA80I
RUkUEZ0YRMS+DDI70MkTmzJnDc8iU8QT2mAEItnle90wHwTDyBduXnie5/rd133Q4ZKfAJqHFs9E08A8
zD1emDpmYXjqRlnTFIrMk8iuGkNaxWekGEaQrHecBfw+/vPXODw6hj9whN2fh/Bt/8LSRgA3cxr/DeBZ
9kvmTNMoHGNbIrYN+3Aj23IxgJkpds0doP3VstgmsNexhutZ9QrAms8T0zYzU5xXM46kcjsmvfvoeL2i
AeoUgA07T8yaaZuZKab1rzN74jgys1YB2O2gmBZzH49LODXrrJlnzEzxe9cOLH1ziMioVgCOiuIFX0CE
Q+/WYf+yieiCFrRp9tkwxnP7Kt5MbKGm6wfC000KwDlTXNLgEvHMkh+Db32o7fYivtQm1l9+3IBOp5P7
yjYPwlKNCsAluWudxgvtknb5t9oWcL/VLU2Mvd2JFq3uqs7vAtE/ceNayiMF4KiYMSjmY2O7B4Ua+NaD
YQGEJumRbvyG1IcfBHI12aAAXM8R57aIWTNrLLY4tfNPiCvpR1SeVeu6WWzHFD6THSDwFMDdpmUG62NJ
PKM4Or9ZxBxb8H8l7g5CEu8pAOfM3WanSeeS8CFHxW4zM2umbWamOCShXAH+/wNOANABIDUxWnDPAAAA
AElFTkSuQmCC
wwAADsMBx2+oZAAAAgVJREFUOE+lku1LU2EYxs8/EmaaVhKCoeIrMZTUQPGDiIpgrIbZYGiCoxglA60I
RVEUEZ1MEIl9GeRLhVppY1PmyrHUFTFFfEMdjEAku+S6wR4Fo8AH7nPgnOf63df9ouGcR+Ojyb50Khr7
v8Lc7Yep7TMML7wob5xFkdmF3NppZNVMIsMwhjS98zTg1+Hvv8b+wSHCkQNs7e0jtPETy6sRXL319P8A
vmBYMutMH+GcXhexbSSEK7mWfwOYmWJPYBetw0GxTWCP8wficx4rAGs+S0zbzExxfv0MUqsccPl30Pbq
G+JzHikAG3aWmDXTNjNTTOvv57fFcZyuQQHY7ZM15z2ckXAHdqVmfmNmit94NmHpDeDyzToF4KgoXgxF
RGgfX4Fjag0Jt5vRMhyUhjE6HN/x+tM66jsXEJttUgDOmeLSJx4Rzy+HMTAaQkOXHzfKbGJ96N0qNE2T
/w9afIjJNCoAl6TSOofB8RWxy7fVtoi7z73SxMTidjTbl1Db/kUg+mdeXMq4rwAcFTMei3nZ2OpDodmF
9HsjAriYqke28QMyq98KJDrNoABczzH3hohZM2sssbiRVTOBpNI+XMu3Ik5nFtvXC1/KDhD4B8DdpmUG
62NJ/EZxQkGTiDm24/eFpApEpdxRAM6Zu81Ok84l4UWOit1mZtZM28xMcVRylQKc5xwB0AEgNdcTWfMA
AAAASUVORK5CYII=
</value>
</data>
<data name="btOK.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAABC1JREFUWEftlOtPm2UYh/kP/AP2wfjZLyZT52kzHmOMmcnMYuZp4lZOLYfSMjkM
EOfIHOqCAyRubhq66TK/maiZjEOBUlagLdugB3o+0nNxExiUn/fztPTgKAivCcZ4J1fS5H3f53c993M/
LfjX1EsyJVI/d6Ze2GmBF6sH0wLdFy6j6xsFOs714Mvu7/BF50W0nT2PU2e+xidtXWg51YGm1nY0nDiD
2pbPUdPcBnnjaWEbeF6aKxCPxxGLxTjRaBSRSAThcAShUBjBUAiBQAD+uQB8fj8MJjOqak8IFMjqQOc5
BWLxGF/c6/PB7fHA5XbB6XTCbnfAarNj1mqFadYCI4VrdXpI5M3CBJ7L6kA7tZ3t3Ov1UriXwt1wulyw
OyjcboeFws0s3GzGjNGISZ0OJdLjQgUG0gt8dvYCYtEYPCSwFu5g4bRzi9WWCTeZMD1jwLhWC1F5nUCB
qoxAKw3brMUG1dg4RtTjGB69gSHVGAZH1BgYGkW/UoW+wRH0Dgyjt1+Jn365hrdFUmECz2YdwcenO2Gx
OXBjXAu1ZhKjYxNQqTVJkZGkyCCJ9DER5TCuDyhRWFojUKCyP71AI10xu9MF/dRN6PR6fsYTWh00E5MY
G58gKQ11Z4y6o8awSk3dGcWhwgqBAuUZAXan2bVik82Gi51vofgY3iuW8VazsIOHJXjj3TIceKsErx8S
Yf+bImEC+yr6hC0gtPZmHcGO1N6sI/i71dtTiO2Q+jy3npFs/QjYYpj/nrPKuZwkfgmrMQUnwYj2cJa9
9WgVP7J+ztPl2xNgwQh/hNUQEWQ0IxFsQmKuESsM/3Es+xsovAFRs3wDAfH6AmXthrxi2QKJteBAM1YC
TRTcSMEU7mMwgXpETNX5BZ6SXL/vwcsyFTYXoJbT7pMCxByFr+2cBfPwOtzz1CFs3EDgCXGuAAtvueSF
tNvEJbJJvZIW4MG065y2r4V76nn4PXctCUjzCzwp7k0/2PWKAievRLjAySs+zqc/+tH1cxhMLPVaUoAG
joWvBBqTAukzp2BGKnyJCRiq8gvsKc0IsHroNQXf/cMHr2LXqz/gwf1Xsfvwr9hz5LccgXlnB8K3ihGe
KkqiFyHE0B1FUHsEwckPEEhhHXonv8DjfxFgxcIf2Hdx/Q+omMAd91eIGcREGWLTZYhOlyJ6qwQRkorc
JKZSciTlGH0/v8BjJZmdZddmAgv+87hjkeJ3hrmSqMC8iVGOuFGC+AxDjDjJeTRHty6wUTGB5eC3WHIe
w6KjBgsOORbsMizYZPiDYZXhrrUady3EbBXm9OJ/XiARYf9wDXzYloklDw2c60POIhNLyS3a5Qjerswv
8Gjx/TOwWfEO0KRHjXL6k5Hxex4xSPm0h2YYlQhNExQcvF3ByS9QdG1bAmzBrZL6PLd2F229A//Xf6AK
Cv4Eajx4jTBoKyMAAAAASUVORK5CYII=
wwAADsMBx2+oZAAABD1JREFUWEftlOtPm1Ucx/cf+AfshfG1b0ymzss24zXGmJnMLGbzMnErtwKltEwo
Kx3OkTlUggMk29xcKOgy35momYxLS28r0JZx6YXer/Ty9Ckbcinla84pvXApyB7jjPGbfN+c8+T3/fzO
75xnz55/i14XKbBx7R/Vq48a4LWaoSxA17VedH4nR/uVbnzTdQNfd1xHy6WruNB6GZ+3dKLpQjsam9vQ
cK4VdU1foVbWArH0IrcGXhGuB0gkEmBZljoej4NhGMRiDKLRGCLRKMLhMEKzYQRDIZitNlTXneMIkHcC
HVfkYBMsLR4IBuHz++H1eeHxeOByueFwujDjcMA6Y4fFaoPBaEKFWMYN4OW8E2jrukE7DwQC8PkD8Pp8
8Hi9cLndcLhcsDscsJFwmw3TFgvGjEaUCs9wBRjMFvjy0jWwcRb+QC7cTcKdJNyZC7daMTVtxojBAF5l
PUeA6hxAc+tlzNidUOtGoNKOYFhzF0q1DkMqLQaVGgwo1OgfUqFvcBh9Awr8/OttvM8TcgN4KW8En13s
gN3pxt0RA7T6MWh0o1Br9WkQVRpkSKlBPwFRDOPOoAJFZbUcAQQD2QLS5ja4PF6Yxu/BaDLRGY8ajNCP
jkE3MgqtXg+1TgeVVothtRZKtQbHiqo4AlTmAMibJs+K3Gxyuch8i/in8VGJiB41CTt6ogLvfliOI8dL
8c4xHg6/x+MGcKiqn1sBrjqYN4JHooN5I/ir6usuwsN4Yx2qAxW7HwEphrkfqFepe9NO9GCVlVOniOPd
1MmABM38p7bOebHy4QBIMGJnsRo9i9UIsQypSCNSs1KsEIfOIBlqQDLQgLhNvA0Af2uA8jbzlutE+QCp
THBYhpVwI1ZCUiRJeJCYAEjAWGsKA7xQcWfTxhsiNXYG6KXdpwFkSM025jonwTS8Hsv+esQs2wA8x18P
QMKbegIQdlkpRL4z32QAaHB4w7Fnwv0SGr7sq0PMIiwM8Dy/L7ux9005zt9kKMD5m0HqL34KofOXGAhY
5jsKkOih4SthaRogO3MJlonXwpcIgLm6MMD+shwA0RNvy2n3Tx69hb1v/YjHD9/CvhO/Yf/J39cBzHna
EZsoQWy8OG0TD1Fi4ylEDCcRGfsE4TU7lB8UBnh2AwARCX/s0PVN6xkRgAe+b8Ga+WDN5WCnyhGfKkN8
ohTMRAmYeyVgxtfgTDy4NR8XBnimNNdZvnYCWAhdxQO7EPeJbQLct1VhzkpciYSlAolpYj4SU+Xw60/t
HmA7EYBk5HsseU5j0V2LBbcYCy4RFpwi/EHsEGHeUYN5ew3mZ6oxa+L//QAphvzhGuhlS/rrseSvw5L3
U+pFArYGt+gSIzIpKAzwdMnmO7CT6AkEJIhbxGCsIvrOGbOQ3vboNLEA0SkBopMCRCarqAsDFN/eemMb
EQBScLfeWIdqX/HuT+B//Sf0J2o8eI3MoMUBAAAAAElFTkSuQmCC
</value>
</data>
<data name="btOK.SmallImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAA3JJREFUOE9Vkv1P0lscx79/ROu3trasFV7RMlJLZ5miXENEEZGinBlaPnHNRMLC
gEic4UXFq6lA0INPSZJlUVi5bsFtrdu93WprrVoPq63ubRYkD/Lu8M3a7b2dnR/OeZ33+/M5H+r/Ep/g
xQnMHPs2e/77qnOlqHdJUX+pApWObcjvy3rJ7kztTu9IWrpw/UeJrNySitOiWfPfXfAErsAdmcCZjzZY
XnbB9FgP/V0VaifLkNnBmk1tjd+1gH2VYDBHUDspDdycdeE+PHDNj+P0+2PofdoOwz9aAh+A1quA2iuH
/PIepOvXhpM1P9XQcLGZt6RirOS51+fGPfyOyeAwjr8xwfhQh9a7zQRqRMutBihnZJA6xKibKkOVsxQp
KoY/WR0XRwktuTLTn3r8hZu4EBqB5XU3DPfV0BC3gzfqobxei6ZrNSiy5sDg0sH5aAyyc+UQ9HOQqFo1
Tu0YEr6Y/uzE5YgDtjc9+PWBlnZVztRBfrUGje494A+yccipQHg+jEB4Dsqpemy15WPD4YS3VNXF0vmp
8CiG/h2A8ZEO+6YrsZ+4yqersc9dBYE5B82OBnya+4hgOIg+jxGSk3zyAB8b21ig9l6sDJ71naQbZnrQ
BuM1PcS2PDRdrSaxOVCckWEu9BlR9Xu6ILT/TM55EFt52NyeDKraKQlGo7fea8addx6EwiGoJ/Yju3sD
msbq4A/4EYlE0P9HD4Q2Dg0Xm7koGsjFprYkUJIRftD48DC0txXouK3DbOADgXzQTCjhD/po5wGvCYXW
bIjteQTOReGxHOT/xkaabg0oMmFX1J5GaDxyyFw70enRf48c1aC3BwVWNkpIWcUWLg3zerKwpXMTWCrG
ayrTsE4iHd+KAzO/oOFSJcocQlju9OLVhxc44j6IQgtxPs6lnQU0nIm8rgxsPMJCvDJGR6W3py9K0yQ8
KR8Voe78Tux2SCAZ4qN8WEz/ABlxUi8H/L5s5JkysYXA2UdTESuP8a1WrWDS05isZW5P0TJ8EnsBpKNi
lJ4qIl3mQkQiRweG30vg7s0kdgbY7alIkC+fZyqWtdLwNyWpY0UsVeyzLMN64pSBAgIV9efSO5d2TcN6
TTwYimV+piJGu4D9qBQVczGrZdXuxBbG9TUqRnhtdGkYocSWlaGEpuX/kZovJCpWrFy4TkRRXwBC1EMP
NQBUVgAAAABJRU5ErkJggg==
wwAADsMBx2+oZAAAA3JJREFUOE9Vk/1PkmsYx58/4qzf2s6WtcJEyzhq6SxTkJQ3BcTHKGeGlm8cM5Gw
MCAS58GDiGkqEPRiaZJkWRSWrjpQa/ZeW2vVelltp1OzA8mLfM94ttP0s127f/rse933fV0EsQjyJC9J
aGU7tzv5X2oulqPRI0Pj1SpUu7aD35/3ntmd2ZPdlfbrYucnEjuntOqMZM762Axf6Dq8sXGc/+6A7b0Z
lpcGGGbVqJ+oQG4XYy6zPXn3Elk4lC+sn5CF7sx58AQ+eBbGcObLcfS97oTxqQ6G2YPQ+ZXQ+BVQXNuL
bMOGaLp2bR0ll1h5y6tGS9/6A148xG1MhM/ixCcLTM/1aJ9thcbfjLa/mqCakUPmItEwWYEadzky1LRg
uiYpiRDbCuSWBwY8wh1cjpyD7WMPjE800PoVOHSrEarperTcrIPIng+jRw/3i1HIL1ZCOMBGqnrNGLFz
WPxu6ocb12IuOD714s9nOipVNdMAxY06NHv3QjDExGG3EtGFKELReagmG1Hm4GPTkZTPRM2V8oXJ6AiG
/xmE6YUe+6eqcWC6HoqpWuz31kBozUerqwn/zn9HOBpGv88E6SkByhwCbO5ggNh3pTp8IXCKejDLsw6Y
bhpAOrhouVELkZ0N5Xk55iM/EGfAZ4bYuQ2kgwfSzsPWznQQtW5pON56+8NW3P/bh0g0As34AbB6NqFl
tAHBUBCxWAwDd3shdrApucTKgWiwAFs60kBIzwnCpudHoLunRNc9PeZC3xAMBaAdVyEYDlDJg34Liu0s
kE4uSqwFKD6eD/4xJrL060Hw+/Oua3zN0PoUkHt2odtn+NlynCF/L4rsTJQ6uCixcSiZ15uHwu4tYKhp
H4lc429S2VgZDs78jqar1ahwiWG734cP397hqPcQim0skCc4VLKQknPBNedg81EGklUJeiK7M/uXLG3K
q8oRCRou7cIelxTSYQEqz5LUD0js8fuyIehngWvJRaE5B6w/MpGoSAisU6+iU9OYrqPvyNDRAlJnEWQj
JMpPi0DaOZDYONTACPpY4PZsRWF3DpidmUhRrFygK1e0L9mHNE2ihKFOfJNn3AiuJQdFfSyIBgqok0Ol
ZmGjNhk05YogXZmgWyL/T4aavozRtmZPahtter2aFt0QLy0tktq2OpLSsvJrsirhcqpy1erFzn9C1EMP
RseFWwAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="bs_gubun.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">

173
ArinWarev1/FORM-BASIC/Frm_v20091231_YK.vb
View File

@@ -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

98
ArinWarev1/FORM-OD/Frm_3_Mach.resx
View File

@@ -172,70 +172,70 @@
<data name="btAdd.SmallImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAAX1JREFUOE9jGBygYNZT2/r6/0xQLukgrOzE//hJrzVCV/1nhgqRBjKmPP0f1HDz
dULnU1t0Q26s01j6/rTjlL+vKnbcXiX/+++zvN1fr3i23FqnUQdVwsCQ2Pv0f+fWv//dSi//T+x9ZI9s
yK+b/lV3thj++/+x5//jQxH//3+c8P/2Jr1/ny95tEKVMDBEdT/+X7vm7//U2X//2+SeRTEEZPP/z9P+
//99/P/np2uB9OH/ID5IHKwZBIJbHv3PWwh0QdO3/zIx1/4bRy7771BwOh4kd3OZ/O+H+4P/f3mx/v/f
/x/+f3u95T+I/2Sb3i+wZhDwqnnw36f9+3/p6Gv/FV16/st4rwyESkFc8HHy//8/9oMNAbkExEdxgUPZ
vf962XfBmqW9V3hBhcHg162AitubDf79fVn7/9mx2P//P0zGDAOLvDtgzRJ+K7WgQnBwc73GNHAsPM3Y
83y/2U+QzSDNKLFgkHV7k5TXEgMol3SgmXJVG8oceYCBAQAUuvHyLVq4HwAAAABJRU5ErkJggg==
wwAADsMBx2+oZAAAAXlJREFUOE9jYBgUoGDWU9v6+v9M6OJEg7CyE//jJ73WCF31nxldjiiQMeXp/6CG
m68TOp/aohtyY53G0venHaf8fVWx4/Yq+d9/n+Xt/nrFs+XWOo06uKLE3qf/O7f+/e9Wevl/Yu8je2RD
ft30r7qzxfDf/489/x8fivj//+OE/7c36f37fMmjFW5AVPfj/7Vr/v5Pnf33v03uWRRDQDb//zzt///f
x/9/frr2///fh/+D+CBxuAHBLY/+5y38+9+t6dt/mZhr/40jl/13KDgdD5K7uUz+98P9wf+/vFj//+//
D/+/vd7yH8R/sk3vF9wAr5oH/33av/+Xjr72X9Gl57+M98pAmBzYBR8n////Yz/YEJBLQHwUFziU3fuv
l30XrFnae4UXXAIUBrcCKm5vNvj392Xt/2fHYv///zAZMwws8u6ANUv4rdRC1gwCN9drTAPHwtOMPc/3
m/0E2QzSjBILBlm3N0l5LTFA0UkK0Ey5qo0uNoIAABS68fIfwHRXAAAAAElFTkSuQmCC
</value>
</data>
<data name="btDel.SmallImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAAVFJREFUOE/dkrFOwzAURd8fNCMDwhkrBpoVCSkZK1TV3uiCmo2oA8nWwELGbs1G
N/oHZGTsH5A/qP+g3iu42CZNsQpiRRzJSvLeu/ddKaa/Qfq4jprXlrecV9vpUOKeB03pZ0ReYzzfOIPG
ALmAPVPuLHjPeYbpcNV8EmULicGDVOO5m8QO7k1iU7OpbgcKN19M41KifAEim8Q1wR0XO5NtqsXJhcI4
9Jv2J/FMoqiAeKFNsm9MUh4hifSAPlc9p2cR2iBbanGh4Mc1gtESYfpqI2PCA1zrrSLQAz7sM2SeFe4Q
hYSYafGoht8vwfizMHUTtRWGrMB5R6guQY0iWOGOKJcIEumIDegfKwQeoEUIO3YrGBWrI23CqLRDhihr
xe2vBGeeEaquh1q4G+UJrSqP9rWzRFbs8ungwqBHQvo6wSkd9DaM2qTUm6x/v23/FaIP9rjNHyjFDZoA
AAAASUVORK5CYII=
wwAADsMBx2+oZAAAAUdJREFUOE/lkjFOwzAUht8NmpEBYY8VA82KVCkeK1TV3siCko2oA8nWwELGbs1G
N3oDMjLmBuQG9Q3qvYIf1RJJ3XAAJJ5kWfr9/u/9sk30Jyp92YpT7TOX1X4x03iS/ulZr1TeIFrtnMYD
ALmCXQvpDPjKZYbFrG6FbK0xfdYmWrlJbGMHiQ+aTfUwNbg/gsalRvkOCJvEheBRqh/IPp1pJGODKODH
PRQvNYoKiNeAyH6BpFIgEUAsgNtR775ILTWyDSAKAx438MMNgvTDRsZc+rgbGygfEBx2D5jnAgoNtTTg
YQM+KcHkm7LmKOCtMWAFrgfKDAkmFHAAItfwE+2YLWBybuB7wJCAYGCnglFRnxEMo7IDZK25fUpI5h2M
ZuihUe5EfUF15VGnXSW6YjevvQ+DESnNPeCSemc7Rm1SGs23vYZ/VN/2uM0frsGBhAAAAABJRU5ErkJg
gg==
</value>
</data>
<data name="RibbonButton1.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAABC1JREFUWEftlOtPm2UYh/kP/AP2wfjZLyZT52kzHmOMmcnMYuZp4lZOLYfSMjkM
EOfIHOqCAyRubhq66TK/maiZjEOBUlagLdugB3o+0nNxExiUn/fztPTgKAivCcZ4J1fS5H3f53c993M/
LfjX1EsyJVI/d6Ze2GmBF6sH0wLdFy6j6xsFOs714Mvu7/BF50W0nT2PU2e+xidtXWg51YGm1nY0nDiD
2pbPUdPcBnnjaWEbeF6aKxCPxxGLxTjRaBSRSAThcAShUBjBUAiBQAD+uQB8fj8MJjOqak8IFMjqQOc5
BWLxGF/c6/PB7fHA5XbB6XTCbnfAarNj1mqFadYCI4VrdXpI5M3CBJ7L6kA7tZ3t3Ov1UriXwt1wulyw
OyjcboeFws0s3GzGjNGISZ0OJdLjQgUG0gt8dvYCYtEYPCSwFu5g4bRzi9WWCTeZMD1jwLhWC1F5nUCB
qoxAKw3brMUG1dg4RtTjGB69gSHVGAZH1BgYGkW/UoW+wRH0Dgyjt1+Jn365hrdFUmECz2YdwcenO2Gx
OXBjXAu1ZhKjYxNQqTVJkZGkyCCJ9DER5TCuDyhRWFojUKCyP71AI10xu9MF/dRN6PR6fsYTWh00E5MY
G58gKQ11Z4y6o8awSk3dGcWhwgqBAuUZAXan2bVik82Gi51vofgY3iuW8VazsIOHJXjj3TIceKsErx8S
Yf+bImEC+yr6hC0gtPZmHcGO1N6sI/i71dtTiO2Q+jy3npFs/QjYYpj/nrPKuZwkfgmrMQUnwYj2cJa9
9WgVP7J+ztPl2xNgwQh/hNUQEWQ0IxFsQmKuESsM/3Es+xsovAFRs3wDAfH6AmXthrxi2QKJteBAM1YC
TRTcSMEU7mMwgXpETNX5BZ6SXL/vwcsyFTYXoJbT7pMCxByFr+2cBfPwOtzz1CFs3EDgCXGuAAtvueSF
tNvEJbJJvZIW4MG065y2r4V76nn4PXctCUjzCzwp7k0/2PWKAievRLjAySs+zqc/+tH1cxhMLPVaUoAG
joWvBBqTAukzp2BGKnyJCRiq8gvsKc0IsHroNQXf/cMHr2LXqz/gwf1Xsfvwr9hz5LccgXlnB8K3ihGe
KkqiFyHE0B1FUHsEwckPEEhhHXonv8DjfxFgxcIf2Hdx/Q+omMAd91eIGcREGWLTZYhOlyJ6qwQRkorc
JKZSciTlGH0/v8BjJZmdZddmAgv+87hjkeJ3hrmSqMC8iVGOuFGC+AxDjDjJeTRHty6wUTGB5eC3WHIe
w6KjBgsOORbsMizYZPiDYZXhrrUady3EbBXm9OJ/XiARYf9wDXzYloklDw2c60POIhNLyS3a5Qjerswv
8Gjx/TOwWfEO0KRHjXL6k5Hxex4xSPm0h2YYlQhNExQcvF3ByS9QdG1bAmzBrZL6PLd2F229A//Xf6AK
Cv4Eajx4jTBoKyMAAAAASUVORK5CYII=
wwAADsMBx2+oZAAABD1JREFUWEftlOtPm1Ucx/cf+AfshfG1b0ymzss24zXGmJnMLGbzMnErtwKltEwo
Kx3OkTlUggMk29xcKOgy35momYxLS28r0JZx6YXer/Ty9Ckbcinla84pvXApyB7jjPGbfN+c8+T3/fzO
75xnz55/i14XKbBx7R/Vq48a4LWaoSxA17VedH4nR/uVbnzTdQNfd1xHy6WruNB6GZ+3dKLpQjsam9vQ
cK4VdU1foVbWArH0IrcGXhGuB0gkEmBZljoej4NhGMRiDKLRGCLRKMLhMEKzYQRDIZitNlTXneMIkHcC
HVfkYBMsLR4IBuHz++H1eeHxeOByueFwujDjcMA6Y4fFaoPBaEKFWMYN4OW8E2jrukE7DwQC8PkD8Pp8
8Hi9cLndcLhcsDscsJFwmw3TFgvGjEaUCs9wBRjMFvjy0jWwcRb+QC7cTcKdJNyZC7daMTVtxojBAF5l
PUeA6hxAc+tlzNidUOtGoNKOYFhzF0q1DkMqLQaVGgwo1OgfUqFvcBh9Awr8/OttvM8TcgN4KW8En13s
gN3pxt0RA7T6MWh0o1Br9WkQVRpkSKlBPwFRDOPOoAJFZbUcAQQD2QLS5ja4PF6Yxu/BaDLRGY8ajNCP
jkE3MgqtXg+1TgeVVothtRZKtQbHiqo4AlTmAMibJs+K3Gxyuch8i/in8VGJiB41CTt6ogLvfliOI8dL
8c4xHg6/x+MGcKiqn1sBrjqYN4JHooN5I/ir6usuwsN4Yx2qAxW7HwEphrkfqFepe9NO9GCVlVOniOPd
1MmABM38p7bOebHy4QBIMGJnsRo9i9UIsQypSCNSs1KsEIfOIBlqQDLQgLhNvA0Af2uA8jbzlutE+QCp
THBYhpVwI1ZCUiRJeJCYAEjAWGsKA7xQcWfTxhsiNXYG6KXdpwFkSM025jonwTS8Hsv+esQs2wA8x18P
QMKbegIQdlkpRL4z32QAaHB4w7Fnwv0SGr7sq0PMIiwM8Dy/L7ux9005zt9kKMD5m0HqL34KofOXGAhY
5jsKkOih4SthaRogO3MJlonXwpcIgLm6MMD+shwA0RNvy2n3Tx69hb1v/YjHD9/CvhO/Yf/J39cBzHna
EZsoQWy8OG0TD1Fi4ylEDCcRGfsE4TU7lB8UBnh2AwARCX/s0PVN6xkRgAe+b8Ga+WDN5WCnyhGfKkN8
ohTMRAmYeyVgxtfgTDy4NR8XBnimNNdZvnYCWAhdxQO7EPeJbQLct1VhzkpciYSlAolpYj4SU+Xw60/t
HmA7EYBk5HsseU5j0V2LBbcYCy4RFpwi/EHsEGHeUYN5ew3mZ6oxa+L//QAphvzhGuhlS/rrseSvw5L3
U+pFArYGt+gSIzIpKAzwdMnmO7CT6AkEJIhbxGCsIvrOGbOQ3vboNLEA0SkBopMCRCarqAsDFN/eemMb
EQBScLfeWIdqX/HuT+B//Sf0J2o8eI3MoMUBAAAAAElFTkSuQmCC
</value>
</data>
<data name="RibbonButton1.SmallImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAA3JJREFUOE9Vkv1P0lscx79/ROu3trasFV7RMlJLZ5miXENEEZGinBlaPnHNRMLC
gEic4UXFq6lA0INPSZJlUVi5bsFtrdu93WprrVoPq63ubRYkD/Lu8M3a7b2dnR/OeZ33+/M5H+r/Ep/g
xQnMHPs2e/77qnOlqHdJUX+pApWObcjvy3rJ7kztTu9IWrpw/UeJrNySitOiWfPfXfAErsAdmcCZjzZY
XnbB9FgP/V0VaifLkNnBmk1tjd+1gH2VYDBHUDspDdycdeE+PHDNj+P0+2PofdoOwz9aAh+A1quA2iuH
/PIepOvXhpM1P9XQcLGZt6RirOS51+fGPfyOyeAwjr8xwfhQh9a7zQRqRMutBihnZJA6xKibKkOVsxQp
KoY/WR0XRwktuTLTn3r8hZu4EBqB5XU3DPfV0BC3gzfqobxei6ZrNSiy5sDg0sH5aAyyc+UQ9HOQqFo1
Tu0YEr6Y/uzE5YgDtjc9+PWBlnZVztRBfrUGje494A+yccipQHg+jEB4Dsqpemy15WPD4YS3VNXF0vmp
8CiG/h2A8ZEO+6YrsZ+4yqersc9dBYE5B82OBnya+4hgOIg+jxGSk3zyAB8b21ig9l6sDJ71naQbZnrQ
BuM1PcS2PDRdrSaxOVCckWEu9BlR9Xu6ILT/TM55EFt52NyeDKraKQlGo7fea8addx6EwiGoJ/Yju3sD
msbq4A/4EYlE0P9HD4Q2Dg0Xm7koGsjFprYkUJIRftD48DC0txXouK3DbOADgXzQTCjhD/po5wGvCYXW
bIjteQTOReGxHOT/xkaabg0oMmFX1J5GaDxyyFw70enRf48c1aC3BwVWNkpIWcUWLg3zerKwpXMTWCrG
ayrTsE4iHd+KAzO/oOFSJcocQlju9OLVhxc44j6IQgtxPs6lnQU0nIm8rgxsPMJCvDJGR6W3py9K0yQ8
KR8Voe78Tux2SCAZ4qN8WEz/ABlxUi8H/L5s5JkysYXA2UdTESuP8a1WrWDS05isZW5P0TJ8EnsBpKNi
lJ4qIl3mQkQiRweG30vg7s0kdgbY7alIkC+fZyqWtdLwNyWpY0UsVeyzLMN64pSBAgIV9efSO5d2TcN6
TTwYimV+piJGu4D9qBQVczGrZdXuxBbG9TUqRnhtdGkYocSWlaGEpuX/kZovJCpWrFy4TkRRXwBC1EMP
NQBUVgAAAABJRU5ErkJggg==
wwAADsMBx2+oZAAAA3JJREFUOE9Vk/1PkmsYx58/4qzf2s6WtcJEyzhq6SxTkJQ3BcTHKGeGlm8cM5Gw
MCAS58GDiGkqEPRiaZJkWRSWrjpQa/ZeW2vVelltp1OzA8mLfM94ttP0s127f/rse933fV0EsQjyJC9J
aGU7tzv5X2oulqPRI0Pj1SpUu7aD35/3ntmd2ZPdlfbrYucnEjuntOqMZM762Axf6Dq8sXGc/+6A7b0Z
lpcGGGbVqJ+oQG4XYy6zPXn3Elk4lC+sn5CF7sx58AQ+eBbGcObLcfS97oTxqQ6G2YPQ+ZXQ+BVQXNuL
bMOGaLp2bR0ll1h5y6tGS9/6A148xG1MhM/ixCcLTM/1aJ9thcbfjLa/mqCakUPmItEwWYEadzky1LRg
uiYpiRDbCuSWBwY8wh1cjpyD7WMPjE800PoVOHSrEarperTcrIPIng+jRw/3i1HIL1ZCOMBGqnrNGLFz
WPxu6ocb12IuOD714s9nOipVNdMAxY06NHv3QjDExGG3EtGFKELReagmG1Hm4GPTkZTPRM2V8oXJ6AiG
/xmE6YUe+6eqcWC6HoqpWuz31kBozUerqwn/zn9HOBpGv88E6SkByhwCbO5ggNh3pTp8IXCKejDLsw6Y
bhpAOrhouVELkZ0N5Xk55iM/EGfAZ4bYuQ2kgwfSzsPWznQQtW5pON56+8NW3P/bh0g0As34AbB6NqFl
tAHBUBCxWAwDd3shdrApucTKgWiwAFs60kBIzwnCpudHoLunRNc9PeZC3xAMBaAdVyEYDlDJg34Liu0s
kE4uSqwFKD6eD/4xJrL060Hw+/Oua3zN0PoUkHt2odtn+NlynCF/L4rsTJQ6uCixcSiZ15uHwu4tYKhp
H4lc429S2VgZDs78jqar1ahwiWG734cP397hqPcQim0skCc4VLKQknPBNedg81EGklUJeiK7M/uXLG3K
q8oRCRou7cIelxTSYQEqz5LUD0js8fuyIehngWvJRaE5B6w/MpGoSAisU6+iU9OYrqPvyNDRAlJnEWQj
JMpPi0DaOZDYONTACPpY4PZsRWF3DpidmUhRrFygK1e0L9mHNE2ihKFOfJNn3AiuJQdFfSyIBgqok0Ol
ZmGjNhk05YogXZmgWyL/T4aavozRtmZPahtter2aFt0QLy0tktq2OpLSsvJrsirhcqpy1erFzn9C1EMP
RseFWwAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">

30
ArinWarev1/FORM-OD/Frm_3_Mach.vb
View File

@@ -165,6 +165,35 @@ Public Class Frm_3_Mach
End If
fxNaengBang.Invalidate()
End If
If grid.Cols(e.Col).Name.ToLower() = "설명" AndAlso Me.C1DockingTab1.SelectedIndex = 1 Then
If String.IsNullOrEmpty(data) = False Then
'//
For Each drtype As DS.tbl_typeRow In DSET1.tbl_type
If drtype.세대타입.ToLower().Equals(data.ToString().ToLower()) Then
Dim msg As String = "냉방기기 미설치 시," + vbCrLf + "표준값 적용을 위해 다음과 같이 입력(세대타입별 기기 생성)" + vbCrLf + vbCrLf + _
"냉방방식 = (압축식)" + vbCrLf + "냉방기기 용량 = (전용면적별) X 0.1801, COP = 2.894" + vbCrLf + "기기대수 = 타입별 세대수" + vbCrLf + "냉동기종류 = (히트펌프)" + vbCrLf + "사용연료 = (전기)"
If MsgBox(msg, MsgBoxStyle.YesNo, "OK") = MsgBoxResult.Yes Then
'냉방기기 미설치 시, 표준값 적용을 위해 다음과 같이 입력(세대타입별 기기 생성) 냉방방식 = (압축식), 냉방기기 용량 = (전용면적별) X 0.1801, COP = 2.894, 기기대수 = 타입별 세대수, 냉동기종류 = (히트펌프), 사용연료 = (전기) 선택
Dim 냉동기용량 As String = grid.GetData(e.Row, grid.Cols("냉동기용량").Index)
If String.IsNullOrEmpty(냉동기용량) OrElse 냉동기용량 = "0" Then
grid.SetData(e.Row, grid.Cols("냉동기방식").Index, "압축식")
Dim value1 As Double = Math.Round(drtype.세대면적 * 0.1801, 3)
grid.SetData(e.Row, grid.Cols("냉동기용량").Index, value1) '냉동기용량
grid.SetData(e.Row, grid.Cols("열성능비").Index, 2.894)
grid.SetData(e.Row, grid.Cols("대수").Index, drtype.세대수) '냉동기용량
grid.SetData(e.Row, grid.Cols("냉동기종류").Index, "히트펌프") '냉동기용량
grid.SetData(e.Row, grid.Cols("사용연료").Index, "전기") '냉동기용량
End If
End If
End If
Next
End If
End If
'//공조
@@ -1118,4 +1147,5 @@ Public Class Frm_3_Mach
Private Sub fxLight_Click(sender As Object, e As EventArgs) Handles fxLight.Click
End Sub
End Class

18
ArinWarev1/MdiMain.Designer.vb generated
View File

@@ -98,6 +98,8 @@ Partial Class MdiMain
Me.RibbonButton22 = New C1.Win.C1Ribbon.RibbonButton()
Me.RibbonButton17 = New C1.Win.C1Ribbon.RibbonButton()
Me.ribbonTopToolBar1 = New C1.Win.C1Ribbon.RibbonTopToolBar()
Me.RibbonButton27 = New C1.Win.C1Ribbon.RibbonButton()
Me.RibbonButton28 = New C1.Win.C1Ribbon.RibbonButton()
Me.ContextMenuStrip1.SuspendLayout()
CType(Me.C1StatusBar1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.c1Ribbon1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -484,6 +486,8 @@ Partial Class MdiMain
Me.ribbonGroup4.Items.Add(Me.RibbonButton23)
Me.ribbonGroup4.Items.Add(Me.RibbonButton22)
Me.ribbonGroup4.Items.Add(Me.RibbonButton17)
Me.ribbonGroup4.Items.Add(Me.RibbonButton27)
Me.ribbonGroup4.Items.Add(Me.RibbonButton28)
Me.ribbonGroup4.Name = "ribbonGroup4"
Me.ribbonGroup4.Text = "관리자"
'
@@ -609,6 +613,18 @@ Partial Class MdiMain
'
Me.ribbonTopToolBar1.Name = "ribbonTopToolBar1"
'
'RibbonButton27
'
Me.RibbonButton27.Name = "RibbonButton27"
Me.RibbonButton27.SmallImage = CType(resources.GetObject("RibbonButton27.SmallImage"), System.Drawing.Image)
Me.RibbonButton27.Text = "sync common"
'
'RibbonButton28
'
Me.RibbonButton28.Name = "RibbonButton28"
Me.RibbonButton28.SmallImage = CType(resources.GetObject("RibbonButton28.SmallImage"), System.Drawing.Image)
Me.RibbonButton28.Text = "make new file"
'
'MdiMain
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!)
@@ -718,4 +734,6 @@ Partial Class MdiMain
Friend WithEvents RibbonButton22 As C1.Win.C1Ribbon.RibbonButton
Friend WithEvents RibbonButton23 As C1.Win.C1Ribbon.RibbonButton
Private WithEvents mbt_report_od As C1.Win.C1Ribbon.RibbonButton
Friend WithEvents RibbonButton27 As C1.Win.C1Ribbon.RibbonButton
Friend WithEvents RibbonButton28 As C1.Win.C1Ribbon.RibbonButton
End Class

2248
ArinWarev1/MdiMain.resx
View File

File diff suppressed because it is too large Load Diff

55
ArinWarev1/MdiMain.vb
View File

@@ -303,7 +303,7 @@ Public Class MdiMain
'//<2F><><EFBFBD><EFBFBD><EFBFBD>Ͱ<EFBFBD> <20><>ȣȭ<C8A3>Ǿ<EFBFBD><C7BE><EFBFBD><EFBFBD><EFBFBD> üũ<C3BC>Ѵ<EFBFBD>.(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> OD<4F><44>)
Dim isEnc As Boolean = False
If (fi.Extension.ToLower() = ".ecl") Then isEnc = True
If (fi.Extension.ToLower() = (".ecl")) Then isEnc = True
If isEnc Then
Desbuf = DeCryptArea(Source, New Byte() {&HAC, &H29, &H55, &H42})
FS = New IO.MemoryStream(Desbuf, True)
@@ -4473,4 +4473,57 @@ ENDSTAT: '//
MsgBox("ok")
Shell("explorer " + path, AppWinStyle.NormalFocus)
End Sub
Private Sub RibbonButton27_Click(sender As System.Object, e As System.EventArgs) Handles RibbonButton27.Click
If MsgBox("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڵ尪(1089)<29><> <20><><EFBFBD><EFBFBD><EFBFBD>κ<EFBFBD><CEBA><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ðڽ<C3B0><DABD>ϱ<EFBFBD>?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "Ȯ<EFBFBD><EFBFBD>") = MsgBoxResult.Ok Then
Dim dtcommon As New DS.tbl_common_odDataTable()
Try
Dim TaC As New DSTableAdapters.tbl_common_odTableAdapter
TaC.Fill(dtcommon)
dtcommon.AcceptChanges()
Catch ex As Exception
MsgBox("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڵ<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʈ<EFBFBD><C6AE><EFBFBD><EFBFBD>" & vbCrLf & ex.Message.ToString, MsgBoxStyle.Critical, "Ȯ<EFBFBD><EFBFBD>")
End Try
For Each drow As DS.tbl_common_odRow In dtcommon
If drow.gubun <> "1089" Then Continue For
Dim v As Integer = CInt(drow.code)
If v < 100 OrElse v > 136 Then Continue For
Dim finds() As DS.tbl_common_odRow = DSET1.tbl_common_od.Select("gubun='1089' and code = '" + drow.code + "'")
If finds Is Nothing OrElse finds.Length < 1 Then
Dim newdr As DS.tbl_common_odRow = DSET1.tbl_common_od.Newtbl_common_odRow()
newdr.gubun = drow.gubun
newdr.code = drow.code
newdr.name = drow.name
newdr.codename = drow.codename
newdr.valn1 = drow.valn1
newdr.EndEdit()
DSET1.tbl_common_od.Addtbl_common_odRow(newdr)
End If
Next
DSET1.tbl_common_od.AcceptChanges()
Work_msg("")
End If
End Sub
Private Sub RibbonButton28_Click(sender As System.Object, e As System.EventArgs) Handles RibbonButton28.Click
If MsgBox("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20>Ͻðڽ<C3B0><DABD>ϱ<EFBFBD>?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "Ȯ<EFBFBD><EFBFBD>") <> MsgBoxResult.Ok Then Return '//ok <20><><EFBFBD>ϸ<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Dim newfilename As New System.IO.FileInfo(".\basefile\new." + FileExt)
If newfilename.Exists Then
System.IO.File.Copy(newfilename.FullName, newfilename.FullName + "_bak_" + DateTime.Now.ToString("yyMMddHhmmssffff"))
End If
Me.Func_Save_OD(newfilename.FullName)
End Sub
End Class

4
ArinWarev1/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' 지정되도록 할 수 있습니다.
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.2025.0630.0001")>
<Assembly: AssemblyFileVersion("1.2025.0630.0001")>
<Assembly: AssemblyVersion("1.2025.0630.0002")>
<Assembly: AssemblyFileVersion("1.2025.0630.0002")>