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

...

Browse Source
This commit is contained in:
ykh
2025-09-29 23:34:43 +09:00
parent 52a7c0f1f7
commit 370a838f42
10 changed files with 1445 additions and 341 deletions
Download Patch File Download Diff File Expand all files Collapse all files

53
ArinWarev1/Calculator/CHeating.vb
View File

@@ -1451,11 +1451,11 @@
Public Overridable Sub Calc_HeatingSystem(ByVal i_count_month As Integer, ByVal theta_e As Decimal)
pLog.Add(String.Format("Enter >> Calc_HeatingSystem i_count_month={0},theta_e={1}", i_count_month, theta_e))
d_op_max_mth = 0
'==================================2010.2.21 수정
'For Each DRpriod As DS.tbl_DescRow In DSET.tbl_Desc.Select("cname<>'0'", "cname")
' priod_value = CSng(DRpriod.priod)
'Next
@@ -1535,7 +1535,7 @@
'//130822
Dim 보일러정격출력합 As Decimal = 0 '//acc
For Each Dr난방 As DS.tbl_nanbangkikiRow In DSET.tbl_nanbangkiki.Select("code<>'0' and 헤더적용=true", "code")
'=======================================================================================================2014.02.24 수정
@@ -2581,6 +2581,11 @@
t_w_100 = Q_w_outg_i / (Q_dot_N * d_Nutz_mth) '(3.2.9-61)
Q_dot_d_in = Q_h_outg_i / (d_h_rB * (t_h_rL_T - t_w_100)) '(3.2.7-69) 난방 또는 난방 및 급탕
' 우선 미적용 Q_dot_d_in = sigma_Q_h_outg / (t_Betrieb_K - t_W_100) * d_Nutz_mth '(3.2.7-70) 난방, 급탕 및 공조
If Q_dot_d_in <= 0 Then '2025.08.22 추가
t_w_100 = 0
Q_dot_d_in = 0
End If
End If
@@ -2701,6 +2706,14 @@
Q_h_g = Q_h_g + (Q_h_g_v_i * d_h_rB) * system_count '=====2013.08.13 수정 '(3.2.7-66)
Q_h_g_i = Q_h_g_v_i * d_h_rB
'If Q_h_g_i < 0 Then
' Console.WriteLine("minus")
'End If
Else
If dr난방.열생산기기방식 = "지역난방" Then ' Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) = "지역난방" Then
@@ -2846,11 +2859,13 @@
If d_Nutz_mth = 0 Then '//201.11.20 추가(학교프로파일 적용시 문제점 해결)
t_w_100 = 0
Else
t_w_100 = Q_w_outg / (Q_dot_N * d_Nutz_mth)
t_w_100 = Q_w_outg_i / (Q_dot_N * d_Nutz_mth) '2025.08.19 Q_w_outg 를 Q_w_outg_i 로 수정
End If
Q_h_g_aux = Q_h_g_aux + (P_h_g_aux * (t_h_rL - t_w_100 * d_op_max_mth * d_Nutz_a / 365) + P_aux_SB * (24 * d_op_max_mth - t_h_rL)) * system_count '=====2013.08.18 수정 '(3.2.7-80)
'If Q_h_g_aux < 0 Then
' Console.WriteLine("minus")
'End If
End If
@@ -3598,7 +3613,7 @@
End If '===========================================================2014.03.07 추가
'======================================================================================================================================================2010.04.23 추가
Q_h_outg = Q_h_outg + Q_h_outg_i * system_count '=====2013.08.13 수정 '===================================================2013.01.16 추가
@@ -3716,6 +3731,11 @@
t_w_100 = Q_w_outg_i / (Q_dot_N * d_Nutz_mth) '(3.2.9-61)
Q_dot_d_in = Q_h_outg_i / (d_h_rB * (t_h_rL_T - t_w_100)) '(3.2.7-69) 난방 또는 난방 및 급탕
' 우선 미적용 Q_dot_d_in = sigma_Q_h_outg / (t_Betrieb_K - t_W_100) * d_Nutz_mth '(3.2.7-70) 난방, 급탕 및 공조
If Q_dot_d_in <= 0 Then '2025.08.22 수정
t_w_100 = 0
Q_dot_d_in = 0
End If
End If
@@ -3836,6 +3856,14 @@
Q_h_g = Q_h_g + (Q_h_g_v_i * d_h_rB) * system_count '=====2013.08.13 수정 '(3.2.7-66)
Q_h_g_i = Q_h_g_v_i * d_h_rB
'If Q_h_g_i < 0 Then
' Console.WriteLine("minus")
'End If
Else
If dr난방.열생산기기방식 = "지역난방" Then ' Worksheets("난방기기").Range("열생산기기방식1").Offset(0, i_count_boiler - 1) = "지역난방" Then
@@ -3981,15 +4009,18 @@
If d_Nutz_mth = 0 Then '//201.11.20 추가(학교프로파일 적용시 문제점 해결)
t_w_100 = 0
Else
If system_count = 0 Then
t_w_100 = Q_w_outg_i / (Q_dot_N * d_Nutz_mth)
Else
t_w_100 = (Q_w_outg_i) / (Q_dot_N * d_Nutz_mth) '//2011.12.04 수정
End If
'If system_count = 0 Then
' t_w_100 = Q_w_outg_i / (Q_dot_N * d_Nutz_mth)
'Else
t_w_100 = (Q_w_outg_i) / (Q_dot_N * d_Nutz_mth) '//2011.12.04 수정
'End If
End If
Q_h_g_aux = Q_h_g_aux + (P_h_g_aux * (t_h_rL - t_w_100 * d_op_max_mth * d_Nutz_a / 365) + P_aux_SB * (24 * d_op_max_mth - t_h_rL)) * system_count '=====2013.08.18 수정 '(3.2.7-80)
'If Q_h_g_aux < 0 Then
' Console.WriteLine("minus")
'End If
End If

9
ArinWarev1/ECO2_2025V1.vbproj
View File

@@ -209,6 +209,12 @@
<Compile Include="Forms_Report\Frm_Macro.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Report\Frm_Macro2.Designer.vb">
<DependentUpon>Frm_Macro2.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Report\Frm_Macro2.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Report\Frm_Upload.Designer.vb">
<DependentUpon>Frm_Upload.vb</DependentUpon>
</Compile>
@@ -515,6 +521,9 @@
<EmbeddedResource Include="Forms_Report\Frm_Macro.resx">
<DependentUpon>Frm_Macro.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Report\Frm_Macro2.resx">
<DependentUpon>Frm_Macro2.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Report\Frm_Upload.resx">
<DependentUpon>Frm_Upload.vb</DependentUpon>
</EmbeddedResource>

220
ArinWarev1/Forms_Report/Frm_Macro2.Designer.vb generated Normal file
View File

@@ -0,0 +1,220 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Frm_Macro2
Inherits System.Windows.Forms.Form
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Windows Form 디자이너에 필요합니다.
Private components As System.ComponentModel.IContainer
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
'수정하려면 Windows Form 디자이너를 사용하십시오.
'코드 편집기를 사용하여 수정하지 마십시오.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim DefaultFocusIndicatorRenderer1 As FarPoint.Win.Spread.DefaultFocusIndicatorRenderer = New FarPoint.Win.Spread.DefaultFocusIndicatorRenderer()
Dim DefaultScrollBarRenderer1 As FarPoint.Win.Spread.DefaultScrollBarRenderer = New FarPoint.Win.Spread.DefaultScrollBarRenderer()
Dim DefaultScrollBarRenderer2 As FarPoint.Win.Spread.DefaultScrollBarRenderer = New FarPoint.Win.Spread.DefaultScrollBarRenderer()
Me.FpSpread1 = New FarPoint.Win.Spread.FpSpread()
Me.FpSpread1_Sheet1 = New FarPoint.Win.Spread.SheetView()
Me.Button2 = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.tbStart = New System.Windows.Forms.TextBox()
Me.Button3 = New System.Windows.Forms.Button()
Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
Me.Label1 = New System.Windows.Forms.Label()
Me.tbEnd = New System.Windows.Forms.TextBox()
Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
Me.Label2 = New System.Windows.Forms.Label()
CType(Me.FpSpread1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.FpSpread1_Sheet1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TableLayoutPanel1.SuspendLayout()
Me.SuspendLayout()
'
'FpSpread1
'
Me.FpSpread1.AccessibleDescription = ""
Me.FpSpread1.Dock = System.Windows.Forms.DockStyle.Fill
Me.FpSpread1.FocusRenderer = DefaultFocusIndicatorRenderer1
Me.FpSpread1.HorizontalScrollBar.Buttons = New FarPoint.Win.Spread.FpScrollBarButtonCollection("BackwardLineButton,ThumbTrack,ForwardLineButton")
Me.FpSpread1.HorizontalScrollBar.Name = ""
Me.FpSpread1.HorizontalScrollBar.Renderer = DefaultScrollBarRenderer1
Me.FpSpread1.HorizontalScrollBar.TabIndex = 2
Me.FpSpread1.Location = New System.Drawing.Point(0, 38)
Me.FpSpread1.Name = "FpSpread1"
Me.FpSpread1.Sheets.AddRange(New FarPoint.Win.Spread.SheetView() {Me.FpSpread1_Sheet1})
Me.FpSpread1.Size = New System.Drawing.Size(1019, 453)
Me.FpSpread1.Skin = FarPoint.Win.Spread.DefaultSpreadSkins.Classic
Me.FpSpread1.TabIndex = 0
Me.FpSpread1.VerticalScrollBar.Buttons = New FarPoint.Win.Spread.FpScrollBarButtonCollection("BackwardLineButton,ThumbTrack,ForwardLineButton")
Me.FpSpread1.VerticalScrollBar.Name = ""
Me.FpSpread1.VerticalScrollBar.Renderer = DefaultScrollBarRenderer2
Me.FpSpread1.VerticalScrollBar.TabIndex = 3
Me.FpSpread1.VisualStyles = FarPoint.Win.VisualStyles.Off
'
'FpSpread1_Sheet1
'
Me.FpSpread1_Sheet1.Reset()
Me.FpSpread1_Sheet1.SheetName = "Sheet1"
'Formulas and custom names must be loaded with R1C1 reference style
Me.FpSpread1_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.R1C1
FpSpread1_Sheet1.ColumnCount = 5
FpSpread1_Sheet1.RowCount = 1
Me.FpSpread1_Sheet1.ColumnFooter.DefaultStyle.NoteIndicatorColor = System.Drawing.Color.Red
Me.FpSpread1_Sheet1.ColumnFooter.DefaultStyle.Parent = "HeaderDefault"
Me.FpSpread1_Sheet1.ColumnFooterSheetCornerStyle.NoteIndicatorColor = System.Drawing.Color.Red
Me.FpSpread1_Sheet1.ColumnFooterSheetCornerStyle.Parent = "CornerDefault"
Me.FpSpread1_Sheet1.ColumnHeader.DefaultStyle.NoteIndicatorColor = System.Drawing.Color.Red
Me.FpSpread1_Sheet1.ColumnHeader.DefaultStyle.Parent = "HeaderDefault"
Me.FpSpread1_Sheet1.RowHeader.DefaultStyle.NoteIndicatorColor = System.Drawing.Color.Red
Me.FpSpread1_Sheet1.RowHeader.DefaultStyle.Parent = "RowHeaderDefault"
Me.FpSpread1_Sheet1.SheetCornerStyle.NoteIndicatorColor = System.Drawing.Color.Red
Me.FpSpread1_Sheet1.SheetCornerStyle.Parent = "CornerDefault"
Me.FpSpread1_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.A1
'
'Button2
'
Me.Button2.Dock = System.Windows.Forms.DockStyle.Fill
Me.Button2.Location = New System.Drawing.Point(673, 3)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(194, 32)
Me.Button2.TabIndex = 1
Me.Button2.Text = "결과저장하기"
Me.Button2.UseVisualStyleBackColor = True
'
'Button1
'
Me.Button1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Button1.Location = New System.Drawing.Point(3, 3)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(194, 32)
Me.Button1.TabIndex = 0
Me.Button1.Text = "목록불러오기"
Me.Button1.UseVisualStyleBackColor = True
'
'tbStart
'
Me.tbStart.Dock = System.Windows.Forms.DockStyle.Fill
Me.tbStart.Font = New System.Drawing.Font("맑은 고딕", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.tbStart.Location = New System.Drawing.Point(283, 3)
Me.tbStart.Name = "tbStart"
Me.tbStart.Size = New System.Drawing.Size(74, 33)
Me.tbStart.TabIndex = 2
Me.tbStart.Text = "6"
Me.tbStart.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'Button3
'
Me.Button3.Dock = System.Windows.Forms.DockStyle.Fill
Me.Button3.Location = New System.Drawing.Point(523, 3)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(144, 32)
Me.Button3.TabIndex = 3
Me.Button3.Text = "실행"
Me.Button3.UseVisualStyleBackColor = True
'
'ProgressBar1
'
Me.ProgressBar1.Dock = System.Windows.Forms.DockStyle.Bottom
Me.ProgressBar1.Location = New System.Drawing.Point(0, 491)
Me.ProgressBar1.Name = "ProgressBar1"
Me.ProgressBar1.Size = New System.Drawing.Size(1019, 23)
Me.ProgressBar1.TabIndex = 2
'
'Label1
'
Me.Label1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Label1.Location = New System.Drawing.Point(363, 0)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(74, 38)
Me.Label1.TabIndex = 3
Me.Label1.Text = "~"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'tbEnd
'
Me.tbEnd.Dock = System.Windows.Forms.DockStyle.Fill
Me.tbEnd.Font = New System.Drawing.Font("맑은 고딕", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.tbEnd.Location = New System.Drawing.Point(443, 3)
Me.tbEnd.Name = "tbEnd"
Me.tbEnd.Size = New System.Drawing.Size(74, 33)
Me.tbEnd.TabIndex = 4
Me.tbEnd.Text = "0"
Me.tbEnd.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'TableLayoutPanel1
'
Me.TableLayoutPanel1.ColumnCount = 8
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 200.0!))
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 80.0!))
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 80.0!))
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 80.0!))
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 80.0!))
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 150.0!))
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 200.0!))
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
Me.TableLayoutPanel1.Controls.Add(Me.Button1, 0, 0)
Me.TableLayoutPanel1.Controls.Add(Me.Button3, 5, 0)
Me.TableLayoutPanel1.Controls.Add(Me.Button2, 6, 0)
Me.TableLayoutPanel1.Controls.Add(Me.tbEnd, 4, 0)
Me.TableLayoutPanel1.Controls.Add(Me.Label2, 1, 0)
Me.TableLayoutPanel1.Controls.Add(Me.tbStart, 2, 0)
Me.TableLayoutPanel1.Controls.Add(Me.Label1, 3, 0)
Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Top
Me.TableLayoutPanel1.Location = New System.Drawing.Point(0, 0)
Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
Me.TableLayoutPanel1.RowCount = 1
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
Me.TableLayoutPanel1.Size = New System.Drawing.Size(1019, 38)
Me.TableLayoutPanel1.TabIndex = 5
'
'Label2
'
Me.Label2.Dock = System.Windows.Forms.DockStyle.Fill
Me.Label2.Location = New System.Drawing.Point(203, 0)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(74, 38)
Me.Label2.TabIndex = 3
Me.Label2.Text = "실행범위"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Frm_Macro2
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1019, 514)
Me.Controls.Add(Me.FpSpread1)
Me.Controls.Add(Me.TableLayoutPanel1)
Me.Controls.Add(Me.ProgressBar1)
Me.Name = "Frm_Macro2"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "일괄처리"
CType(Me.FpSpread1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.FpSpread1_Sheet1, System.ComponentModel.ISupportInitialize).EndInit()
Me.TableLayoutPanel1.ResumeLayout(False)
Me.TableLayoutPanel1.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents FpSpread1 As FarPoint.Win.Spread.FpSpread
Friend WithEvents FpSpread1_Sheet1 As FarPoint.Win.Spread.SheetView
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents tbStart As System.Windows.Forms.TextBox
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
Friend WithEvents tbEnd As System.Windows.Forms.TextBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
Friend WithEvents Label2 As System.Windows.Forms.Label
End Class

123
ArinWarev1/Forms_Report/Frm_Macro2.resx Normal file
View File

@@ -0,0 +1,123 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="FpSpread1_Sheet1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

841
ArinWarev1/Forms_Report/Frm_Macro2.vb Normal file
View File

@@ -0,0 +1,841 @@
Public Class Frm_Macro2
Dim fn As String = ""
Dim 단위면적당신재생1차에너지합 As Decimal = 0
Dim 단위면적당1차에너소비량합 As Decimal = 0
Dim 에너지자립률 As Double = 0
Public Sub New()
' 이 호출은 디자이너에 필요합니다.
InitializeComponent()
fn = ""
' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오.
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
LoadFile()
End Sub
Private Sub LoadFile()
Dim od As New OpenFileDialog
od.Filter = "excel|*.xls|*.*|*.*"
od.FilterIndex = 1
If (od.ShowDialog() <> Windows.Forms.DialogResult.OK) Then Return
fn = od.FileName
If Not System.IO.File.Exists(fn) Then
MsgBox("업로드샘플파일(" + fn + ")가 존재하지 않습니다", MsgBoxStyle.Critical, "확인")
Return
End If
Try
If Me.FpSpread1.OpenExcel(fn) Then
'// MakeData()
'//첫줄에 열 번호를 넣는다.
For col As Integer = 1 To 108
Dim oldvalue As Object = FpSpread1_Sheet1.Cells(0, col - 1).Value
If oldvalue Is Nothing Then
FpSpread1_Sheet1.Cells(0, col - 1).Value = "(" + col.ToString() + ")"
Else
FpSpread1_Sheet1.Cells(0, col - 1).Value = oldvalue.ToString() + "(" + col.ToString() + ")"
End If
Next
'//0번째열에서 1의 값을 찾고 그 이후의 값을 찾아서 번호를 설정한다.
Dim StartIndex As Integer = 0
Dim EndIndex As Integer = 0
ProgressBar1.Minimum = 0
ProgressBar1.Maximum = 10000
ProgressBar1.Value = 0
For i As Integer = 0 To 65535
If i >= ProgressBar1.Maximum - 1 Then
ProgressBar1.Value = ProgressBar1.Maximum
Else
ProgressBar1.Value += 1
End If
Dim curval As Object = FpSpread1_Sheet1.Cells(i, 0).Value
If curval Is Nothing Then
If StartIndex <> 0 Then
EndIndex = i - 1
Exit For
Else
Continue For
End If
End If
If curval.ToString() = "1" Then
StartIndex = i
ElseIf StartIndex <> 0 Then
If curval.ToString() = "" Then
EndIndex = i - 1
Exit For
End If
End If
Next
tbStart.Text = (StartIndex + 1).ToString()
tbEnd.Text = (EndIndex + 1).ToString()
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "파일 불러오기 오류")
End Try
End Sub
Private Function RData(grp As String, code As Integer) As Decimal
Dim filter As String = String.Format("GRP='{0}' and code={1}", grp, code.ToString("000"))
Dim DR() As DSR.TReqUseRow = DSETR1.TReqUse.Select(filter)
If DR.GetUpperBound(0) = -1 Then Return 0
Return DR(0).M00
End Function
Private Sub Frm_Upload_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Dim sd As New SaveFileDialog()
sd.Filter = "Excel(*.xls)|*.xls"
sd.FilterIndex = 0
If sd.ShowDialog = Windows.Forms.DialogResult.OK Then
Try
If FpSpread1.SaveExcel(sd.FileName, FarPoint.Excel.ExcelSaveFlags.NoFlagsSet) Then
MsgBox("저장완료", MsgBoxStyle.Information, "확인")
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "error")
End Try
End If
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
'//기본홤녀은 건물개요로
MdiMain.Menu_건물개요()
Dim StartNo As Integer = CInt(tbStart.Text)
Dim EndNo As Integer = CInt(tbEnd.Text)
Me.ProgressBar1.Value = 0
Me.ProgressBar1.Minimum = 0
Me.ProgressBar1.Maximum = EndNo - StartNo + 1
If MsgBox("전체 실행전에 1건에대해서 테스트실행을 하시겠습니까?", MsgBoxStyle.Question Or MsgBoxStyle.YesNo, "확인") = MsgBoxResult.Yes Then
EndNo = StartNo
ElseIf MsgBox("전체 " + Me.ProgressBar1.Maximum.ToString() + "건의 자료를 실행하시겠습니까?" + vbCrLf + "이 작업은 중단할 수 없습니다", MsgBoxStyle.Question Or MsgBoxStyle.YesNo, "확인") <> MsgBoxResult.Yes Then
Return
End If
For RowNum As Integer = StartNo To EndNo
Me.ProgressBar1.Value += 1
Dim Row = RowNum - 1
Dim ColIDX As Integer = 1
'//건물개요
'//DSET1.tbl_Desc.Clear()
Dim NewDesc As DS.tbl_DescRow = DSET1.tbl_Desc.Rows(0)
NewDesc.cname = FpSpread1_Sheet1.Cells(Row, 1).Value.ToString()
NewDesc.buildname = NewDesc.cname
NewDesc.builds1 = 1 '//지하(층수)
NewDesc.builds2 = 1 '//지상(층수)
'//지역(해당하는이름의 코드를 가져와서 설정해야함)
Dim 지역명 As String = FpSpread1_Sheet1.Cells(Row, 5).Value
Dim 지역목록() As DataRow = DSET1.weather_group.Select(String.Format("name = '{0}'", 지역명))
If 지역목록.Length <> 1 Then
MsgBox(String.Format("{0}번줄 지역({1})에 해당하는 데이터가 {2}건 있습니다", Row, 지역명, 지역목록.Length))
Return
End If
NewDesc.buildarea = 지역목록(0)("code")
NewDesc.EndEdit()
'DSET1.tbl_Desc.Addtbl_DescRow(NewDesc)
Dim Drows() As DataRow
'//건물용도
Dim 건물용도명 As String = FpSpread1_Sheet1.Cells(Row, 6).Value.ToString().Replace(vbLf, "").Replace(vbCr, "") '//건물용도
Drows = DSET1.tbl_common.Select(String.Format("gubun='1201' and name = '{0}'", 건물용도명))
If Drows.Length <> 1 Then
MsgBox(String.Format("{0}번줄 건물용도({1})에 해당하는 데이터가 {2}건 있습니다", Row, 건물용도명, Drows.Length))
Return
End If
NewDesc.isjugo = Drows(0)("valn1")
NewDesc.EndEdit()
'//입력존
DSET1.tbl_zone.Clear()
'/없음데이터도 생성해야한다.
Dim drZoneNull As DS.tbl_zoneRow = DSET1.tbl_zone.Newtbl_zoneRow
drZoneNull.code = "0"
drZoneNull.설명 = "(없음)"
DSET1.tbl_zone.Addtbl_zoneRow(drZoneNull)
Dim DrZone As DS.tbl_zoneRow = DSET1.tbl_zone.Newtbl_zoneRow
DrZone.code = "00001"
DrZone.조명부하산출방법 = "입력치"
DrZone.설명 = "입력존(매크로)"
DrZone.그룹 = "0"
DrZone.sortkey = DrZone.code
DrZone.열생산난방생산기기 = "00001" '//난방기기 임시로 적용처리함()
DrZone.열생산급탕생산기기 = "00001" '//급탕기기 임시로 적용처리함()
DrZone.냉난방열공급시스템 = "00001" '//열공급시스템연결
DrZone.냉난방열공급시스템수 = "1"
DrZone.냉난방공조처리시스템 = "00001"
DrZone.인공광원 = "(없음)"
DrZone.조명방식 = "(없음)"
DrZone.외기부하처리여부 = "아니오"
DrZone.설명 = FpSpread1_Sheet1.Cells(Row, 7).Value
Dim 사용프로필 As String = FpSpread1_Sheet1.Cells(Row, 8).Value
Drows = DSET1.tbl_profile.Select(String.Format("설명 like '%{0}'", 사용프로필))
If Drows.Length <> 1 Then
MsgBox(String.Format("{0}번줄 입력존-사용프로필({1})에 해당하는 데이터가 {2}건 있습니다", Row, 사용프로필, Drows.Length))
Return
End If
DrZone.프로필 = Drows(0)("code")
DrZone.면적 = FpSpread1_Sheet1.Cells(Row, 9).Value
DrZone.천장고p = FpSpread1_Sheet1.Cells(Row, 10).Value
DrZone.순실체적 = FpSpread1_Sheet1.Cells(Row, 11).Value
Dim 열저장능력 As String = FpSpread1_Sheet1.Cells(Row, 12).Value
Drows = DSET1.tbl_common.Select(String.Format("gubun='1023' and name = '{0}'", 열저장능력))
If Drows.Length <> 1 Then
MsgBox(String.Format("{0}번줄 입력존-열저장능력({1})에 해당하는 데이터가 {2}건 있습니다", Row, 열저장능력, Drows.Length))
Return
End If
DrZone.열저장능력 = Drows(0)("Name")
Dim 열교가산치 As String = FpSpread1_Sheet1.Cells(Row, 13).Value
Drows = DSET1.tbl_common.Select(String.Format("gubun='1022' and name = '{0}'", 열교가산치))
If Drows.Length <> 1 Then
MsgBox(String.Format("{0}번줄 입력존-열교가산치({1})에 해당하는 데이터가 {2}건 있습니다", Row, 열교가산치, Drows.Length))
Return
End If
DrZone.열교가산치 = Drows(0)("Name")
DrZone.침기율 = FpSpread1_Sheet1.Cells(Row, 14).Value
Dim 냉난방방식 As String = FpSpread1_Sheet1.Cells(Row, 15).Value
If 냉난방방식 = "없음" Then 냉난방방식 = "기능없음"
Drows = DSET1.tbl_common.Select(String.Format("gubun='1000' and name = '{0}'", 냉난방방식))
If Drows.Length <> 1 Then
MsgBox(String.Format("{0}번줄 입력존-냉난방방식({1})에 해당하는 데이터가 {2}건 있습니다", Row, 냉난방방식, Drows.Length))
Return
End If
DrZone.냉난방방식 = Drows(0)("name")
Dim 냉난방공조 As String = FpSpread1_Sheet1.Cells(Row, 16).Value
If 냉난방공조 = "없음" Then 냉난방공조 = "기능없음"
Drows = DSET1.tbl_common.Select(String.Format("gubun='1001' and name = '{0}'", 냉난방공조))
If Drows.Length <> 1 Then
MsgBox(String.Format("{0}번줄 입력존-냉난방공조({1})에 해당하는 데이터가 {2}건 있습니다", Row, 냉난방공조, Drows.Length))
Return
End If
DrZone.냉난방공조 = Drows(0)("name")
Dim 조명부하산출방법 As String = FpSpread1_Sheet1.Cells(Row, 17).Value
Drows = DSET1.tbl_common.Select(String.Format("gubun='1031' and name = '{0}'", 조명부하산출방법))
If Drows.Length <> 1 Then
MsgBox(String.Format("{0}번줄 입력존-조명부하산출방법({1})에 해당하는 데이터가 {2}건 있습니다", Row, 조명부하산출방법, Drows.Length))
Return
End If
DrZone.조명부하산출방법 = Drows(0)("name")
DrZone.조명에너지부하율입력치 = FpSpread1_Sheet1.Cells(Row, 18).Value
DSET1.tbl_zone.Addtbl_zoneRow(DrZone)
'//입력면
Dim 방위목록 As New List(Of String)
방위목록.AddRange({"북서", "서", "남서", "남", "남동", "동", "북동", "북", "수평", "일사없음", "(없음)"})
Dim 제목1 As String = ""
Dim 제목2 As String = ""
DSET1.tbl_myoun.Clear()
For i As Integer = 0 To 12
Dim NewMyoun As DS.tbl_myounRow = DSET1.tbl_myoun.Newtbl_myounRow
NewMyoun.존분류 = DrZone.code
NewMyoun.code = String.Format("{0:00000}", i + 1)
NewMyoun.sortkey = NewMyoun.code
Dim t1 As String = FpSpread1_Sheet1.Cells(2, 19 + (i * 2)).Value '//타이틀
Dim t2 As String = FpSpread1_Sheet1.Cells(3, 19 + (i * 2)).Value '//타이틀
If Not String.IsNullOrEmpty(t1) Then 제목1 = t1
If Not String.IsNullOrEmpty(t2) Then 제목2 = t2
NewMyoun.설명 = 제목1 + ":" + 제목2
'//공용코드 1067에서 name 이 일치하는 데이터가 있어야한다.
'//(없음),외벽,외부창,내벽,간벽,내부창
If i = 0 Then
NewMyoun.건축부위방식 = "외벽"
ElseIf i = 1 Then
NewMyoun.건축부위방식 = "외벽"
ElseIf i = 2 Then
NewMyoun.건축부위방식 = "내벽"
ElseIf i = 3 Then
NewMyoun.건축부위방식 = "내벽"
ElseIf i = 4 Then
NewMyoun.건축부위방식 = "외벽"
ElseIf i = 5 Then '//코어
NewMyoun.건축부위방식 = "내벽"
ElseIf i = 6 Then '//쎼떄깐뼊(쪠외)
NewMyoun.건축부위방식 = "간벽"
ElseIf i = 7 Or i = 8 Then
NewMyoun.건축부위방식 = "외부창"
ElseIf i = 9 Or i = 10 Or i = 11 Or i = 12 Then
NewMyoun.건축부위방식 = "내부창"
End If
Dim 방위1 As String = FpSpread1_Sheet1.Cells(Row, 19 + (i * 2)).Value '//타이틀
방위1 = 방위1.ToString().Replace(vbLf, "").Replace(vbCr, "")
If 방위목록.IndexOf(방위1) = -1 Then
MsgBox(String.Format("{0}번줄 입력면-방위1({1})에 해당하는 데이터가 없습니다.", Row, 방위1))
Return
End If
NewMyoun.방위 = 방위1
NewMyoun.건축부위면적 = FpSpread1_Sheet1.Cells(Row, 20 + (i * 2)).Value
DSET1.tbl_myoun.Addtbl_myounRow(NewMyoun)
Next
'//지붕 (45)
Dim NewM지붕 As DS.tbl_myounRow = DSET1.tbl_myoun.Newtbl_myounRow
NewM지붕.존분류 = DrZone.code
NewM지붕.code = String.Format("{0:00000}", 14)
NewM지붕.sortkey = NewM지붕.code
NewM지붕.방위 = "수평"
NewM지붕.건축부위방식 = "외벽"
NewM지붕.건축부위면적 = FpSpread1_Sheet1.Cells(Row, 45).Value
DSET1.tbl_myoun.Addtbl_myounRow(NewM지붕)
'//바닥 (46)
Dim NewM바닥 As DS.tbl_myounRow = DSET1.tbl_myoun.Newtbl_myounRow
NewM바닥.존분류 = DrZone.code
NewM바닥.code = String.Format("{0:00000}", 15)
NewM바닥.sortkey = NewM지붕.code
NewM바닥.방위 = "일사없음"
NewM바닥.건축부위방식 = "외벽"
NewM바닥.건축부위면적 = FpSpread1_Sheet1.Cells(Row, 46).Value
DSET1.tbl_myoun.Addtbl_myounRow(NewM바닥)
'//공조처리
DSET1.tbl_kongjo.Clear()
Dim New공조 As DS.tbl_kongjoRow = DSET1.tbl_kongjo.Newtbl_kongjoRow
New공조.code = "00001"
New공조.팬효율산출방식 = "계산치"
New공조.설명 = "공조기기"
New공조.설정치난방 = "0"
New공조.설정치냉방 = "0"
New공조.최대풍량 = "0"
New공조.리턴공기혼합여부 = "아니오"
New공조.가습기유형 = "(없음)"
New공조.외기냉방제어유무 = "무"
New공조.열교환기유형 = "(없음)"
New공조.열회수율 = "0"
New공조.열회수율냉 = "공조기기"
New공조.급기풍량 = "0"
New공조.배기풍량 = "0"
New공조.급기팬동력 = "0"
New공조.배기팬동력 = "0"
New공조.총압력손실급기팬 = "0"
New공조.총압력손실배기팬 = "0"
New공조.총효율급기팬 = "0"
New공조.총효율배기팬 = "0"
Dim 공조방식 As String = FpSpread1_Sheet1.Cells(Row, 47).Value
If 공조방식 = "없음" Then 공조방식 = "(없음)"
Drows = DSET1.tbl_common.Select(String.Format("gubun='1026' and name = '{0}'", 공조방식))
If Drows.Length <> 1 Then
MsgBox(String.Format("{0}번줄 공조처리-공조방식({1})에 해당하는 데이터가 {2}건 있습니다", Row, 공조방식, Drows.Length))
Return
End If
New공조.공조방식 = Drows(0)("name")
DSET1.tbl_kongjo.Addtbl_kongjoRow(New공조)
'//난방기기
DSET1.tbl_nanbangkiki.Clear()
ColIDX = 48
Dim New난방 As DS.tbl_nanbangkikiRow = DSET1.tbl_nanbangkiki.Newtbl_nanbangkikiRow
New난방.code = "00001"
New난방.설명 = "보일러"
New난방.신재생연결여부 = "연결없음"
New난방.보일러대수 = "1"
Dim 난방_열생산기기방식 As String = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
Drows = DSET1.tbl_common.Select(String.Format("gubun='1020' and name = '{0}'", 난방_열생산기기방식))
If Drows.Length <> 1 Then
MsgBox(String.Format("{0}번줄 난방기기-열생산기기방식({1})에 해당하는 데이터가 {2}건 있습니다", Row, 난방_열생산기기방식, Drows.Length))
Return
End If
New난방.열생산기기방식 = Drows(0)("name")
Dim 난방_사용연료 As String = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
Drows = DSET1.tbl_common.Select(String.Format("gubun='1021' and name = '{0}'", 난방_사용연료))
If Drows.Length <> 1 Then
MsgBox(String.Format("{0}번줄 난방기기-사용연료({1})에 해당하는 데이터가 {2}건 있습니다", Row, 난방_사용연료, Drows.Length))
Return
End If
New난방.사용연료 = Drows(0)("name")
New난방.보일러정격출력 = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
New난방.급수온도 = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
New난방.환수온도 = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
Dim 난방생산기기운전방식 As String = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
Drows = DSET1.tbl_common.Select(String.Format("gubun='1035' and name = '{0}'", 난방생산기기운전방식))
If Drows.Length <> 1 Then
MsgBox(String.Format("{0}번줄 난방기기-난방생산기기운전방식({1})에 해당하는 데이터가 {2}건 있습니다", Row, 난방생산기기운전방식, Drows.Length))
Return
End If
New난방.운전방식 = Drows(0)("name")
Dim 난방_열원기기_보일러방식 As String = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
If 난방_열원기기_보일러방식.IndexOf("보일러") = -1 Then 난방_열원기기_보일러방식 += "보일러"
Drows = DSET1.tbl_common.Select(String.Format("gubun='1036' and name = '{0}'", 난방_열원기기_보일러방식))
If Drows.Length <> 1 Then
MsgBox(String.Format("{0}번줄 난방기기-열원기기_보일러방식({1})에 해당하는 데이터가 {2}건 있습니다", Row, 난방_열원기기_보일러방식, Drows.Length))
Return
End If
New난방.보일러방식 = Drows(0)("name")
New난방.정격보일러효율 = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
Dim 난방_축열탱크방식 As String = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
Drows = DSET1.tbl_common.Select(String.Format("gubun='1039' and name = '{0}'", 난방_축열탱크방식))
If Drows.Length <> 1 Then
MsgBox(String.Format("{0}번줄 난방기기-급탕축열탱크방식({1})에 해당하는 데이터가 {2}건 있습니다", Row, 난방_축열탱크방식, Drows.Length))
Return
End If
New난방.축열탱크방식 = Drows(0)("name")
Dim 난방_급탕_시스템방식 As String = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
Drows = DSET1.tbl_common.Select(String.Format("gubun='1042' and name = '{0}'", 난방_급탕_시스템방식))
If Drows.Length <> 1 Then
MsgBox(String.Format("{0}번줄 난방기기-급탕_시스템방식({1})에 해당하는 데이터가 {2}건 있습니다", Row, 난방_급탕_시스템방식, Drows.Length))
Return
End If
New난방.분배시스템방식 = Drows(0)("name")
'//입력존에서 열생산기기 급탕이 연결되지 않았다.
'//순환무우를 비롯 급탕기기를 사용하려면 급탕기기가 연결되어야한다.
Dim 난방_급탕_순환유무 As String = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
Drows = DSET1.tbl_common.Select(String.Format("gubun='1032' and name = '{0}'", 난방_급탕_순환유무))
If Drows.Length <> 1 Then
MsgBox(String.Format("{0}번줄 난방기기-급탕_순환유무({1})에 해당하는 데이터가 {2}건 있습니다", Row, 난방_급탕_순환유무, Drows.Length))
Return
End If
New난방.순환유무 = Drows(0)("name")
Dim 난방_급탕_펌프제어 As String = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
Drows = DSET1.tbl_common.Select(String.Format("gubun='1043' and name = '{0}'", 난방_급탕_펌프제어))
If Drows.Length <> 1 Then
MsgBox(String.Format("{0}번줄 난방기기-급탕_펌프제어({1})에 해당하는 데이터가 {2}건 있습니다", Row, 난방_급탕_펌프제어, Drows.Length))
Return
End If
New난방.펌프제어 = Drows(0)("name")
New난방.펌프동력급탕 = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
Dim 난방_배관망유형 As String = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
Drows = DSET1.tbl_common.Select(String.Format("gubun='1040' and name = '{0}'", 난방_배관망유형))
If Drows.Length <> 1 Then
MsgBox(String.Format("{0}번줄 난방기기-배관망유형({1})에 해당하는 데이터가 {2}건 있습니다", Row, 난방_배관망유형, Drows.Length))
Return
End If
New난방.배관망유형 = Drows(0)("name")
Dim 난방_펌프감소계수 As String = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
Drows = DSET1.tbl_common.Select(String.Format("gubun='1002' and name = '{0}'", 난방_펌프감소계수))
If Drows.Length <> 1 Then
MsgBox(String.Format("{0}번줄 난방기기-펌프감소계수({1})에 해당하는 데이터가 {2}건 있습니다", Row, 난방_펌프감소계수, Drows.Length))
Return
End If
New난방.펌프교정계수 = Drows(0)("name")
Dim 난방_펌프제어유형 As String = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
Drows = DSET1.tbl_common.Select(String.Format("gubun='1041' and name = '{0}'", 난방_펌프제어유형))
If Drows.Length <> 1 Then
MsgBox(String.Format("{0}번줄 난방기기-펌프제어유형({1})에 해당하는 데이터가 {2}건 있습니다", Row, 난방_펌프제어유형, Drows.Length))
Return
End If
New난방.펌프제어유형 = Drows(0)("name")
New난방.펌프동력급탕 = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
DSET1.tbl_nanbangkiki.Addtbl_nanbangkikiRow(New난방)
'//난방공급시스템
DSET1.tbl_kongkub.Clear()
Dim New공급 As DS.tbl_kongkubRow = DSET1.tbl_kongkub.Newtbl_kongkubRow
New공급.code = "00001"
New공급.설명 = "난방공급"
New공급.제어기의정격전력 = "0"
New공급.팬송풍기정격전력 = "0"
New공급.펌프정격전력 = "0"
New공급.팬송풍기수 = "0"
New공급.추가펌프수 = "0"
Dim 난방공급시스템 As String = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
Drows = DSET1.tbl_common.Select(String.Format("gubun='1045' and name = '{0}'", 난방공급시스템))
If Drows.Length <> 1 Then
MsgBox(String.Format("{0}번줄 난방공급-시스템({1})에 해당하는 데이터가 {2}건 있습니다", Row, 난방공급시스템, Drows.Length))
Return
End If
New공급.열공급시스템 = Drows(0)("name")
Dim 열공급생산기기 As String = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
Drows = DSET1.tbl_nanbangkiki.Select(String.Format("설명 = '{0}'", 열공급생산기기))
If Drows.Length <> 1 Then
MsgBox(String.Format("{0}번줄 난방공급-열공급생산시기({1})에 해당하는 데이터가 {2}건 있습니다", Row, 열공급생산기기, Drows.Length))
Return
End If
New공급.열공급생산기기 = Drows(0)("code")
Dim 바닥난방열제어 As String = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
Drows = DSET1.tbl_common.Select(String.Format("gubun='1033' and name = '{0}'", 바닥난방열제어))
If Drows.Length <> 1 Then
MsgBox(String.Format("{0}번줄 난방공급-바닥난방열제어({1})에 해당하는 데이터가 {2}건 있습니다", Row, 바닥난방열제어, Drows.Length))
Return
End If
New공급.바닥난방열제어 = Drows(0)("name")
Dim 바닥난방열건축부위 As String = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
Drows = DSET1.tbl_common.Select(String.Format("gubun='1034' and name = '{0}'", 바닥난방열건축부위))
If Drows.Length <> 1 Then
MsgBox(String.Format("{0}번줄 난방공급-바닥난방열건축부위({1})에 해당하는 데이터가 {2}건 있습니다", Row, 바닥난방열건축부위, Drows.Length))
Return
End If
New공급.바닥난방열건축부위 = Drows(0)("name")
DSET1.tbl_kongkub.Addtbl_kongkubRow(New공급)
'//냉방기기
DSET1.tbl_nangbangkiki.Clear()
Dim New냉방 As DS.tbl_nangbangkikiRow = DSET1.tbl_nangbangkiki.Newtbl_nangbangkikiRow
New냉방.code = "00001"
New냉방.설명 = "냉방기기"
New냉방.신재생연결여부 = "연결없음"
Dim 냉동기방식 As String = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
If 냉동기방식 = "없음" Then 냉동기방식 = "(없음)"
Drows = DSET1.tbl_common.Select(String.Format("gubun='1046' and name = '{0}'", 냉동기방식))
If Drows.Length <> 1 Then
MsgBox(String.Format("{0}번줄 냉방기기-냉동기방식({1})에 해당하는 데이터가 {2}건 있습니다", Row, 냉동기방식, Drows.Length))
Return
End If
New냉방.냉동기방식 = Drows(0)("name")
New냉방.냉동기용량 = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
New냉방.열성능비 = FpSpread1_Sheet1.Cells(Row, ColIDX).Value : ColIDX += 1
If Not IsNumeric(New냉방.냉동기용량) Then New냉방.냉동기용량 = "0"
If Not IsNumeric(New냉방.열성능비) Then New냉방.열성능비 = "0"
DSET1.tbl_nangbangkiki.Addtbl_nangbangkikiRow(New냉방)
'//열관류율
'//면형태를 입력해야함 이것은 공용코드 1088에 들어있으며 코드형태로 들어간다
'//외벽(벽체),외벽(지붕),외벽(바닥),내벽(벽체),내벽(지붕),내벽(바닥),간벽,외부창,내부창,지중벽
DSET1.tbl_yk.Clear()
'//직접면하는
For Each dr면 As DS.tbl_myounRow In DSET1.tbl_myoun.Select("건축부위방식='외벽'")
dr면.열관류율 = FpSpread1_Sheet1.Cells(Row, ColIDX).Value
Next : ColIDX += 1
'//간접면하는
For Each dr면 As DS.tbl_myounRow In DSET1.tbl_myoun.Select("건축부위방식='내벽'")
dr면.열관류율 = FpSpread1_Sheet1.Cells(Row, ColIDX).Value
Next : ColIDX += 1
'//바닥
For Each dr면 As DS.tbl_myounRow In DSET1.tbl_myoun.Select("건축부위방식='외벽' and 방위='일사없음'") '//2018.04.24 수정
dr면.열관류율 = FpSpread1_Sheet1.Cells(Row, ColIDX).Value
Next : ColIDX += 1
'//지붕벽체
For Each dr면 As DS.tbl_myounRow In DSET1.tbl_myoun.Select("건축부위방식='외벽' and 방위='수평'") '//2018.04.24 수정
dr면.열관류율 = FpSpread1_Sheet1.Cells(Row, ColIDX).Value
Next : ColIDX += 1
'//현관문
For Each dr면 As DS.tbl_myounRow In DSET1.tbl_myoun.Select("건축부위방식='내부창' and 방위='일사없음'") '//2018.04.24 수정
dr면.투과율 = FpSpread1_Sheet1.Cells(Row, ColIDX).Value
dr면.열관류율 = FpSpread1_Sheet1.Cells(Row, ColIDX + 1).Value
Next : ColIDX += 2
'//확장창
For Each dr면 As DS.tbl_myounRow In DSET1.tbl_myoun.Select("건축부위방식='외부창'")
dr면.투과율 = FpSpread1_Sheet1.Cells(Row, ColIDX).Value
dr면.열관류율 = FpSpread1_Sheet1.Cells(Row, ColIDX + 1).Value
Next : ColIDX += 2
'//세대창
For Each dr면 As DS.tbl_myounRow In DSET1.tbl_myoun.Select("건축부위방식='내부창' and 방위<>'일사없음'") '//2018.04.24 수정
dr면.투과율 = FpSpread1_Sheet1.Cells(Row, ColIDX).Value
dr면.열관류율 = FpSpread1_Sheet1.Cells(Row, ColIDX + 1).Value
Next : ColIDX += 2
'//입력면의 자료를 업데이트해준다.
DSET1.AcceptChanges()
'//계산실행
Run_Calc(Row)
Next
If Not msgf Is Nothing Then
msgf.Close()
msgf.Dispose()
msgf = Nothing
End If
If StartNo = EndNo Then
Report_그래프.Visible = False
Report_그래프.Show()
End If
End Sub
Sub Run_Calc(Row As Integer)
'//현재데이터상태를 저장
DSET1.AcceptChanges()
DSETR1.AcceptChanges()
Dim Type As Calculator.ECalc = Calculator.ECalc.All '//요구량+소요량
Dim showmsg As String = "" '//추가표시메세지
Dim St As Date = Now '//계산시작
pLog.Add(">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>")
pLog.Add(String.Format("계산실행({0})", Type.ToString()))
pLog.Add(String.Format("시작시간 : {0}", St.ToString()))
pLog.Add("----------------------------------")
Dim Result As Boolean = Calc.Start(showmsg, Type, LogSB, 0)
Dim Ts As TimeSpan = Now - St '//계산경과시간을 표시해준다.
Dim calc_ok As Integer = 0
If Result Then '//파라미터 True 라면 소요량이 추가로 게산된다.
Calc.Summary.All()
If LogSB.ToString <> "" Then
FpSpread1_Sheet1.Cells(Row, 97).Value = LogSB.ToString
Else
FpSpread1_Sheet1.Cells(Row, 97).Value = "시간:" + Ts.ToString()
calc_ok = 1 '================================2014.04.17 계산이 완료되면 그래프를 보여줌
End If
Else
FpSpread1_Sheet1.Cells(Row, 97).Value = LogSB.ToString
End If
'//상태메세지창이 열려있다면 제거해준다.
If calc_ok = 1 Then
'//해당값을 기록한다.
Extract_Data(Row)
Else
'//빈값으로 기록을 한다.
Dim StartIDX As Integer = 100
For idx As Integer = StartIDX To StartIDX + 13
FpSpread1_Sheet1.Cells(Row, idx).Value = "--"
Next
End If
End Sub
Sub Extract_Data(Row As Integer)
Dim 신재생에너지 As Decimal
Dim 난방에너지 As Decimal
Dim 냉방에너지 As Decimal
Dim 급탕에너지 As Decimal
Dim 조명에너지 As Decimal
Dim 환기에너지 As Decimal
'Dim 합계 As Decimal
Dim BaseIndex As Integer = 90
Dim Dr2 As DSR.Graph_ReqUseRow
For Gubun As Short = 0 To 4
Select Case Gubun
Case 0 '//1차에너지소요량
Dim Sum As Decimal = (Result1.생산E(0).태양광전력생산량 + Result1.생산E(0).신재생열병합전력생산량) / (Result1.일차E소요량(0).난방전력 + Result1.일차E소요량(0).냉방전력 + Result1.일차E소요량(0).급탕전력 + Result1.일차E소요량(0).조명전력 + Result1.일차E소요량(0).환기전력)
Dim 난방 As Decimal = Sum * Result1.일차E소요량(0).난방전력 '//아마게산이안도잇으니 여기값들이 0이잇을거에요.
Dim 냉방 As Decimal = Sum * Result1.일차E소요량(0).냉방전력
Dim 조명 As Decimal = Sum * Result1.일차E소요량(0).조명전력
Dim 급탕 As Decimal = Sum * Result1.일차E소요량(0).급탕전력
Dim 환기 As Decimal = Sum * Result1.일차E소요량(0).환기전력
Dim 난방면적 As Decimal = 0
Dim 냉방면적 As Decimal = 0
Dim 조명면적 As Decimal = 0
Dim 급탕면적 As Decimal = 0
Dim 환기면적 As Decimal = 0
If Result1.사용면적.H <> 0 Then
난방면적 = TOSG(IIf(난방 = 0, 0, 난방 / Result1.사용면적.H))
End If
If Result1.사용면적.C <> 0 Then
냉방면적 = TOSG(IIf(냉방 = 0, 0, 냉방 / Result1.사용면적.C))
End If
If Result1.사용면적.L <> 0 Then
조명면적 = TOSG(IIf(조명 = 0, 0, 조명 / Result1.사용면적.L))
End If
If Result1.사용면적.W <> 0 Then
급탕면적 = TOSG(IIf(급탕 = 0, 0, 급탕 / Result1.사용면적.W))
End If
If Result1.사용면적.V <> 0 Then
환기면적 = TOSG(IIf(환기 = 0, 0, 환기 / Result1.사용면적.V))
End If
Dim 전기 As Decimal = 난방면적 + 냉방면적 + 조명면적 + 급탕면적 + 환기면적
'//열병합신재생에너지추가 130831 arin
신재생에너지 = -1 * (Result1.생산E(0).면적당생산량태양열 + Result1.생산E(0).신재생면적당열생산량 + Result1.생산E(0).면적당생산량지열 + 전기 * 2.75)
'//1차에너지소요량
난방에너지 = Result1.일차E소요량(0).난방면적
냉방에너지 = Result1.일차E소요량(0).냉방면적
급탕에너지 = Result1.일차E소요량(0).급탕면적
조명에너지 = Result1.일차E소요량(0).조명면적
환기에너지 = Result1.일차E소요량(0).환기면적
FpSpread1_Sheet1.Cells(Row, BaseIndex).Value = 난방에너지 + 냉방에너지 + 급탕에너지 + 조명에너지 + 환기에너지
FpSpread1_Sheet1.Cells(Row, BaseIndex + 8).Value = 난방에너지
FpSpread1_Sheet1.Cells(Row, BaseIndex + 9).Value = 냉방에너지
FpSpread1_Sheet1.Cells(Row, BaseIndex + 10).Value = 급탕에너지
FpSpread1_Sheet1.Cells(Row, BaseIndex + 11).Value = 조명에너지
FpSpread1_Sheet1.Cells(Row, BaseIndex + 12).Value = 환기에너지
Case 1 '//에너지소요량
Dim Sum As Decimal = (Result1.생산E(0).태양광전력생산량 + Result1.생산E(0).신재생열병합전력생산량) / (Result1.일차E소요량(0).난방전력 + Result1.일차E소요량(0).냉방전력 + Result1.일차E소요량(0).급탕전력 + Result1.일차E소요량(0).조명전력 + Result1.일차E소요량(0).환기전력)
Dim 난방 As Decimal = Sum * Result1.일차E소요량(0).난방전력 '//아마게산이안도잇으니 여기값들이 0이잇을거에요.
Dim 냉방 As Decimal = Sum * Result1.일차E소요량(0).냉방전력
Dim 조명 As Decimal = Sum * Result1.일차E소요량(0).조명전력
Dim 급탕 As Decimal = Sum * Result1.일차E소요량(0).급탕전력
Dim 환기 As Decimal = Sum * Result1.일차E소요량(0).환기전력
Dim 난방면적 As Decimal = 0
Dim 냉방면적 As Decimal = 0
Dim 조명면적 As Decimal = 0
Dim 급탕면적 As Decimal = 0
Dim 환기면적 As Decimal = 0
If Result1.사용면적.H <> 0 Then
난방면적 = TOSG(IIf(난방 = 0, 0, 난방 / Result1.사용면적.H))
End If
If Result1.사용면적.C <> 0 Then
냉방면적 = TOSG(IIf(냉방 = 0, 0, 냉방 / Result1.사용면적.C))
End If
If Result1.사용면적.L <> 0 Then
조명면적 = TOSG(IIf(조명 = 0, 0, 조명 / Result1.사용면적.L))
End If
If Result1.사용면적.W <> 0 Then
급탕면적 = TOSG(IIf(급탕 = 0, 0, 급탕 / Result1.사용면적.W))
End If
If Result1.사용면적.V <> 0 Then
환기면적 = TOSG(IIf(환기 = 0, 0, 환기 / Result1.사용면적.V))
End If
Dim 면적 As Decimal = 난방면적 + 냉방면적 + 조명면적 + 급탕면적 + 환기면적
'//열병합신재생에너지추가 130831 arin
신재생에너지 = -1 * (Result1.생산E(0).면적당생산량태양열 + Result1.생산E(0).신재생면적당열생산량 + Result1.생산E(0).면적당생산량지열) - 면적
난방에너지 = Result1.E소요량(0).난방면적
냉방에너지 = Result1.E소요량(0).냉방면적
급탕에너지 = Result1.E소요량(0).급탕면적
조명에너지 = Result1.E소요량(0).조명면적
환기에너지 = Result1.E소요량(0).환기면적
FpSpread1_Sheet1.Cells(Row, BaseIndex - 1).Value = 난방에너지 + 냉방에너지 + 급탕에너지 + 조명에너지 + 환기에너지
FpSpread1_Sheet1.Cells(Row, BaseIndex - 8).Value = 난방에너지
FpSpread1_Sheet1.Cells(Row, BaseIndex - 7).Value = 냉방에너지
FpSpread1_Sheet1.Cells(Row, BaseIndex - 6).Value = 급탕에너지
FpSpread1_Sheet1.Cells(Row, BaseIndex - 5).Value = 조명에너지
FpSpread1_Sheet1.Cells(Row, BaseIndex - 4).Value = 환기에너지
FpSpread1_Sheet1.Cells(Row, BaseIndex - 3).Value = 신재생에너지
Case 2 '//에너지요구량
신재생에너지 = 0
난방에너지 = Result1.E요구량(0).난방면적
냉방에너지 = Result1.E요구량(0).냉방면적
급탕에너지 = Result1.E요구량(0).급탕면적
조명에너지 = Result1.E요구량(0).조명면적
환기에너지 = 0
FpSpread1_Sheet1.Cells(Row, BaseIndex - 2).Value = 난방에너지 + 냉방에너지 + 급탕에너지 + 조명에너지 + 환기에너지
FpSpread1_Sheet1.Cells(Row, BaseIndex + 3).Value = 난방에너지
FpSpread1_Sheet1.Cells(Row, BaseIndex + 4).Value = 냉방에너지
FpSpread1_Sheet1.Cells(Row, BaseIndex + 5).Value = 급탕에너지
FpSpread1_Sheet1.Cells(Row, BaseIndex + 6).Value = 조명에너지
FpSpread1_Sheet1.Cells(Row, BaseIndex + 7).Value = 환기에너지
Case 3 '//co2발생량
신재생에너지 = 0
난방에너지 = Result1.Co2발생량(0).난방면적
냉방에너지 = Result1.Co2발생량(0).냉방면적
급탕에너지 = Result1.Co2발생량(0).급탕면적
조명에너지 = Result1.Co2발생량(0).조명면적
환기에너지 = Result1.Co2발생량(0).환기면적
FpSpread1_Sheet1.Cells(Row, BaseIndex + 1).Value = 난방에너지 + 냉방에너지 + 급탕에너지 + 조명에너지 + 환기에너지
Case 4 '//1차에너지소요량(+계수) + 131020
신재생에너지 = 0
If (Result1.사용면적.H_WF = 0) Then
난방에너지 = 0
Else
난방에너지 = Result1.일차E소요량(0).난방면적2 * Result1.사용면적.H / Result1.사용면적.H_WF
End If
If (Result1.사용면적.C_WF = 0) Then
냉방에너지 = 0
Else
냉방에너지 = TOSG(Result1.일차E소요량(0).냉방면적 * Result1.사용면적.C / Result1.사용면적.C_WF)
End If
If (Result1.사용면적.W_WF = 0) Then
급탕에너지 = 0
Else
급탕에너지 = Result1.일차E소요량(0).급탕면적2 * Result1.사용면적.W / Result1.사용면적.W_WF
End If
If (Result1.사용면적.L_WF = 0) Then
조명에너지 = 0
Else
조명에너지 = Result1.일차E소요량(0).조명면적 * Result1.사용면적.L / Result1.사용면적.L_WF
End If
If (Result1.사용면적.V_WF = 0) Then
환기에너지 = 0
Else
환기에너지 = Result1.일차E소요량(0).환기면적 * Result1.사용면적.V / Result1.사용면적.V_WF
End If
FpSpread1_Sheet1.Cells(Row, BaseIndex + 2).Value = 난방에너지 + 냉방에너지 + 급탕에너지 + 조명에너지 + 환기에너지
FpSpread1_Sheet1.Cells(Row, BaseIndex + 13).Value = 난방에너지
FpSpread1_Sheet1.Cells(Row, BaseIndex + 14).Value = 냉방에너지
FpSpread1_Sheet1.Cells(Row, BaseIndex + 15).Value = 급탕에너지
FpSpread1_Sheet1.Cells(Row, BaseIndex + 16).Value = 조명에너지
FpSpread1_Sheet1.Cells(Row, BaseIndex + 17).Value = 환기에너지
End Select
Next
End Sub
End Class

24
ArinWarev1/MdiMain.Designer.vb generated
View File

@@ -37,7 +37,6 @@ Partial Class MdiMain
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.ReportToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.btNew = New System.Windows.Forms.ToolStripMenuItem()
Me.신규코드업로드ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem7 = New System.Windows.Forms.ToolStripSeparator()
Me.btOpen = New System.Windows.Forms.ToolStripMenuItem()
Me.bt_filesave = New System.Windows.Forms.ToolStripMenuItem()
@@ -58,6 +57,7 @@ Partial Class MdiMain
Me.환경설정ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.실행ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.btMacro = New System.Windows.Forms.ToolStripMenuItem()
Me.btMacro2 = New System.Windows.Forms.ToolStripMenuItem()
Me.bt_계산결과 = New System.Windows.Forms.ToolStripMenuItem()
Me.계산결과ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.bt_인증평가서 = New System.Windows.Forms.ToolStripMenuItem()
@@ -188,7 +188,7 @@ Partial Class MdiMain
'
'ReportToolStripMenuItem
'
Me.ReportToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.btNew, Me.신규코드업로드ToolStripMenuItem, Me.ToolStripMenuItem7, Me.btOpen, Me.bt_filesave, Me.btSaveNew, Me.정보ToolStripMenuItem, Me.bt_데이터관리, Me.btImport, Me.ToolStripMenuItem5, Me.lbl_p1, Me.lbl_p2, Me.lbl_p3, Me.lbl_p4, Me.lbl_p5, Me.ToolStripMenuItem6, Me.종료ToolStripMenuItem})
Me.ReportToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.btNew, Me.ToolStripMenuItem7, Me.btOpen, Me.bt_filesave, Me.btSaveNew, Me.정보ToolStripMenuItem, Me.bt_데이터관리, Me.btImport, Me.ToolStripMenuItem5, Me.lbl_p1, Me.lbl_p2, Me.lbl_p3, Me.lbl_p4, Me.lbl_p5, Me.ToolStripMenuItem6, Me.종료ToolStripMenuItem})
Me.ReportToolStripMenuItem.Image = CType(resources.GetObject("ReportToolStripMenuItem.Image"), System.Drawing.Image)
Me.ReportToolStripMenuItem.Name = "ReportToolStripMenuItem"
Me.ReportToolStripMenuItem.Size = New System.Drawing.Size(57, 20)
@@ -201,14 +201,6 @@ Partial Class MdiMain
Me.btNew.Size = New System.Drawing.Size(244, 22)
Me.btNew.Text = "신규"
'
'신규코드업로드ToolStripMenuItem
'
Me.신규코드업로드ToolStripMenuItem.ForeColor = System.Drawing.Color.Red
Me.신규코드업로드ToolStripMenuItem.Name = "신규코드업로드ToolStripMenuItem"
Me.신규코드업로드ToolStripMenuItem.Size = New System.Drawing.Size(244, 22)
Me.신규코드업로드ToolStripMenuItem.Text = "신규코드 업로드"
Me.신규코드업로드ToolStripMenuItem.Visible = False
'
'ToolStripMenuItem7
'
Me.ToolStripMenuItem7.Name = "ToolStripMenuItem7"
@@ -326,7 +318,7 @@ Partial Class MdiMain
'
'환경설정ToolStripMenuItem
'
Me.환경설정ToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.실행ToolStripMenuItem, Me.btMacro})
Me.환경설정ToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.실행ToolStripMenuItem, Me.btMacro, Me.btMacro2})
Me.환경설정ToolStripMenuItem.Image = CType(resources.GetObject("환경설정ToolStripMenuItem.Image"), System.Drawing.Image)
Me.환경설정ToolStripMenuItem.Name = "환경설정ToolStripMenuItem"
Me.환경설정ToolStripMenuItem.Size = New System.Drawing.Size(57, 20)
@@ -346,6 +338,14 @@ Partial Class MdiMain
Me.btMacro.Text = "일괄실행"
Me.btMacro.Visible = False
'
'btMacro2
'
Me.btMacro2.ForeColor = System.Drawing.Color.Blue
Me.btMacro2.Name = "btMacro2"
Me.btMacro2.Size = New System.Drawing.Size(124, 22)
Me.btMacro2.Text = "Macro II"
Me.btMacro2.Visible = False
'
'bt_계산결과
'
Me.bt_계산결과.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.계산결과ToolStripMenuItem, Me.bt_인증평가서, Me.업로드양식ToolStripMenuItem})
@@ -801,7 +801,6 @@ Partial Class MdiMain
Friend WithEvents 데이터비교ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents 순실체적ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents 업로드양식ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents 신규코드업로드ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents WindowsMenu As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents NewWindowToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents CascadeToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
@@ -821,5 +820,6 @@ Partial Class MdiMain
Friend WithEvents btMacro As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents BatchUpdateProfileToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents btcustomprofile As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents btMacro2 As System.Windows.Forms.ToolStripMenuItem
End Class

132
ArinWarev1/MdiMain.resx
View File

@@ -331,72 +331,72 @@
<value>
iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAA9cSURBVHhe7ZpZUFzZecd7ajyu2EmqkjhVeXCeUnn1Sx5T
lXLlJVWpuJIXyx47tsf2ZEYSAoEkQEIsrWZH7JvYBBoksYhdSEJIIDXa2AQaLYxmBAgQElt3A80iQEvz
T33fOefe0xewpLGnalzFV/Wvc/v25d77/fr/fef0bWy27diO7diO7diO7dgOm81mb574flrz4t8nNiz8
gJTe6v27pPPevyVlNs7/zZuUemnqL63n/LOIoOz+/NDCByupZ77CH6vYvKEXITl3buyoqXnfep1vbezK
ubU84H6NF6+Be1Ov0fTFy6+lsw9f4tLIa6TUO33B2f2R1ut8a+NQaffahYfLuDW4hqyLC0i78C5a5DGd
tluETvc+R3DmndWg5O5/tF7rWxnBmZ+vlnR5RQIqsRaZlJak3/v6a3msefwC7Pa89f35/Tet1/pWhgLA
SXBSi0hrIVkAcLL++9NbSArColDLAgqcS3Cc+OrV3qzekj25PT8IyHP+1TepT4v6PrDm9dZxsGRgpbhT
JKUgUCLGpyyTFMmqbQlDsz+/p4C1LKDt0QvY7Znr1kb5TSkoq69nZ3rnD635vTEUAJG8lqD8RFVtKwCc
tEpWukEc7//3ZdeWMLngg2cVuDm9/o2qywXY7bnrezJ7u6z5vTHCCMAtlZRua1EK/p+8AGK6QN+nlYM2
mn+vSks7vyy3jeeSzjNgb/x7U4vIbVtEy9Ar7MnuW7Tbnd+x5rhl7NhR8z71gKKbXqRe8FpOrG5Iv6gO
RAdkfc8Eop/LEM022rGbgd7wN2rfRev90L4FZF1eQvDRnqV96Z3fs+a5ZfzY7vwOASi86UVig1uzsVCG
vFm6qLhxKXkj/kltcsxWiRjHvOFcbyO6P3mOPTn9i+8E4NNP+z4IK+5eK7jhRVztNBIaXCJp7SYy9JtR
+9T2Rcv7hsyb4mP04+U2jfy3CpYORbuOOP+Ceaz1frTzfi0AocXda8eue+E4M4nYmikNgvnJiYsvaTes
7dcTkUCELMfrIHgU71tlPa95bsvx6hza9d8ZwEd2518QgILrXtirnsFRPYEjZyYRXzeD1PNec2q8uGQ0
J7qYaGBemZRaB1APMT9N/5v3B+QPyj+pje8rkEt+H4K5zzz2nQH8dF/n9wLynC/yr3kRdXocMRXjiKl6
hiMMYgrxdaIsEhpdSGpyI7HRg6SzHiSfnUUyjU1iO6lpFiln54SahVLPeXH0/DzSSPpUqpJoFc2LxK8V
4Fb5/ibOMo6xQpD7CIDNZnvPmueW8d9hTX9NAPKcczhUPoLD5aOIOv2EFV0xzq6wVwsgjjMTcFRPwlE7
hdi6acTVTiGuRqp2mmGx6meQUD+DOIJXJ7bJUbyfXte5kFDvYrCJ9TNIrKdR29cwg0SCXif2J9a5kFTn
RlK9G8kNLqF6N1J4242URhdSGj1IqXdj79GeJZsNCsB7cntrIApA7tVZhJUMIrxsGIc/e4zDJ0dx+OQY
ok6PMYjoiqeIqRRiKMolpCo5VpuwBLBJAY16C21XTyC2mvqMFAGsnWZQuuJrJhB/ZhIJtVNIqJ1EYt0U
K6l2Gol100iqn0Zy/RSS6mekppHSMI3khhnsyr61rHID/kDiKn5ib/5+qP3BS3JAWOkQDp0YRsRnI4go
H0XEyVFEniIITxBdSaLykAAoQQMAAZkwwGwmKiuxTa4aZ1iOmgnE1k4glsY60iTi6icQ3zCFhMYpxDdO
I4HEjpCiUmwUY2KjG0k8upDcOMMlarcPvI4uGVj5QwopeTgXmN370AJgHmGl5AABgcohgkri1CiiTpEL
REnEVI5z7XaOvITr+ToGXD7cmxG6Oy30+bQPd6Z8uDPpQ9+kD7cnfeglTfjQPeFD1zMfOp/5cOupDzef
+nBj3IfrT3y49sSHjic+XB3z4cqoD+2jPrSRRny4JNX6WOji11TLsA+1918hrtbpYwA77DXfDbXff5nX
MY/Q4keiDI4P4SCDeCxBjCLy9Bi7gazb9PkafOvAl5OvkHlpGRmXlnnMvLyMrLbnyGx7zmM2je0ryG5/
jmwehXKurCD3ygpyrq4iV1OecxW5zjUe83lcE2PHKvI71v6kij0x+ooB0Erwo8L7r6gE9hd9iQPFXyG0
ZBChxwcRXkoghnHos2F2Q2T5KIo753C6ewWZl2T3pY5NEFolhEvPWVmXlwWIywJGFkFoW2EoBCCHQDCM
VQHkKkGRICQMJT8IBGWThN5VO3O75mUXwHsKQHDBF9hX+FAD8QjhBEKWRUzVOEp75pF9aRGp/CVGzMtp
CkSrAKEcwSOBUDAMCVcQAHaEdAVLOULBMEAIZ+R1SIf8Ea5IOetGUHa/U5TAjpr3D9jvv87rmMPe/AcI
PjaAkIKHAoSEwCBKh5DX4UbBtQUkN9MXJ4KwhFT+QuQPIl2BkDAUEHYDlYlyRduKKJVNSoScoSCwO6Qz
cgnCVVEeyh2cmCwXa7KbKaRoYG53eve/SwfYbAfs917ndcwiMPcegvLuM4iQYwPYR46QbqAGWdozh7QL
80g6SwscArCAowxCOWKRITAIJXaGdAfDoBJRMDRHMAjNERoIP2foPYMdYsIQztiYsK6M1gUEZfaMGckb
AJweBGTfxZ6cewjMvY+gvAcIzic3DLAbUi9MovCaF/ENcwwg5dwCUs4t4ijpvAaiRbiCRnaGdMdGEKpx
yp7RZjpDd0O2Kg3DFf4wuHFeXbOUiwBDCVPJ6ABCTwwtBaT3fOIH4MeFTh8B2JV5B7uzPsee7LsIzLmH
oNz72Esgjg2gpGsW6RfmEN8wi6SzVAYLSD7nRUozgRBiEOcJiHKFgKBLwFhGxkVLmVCfIHcYrjBnEuUK
/1lElYhsoMYsojtD9AzRL1aRfeU5gjJ65zZ8V1AAdqb3YVd6P4MI0EDEVI6g8MY8YmvcSGicQ2KTl11A
YhDNNCpXLCBFQlAglDvSFBCjTJb9+4VqoOQK2TwNV7DMEjGcoUrl6qrhDO4VfmUi5MgbfxGYdTvTL3kD
QIcHn6T24tO02wJERj92M4i7KLjhQdqFWTgYwDwDYAhN80hiGKIvCBAEwYtkBqE5gyAYzhAwVANVzqBv
fWpaVdOpUSLKGQYQ6humI8zmqTlEgWBXrGBvVr93098qFICPU7rxf0d7JIg+7Ezvx77CL1B0cxb26mkc
qfFwD0ggEQglAsGOkCAMGLJEZJmIEjFhCGcQCLNxGlOq7g6tX2SpfqEWWjyTbDKdtot+QbYnZ9DvFIGZ
ty9ac+fYb7ev53d48LukLvw+uRsfp/RIELeR3T6N9AseRJ6aQFzdLOLqZxFfT72ANI8EJYZBziBXKCAE
Y8HoGVweRs+QzdMAYTZONZuYM4mEoa04DSBazyBH8MpTrjNoyuWFV/sKQgp653an9f6rNXcOAkAO+G3C
Lfw2sZNBfJzcjZ1pffzpO6qnEF1JX4FnBYS6OcQRBF0N84in/tAoYTQJIKJE9J4hy0RrnlwqEgTDkBBo
NF2xzD1D9Qqx6jTFK08NCG3T8wKCkXp+DgHZtweteRshALjxm7ib+Cj+JoP4XWInEhvHkdnqxuGTEzhS
44ajdpYVS5IwYusJBjlDuUJIlYhRKtwzvEhUMJppNJ2hRj9X0JSqry+0UjFcwT1D9gvuGcIh1F/oPXLA
obJHi7vTu39jzdsIBuB041eO6/h17A0J4hY3P/r0IwjAGQ8cNSRqhnKUMIQrpGSJKCBmeUgo3EDnkUj9
okn2CzWbMAg5m6hZREkvEX4kt0mJyDKhHkIgCQgdG5jW59lhH/iuNW8jFID/PXINv3Jcw69jryOifBC5
7R6El40jutIFe7UH9jNuBmHCMKHE1nrgIEdIGa4gGEa/0IDIEhEw5IzC/YJmEOuUaukVNJ2q5qmDkFNr
SvM8z0SZrcsIyBulqS/RmrNf7C+4y+v8X8Y48Ut7B4PIc87yk56DJ54iptrNsmtiEDVunhkMIHqJyDIR
paKVSb2AwKVilIhXm01kA9XWFzylUnnIfqGAmCtPc0olSPENHvH64hKCsvq9e7O6/sGas18oAB9GX8Uv
op38nSCnfQ7hZU8QeWoK0VUuxFS5Ddlp9IOhgAgQYqRSEUAYigFDgDBLRPUM/wa6afNUrtDdQY1TW1/E
N84yAIJht2etB2X1Nlrz3RACgAs/j7yCD6OuIKOVVn2TCC2lp0AuoUqXAMGjCYNlwCA3mDCOGBDIHZ4N
zoiVztCnVZpJ9MapesUGZ/hNqcIRZHtHzQwfS2USktE7tyej81+s+W4IApDf4cLPDrfj98ldyLq8iPCy
MRz87BmiKlyIqnQhqmKGRwahxM5wIaaapIHgPkGjKBGH5g7DFZojRM/QplbVM6QjjJ5hmUXEMlw0T4IQ
V0fXn2EY9BQ6KKtvwJrrpqEA7Iho42f+cbUuHCihx2AznHgkQWDRa7ltBWE4Q5aLtTyUDGeo5mlxxabr
CwVClImxFNdL5KwXMVX0lNnNzggtvrcQkNHzM2uumwYBqL8zz1MgLSgOnXiCsNJxBqAURWOFC5EMQYhK
g8dK6Q6Z/GY9Q5WIcIcVhioTguAxG6dccPEsonqGtrbQ+0VsrRtRFZP8mnrAztRu11v/TE4Arny1KB41
N3gQXDC0AYAhSp63lSM0V6heId1glol0RjVNp6pMFBBzJjHKxLLYEjBkmajFVqNyhnAFJR9TOc0A6Nfu
gIzb0dY8t4wDhXdx7otlTC34EF46guBjQwxhX9FjhB4fs+gJK6xUaRzhpeNiLCM9RfgJU9RHDpHKJ3Co
/BkiyieETk7iMOnUlNDpKUSSKqYQVUFLb3IVjdOIqZxBTNWMAHhmRpaVi0fqL5GnJxFWNgZHrZubaGBW
n5f+L8ma55YRWvyAHxjQD6EhBUMIPjaoiV5rovctor/xU+EwQgqGxSi1z6qix6z92ri/WGkEB0pGcIDH
UbEtFXp81F+lowgrHUNE+TN2RqQ9bT0ws6/KmuOWUdSHDw4e/5IfGCQ1zPInSDf8LgCssiZvlQ7AAEGJ
WyAwCCUNAkuDQOsVKh0qkWD73Zd70jt/ZM1zy8h1vvgwJO8uPyyMrJn7s1ZElQu7MszfBt8qDpf11R6p
dvp2pXYjKPcB9hc+woGiwW9OxYMILRpEKI1K9EOMGkuGWGGsYYQd31zhx4dxsFTpMcKKBxFov/36Pz5K
TrDZbP9ks9ne7t/lfvjPP/rpv/3PJzttNtt//gn1X5vs20rvcuzbiJLfju3Yju3Yju3Yju3YjjfF/wOY
w1jCKMj0CgAAAABJRU5ErkJggg==
lXLlJVWpuJIXyx47tsf2ZEYSAoEkQEIsLXYQ+yY2gQZJLGIXkhASSI02NoFGC6MZAQKEBA3dDTSLAC3N
P/V955x7T1/AksaeqnEVX9W/zu3bl3vv9+v/953Tt7HZtmM7tmM7tmM7tmM7bDabvWXy++kti3+f1Ljw
A1JGm/fvks97/5aU1TT/N29S2iXnX1rP+WcRQTkDBaFFD1bSznyFP1Zx+cMvQnLv3NhRW/u+9Trf2tiV
e2t50P0aL14D95yv0fzFy6+lsw9f4tLoa6Q2OHzBOQOR1ut8a+NQWc/ahYfLuDW0huyLC0i/8C5a5DGD
tluFTvc9R3DWndWglJ5/tF7rWxnBWZ+vlnZ7RQIqsVaZlJak3/v6a3msefwC7Pa09f0FAzet1/pWhgLA
SXBSi0hvJVkAcLL++zNaSQrColDrAgodS4g98dWrvdl9pXvyen8QkO/4q29Snxb3f2DN663jYOngSkmX
SEpBoESMT1kmKZJV2xKGZn9+TwFrXUD7oxew25PWrY3ym1JQdn/vzoyuH1rze2MoACJ5LUH5iaraVgA4
aZWsdIM43v/vy68tYWrBB88qcHN6/RtVtwuw24+u78nq67bm98YIIwC3VFK6rUUp+H/yAojpAn2fVg7a
aP69Ki3t/LLcNp5LOs+AvfHvTS0ir30RrcOvsCenf9Fud3zHmuOWsWNH7fvUA4pvepF2wWs5sboh/aI6
EB2Q9T0TiH4uQzTbaMduBnrD36h9F633Q/sWkH15CcFHe5f2ZXR9z5rnlvFju+M7BKDophdJjW7NxkKZ
8mbpouLGpeSN+Ce1yTFbJWIc84ZzvY3o/uQ59uQOLL4TgE8/7f8grKRnrfCGF/F100hsdImktZvI1G9G
7VPbFy3vGzJvio/Rj5fbNPLfKlg6FO064vwL5rHW+9HO+7UAhJb0rB277kXsmSnE1To1COYnJy6+pN2w
tl9PRAIRshyvg+BRvG+V9bzmuS3Hq3No139nAB/ZHX9BAAqve2GvfobYmkkcOTOFhPoZpJ33mlPjxSWj
OdHFRAPzyqTUOoB6iPlp+t+8PyB/UP5JbXxfgVzy+xDMfeax7wzgp/u6vheQ73hRcM2LqNMTiKmcQEz1
MxxhEE4k1IuySGxyIbnZjaQmD5LPepBydhYpNDaL7eTmWaSenRNqEUo758XR8/NIJ+lTqUqiTTQvEr9W
gNvk+5s4yzjGCkHuIwA2m+09a55bxn+HNf81Ach3zOFQxSgOV4wh6vQTVnTlBLvCXiOAxJ6ZRGzNFGLr
nIirn0Z8nRPxtVJ10wyL1TCDxIYZxBO8erFNjuL99LrehcQGF4NNaphBUgON2r7GGSQR9HqxP6neheR6
N5Ib3EhpdAk1uJHK226kNrmQ2uRBaoMbe4/2LtlsUADek9tbA1EA8q7OIqx0COHlIzj82WMcPjmGwyfH
EXV6nEFEVz5FTJUQQ1EuIVXLscaEJYBNCWjUW2i7ZhJxNdRnpAhg3TSD0pVQO4mEM1NIrHMisW4KSfVO
VnLdNJLqp5HcMI2UBieSG2akppHaOI2Uxhnsyrm1rHID/kDiKn5ib/l+qP3BS3JAWNkwDp0YQcRno4io
GEPEyTFEniIITxBdRaLykAAoQQMAAZk0wGwmKiuxTa6aYFixtZOIq5tEHI31pCnEN0wiodGJxCYnEpqm
kUhiR0hRKTaJManJjWQeXUhpmuEStdsHX0eXDq78IYWUPpwLzOl7aAEwj7AycoCAQOUQQSVxagxRp8gF
oiRiqia4drtGX8L1fB2DLh/uzQjdnRb6fNqHO04f7kz50D/lw+0pH/pIkz70TPrQ/cyHrmc+3Hrqw82n
PtyY8OH6Ex+uPfGh84kPV8d9uDLmQ8eYD+2kUR8uSbU9Frr4NdU64kPd/VeIr3P4GMAOe+13Q+33X+Z3
ziO05JEog+PDOMggHksQY4g8Pc5uIOs2f74G3zrw5dQrZF1aRualZR6zLi8ju/05stqf85hDY8cKcjqe
I4dHodwrK8i7soLcq6vI05TvWEWeY43HAh7XxNi5ioLOtT+p4k6MvWIAtBL8qOj+KyqB/cVf4kDJVwgt
HULo8SGElxGIERz6bITdEFkxhpKuOZzuWUHWJdl9qWMThDYJ4dJzVvblZQHisoCRTRDaVxgKAcglEAxj
VQC5SlAkCAlDyQ8CQdkkoXfVzrzuedkF8J4CEFz4BfYVPdRAPEI4gZBlEVM9gbLeeeRcWkQaf4kR83K6
AtEmQChH8EggFAxDwhUEgB0hXcFSjlAwDBDCGfmd0iF/hCtSz7oRlDPgECWwo/b9A/b7r/M757C34AGC
jw0ipPChACEhMIiyYeR3ulF4bQEpLfTFiSAsIY2/EPmDyFAgJAwFhN1AZaJc0b4iSmWTEiFnKAjsDumM
PIJwVZSHcgcnJsvFmuxmCikenNud0fPv0gE22wH7vdf5nbMIzLuHoPz7DCLk2CD2kSOkG6hBlvXOIf3C
PJLP0gKHACzgKINQjlhkCAxCiZ0h3cEwqEQUDM0RDEJzhAbCzxl6z2CHmDCEMzYmrCuzbQFBWb3jRvIG
AIcHATl3sSf3HgLz7iMo/wGCC8gNg+yGtAtTKLrmRULjHANIPbeA1HOLOEo6r4FoFa6gkZ0h3bERhGqc
sme0m87Q3ZCjSsNwhT8MbpxX1yzlIsBQwlQyOoDQE8NLARm9n/gB+HGRw0cAdmXdwe7sz7En5y4Cc+8h
KO8+9hKIY4Mo7Z5FxoU5JDTOIvkslcECUs55kdpCIIQYxHkColwhIOgSMJaRedFSJtQnyB2GK8yZRLnC
fxZRJSIbqDGL6M4QPUP0i1XkXHmOoMy+uQ3fFRSAnRn92JUxwCACNBAxVaMoujGPuFo3EpvmkNTsZReQ
GEQLjcoVC0iVEBQI5Y50BcQok2X/fqEaKLlCNk/DFSyzRAxnqFK5umo4g3uFX5kIxeZPvAjMvp3ll7wB
oNODT9L68Gn6bQEicwC7GcRdFN7wIP3CLGIZwDwDYAjN80hmGKIvCBAEwYsUBqE5gyAYzhAwVANVzqBv
fWpaVdOpUSLKGQYQ6humI8zmqTlEgWBXrGBv9oB3098qFICPU3vwf0d7JYh+7MwYwL6iL1B8cxb2mmkc
qfVwD0gkEQglAsGOkCAMGLJEZJmIEjFhCGcQCLNxGlOq7g6tX2SrfqEWWjyTbDKddoh+QbYnZ9DvFIFZ
ty9ac+fYb7evF3R68Lvkbvw+pQcfp/ZKELeR0zGNjAseRJ6aRHz9LOIbZpHQQL2ANI9EJYZBziBXKCAE
Y8HoGVweRs+QzdMAYTZONZuYM4mEoa04DSBazyBH8MpTrjNoyuWFV8cKQgr75nan9/2rNXcOAkAO+G3i
Lfw2qYtBfJzSg53p/fzpx9Y4EV1FX4FnBYT6OcQTBF2N80ig/tAkYTQLIKJE9J4hy0RrnlwqEgTDkBBo
NF2xzD1D9Qqx6jTFK08NCG3T8wKCkXZ+DgE5t4eseRshALjxm/ib+CjhJoP4XVIXkpomkNXmxuGTkzhS
60Zs3SwrjiRhxDUQDHKGcoWQKhGjVLhneJGkYLTQaDpDjX6uoClVX19opWK4gnuG7BfcM4RDqL/Qe+SA
Q+WPFndn9PzGmrcRDMDhxq9ir+PXcTckiFvc/OjTjyAAZzyIrSVRM5SjhCFcISVLRAExy0NC4QY6jyTq
F82yX6jZhEHI2UTNIkp6ifAjuU1KRJYJ9RACSUDo2MD0fs8O++B3rXkboQD875Fr+FXsNfw67joiKoaQ
1+FBePkEoqtcsNd4YD/jZhAmDBNKXJ0HseQIKcMVBMPoFxoQWSIChpxRuF/QDGKdUi29gqZT1Tx1EHJq
TW2Z55koq20ZAfljNPUlWXP2i/2Fd3md/8sYB35p72QQ+Y5ZftJz8MRTxNS4WXZNDKLWzTODAUQvEVkm
olS0MmkQELhUjBLxarOJbKDa+oKnVCoP2S8UEHPlaU6pBCmh0SNeX1xCUPaAd2929z9Yc/YLBeDD6Kv4
RbSDvxPkdswhvPwJIk85EV3tQky125CdRj8YCogAIUYqFQGEoRgwBAizRFTP8G+gmzZP5QrdHdQ4tfVF
QtMsAyAYdnvyelB2X5M13w0hALjw88gr+DDqCjLbaNU3hdAyegrkEqpyCRA8mjBYBgxygwnjiAGB3OHZ
4Iw46Qx9WqWZRG+cqldscIbflCocQbaPrZ3hY6lMQjL75vZkdv2LNd8NQQAKOl342eEO/D6lG9mXFxFe
Po6Dnz1DVKULUVUuRFXO8MgglNgZLsTUkDQQ3CdoFCUSq7nDcIXmCNEztKlV9QzpCKNnWGYRsQwXzZMg
xNfT9WcYBj2FDsruH7TmumkoADsi2vmZf3ydCwdK6THYDCceSRBY9FpuW0EYzpDlYi0PJcMZqnlaXLHp
+kKBEGViLMX1EjnrRUw1PWV2szNCS+4tBGT2/sya66ZBABruzPMUSAuKQyeeIKxsggEoRdFY6UIkQxCi
0uCxSrpDJr9Zz1AlItxhhaHKhCB4zMYpF1w8i6ieoa0t9H4RV+dGVOUUv6YesDOtx/XWP5MTgCtfLYpH
zY0eBBcObwBgiJLnbeUIzRWqV0g3mGUinVFD06kqEwXEnEmMMrEstgQMWSZqsdWknCFcQcnHVE0zAPq1
OyDzdrQ1zy3jQNFdnPtiGc4FH8LLRhF8bJgh7Ct+jNDj4xY9YYWVKU0gvGxCjOWkpwg/YYr6yCFSxSQO
VTxDRMWk0MkpHCadcgqddiKSVOlEVCUtvclVNE4jpmoGMdUzAuCZGVlWLh6pv0SenkJY+Thi69zcRAOz
+730f0nWPLeM0JIH/MCAfggNKRxG8LEhTfRaE71vEf2Nn4pGEFI4IkapfVYVP2bt18b9JUqjOFA6igM8
joltqdDjY/4qG0NY2TgiKp6xMyLt8euBWf3V1hy3jOJ+fHDw+Jf8wCC5cZY/QbrhdwFglTV5q3QABghK
3AKBQShpEFgaBFqvUOlQiQTb777ck9H1I2ueW0ae48WHIfl3+WFhZO3cn7Uiql3YlWn+NvhWcbi8v+5I
jcO3K60HQXkPsL/oEQ4UD31zKhlCaPEQQmlUoh9i1Fg6zApjjSDs+OYKPz6Cg2VKjxFWMoRA++3X//FR
SqLNZvsnm832dv8u98N//tFP/+1/Ptlps9n+80+o/9pk31Z6l2PfRpT8dmzHdmzHdmzHdmzHdrwp/h8w
TliMzfocqQAAAABJRU5ErkJggg==
</value>
</data>
<data name="ToolStripButton3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">

68
ArinWarev1/MdiMain.vb
View File

@@ -124,6 +124,7 @@ Public Class MdiMain
bt_계산결과.Visible = False
bt_인증평가서.Visible = False
btImport.Visible = False
btMacro.Visible = False
'//서버로부터 사용여부 체크
'If L.Check_guest <> "OK" Then
' MsgBox("일반사용자에게는 아직 오픈되지 않았습니다.", MsgBoxStyle.Information, "확인")
@@ -138,6 +139,7 @@ Public Class MdiMain
'bt_계산결과그래프q.Visible = True
bt_인증평가서.Visible = True
btImport.Visible = True
btMacro.Visible = False
Case "BOTH1"
bt_데이터관리.Visible = True
Me.bt_etc.Visible = False
@@ -147,6 +149,7 @@ Public Class MdiMain
'bt_계산결과그래프q.Visible = True
bt_인증평가서.Visible = True
btImport.Visible = True
btMacro.Visible = False
Case "BOTH2"
bt_데이터관리.Visible = False
Me.bt_etc.Visible = False
@@ -156,6 +159,7 @@ Public Class MdiMain
'bt_계산결과그래프q.Visible = False
bt_인증평가서.Visible = False
btImport.Visible = False
btMacro.Visible = False
Case Else
bt_데이터관리.Visible = False
bt_계산결과그래프.Visible = False
@@ -164,8 +168,11 @@ Public Class MdiMain
bt_계산결과.Visible = False
bt_인증평가서.Visible = False
btImport.Visible = False
btMacro.Visible = False
End Select
btMacro2.Visible = btMacro.Visible
If Prj.UserAuthType_Real.StartsWith("BOTH_C_") Then
btcustomprofile.Visible = True
End If
@@ -3470,61 +3477,6 @@ ENDSTAT: '//오류발생시 강제종료를 위한 분기문
End Sub
Private Sub 신규코드업로드ToolStripMenuItem_Click(sender As Object, e As EventArgs)
If Prj.Opened Then
Work_msg_timer("열려있는 파일을 닫아야 사용 가능합니다", 10)
Return
End If
If MsgBox("신규파일의 코드를 갱신하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.YesNo, "확인") = MsgBoxResult.Yes Then
'물어야하니 if
Dim new_string As String
If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.09 추가
new_string = "\new"
Else
new_string = "\new1"
End If
Dim Srcfile As New System.IO.FileInfo(My.Application.Info.DirectoryPath & new_string)
Me.Open_File(Srcfile.FullName, True)
End If
End Sub
Private Sub 신규코드업로드ToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles 신규코드업로드ToolStripMenuItem.Click
If Prj.Opened Then
Work_msg_timer("열려있는 파일을 닫아주세요", 10)
Return
End If
'물어야하니 if
If MsgBox("새파일소스를 업데이트 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") <> MsgBoxResult.Ok Then Return '//ok 안하면 빠져나가기
Dim new_string As String
If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.09 추가
new_string = "\new"
Else
new_string = "\new1"
End If
Dim Srcfile As New System.IO.FileInfo(My.Application.Info.DirectoryPath & new_string)
If Srcfile.Exists = False Then
MsgBox("원본샘플파일이 존재하지않습니다", MsgBoxStyle.Critical, "확인")
Return '//복사할원본이 없으면 빠져나가기
End If
'/////////////////////////////////////////////////////////////////////////////////////////////////////////////저장파일 변조2011.03.16추가
'If Not (Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1") Then '//2011.03.09 추가
' Dim Desbuf() As Byte = {}
' Dim Source() As Byte = My.Computer.FileSystem.ReadAllBytes(SD.FileName)
' Desbuf = DeCryptArea(Source, New Byte() {&HAC, &H29, &H55, &H42})
' My.Computer.FileSystem.WriteAllBytes(SD.FileName, Desbuf, False)
'End If
'/////////////////////////////////////////////////////////////////////////////////////////////////////////////저장파일 변조2011.03.16추가
Me.Open_File(Srcfile.FullName, True)
End Sub
Private Sub CascadeToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles CascadeToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.Cascade)
End Sub
@@ -4003,4 +3955,10 @@ ENDSTAT: '//오류발생시 강제종료를 위한 분기문
f.ControlBox = True
f.ShowDialog()
End Sub
Private Sub MacroIIToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles btMacro2.Click
Menu_건물개요()
Dim f As New Frm_Macro2
f.Show()
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.2017.0122.1012")>
<Assembly: AssemblyFileVersion("1.2017.0122.1012")>
<Assembly: AssemblyVersion("1.2017.0122.1014")>
<Assembly: AssemblyFileVersion("1.2017.0122.1014")>

312
Setup1/Setup1.vdproj
View File

@@ -22,13 +22,7 @@
"Entry"
{
"MsmKey" = "8:_29FE169CCEBDEB4C07246AF3E1D7D1EF"
"OwnerKey" = "8:_FF450D40DC624BBDB22749D13FD2AC4C"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_2D348C4D6D7B458BA9A2FB1B0DAA93B4"
"OwnerKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_DF16200C7C9B40998C022F2E37D1E143"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
@@ -39,12 +33,6 @@
}
"Entry"
{
"MsmKey" = "8:_337AEEB2D0B04E4F93037792EAD5F9C9"
"OwnerKey" = "8:_UNDEFINED"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_3553677EF48046758F4A80B5C3FC17B4"
"OwnerKey" = "8:_UNDEFINED"
"MsmSig" = "8:_UNDEFINED"
@@ -70,7 +58,7 @@
"Entry"
{
"MsmKey" = "8:_4608D921DC658CD173C039AF16C5E283"
"OwnerKey" = "8:_FF450D40DC624BBDB22749D13FD2AC4C"
"OwnerKey" = "8:_DF16200C7C9B40998C022F2E37D1E143"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
@@ -82,13 +70,7 @@
"Entry"
{
"MsmKey" = "8:_4B290A29E53110D5B83008A4DD0873A2"
"OwnerKey" = "8:_FF450D40DC624BBDB22749D13FD2AC4C"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_4B290A29E53110D5B83008A4DD0873A2"
"OwnerKey" = "8:_F7DF6157CD83D46091E6404B3E2CE830"
"OwnerKey" = "8:_DF16200C7C9B40998C022F2E37D1E143"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
@@ -99,6 +81,12 @@
}
"Entry"
{
"MsmKey" = "8:_4B290A29E53110D5B83008A4DD0873A2"
"OwnerKey" = "8:_F7DF6157CD83D46091E6404B3E2CE830"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_59B3512FD7C9D2430BF7B3C6379B9C9D"
"OwnerKey" = "8:_4608D921DC658CD173C039AF16C5E283"
"MsmSig" = "8:_UNDEFINED"
@@ -130,7 +118,7 @@
"Entry"
{
"MsmKey" = "8:_6BB2F49C9D04D801E8DE021D6CE20C22"
"OwnerKey" = "8:_FF450D40DC624BBDB22749D13FD2AC4C"
"OwnerKey" = "8:_DF16200C7C9B40998C022F2E37D1E143"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
@@ -141,12 +129,6 @@
}
"Entry"
{
"MsmKey" = "8:_84A91CFD1A7C40E59B60E61C8A498EF0"
"OwnerKey" = "8:_UNDEFINED"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_88E9E9750BBC8DE9EFD32EE0994A73F2"
"OwnerKey" = "8:_29FE169CCEBDEB4C07246AF3E1D7D1EF"
"MsmSig" = "8:_UNDEFINED"
@@ -154,13 +136,13 @@
"Entry"
{
"MsmKey" = "8:_8BDE3E37C576268C85BFD64B9B0E7E24"
"OwnerKey" = "8:_FF450D40DC624BBDB22749D13FD2AC4C"
"OwnerKey" = "8:_DF16200C7C9B40998C022F2E37D1E143"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_8EC9C4E69441F73892A4C676310B7ABE"
"OwnerKey" = "8:_FF450D40DC624BBDB22749D13FD2AC4C"
"OwnerKey" = "8:_DF16200C7C9B40998C022F2E37D1E143"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
@@ -184,7 +166,7 @@
"Entry"
{
"MsmKey" = "8:_ADE6E41741BD7CD14907A44E54816E0D"
"OwnerKey" = "8:_FF450D40DC624BBDB22749D13FD2AC4C"
"OwnerKey" = "8:_DF16200C7C9B40998C022F2E37D1E143"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
@@ -202,7 +184,7 @@
"Entry"
{
"MsmKey" = "8:_CE47408D9D1AC3C1A1C987DBD7CA7F43"
"OwnerKey" = "8:_FF450D40DC624BBDB22749D13FD2AC4C"
"OwnerKey" = "8:_DF16200C7C9B40998C022F2E37D1E143"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
@@ -213,8 +195,14 @@
}
"Entry"
{
"MsmKey" = "8:_DF16200C7C9B40998C022F2E37D1E143"
"OwnerKey" = "8:_UNDEFINED"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_E5FD918B4BE4C70000A151506717226F"
"OwnerKey" = "8:_FF450D40DC624BBDB22749D13FD2AC4C"
"OwnerKey" = "8:_DF16200C7C9B40998C022F2E37D1E143"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
@@ -237,8 +225,68 @@
}
"Entry"
{
"MsmKey" = "8:_FF450D40DC624BBDB22749D13FD2AC4C"
"OwnerKey" = "8:_UNDEFINED"
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_DF16200C7C9B40998C022F2E37D1E143"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_4608D921DC658CD173C039AF16C5E283"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_59B3512FD7C9D2430BF7B3C6379B9C9D"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_36E293D174759AFAAD42CF70AA63402C"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_ECC375834F59CEFC1D106FE35A78C9C5"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_29FE169CCEBDEB4C07246AF3E1D7D1EF"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_F7DF6157CD83D46091E6404B3E2CE830"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_691C9DA50302E0464D0E64E97C1242A2"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_4B290A29E53110D5B83008A4DD0873A2"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_88E9E9750BBC8DE9EFD32EE0994A73F2"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_BFCB09EF0CA43B0269B207A4DB42D1BF"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
@@ -250,12 +298,6 @@
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_FF450D40DC624BBDB22749D13FD2AC4C"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_6BB2F49C9D04D801E8DE021D6CE20C22"
"MsmSig" = "8:_UNDEFINED"
}
@@ -283,66 +325,6 @@
"OwnerKey" = "8:_CE47408D9D1AC3C1A1C987DBD7CA7F43"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_F7DF6157CD83D46091E6404B3E2CE830"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_ECC375834F59CEFC1D106FE35A78C9C5"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_BFCB09EF0CA43B0269B207A4DB42D1BF"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_88E9E9750BBC8DE9EFD32EE0994A73F2"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_691C9DA50302E0464D0E64E97C1242A2"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_59B3512FD7C9D2430BF7B3C6379B9C9D"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_4B290A29E53110D5B83008A4DD0873A2"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_4608D921DC658CD173C039AF16C5E283"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_36E293D174759AFAAD42CF70AA63402C"
"MsmSig" = "8:_UNDEFINED"
}
"Entry"
{
"MsmKey" = "8:_UNDEFINED"
"OwnerKey" = "8:_29FE169CCEBDEB4C07246AF3E1D7D1EF"
"MsmSig" = "8:_UNDEFINED"
}
}
"Configurations"
{
@@ -509,26 +491,6 @@
"IsDependency" = "11:TRUE"
"IsolateTo" = "8:"
}
"{1FB2D0AE-D3B9-43D4-B9DD-F88EC61E35DE}:_2D348C4D6D7B458BA9A2FB1B0DAA93B4"
{
"SourcePath" = "8:C:\\ECO2\\debug_2016\\new1"
"TargetName" = "8:new1"
"Tag" = "8:"
"Folder" = "8:_6C7F44AB37914E6C92F78768ABD1BC22"
"Condition" = "8:"
"Transitive" = "11:FALSE"
"Vital" = "11:TRUE"
"ReadOnly" = "11:FALSE"
"Hidden" = "11:FALSE"
"System" = "11:FALSE"
"Permanent" = "11:FALSE"
"SharedLegacy" = "11:FALSE"
"PackageAs" = "3:1"
"Register" = "3:1"
"Exclude" = "11:FALSE"
"IsDependency" = "11:FALSE"
"IsolateTo" = "8:"
}
"{1FB2D0AE-D3B9-43D4-B9DD-F88EC61E35DE}:_3273FC8CB0914298B621226C45585341"
{
"SourcePath" = "8:C:\\ECO2\\debug_2016\\Data\\tbl_weather.dat"
@@ -549,26 +511,6 @@
"IsDependency" = "11:FALSE"
"IsolateTo" = "8:"
}
"{1FB2D0AE-D3B9-43D4-B9DD-F88EC61E35DE}:_337AEEB2D0B04E4F93037792EAD5F9C9"
{
"SourcePath" = "8:C:\\ECO2\\debug_2016\\new"
"TargetName" = "8:new"
"Tag" = "8:"
"Folder" = "8:_6C7F44AB37914E6C92F78768ABD1BC22"
"Condition" = "8:"
"Transitive" = "11:FALSE"
"Vital" = "11:TRUE"
"ReadOnly" = "11:FALSE"
"Hidden" = "11:FALSE"
"System" = "11:FALSE"
"Permanent" = "11:FALSE"
"SharedLegacy" = "11:FALSE"
"PackageAs" = "3:1"
"Register" = "3:1"
"Exclude" = "11:FALSE"
"IsDependency" = "11:FALSE"
"IsolateTo" = "8:"
}
"{1FB2D0AE-D3B9-43D4-B9DD-F88EC61E35DE}:_3553677EF48046758F4A80B5C3FC17B4"
{
"SourcePath" = "8:C:\\ECO2\\debug_2016\\Data\\weather_temp.dat"
@@ -895,26 +837,6 @@
"IsDependency" = "11:FALSE"
"IsolateTo" = "8:"
}
"{1FB2D0AE-D3B9-43D4-B9DD-F88EC61E35DE}:_84A91CFD1A7C40E59B60E61C8A498EF0"
{
"SourcePath" = "8:C:\\ECO2\\debug_2016\\newx1.ecox"
"TargetName" = "8:newx1.ecox"
"Tag" = "8:"
"Folder" = "8:_6C7F44AB37914E6C92F78768ABD1BC22"
"Condition" = "8:"
"Transitive" = "11:FALSE"
"Vital" = "11:TRUE"
"ReadOnly" = "11:FALSE"
"Hidden" = "11:FALSE"
"System" = "11:FALSE"
"Permanent" = "11:FALSE"
"SharedLegacy" = "11:FALSE"
"PackageAs" = "3:1"
"Register" = "3:1"
"Exclude" = "11:FALSE"
"IsDependency" = "11:FALSE"
"IsolateTo" = "8:"
}
"{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_88E9E9750BBC8DE9EFD32EE0994A73F2"
{
"AssemblyRegister" = "3:1"
@@ -1201,6 +1123,37 @@
"IsDependency" = "11:FALSE"
"IsolateTo" = "8:"
}
"{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_DF16200C7C9B40998C022F2E37D1E143"
{
"AssemblyRegister" = "3:1"
"AssemblyIsInGAC" = "11:FALSE"
"AssemblyAsmDisplayName" = "8:Eco2Ar, Version=1.2017.122.1014, Culture=neutral, processorArchitecture=x86"
"ScatterAssemblies"
{
"_DF16200C7C9B40998C022F2E37D1E143"
{
"Name" = "8:Eco2Ar.exe"
"Attributes" = "3:512"
}
}
"SourcePath" = "8:C:\\ECO2\\dotfus_2016\\Eco2Ar.exe"
"TargetName" = "8:"
"Tag" = "8:"
"Folder" = "8:_6C7F44AB37914E6C92F78768ABD1BC22"
"Condition" = "8:"
"Transitive" = "11:FALSE"
"Vital" = "11:TRUE"
"ReadOnly" = "11:FALSE"
"Hidden" = "11:FALSE"
"System" = "11:FALSE"
"Permanent" = "11:FALSE"
"SharedLegacy" = "11:FALSE"
"PackageAs" = "3:1"
"Register" = "3:1"
"Exclude" = "11:FALSE"
"IsDependency" = "11:FALSE"
"IsolateTo" = "8:"
}
"{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_E5FD918B4BE4C70000A151506717226F"
{
"AssemblyRegister" = "3:1"
@@ -1294,37 +1247,6 @@
"IsDependency" = "11:TRUE"
"IsolateTo" = "8:"
}
"{9F6F8455-1EF1-4B85-886A-4223BCC8E7F7}:_FF450D40DC624BBDB22749D13FD2AC4C"
{
"AssemblyRegister" = "3:1"
"AssemblyIsInGAC" = "11:FALSE"
"AssemblyAsmDisplayName" = "8:Eco2Ar, Version=1.2017.122.1010, Culture=neutral, processorArchitecture=x86"
"ScatterAssemblies"
{
"_FF450D40DC624BBDB22749D13FD2AC4C"
{
"Name" = "8:Eco2Ar.exe"
"Attributes" = "3:512"
}
}
"SourcePath" = "8:C:\\ECO2\\dotfus_2016\\Eco2Ar.exe"
"TargetName" = "8:"
"Tag" = "8:"
"Folder" = "8:_6C7F44AB37914E6C92F78768ABD1BC22"
"Condition" = "8:"
"Transitive" = "11:FALSE"
"Vital" = "11:TRUE"
"ReadOnly" = "11:FALSE"
"Hidden" = "11:FALSE"
"System" = "11:FALSE"
"Permanent" = "11:FALSE"
"SharedLegacy" = "11:FALSE"
"PackageAs" = "3:1"
"Register" = "3:1"
"Exclude" = "11:FALSE"
"IsDependency" = "11:FALSE"
"IsolateTo" = "8:"
}
}
"FileType"
{
@@ -1404,7 +1326,7 @@
"Name" = "8:Microsoft Visual Studio"
"ProductName" = "8:ECO2_2025V1"
"ProductCode" = "8:{1C694875-DBD9-43E7-A9DC-0EEE63429810}"
"PackageCode" = "8:{EAB0A25E-C4D2-4C79-9BF0-E9F5728A8E5F}"
"PackageCode" = "8:{172D8716-29F9-4949-8F2B-52F268078F21}"
"UpgradeCode" = "8:{650A91F6-635B-4C09-8A64-C123C180E487}"
"AspNetVersion" = "8:2.0.50727.0"
"RestartWWWService" = "11:FALSE"
@@ -1532,7 +1454,7 @@
"ShowCmd" = "3:1"
"IconIndex" = "3:0"
"Transitive" = "11:FALSE"
"Target" = "8:_FF450D40DC624BBDB22749D13FD2AC4C"
"Target" = "8:_DF16200C7C9B40998C022F2E37D1E143"
"Folder" = "8:_89D815457C274E5890E728BDBFF2EA16"
"WorkingFolder" = "8:_6C7F44AB37914E6C92F78768ABD1BC22"
"Icon" = "8:_5D29234F4F444C9AAE7845416706303D"
@@ -1546,7 +1468,7 @@
"ShowCmd" = "3:1"
"IconIndex" = "3:0"
"Transitive" = "11:FALSE"
"Target" = "8:_FF450D40DC624BBDB22749D13FD2AC4C"
"Target" = "8:_DF16200C7C9B40998C022F2E37D1E143"
"Folder" = "8:_8ACC8683286847D288C7D970B3389046"
"WorkingFolder" = "8:_6C7F44AB37914E6C92F78768ABD1BC22"
"Icon" = "8:_5D29234F4F444C9AAE7845416706303D"