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

macro 기능 추가 중. 엑세 업로드 양식 추가 예정

Browse Source
This commit is contained in:
ykh
2023-07-23 00:58:28 +09:00
parent 3eed3c6cd4
commit 48e3fecfc9
13 changed files with 3571 additions and 1925 deletions
Download Patch File Download Diff File Expand all files Collapse all files

839
ArinWarev1/ECO2_2022V2.vbproj Normal file
View File

@@ -0,0 +1,839 @@
<?xml version="1.0" encoding="utf-8"?>
<Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003" ToolsVersion="4.0">
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProductVersion>9.0.30729</ProductVersion>
<SchemaVersion>2.0</SchemaVersion>
<ProjectGuid>{D5C51BDE-68E5-42BC-B648-DB9CCF044703}</ProjectGuid>
<OutputType>WinExe</OutputType>
<StartupObject>Eco2Ar.My.MyApplication</StartupObject>
<RootNamespace>Eco2Ar</RootNamespace>
<AssemblyName>Eco2Ar</AssemblyName>
<MyType>WindowsForms</MyType>
<TargetZone>LocalIntranet</TargetZone>
<GenerateManifests>false</GenerateManifests>
<SignManifests>false</SignManifests>
<SignAssembly>false</SignAssembly>
<AssemblyOriginatorKeyFile>
</AssemblyOriginatorKeyFile>
<ManifestCertificateThumbprint>283B51AD9210178E1628176E6D96B5102FED9775</ManifestCertificateThumbprint>
<ManifestKeyFile>ArinWareT4_1_TemporaryKey.pfx</ManifestKeyFile>
<DelaySign>false</DelaySign>
<IsWebBootstrapper>true</IsWebBootstrapper>
<OptionStrict>Off</OptionStrict>
<FileUpgradeFlags>
</FileUpgradeFlags>
<UpgradeBackupLocation>
</UpgradeBackupLocation>
<OldToolsVersion>3.5</OldToolsVersion>
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
<ApplicationIcon>002.ico</ApplicationIcon>
<TargetFrameworkVersion>v4.0</TargetFrameworkVersion>
<TargetFrameworkProfile />
<PublishUrl>ftp://tindevil.com/www/mynetapp/t4/</PublishUrl>
<Install>true</Install>
<InstallFrom>Web</InstallFrom>
<UpdateEnabled>true</UpdateEnabled>
<UpdateMode>Foreground</UpdateMode>
<UpdateInterval>7</UpdateInterval>
<UpdateIntervalUnits>Days</UpdateIntervalUnits>
<UpdatePeriodically>false</UpdatePeriodically>
<UpdateRequired>false</UpdateRequired>
<MapFileExtensions>true</MapFileExtensions>
<InstallUrl>http://tindevil.com/mynetapp/t4/</InstallUrl>
<SupportUrl>http://tindevil.com</SupportUrl>
<ProductName>Energy%28Test Version%29</ProductName>
<PublisherName>Arinware</PublisherName>
<CreateWebPageOnPublish>true</CreateWebPageOnPublish>
<WebPage>index.htm</WebPage>
<ApplicationRevision>33</ApplicationRevision>
<ApplicationVersion>1.0.0.%2a</ApplicationVersion>
<UseApplicationTrust>false</UseApplicationTrust>
<BootstrapperEnabled>true</BootstrapperEnabled>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>..\..\..\..\..\eco2\debug_2016\</OutputPath>
<DocumentationFile>
</DocumentationFile>
<NoWarn>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036,42353,42354,42355</NoWarn>
<PlatformTarget>x86</PlatformTarget>
<WarningsAsErrors>
</WarningsAsErrors>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<DebugType>Full</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>c:\eco2\debug_2016\</OutputPath>
<DocumentationFile>
</DocumentationFile>
<NoWarn>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036,42353,42354,42355</NoWarn>
<DebugSymbols>true</DebugSymbols>
<PlatformTarget>x86</PlatformTarget>
<WarningsAsErrors>
</WarningsAsErrors>
<DefineConstants>MDI=true</DefineConstants>
</PropertyGroup>
<ItemGroup>
<Reference Include="FarPoint.CalcEngine, Version=5.0.3505.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457">
<Private>True</Private>
</Reference>
<Reference Include="FarPoint.Excel, Version=5.0.3505.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457">
<Private>True</Private>
</Reference>
<Reference Include="FarPoint.PDF, Version=5.0.3505.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457">
<Private>True</Private>
</Reference>
<Reference Include="FarPoint.PluginCalendar.WinForms, Version=5.0.3505.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457">
<Private>True</Private>
</Reference>
<Reference Include="FarPoint.Win, Version=5.0.3505.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457">
<Private>True</Private>
</Reference>
<Reference Include="FarPoint.Win.Chart, Version=5.0.3505.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457">
<Private>True</Private>
</Reference>
<Reference Include="FarPoint.Win.Spread, Version=5.0.3505.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457, processorArchitecture=MSIL">
<Private>True</Private>
</Reference>
<Reference Include="Interop.Excel, Version=1.5.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\Interop.Excel.dll</HintPath>
</Reference>
<Reference Include="Interop.VBIDE, Version=5.3.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\Interop.VBIDE.dll</HintPath>
</Reference>
<Reference Include="Microsoft.ReportViewer.Common, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<Reference Include="Microsoft.ReportViewer.WinForms, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" />
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Data.DataSetExtensions" />
<Reference Include="System.Drawing" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
</ItemGroup>
<ItemGroup>
<Import Include="ArinNet" />
<Import Include="CEnergy" />
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Drawing" />
<Import Include="System.Diagnostics" />
<Import Include="System.Windows.Forms" />
</ItemGroup>
<ItemGroup>
<Compile Include="ApplicationEvents.vb" />
<Compile Include="Calculator\Result\C1차소요량.vb" />
<Compile Include="Calculator\Result\CCo2발생량.vb" />
<Compile Include="Calculator\Result\C범용.vb" />
<Compile Include="Calculator\Result\CResult.vb" />
<Compile Include="Calculator\CShared.vb" />
<Compile Include="Calculator\Result\C사용면적.vb" />
<Compile Include="Calculator\Result\CZones.vb" />
<Compile Include="Calculator\Result\C생산에너지.vb" />
<Compile Include="Calculator\Result\C에너지소요량.vb" />
<Compile Include="Calculator\Result\C에너지분석.vb" />
<Compile Include="Calculator\Result\C에너지요구량.vb" />
<Compile Include="Calculator\CSummary.vb" />
<Compile Include="Calculator\Result\C최대냉난방부하.vb" />
<Compile Include="DataSet\Calculator_ALT\CZone_ALT.vb" />
<Compile Include="DataSet\DS.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>DS.xsd</DependentUpon>
</Compile>
<Compile Include="DataSet\DS.vb">
<DependentUpon>DS.xsd</DependentUpon>
</Compile>
<Compile Include="DataSet\DS2.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>DS2.xsd</DependentUpon>
</Compile>
<Compile Include="Forms_Basic\Frm_import.Designer.vb">
<DependentUpon>Frm_import.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Basic\Frm_import.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Basic\frm_Macro.Designer.vb">
<DependentUpon>frm_Macro.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Basic\frm_Macro.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Basic\fSelectWeatherGroup.Designer.vb">
<DependentUpon>fSelectWeatherGroup.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Basic\fSelectWeatherGroup.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Basic\fSelectArea.Designer.vb">
<DependentUpon>fSelectArea.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Basic\fSelectArea.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Input\frm_monuse.Designer.vb">
<DependentUpon>frm_monuse.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Input\frm_monuse.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Report\Frm_Export.Designer.vb">
<DependentUpon>Frm_Export.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Report\Frm_Export.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Report\Frm_Upload.Designer.vb">
<DependentUpon>Frm_Upload.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Report\Frm_Upload.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Report\Report_설계개선.Designer.vb">
<DependentUpon>Report_설계개선.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Report\Report_설계개선.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Frm_History.Designer.vb">
<DependentUpon>Frm_History.vb</DependentUpon>
</Compile>
<Compile Include="Frm_History.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Module\CMenu.vb" />
<Compile Include="UserControls\YkCtl.Designer.vb">
<DependentUpon>YkCtl.vb</DependentUpon>
</Compile>
<Compile Include="UserControls\YkCtl.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="Forms_Basic\Frm_DisplayGubun.Designer.vb">
<DependentUpon>Frm_DisplayGubun.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Basic\Frm_DisplayGubun.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Basic\Frm_Filter.Designer.vb">
<DependentUpon>Frm_Filter.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Basic\Frm_Filter.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Basic\Frm_Work.Designer.vb">
<DependentUpon>Frm_Work.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Basic\Frm_Work.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Report\Report_Total.Designer.vb">
<DependentUpon>Report_Total.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Report\Report_Total.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Input\Frm_v20091231_ResultMon.Designer.vb">
<DependentUpon>Frm_v20091231_ResultMon.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Input\Frm_v20091231_ResultMon.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Input\Frm_v20091231_ResultMax.Designer.vb">
<DependentUpon>Frm_v20091231_ResultMax.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Input\Frm_v20091231_ResultMax.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Input\Frm_v20091231_buha.Designer.vb">
<DependentUpon>Frm_v20091231_buha.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Input\Frm_v20091231_buha.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Basic\Frm_RepResult_Admin.Designer.vb">
<DependentUpon>Frm_RepResult_Admin.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Basic\Frm_RepResult_Admin.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Report\Report_그래프.Designer.vb">
<DependentUpon>Report_그래프.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Report\Report_그래프.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Input\Frm_Desc.Designer.vb">
<DependentUpon>Frm_Desc.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Input\Frm_Desc.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Report\Report_Graph_auth.Designer.vb">
<DependentUpon>Report_Graph_auth.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Report\Report_Graph_auth.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Input\Frm_nBunbae.Designer.vb">
<DependentUpon>Frm_nBunbae.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Input\Frm_nBunbae.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Basic\Frm_Warning.Designer.vb">
<DependentUpon>Frm_Warning.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Basic\Frm_Warning.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Basic\Frm_Calc.Designer.vb">
<DependentUpon>Frm_Calc.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Basic\Frm_Calc.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Input\Frm_YK.Designer.vb">
<DependentUpon>Frm_YK.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Input\Frm_YK.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Report\Report_pyonga.Designer.vb">
<DependentUpon>Report_pyonga.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Report\Report_pyonga.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Module\CLang.vb" />
<Compile Include="DataSet\DSR.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>DSR.xsd</DependentUpon>
</Compile>
<Compile Include="DataSet\DSR.vb">
<DependentUpon>DSR.xsd</DependentUpon>
</Compile>
<Compile Include="Calculator\CCooling.vb" />
<Compile Include="Calculator\CHeating.vb" />
<Compile Include="Calculator\CAirHandling.vb" />
<Compile Include="Calculator\Calculator.vb" />
<Compile Include="Module\Enum.vb" />
<Compile Include="Calculator\CRenewable.vb" />
<Compile Include="Calculator\CZone.vb" />
<Compile Include="Forms_Basic\Frm_Intro.Designer.vb">
<DependentUpon>Frm_Intro.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Basic\Frm_Intro.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Module\CForm.Designer.vb">
<DependentUpon>CForm.vb</DependentUpon>
</Compile>
<Compile Include="Module\CForm.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Module\Pub.vb" />
<Compile Include="MdiMain.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="MdiMain.Designer.vb">
<DependentUpon>MdiMain.vb</DependentUpon>
<SubType>Form</SubType>
</Compile>
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
<Compile Include="Forms_Input\Frm_v20091231_profile.Designer.vb">
<DependentUpon>Frm_v20091231_profile.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Input\Frm_v20091231_profile.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Input\Frm_Zone.Designer.vb">
<DependentUpon>Frm_Zone.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Input\Frm_Zone.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Input\Frm_kongjo.Designer.vb">
<DependentUpon>Frm_kongjo.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Input\Frm_kongjo.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Input\Frm_kongkub.Designer.vb">
<DependentUpon>Frm_kongkub.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Input\Frm_kongkub.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Input\Frm_Nanbang.Designer.vb">
<DependentUpon>Frm_Nanbang.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Input\Frm_Nanbang.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Input\Frm_NaengBang.Designer.vb">
<DependentUpon>Frm_NaengBang.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Input\Frm_NaengBang.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Input\Frm_Bunbae.Designer.vb">
<DependentUpon>Frm_Bunbae.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Input\Frm_Bunbae.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Input\Frm_New.Designer.vb">
<DependentUpon>Frm_New.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Input\Frm_New.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Input\Frm_v20091231_Myoun.Designer.vb">
<DependentUpon>Frm_v20091231_Myoun.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Input\Frm_v20091231_Myoun.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Basic\Frm_Common.Designer.vb">
<DependentUpon>Frm_Common.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Basic\Frm_Common.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Input\Frm_v20091231_Weather.Designer.vb">
<DependentUpon>Frm_v20091231_Weather.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Input\Frm_v20091231_Weather.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Forms_Basic\Frm_About.Designer.vb">
<DependentUpon>Frm_About.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Basic\Frm_About.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="UserControls\ArinDv.Designer.vb">
<DependentUpon>ArinDv.vb</DependentUpon>
</Compile>
<Compile Include="UserControls\ArinDv.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="UserControls\MyCmb.Designer.vb">
<DependentUpon>MyCmb.vb</DependentUpon>
</Compile>
<Compile Include="UserControls\MyCmb.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="UserControls\MyTb.Designer.vb">
<DependentUpon>MyTb.vb</DependentUpon>
</Compile>
<Compile Include="UserControls\MyTb.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="Forms_Basic\Frm_FileInfo.Designer.vb">
<DependentUpon>Frm_FileInfo.vb</DependentUpon>
</Compile>
<Compile Include="Forms_Basic\Frm_FileInfo.vb">
<SubType>Form</SubType>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="Forms_Basic\Frm_DisplayGubun.resx">
<DependentUpon>Frm_DisplayGubun.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Basic\Frm_Filter.resx">
<DependentUpon>Frm_Filter.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Basic\Frm_import.resx">
<DependentUpon>Frm_import.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Basic\frm_Macro.resx">
<DependentUpon>frm_Macro.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Basic\Frm_Work.resx">
<DependentUpon>Frm_Work.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Basic\fSelectWeatherGroup.resx">
<DependentUpon>fSelectWeatherGroup.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Basic\fSelectArea.resx">
<DependentUpon>fSelectArea.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Input\frm_monuse.resx">
<DependentUpon>frm_monuse.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Report\Frm_Export.resx">
<DependentUpon>Frm_Export.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Report\Frm_Upload.resx">
<DependentUpon>Frm_Upload.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Report\평가서.rdlc" />
<EmbeddedResource Include="Forms_Report\Report_Total.resx">
<SubType>Designer</SubType>
<DependentUpon>Report_Total.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Input\Frm_v20091231_ResultMon.resx">
<DependentUpon>Frm_v20091231_ResultMon.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Input\Frm_v20091231_ResultMax.resx">
<DependentUpon>Frm_v20091231_ResultMax.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Input\Frm_v20091231_buha.resx">
<DependentUpon>Frm_v20091231_buha.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Basic\Frm_RepResult_Admin.resx">
<DependentUpon>Frm_RepResult_Admin.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Report\Report_그래프.resx">
<DependentUpon>Report_그래프.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Report\그래프.rdlc" />
<EmbeddedResource Include="Forms_Input\Frm_Desc.resx">
<DependentUpon>Frm_Desc.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Report\Report_total.rdlc" />
<EmbeddedResource Include="Forms_Basic\Frm_Intro.resx">
<SubType>Designer</SubType>
<DependentUpon>Frm_Intro.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Report\Report_Graph_auth.resx">
<DependentUpon>Report_Graph_auth.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Report\Report_Graph_auth.rdlc" />
<EmbeddedResource Include="Forms_Input\Frm_nBunbae.resx">
<DependentUpon>Frm_nBunbae.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Basic\Frm_Warning.resx">
<DependentUpon>Frm_Warning.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Basic\Frm_Calc.resx">
<DependentUpon>Frm_Calc.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Input\Frm_YK.resx">
<DependentUpon>Frm_YK.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Report\Report_pyonga.resx">
<DependentUpon>Report_pyonga.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Report\Report_설계개선.resx">
<DependentUpon>Report_설계개선.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Report\Report_설계개선.rdlc" />
<EmbeddedResource Include="Frm_History.resx">
<DependentUpon>Frm_History.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Module\CForm.resx">
<DependentUpon>CForm.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\licenses.licx" />
<EmbeddedResource Include="MdiMain.resx">
<SubType>Designer</SubType>
<DependentUpon>MdiMain.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Input\Frm_v20091231_profile.resx">
<DependentUpon>Frm_v20091231_profile.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Input\Frm_Zone.resx">
<DependentUpon>Frm_Zone.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Input\Frm_kongjo.resx">
<DependentUpon>Frm_kongjo.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Input\Frm_kongkub.resx">
<DependentUpon>Frm_kongkub.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Input\Frm_Nanbang.resx">
<DependentUpon>Frm_Nanbang.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Input\Frm_NaengBang.resx">
<DependentUpon>Frm_NaengBang.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Input\Frm_Bunbae.resx">
<DependentUpon>Frm_Bunbae.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Input\Frm_New.resx">
<DependentUpon>Frm_New.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Input\Frm_v20091231_Myoun.resx">
<DependentUpon>Frm_v20091231_Myoun.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Basic\Frm_Common.resx">
<DependentUpon>Frm_Common.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Input\Frm_v20091231_Weather.resx">
<DependentUpon>Frm_v20091231_Weather.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Basic\Frm_About.resx">
<SubType>Designer</SubType>
<DependentUpon>Frm_About.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Forms_Basic\Frm_FileInfo.resx">
<DependentUpon>Frm_FileInfo.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="app.config" />
<None Include="DataSet\DS.xsc">
<DependentUpon>DS.xsd</DependentUpon>
</None>
<None Include="DataSet\DS.xsd">
<SubType>Designer</SubType>
<Generator>MSDataSetGenerator</Generator>
<LastGenOutput>DS.Designer.vb</LastGenOutput>
</None>
<None Include="DataSet\DS.xss">
<DependentUpon>DS.xsd</DependentUpon>
</None>
<None Include="DataSet\DS2.xsc">
<DependentUpon>DS2.xsd</DependentUpon>
</None>
<None Include="DataSet\DS2.xsd">
<SubType>Designer</SubType>
<Generator>MSDataSetGenerator</Generator>
<LastGenOutput>DS2.Designer.vb</LastGenOutput>
</None>
<None Include="DataSet\DS2.xss">
<DependentUpon>DS2.xsd</DependentUpon>
</None>
<None Include="login.dat">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</None>
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
</ItemGroup>
<ItemGroup>
<None Include="Resources\user_24.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\ref_24.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\user_16.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\group_24.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\adfav_16.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\addbk_24.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\addbk_16.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\wiz_16.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\paste_16.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\del_16.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\edit_16.png" />
</ItemGroup>
<ItemGroup>
<Content Include="002.ico" />
<Content Include="Template\Sample.tpl">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
<BaseApplicationManifest Include="My Project\app.manifest" />
<None Include="DataSet\DSR.xsc">
<DependentUpon>DSR.xsd</DependentUpon>
</None>
<None Include="DataSet\DSR.xsd">
<SubType>Designer</SubType>
<Generator>MSDataSetGenerator</Generator>
<LastGenOutput>DSR.Designer.vb</LastGenOutput>
</None>
<None Include="DataSet\DSR.xss">
<DependentUpon>DSR.xsd</DependentUpon>
</None>
<None Include="Resources\save_16.png" />
</ItemGroup>
<ItemGroup>
<BootstrapperPackage Include="Microsoft.Net.Client.3.5">
<Visible>False</Visible>
<ProductName>.NET Framework 3.5 SP1 Client Profile</ProductName>
<Install>false</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Framework.2.0">
<Visible>False</Visible>
<ProductName>.NET Framework 2.0%28x86%29</ProductName>
<Install>true</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Framework.3.0">
<Visible>False</Visible>
<ProductName>.NET Framework 3.0%28x86%29</ProductName>
<Install>false</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5">
<Visible>False</Visible>
<ProductName>.NET Framework 3.5</ProductName>
<Install>false</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
<Visible>False</Visible>
<ProductName>.NET Framework 3.5 SP1</ProductName>
<Install>false</Install>
</BootstrapperPackage>
</ItemGroup>
<ItemGroup>
<Content Include="001_B.ico" />
<Content Include="9-8.ico" />
<None Include="Resources\폼배경.jpg" />
<None Include="Resources\건물개요.jpg" />
<None Include="ECO2.png" />
<Content Include="icon5.ico" />
<None Include="Resources\select_by_difference.png" />
<None Include="Resources\page_copy.png" />
<Content Include="단축키.txt">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
<Content Include="ReadMe.txt" />
<None Include="Calculator\CD.cd" />
<None Include="Calculator\CD_RESULT.cd" />
<None Include="Resources\default.png" />
<None Include="Resources\apps_32.png" />
<None Include="Resources\new_32.png" />
<None Include="Resources\remov_32.png" />
<None Include="Resources\cancl_32.png" />
<Content Include="Template\ReadMe.txt">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
<Content Include="UpdateList.txt" />
<Content Include="Forms_Input\ReadMe.txt">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
<None Include="upload.xlsx">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</None>
<None Include="방위2.png" />
<None Include="방위.png" />
<None Include="방위.jpg" />
</ItemGroup>
<ItemGroup>
<PublishFile Include="ADODB">
<Visible>False</Visible>
<Group>
</Group>
<TargetPath>
</TargetPath>
<PublishState>Include</PublishState>
<IncludeHash>True</IncludeHash>
<FileType>Assembly</FileType>
</PublishFile>
<PublishFile Include="Microsoft.ReportViewer.ProcessingObjectModel">
<Visible>False</Visible>
<Group>
</Group>
<TargetPath>
</TargetPath>
<PublishState>Include</PublishState>
<IncludeHash>True</IncludeHash>
<FileType>Assembly</FileType>
</PublishFile>
</ItemGroup>
<ItemGroup>
<ProjectReference Include="..\ArinLogin\ArinLogin.vbproj">
<Project>{8B6E4D7F-B484-471A-A419-2FE3451D26A3}</Project>
<Name>ArinLogin</Name>
</ProjectReference>
<ProjectReference Include="..\ArinLog\ArinLog.vbproj">
<Project>{e9e16a98-8f8d-4848-a27e-4571c184fb1a}</Project>
<Name>ArinLog</Name>
</ProjectReference>
<ProjectReference Include="..\ArinNet\ArinNet.vbproj">
<Project>{F0FB4304-F995-446A-99B7-0896A5E07A72}</Project>
<Name>ArinNet</Name>
</ProjectReference>
<ProjectReference Include="..\CEnergy\ArinClassV2\CEnergy.vbproj">
<Project>{2AF28E8C-84F1-4D56-9592-3B0EBDE8DF14}</Project>
<Name>CEnergy</Name>
</ProjectReference>
<ProjectReference Include="..\Utility\Utility.csproj">
<Project>{B1FDE30A-B142-42D5-A6B8-5428D2F2E62A}</Project>
<Name>Utility</Name>
</ProjectReference>
</ItemGroup>
<ItemGroup />
<Import Project="$(MSBuildBinPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild">
</Target>
<Target Name="AfterBuild">
</Target>
-->
</Project>

84
ArinWarev1/Forms_Basic/frm_Macro.Designer.vb generated Normal file
View File

@@ -0,0 +1,84 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frm_Macro
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()
Me.tbPath = New System.Windows.Forms.TextBox()
Me.btPath = New System.Windows.Forms.Button()
Me.btcalc = New System.Windows.Forms.Button()
Me.prb1 = New System.Windows.Forms.ProgressBar()
Me.SuspendLayout()
'
'tbPath
'
Me.tbPath.Location = New System.Drawing.Point(149, 22)
Me.tbPath.Name = "tbPath"
Me.tbPath.Size = New System.Drawing.Size(272, 21)
Me.tbPath.TabIndex = 0
Me.tbPath.Text = "C:\Temp\sample\tplx"
'
'btPath
'
Me.btPath.Location = New System.Drawing.Point(12, 12)
Me.btPath.Name = "btPath"
Me.btPath.Size = New System.Drawing.Size(131, 39)
Me.btPath.TabIndex = 1
Me.btPath.Text = "path"
Me.btPath.UseVisualStyleBackColor = True
'
'btcalc
'
Me.btcalc.Location = New System.Drawing.Point(12, 83)
Me.btcalc.Name = "btcalc"
Me.btcalc.Size = New System.Drawing.Size(726, 39)
Me.btcalc.TabIndex = 2
Me.btcalc.Text = "calc"
Me.btcalc.UseVisualStyleBackColor = True
'
'prb1
'
Me.prb1.Dock = System.Windows.Forms.DockStyle.Bottom
Me.prb1.Location = New System.Drawing.Point(0, 146)
Me.prb1.Name = "prb1"
Me.prb1.Size = New System.Drawing.Size(750, 25)
Me.prb1.TabIndex = 4
'
'frm_Macro
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(750, 171)
Me.Controls.Add(Me.prb1)
Me.Controls.Add(Me.btcalc)
Me.Controls.Add(Me.btPath)
Me.Controls.Add(Me.tbPath)
Me.Name = "frm_Macro"
Me.Text = "frm_Macro"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents btPath As System.Windows.Forms.Button
Friend WithEvents btcalc As System.Windows.Forms.Button
Friend WithEvents prb1 As System.Windows.Forms.ProgressBar
Public WithEvents tbPath As System.Windows.Forms.TextBox
End Class

120
ArinWarev1/Forms_Basic/frm_Macro.resx Normal file
View File

@@ -0,0 +1,120 @@
<?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>
</root>

38
ArinWarev1/Forms_Basic/frm_Macro.vb Normal file
View File

@@ -0,0 +1,38 @@
Public Class frm_Macro
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles btPath.Click
Dim fd As New FolderBrowserDialog()
If fd.ShowDialog() = Windows.Forms.DialogResult.OK Then
tbPath.Text = fd.SelectedPath
End If
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles btcalc.Click
'//calc
Dim di As New System.IO.DirectoryInfo(tbPath.Text)
If di.Exists = False Then
MsgBox("no folder")
Return
End If
Dim files1() As System.IO.FileInfo
Dim files2() As System.IO.FileInfo
files1 = di.GetFiles("*.tpl", IO.SearchOption.TopDirectoryOnly)
files2 = di.GetFiles("*.tplx", IO.SearchOption.TopDirectoryOnly)
If files1.Length < 1 AndAlso files2.Length < 1 Then
MsgBox("no file")
Return
End If
DialogResult = Windows.Forms.DialogResult.OK
End Sub
Private Sub frm_Macro_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
End Sub
End Class

2
ArinWarev1/Forms_Input/Frm_v20091231_Weather.vb
View File

@@ -1327,7 +1327,7 @@ Public Class Frm_V20091231_Weather
Dim len As UInt32 = ms.Length
Dim bodybuf(len - 1) As Byte
Array.Copy(ms.GetBuffer(), bodybuf, len)
Dim compbuf() As Byte
Dim compbuf() As Byte = Nothing
Utility.MiniLZO.Compress(bodybuf, compbuf)
'Dim decombuf(bodybuf.Length - 1) As Byte

857
ArinWarev1/Forms_Report/Frm_Upload.vb
View File

@@ -1,6 +1,7 @@
Public Class Frm_Upload
Dim fn As String = ""
Dim silentmode As Boolean = False
Public Sub New()
' 이 호출은 디자이너에 필요합니다.
@@ -9,14 +10,45 @@
' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오.
End Sub
Public Sub New(_file As String)
Public Sub New(_file As String, Optional silent As Boolean = False)
' 이 호출은 디자이너에 필요합니다.
InitializeComponent()
fn = _file
silentmode = silent
' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오.
End Sub
Private Sub Frm_Upload_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
' Me.Hide()
Application.DoEvents()
LoadFile()
MakeData()
If fn <> "" Then
Try
If FpSpread1.SaveExcel(fn) Then
If silentmode = False Then
MsgBox("다음파일이 생성되었습니다" + vbCrLf + fn, MsgBoxStyle.Information, "확인")
End If
DialogResult = Windows.Forms.DialogResult.OK
Else
MsgBox("저장실패" + vbCrLf + fn, MsgBoxStyle.Critical, "확인")
Me.Close()
End If
Catch ex As Exception
MsgBox("저장실패" + vbCrLf + fn + vbCrLf + ex.Message, MsgBoxStyle.Critical, "확인")
Me.Close()
End Try
End If
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
LoadFile()
MakeData()
@@ -177,7 +209,7 @@
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 합계.ToString() : Row += 1 '//환기
'//평가결과값(report_pyonga 에서 가져옴)
항목별평가결과(DsReport)
Pub.항목별평가결과(DsReport)
If DsReport.Pyonga_YK.Rows.Count < 1 Then
MsgBox("구조체값이 생성되지 않았습니다", MsgBoxStyle.Critical, "확인")
Return
@@ -195,7 +227,7 @@
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = drYK.창호값.ToString("N3") : Row += 1 '//환기
'//창면적비 9개(?)
Dim 창및문면적비, 외벽열관류율 As Decimal
Dim 창및문면적비, 외벽열관류율_평균 As Decimal
Dim 외벽열관류율_남 As Decimal
Dim 외벽열관류율_남동 As Decimal
Dim 외벽열관류율_동 As Decimal
@@ -205,27 +237,48 @@
Dim 외벽열관류율_서 As Decimal
Dim 외벽열관류율_남서 As Decimal
calc_창및문면적비(창및문면적비, 외벽열관류율)
Dim 창열관류율_평균 As Decimal
Dim 창열관류율_남 As Decimal
Dim 창열관류율_남동 As Decimal
Dim 창열관류율_동 As Decimal
Dim 창열관류율_북동 As Decimal
Dim 창열관류율_북 As Decimal
Dim 창열관류율_북서 As Decimal
Dim 창열관류율_서 As Decimal
Dim 창열관류율_남서 As Decimal
Dim 일사에너지투과율_평균 As Decimal
Dim 일사에너지투과율_남 As Decimal
Dim 일사에너지투과율_남동 As Decimal
Dim 일사에너지투과율_동 As Decimal
Dim 일사에너지투과율_북동 As Decimal
Dim 일사에너지투과율_북 As Decimal
Dim 일사에너지투과율_북서 As Decimal
Dim 일사에너지투과율_서 As Decimal
Dim 일사에너지투과율_남서 As Decimal
calc_창및문면적비(창및문면적비, 외벽열관류율_평균, 창열관류율_평균, 일사에너지투과율_평균)
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창및문면적비.ToString("N2") : Row += 1 '//난방
calc_창및문면적비(창및문면적비, 외벽열관류율_남, "남")
calc_창및문면적비(창및문면적비, 외벽열관류율_남, 창열관류율_남, 일사에너지투과율_남, "남")
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창및문면적비.ToString("N2") : Row += 1 '//냉방
calc_창및문면적비(창및문면적비, 외벽열관류율_남동, "남동")
calc_창및문면적비(창및문면적비, 외벽열관류율_남동, 창열관류율_남동, 일사에너지투과율_남동, "남동")
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창및문면적비.ToString("N2") : Row += 1 '//급탕
calc_창및문면적비(창및문면적비, 외벽열관류율_동, "동")
calc_창및문면적비(창및문면적비, 외벽열관류율_동, 창열관류율_동, 일사에너지투과율_동, "동")
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창및문면적비.ToString("N2") : Row += 1 '//조명
calc_창및문면적비(창및문면적비, 외벽열관류율_북동, "북동")
calc_창및문면적비(창및문면적비, 외벽열관류율_북동, 창열관류율_북동, 일사에너지투과율_북동, "북동")
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창및문면적비.ToString("N2") : Row += 1 '//환기
calc_창및문면적비(창및문면적비, 외벽열관류율_북, "북")
calc_창및문면적비(창및문면적비, 외벽열관류율_북, 창열관류율_북, 일사에너지투과율_북, "북")
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창및문면적비.ToString("N2") : Row += 1 '//환기
calc_창및문면적비(창및문면적비, 외벽열관류율_북서, "북서")
calc_창및문면적비(창및문면적비, 외벽열관류율_북서, 창열관류율_북서, 일사에너지투과율_북서, "북서")
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창및문면적비.ToString("N2") : Row += 1 '//환기
calc_창및문면적비(창및문면적비, 외벽열관류율_서, "서")
calc_창및문면적비(창및문면적비, 외벽열관류율_서, 창열관류율_서, 일사에너지투과율_서, "서")
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창및문면적비.ToString("N2") : Row += 1 '//환기
calc_창및문면적비(창및문면적비, 외벽열관류율_남서, "남서")
calc_창및문면적비(창및문면적비, 외벽열관류율_남서, 창열관류율_남서, 일사에너지투과율_남서, "남서")
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 창및문면적비.ToString("N2") : Row += 1 '//환기
'//평균열관류율 11개(?)
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 외벽열관류율.ToString("N3") : Row += 1 '//난방
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 외벽열관류율_평균.ToString("N3") : Row += 1 '//난방
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 외벽열관류율_남.ToString("N3") : Row += 1 '//냉방
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 외벽열관류율_남동.ToString("N3") : Row += 1 '//급탕
FpSpread1_Sheet1.Cells(Row, DataColumnIndex).Value = 외벽열관류율_동.ToString("N3") : Row += 1 '//조명
@@ -1064,786 +1117,10 @@
End Function
Private Sub 항목별평가결과(ByRef DSR As Eco2Ar.DSR)
Dim NDr As DSR.Pyonga_YKRow = DSR.Pyonga_YK.NewPyonga_YKRow
'//기준(*)데이터가없는경우에는 1번째데이터를 쓰도록한다.
Dim 외벽벽체찾음 As Boolean = False
Dim 외벽지붕찾음 As Boolean = False
Dim 외벽바닥찾음 As Boolean = False
For Each dr As DS.tbl_ykRow In DSET1.tbl_yk.Select("code <> '0'")
Dim gcode As String = dr.면형태.ToString()
Dim gname As String = Get_CName("1088", gcode)
If gname = "외벽(벽체)" OrElse gname = "내벽(벽체)" Then
If dr.설명.Substring(0, 1) = "*" Then '//기준데이터가져오기
NDr.벽체값 = dr.열관류율
Dim 최대저항값 As Decimal = 0
'//세부데이터글가져온다 이중열저항이 가장큰것을 가져아야한다
For Each ddr As DS.tbl_ykdetailRow In DSET1.tbl_ykdetail.Select("code <> '0' and pcode = '" + dr.code + "'")
If CDec(ddr.열저항) > 최대저항값 Then '//최대저항값의설명을 가져와야한다.
외벽벽체찾음 = True
NDr.벽체종류 = ddr.설명 + Space(1) + ddr.두께 + "mm"
최대저항값 = CDec(ddr.열저항)
End If
Next
End If
ElseIf gname = "외벽(지붕)" OrElse gname = "내벽(지붕)" Then
If dr.설명.Substring(0, 1) = "*" Then '//기준데이터가져오기
NDr.지붕값 = dr.열관류율
Dim 최대저항값 As Decimal = 0
'//세부데이터글가져온다 이중열저항이 가장큰것을 가져아야한다
For Each ddr As DS.tbl_ykdetailRow In DSET1.tbl_ykdetail.Select("code <> '0' and pcode = '" + dr.code + "'")
If CDec(ddr.열저항) > 최대저항값 Then '//최대저항값의설명을 가져와야한다.
외벽지붕찾음 = True
NDr.지붕종류 = ddr.설명 + Space(1) + ddr.두께 + "mm"
최대저항값 = CDec(ddr.열저항)
End If
Next
End If
ElseIf gname = "외벽(바닥)" OrElse gname = "내벽(바닥)" Then
If dr.설명.Substring(0, 1) = "*" Then '//기준데이터가져오기
NDr.바닥값 = dr.열관류율
Dim 최대저항값 As Decimal = 0
'//세부데이터글가져온다 이중열저항이 가장큰것을 가져아야한다
For Each ddr As DS.tbl_ykdetailRow In DSET1.tbl_ykdetail.Select("code <> '0' and pcode = '" + dr.code + "'")
If CDec(ddr.열저항) > 최대저항값 Then '//최대저항값의설명을 가져와야한다.
외벽바닥찾음 = True
NDr.바닥종류 = ddr.설명 + Space(1) + ddr.두께 + "mm"
최대저항값 = CDec(ddr.열저항)
End If
Next
End If
End If
Next
If Not 외벽벽체찾음 Then
For Each dr As DS.tbl_ykRow In DSET1.tbl_yk.Select("code <> '0'")
Dim gcode As String = dr.면형태.ToString()
Dim gname As String = Get_CName("1088", gcode)
If gname = "외벽(벽체)" OrElse gname = "내벽(벽체)" Then
NDr.벽체값 = dr.열관류율
Dim 최대저항값 As Decimal = 0
'//세부데이터글가져온다 이중열저항이 가장큰것을 가져아야한다
For Each ddr As DS.tbl_ykdetailRow In DSET1.tbl_ykdetail.Select("code <> '0' and pcode = '" + dr.code + "'")
If CDec(ddr.열저항) > 최대저항값 Then '//최대저항값의설명을 가져와야한다.
외벽벽체찾음 = True
NDr.벽체종류 = ddr.설명 + Space(1) + ddr.두께 + "mm"
최대저항값 = CDec(ddr.열저항)
End If
Next
If 외벽벽체찾음 Then Exit For
End If
Next
If Not 외벽벽체찾음 Then
NDr.벽체종류 = ""
NDr.벽체값 = 0
End If
End If
If Not 외벽지붕찾음 Then
For Each dr As DS.tbl_ykRow In DSET1.tbl_yk.Select("code <> '0'")
Dim gcode As String = dr.면형태.ToString()
Dim gname As String = Get_CName("1088", gcode)
If gname = "외벽(지붕)" OrElse gname = "내벽(지붕)" Then
NDr.지붕값 = dr.열관류율
Dim 최대저항값 As Decimal = 0
'//세부데이터글가져온다 이중열저항이 가장큰것을 가져아야한다
For Each ddr As DS.tbl_ykdetailRow In DSET1.tbl_ykdetail.Select("code <> '0' and pcode = '" + dr.code + "'")
If CDec(ddr.열저항) > 최대저항값 Then '//최대저항값의설명을 가져와야한다.
외벽지붕찾음 = True
NDr.지붕종류 = ddr.설명 + Space(1) + ddr.두께 + "mm"
최대저항값 = CDec(ddr.열저항)
End If
Next
If 외벽지붕찾음 Then Exit For
End If
Next
If Not 외벽지붕찾음 Then
NDr.지붕종류 = ""
NDr.지붕값 = 0
End If
End If
If Not 외벽바닥찾음 Then
For Each dr As DS.tbl_ykRow In DSET1.tbl_yk.Select("code <> '0'")
Dim gcode As String = dr.면형태.ToString()
Dim gname As String = Get_CName("1088", gcode)
If gname = "외벽(바닥)" OrElse gname = "내벽(바닥)" Then
NDr.바닥값 = dr.열관류율
Dim 최대저항값 As Decimal = 0
'//세부데이터글가져온다 이중열저항이 가장큰것을 가져아야한다
For Each ddr As DS.tbl_ykdetailRow In DSET1.tbl_ykdetail.Select("code <> '0' and pcode = '" + dr.code + "'")
If CDec(ddr.열저항) > 최대저항값 Then '//최대저항값의설명을 가져와야한다.
외벽바닥찾음 = True
NDr.바닥종류 = ddr.설명 + Space(1) + ddr.두께 + "mm"
최대저항값 = CDec(ddr.열저항)
End If
Next
If 외벽바닥찾음 Then Exit For
End If
Next
If Not 외벽바닥찾음 Then
NDr.바닥종류 = ""
NDr.바닥값 = 0
End If
End If
'//지열설비정보확인
Dim Sum_지열히트펌프용량_난방 As Single = 0
Dim Sum_지열히트펌프용량_냉방 As Single = 0
Dim Max_난방 As Single = 0
Dim Max_냉방 As Single = 0
Dim JDROW() As DS.tbl_newRow = DSET1.tbl_new.Select("code <> '0' and 기기종류='지열'", "설명")
If JDROW.GetUpperBound(0) = -1 Then '//지열데이터가없는경우엔 빈값처리
NDr.지열히트펌프용량냉방 = ""
NDr.지열히트펌프용량 = ""
NDr.지열비고 = ""
NDr.지열난방COP = ""
NDr.지열냉방COP = ""
Else '//데이터가있다면 1번째 데이터를 이용한다.
Dim Max_Row_난방 As DS.tbl_newRow = Nothing
Dim MAx_Row_냉방 As DS.tbl_newRow = Nothing
NDr.지열비고 = JDROW(0).지열비고
For Each jdrowrow As DS.tbl_newRow In JDROW
Dim 난방연결수 As Integer = (DSET1.tbl_nanbangkiki.Select("신재생연결여부='시스템연결' and 연결된시스템='" & jdrowrow.code.ToString & "'").GetUpperBound(0) + 1)
Dim 냉방연결수 As Integer = (DSET1.tbl_nangbangkiki.Select("신재생연결여부='시스템연결' and 연결된시스템='" & jdrowrow.code.ToString & "'").GetUpperBound(0) + 1)
Dim 난방값 As String = jdrowrow.열성능비난방
Dim 냉방값 As String = jdrowrow.열성능비냉방
If 난방연결수 > 0 AndAlso 난방값 <> "" AndAlso IsNumeric(난방값) AndAlso 난방값 <> "0" Then
Sum_지열히트펌프용량_난방 += jdrowrow.지열히트펌프용량
If TOSG(jdrowrow.지열히트펌프용량) > Max_난방 Then
Max_난방 = TOSG(jdrowrow.지열히트펌프용량)
Max_Row_난방 = jdrowrow
End If
End If
If 냉방연결수 > 0 AndAlso 냉방값 <> "" AndAlso IsNumeric(냉방값) AndAlso 냉방값 <> "0" Then
Sum_지열히트펌프용량_냉방 += jdrowrow.지열히트펌프용량
If TOSG(jdrowrow.지열히트펌프용량) > Max_냉방 Then
Max_냉방 = TOSG(jdrowrow.지열히트펌프용량)
MAx_Row_냉방 = jdrowrow
End If
End If
Next
NDr.지열히트펌프용량냉방 = Sum_지열히트펌프용량_냉방.ToString()
NDr.지열히트펌프용량 = Sum_지열히트펌프용량_난방.ToString()
'NDr.지열히트펌프용량냉방 = Sum_지열히트펌프용량_냉방.ToString() + "(" + Max_냉방.ToString() + ")"
'If Sum_지열히트펌프용량_난방 > 0 Then
' NDr.지열히트펌프용량 = Sum_지열히트펌프용량_난방.ToString()
' 'NDr.지열히트펌프용량 = "난방: " + Sum_지열히트펌프용량_난방.ToString() + "(" + Max_난방.ToString() + ")"
'Else
' NDr.지열히트펌프용량 = ""
'End If
'If Sum_지열히트펌프용량_냉방 > 0 Then
' NDr.지열히트펌프용량 += " / 냉방: " + NDr.지열히트펌프용량냉방
'End If
If Max_난방 <> 0 Then
NDr.지열난방COP = Max_Row_난방.열성능비난방
Else
NDr.지열난방COP = ""
End If
If Max_냉방 <> 0 Then
NDr.지열냉방COP = MAx_Row_냉방.열성능비냉방
Else
NDr.지열냉방COP = ""
End If
End If
'//######################
'//13-12-08
'//######################
'//태양열시스템
Dim JDROW2() As DS.tbl_newRow = DSET1.tbl_new.Select("code <> '0' and 기기종류='태양열'", "설명")
Dim Max_태양열면적 As Single = -999
Dim Max_집열기유형 As String = ""
Dim Max_집열판방위 As String = ""
Dim Sum_태양열면적 As Single = 0
For Each rowsun As DS.tbl_newRow In JDROW2
Dim 난방연결수 As Integer = (DSET1.tbl_nanbangkiki.Select("신재생연결여부='시스템연결' and 연결된시스템='" & rowsun.code.ToString & "'").GetUpperBound(0) + 1)
Dim 냉방연결수 As Integer = (DSET1.tbl_nangbangkiki.Select("신재생연결여부='시스템연결' and 연결된시스템='" & rowsun.code.ToString & "'").GetUpperBound(0) + 1)
If 난방연결수 > 0 OrElse 냉방연결수 > 0 Then
Dim 태양면적 As String = rowsun.집열판면적
If 태양면적 <> "" AndAlso IsNumeric(태양면적) AndAlso 태양면적 <> "0" Then
Sum_태양열면적 += TOSG(태양면적)
If TOSG(태양면적) > Max_태양열면적 Then
Max_태양열면적 = TOSG(태양면적)
Max_집열기유형 = rowsun.집열기유형
Max_집열판방위 = rowsun.집열판방위
End If
End If
End If
Next
If Sum_태양열면적 > 0 Then
NDr.태양열집열판면적 = Sum_태양열면적.ToString() + "(" + Max_태양열면적.ToString + ")"
NDr.태양열집열기유형 = Max_집열기유형
NDr.태양열집열판방위 = Max_집열판방위
Else
NDr.태양열집열판면적 = ""
NDr.태양열집열기유형 = ""
NDr.태양열집열판방위 = ""
End If
'//태양광시스템
Dim JDROW3() As DS.tbl_newRow = DSET1.tbl_new.Select("code <> '0' and 기기종류='태양광'", "설명")
Dim Max_태양광면적 As Single = -999
Dim Max_태양광종류 As String = ""
Dim Max_태양광방위 As String = ""
Dim Max_태양광기울기 As String = ""
Dim Max_태양광적용타입 As String = ""
Dim Sum_태양광면적 As Single = 0
For Each rowsun As DS.tbl_newRow In JDROW3
Dim 태양면적 As String = rowsun.태양광모듈면적
If 태양면적 <> "" AndAlso IsNumeric(태양면적) AndAlso 태양면적 <> "0" Then
Sum_태양광면적 += TOSG(태양면적)
If TOSG(태양면적) > Max_태양광면적 Then
Max_태양광면적 = TOSG(태양면적)
Max_태양광종류 = rowsun.태양광모듈종류
Max_태양광방위 = rowsun.태양광모듈방위
Max_태양광기울기 = rowsun.태양광모듈기울기
Max_태양광적용타입 = rowsun.태양광모듈적용타입
End If
End If
Next
If Sum_태양광면적 > 0 Then
NDr.태양광모듈면적 = Sum_태양광면적.ToString() '+ "(" + Max_태양광면적.ToString + ")"
NDr.태양광모듈종류 = Max_태양광종류
NDr.태양광모듈방위 = Max_태양광방위
NDr.태양광모듈기울기 = Max_태양광기울기
NDr.태양광모듈적용타입 = Max_태양광적용타입
If NDr.태양광모듈방위 = "(없음)" Then
NDr.태양광모듈방위 = ""
End If
Else
NDr.태양광모듈면적 = ""
NDr.태양광모듈종류 = ""
NDr.태양광모듈방위 = ""
NDr.태양광모듈기울기 = ""
NDr.태양광모듈적용타입 = ""
End If
'//열병합시스템
Dim JDROW4() As DS.tbl_newRow = DSET1.tbl_new.Select("code <> '0' and 기기종류='열병합'", "설명")
Dim Max_열병합능력 As Single = -999
Dim Max_열병합생산효율 As String = ""
Dim Max_열병합발전효율 As String = ""
Dim Max_열병합가동연료 As String = ""
Dim Sum_열병합능력 As Single = 0
For Each rowsun As DS.tbl_newRow In JDROW4
Dim 난방연결수 As Integer = (DSET1.tbl_nanbangkiki.Select("신재생연결여부='시스템연결' and 연결된시스템='" & rowsun.code.ToString & "'").GetUpperBound(0) + 1)
Dim 냉방연결수 As Integer = (DSET1.tbl_nangbangkiki.Select("신재생연결여부='시스템연결' and 연결된시스템='" & rowsun.code.ToString & "'").GetUpperBound(0) + 1)
If 난방연결수 > 0 OrElse 냉방연결수 > 0 Then
Dim 값 As String = rowsun.열생산능력
If 값 <> "" AndAlso IsNumeric(값) AndAlso 값 <> "0" Then
Sum_열병합능력 += TOSG(값)
If TOSG(값) > Max_열병합능력 Then
Max_열병합능력 = TOSG(값)
Max_열병합생산효율 = rowsun.열생산효율.ToString
Max_열병합발전효율 = rowsun.발전효율.ToString
Max_열병합가동연료 = rowsun.가동연료
End If
End If
End If
Next
If Sum_열병합능력 > 0 Then
NDr.열병합열생산능력 = Sum_열병합능력.ToString() + "(" + Max_열병합능력.ToString + ")"
NDr.열병합열생산효율 = Max_열병합생산효율
NDr.열병합발전효율 = Max_열병합발전효율
NDr.열병합가동연료 = Max_열병합가동연료
Else
NDr.열병합열생산능력 = ""
NDr.열병합열생산효율 = ""
NDr.열병합발전효율 = ""
NDr.열병합가동연료 = ""
End If
'//창호종류 및 창호값확인
Dim 창호종류찾음 As Boolean = False
Dim 창호그룹 As New Dictionary(Of String, Double)
For Each drmyoun As DS.tbl_myounRow In DSET1.tbl_myoun.Select("code <> '0'")
If drmyoun.열관류율2 = "" OrElse drmyoun.열관류율2 = "0" Then Continue For
For Each cdr As DS.tbl_ykRow In DSET1.tbl_yk.Select("code= '" + drmyoun.열관류율2 + "'")
Dim 면코드 As String = cdr.면형태
If 면코드 = "" Then Continue For
Dim 면이름 As String = Get_CName("1088", 면코드)
If 면이름 = "" Then Continue For
If 면이름.IndexOf("외부창") <> -1 Then '//이름에 외부창이잇는것을 찾음
If Not 창호그룹.ContainsKey(cdr.code) Then
창호그룹.Add(cdr.code, TOSG(drmyoun.건축부위면적))
Else
창호그룹.Item(cdr.code) = 창호그룹.Item(cdr.code) + TOSG(drmyoun.건축부위면적)
End If
End If
Next
Next
Dim 최대면적 As Double = 0
Dim 최대면적면코드 As String = ""
For Each item As System.Collections.Generic.KeyValuePair(Of String, Double) In 창호그룹
If item.Value > 최대면적 Then
최대면적 = item.Value
최대면적면코드 = item.Key
End If
Next
For Each cdr As DS.tbl_ykRow In DSET1.tbl_yk.Select("code <> '0'")
Dim 면코드 As String = cdr.code
If 면코드 = 최대면적면코드 Then
NDr.창호종류 = cdr.창호세부설명
NDr.창호값 = TOSG(cdr.열관류율)
Exit For
End If
Next
'//조명설비값(모든존 ; sum(면적*조명에너지부하율) / sum(면적)
Dim 존면적합 As Decimal = 0
Dim 존면적부하율 As Decimal = 0
For Each drz As DS.tbl_zoneRow In DSET1.tbl_zone.Select("code <> '0'")
If drz.조명부하산출방법 = "계산치" Then
존면적합 += TOSG(drz.면적)
존면적부하율 += TOSG(drz.면적) * TOSG(drz.조명에너지부하율계산치)
ElseIf drz.조명부하산출방법 = "입력치" Then
존면적합 += TOSG(drz.면적)
존면적부하율 += TOSG(drz.면적) * TOSG(drz.조명에너지부하율입력치)
End If
Next
If 존면적합 <> 0 Then
NDr.주거실조명전력 = Math.Round(존면적부하율 / 존면적합, 2)
End If
'//주조명광원값()
NDr.주조명광원 = DSET1.tbl_Desc.Rows(0)("주조명").ToString
'///#################################################################################
'///#################################################################################
'//설비방식및사용연료
'//난방(입력존에서 가장많이 사용한놈)
Dim fndr As DS.tbl_nanbangkikiRow = Nothing
Dim fndrcnt As Integer = 0
Dim sum_보일러 As Single = 0
Dim sum_히트펌프 As Single = 0
Dim sum_지역난방 As Single = 0
Dim sum_전기보일러 As Single = 0
For Each dr As DS.tbl_nanbangkikiRow In DSET1.tbl_nanbangkiki.Select("code <> '0'")
Dim cnt As Integer = 0
Dim zDR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("code <> '0' and 열생산난방생산기기='" & dr.code & "' or 공조난방생산기기='" & dr.code & "'")
'//131207
If zDR.Length > 0 Then
Select Case dr.열생산기기방식
Case "보일러"
sum_보일러 += TOSG(dr.보일러정격출력)
Case "히트펌프"
sum_히트펌프 += TOSG(dr.히트난방용량)
Case "지역난방"
sum_지역난방 += TOSG(dr.열교환기정격출력)
Case "전기보일러"
sum_전기보일러 += TOSG(dr.보일러정격출력)
End Select
End If
Next
'//합이 가장 큰 그룹을 검색
Dim maxvalue As Single = 0
' Dim maxindex As Integer = 0
maxvalue = Math.Max(sum_보일러, sum_히트펌프)
maxvalue = Math.Max(maxvalue, sum_지역난방)
maxvalue = Math.Max(maxvalue, sum_전기보일러)
Dim searchfilter As String = ""
If maxvalue = 0 Then
searchfilter = ""
' maxindex = 0 '//없음
ElseIf maxvalue = sum_보일러 Then
' maxindex = 1
searchfilter = "열생산기기방식='보일러'"
ElseIf maxvalue = sum_히트펌프 Then
'maxindex = 2
searchfilter = "열생산기기방식='히트펌프'"
ElseIf maxvalue = sum_지역난방 Then
' maxindex = 3
searchfilter = "열생산기기방식='지역난방'"
ElseIf maxvalue = sum_전기보일러 Then
' maxindex = 4
searchfilter = "열생산기기방식='전기보일러'"
End If
'//가장큰 그룹내의 개별 대표값 찾기
If searchfilter <> "" Then
For Each dr As DS.tbl_nanbangkikiRow In DSET1.tbl_nanbangkiki.Select("code <> '0' and " + searchfilter)
Dim cnt As Integer = 0
Dim zDR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("code <> '0' and 열생산난방생산기기='" & dr.code & "' or 공조난방생산기기='" & dr.code & "'")
'///
For Each drow As DS.tbl_zoneRow In zDR
Dim 입력존수문자 As Integer = drow.입력존의수
If IsNumeric(입력존수문자) = False Then 입력존수문자 = "1"
cnt += CInt(입력존수문자)
Next
If cnt > fndrcnt Then '//최대값찾기
fndr = dr
fndrcnt = cnt
End If
If Not fndr Is Nothing Then
'//20160327
If Not IsNumeric(fndr.보일러대수) Then fndr.보일러대수 = "0"
If CInt(fndr.보일러대수) = 0 AndAlso (fndr.운전방식 = "동시가동" OrElse fndr.운전방식 = "순차가동") Then
MsgBox("다음 난방기기의 보일러 대수 가 입력되지 않았습니다" + vbCrLf + vbCrLf + _
"난방기기 : " + fndr.설명 + vbCrLf + _
"운전방식 : " + fndr.운전방식 + vbCrLf + _
"보일러대수 : " + fndr.보일러대수 + vbCrLf + vbCrLf + _
"단독가동이 아닌 경우에는 보일러 대수가 입력되어야 합니다", MsgBoxStyle.Critical, "확인")
End If
NDr.온열원설비방식 = fndr.열생산기기방식
Select Case fndr.열생산기기방식
Case "보일러"
NDr.온열원설비연료 = fndr.사용연료
If fndr.운전방식 = "동시가동" OrElse fndr.운전방식 = "순차가동" Then
NDr.온열원용량 = maxvalue * CInt(fndr.보일러대수) '+ "(" + fndr.보일러정격출력 + ")"
Else
NDr.온열원용량 = maxvalue.ToString() '+ "(" + fndr.보일러정격출력 + ")"
End If
NDr.온열원효율 = fndr.정격보일러효율 + "%"
Case "히트펌프"
NDr.온열원설비연료 = fndr.히트연료
If fndr.운전방식 = "동시가동" OrElse fndr.운전방식 = "순차가동" Then
NDr.온열원용량 = maxvalue * CInt(fndr.보일러대수) '+ "(" + fndr.보일러정격출력 + ")"
Else
NDr.온열원용량 = maxvalue.ToString() '+ "(" + fndr.보일러정격출력 + ")"
End If
NDr.온열원효율 = fndr.히트난방정격7
Case "지역난방"
NDr.온열원설비연료 = "지역난방" 'fndr.사용연료
If fndr.운전방식 = "동시가동" OrElse fndr.운전방식 = "순차가동" Then
NDr.온열원용량 = maxvalue * CInt(fndr.보일러대수) '+ "(" + fndr.보일러정격출력 + ")"
Else
NDr.온열원용량 = maxvalue.ToString() '+ "(" + fndr.보일러정격출력 + ")"
End If
NDr.온열원효율 = fndr.정격보일러효율 + "%"
Case "전기보일러"
NDr.온열원설비연료 = "전기" ' fndr.사용연료
If fndr.운전방식 = "동시가동" OrElse fndr.운전방식 = "순차가동" Then
NDr.온열원용량 = maxvalue * CInt(fndr.보일러대수) '+ "(" + fndr.보일러정격출력 + ")"
Else
NDr.온열원용량 = maxvalue.ToString() '+ "(" + fndr.보일러정격출력 + ")"
End If
NDr.온열원효율 = fndr.정격보일러효율 + "%"
End Select
End If
Next
Else
NDr.온열원설비연료 = ""
NDr.온열원용량 = ""
NDr.온열원효율 = ""
End If
'///#################################################################################
'///#################################################################################
'//급탕(입력존에서 가장많이 사용한놈)
fndr = Nothing
fndrcnt = 0
sum_보일러 = 0
sum_히트펌프 = 0
sum_지역난방 = 0
sum_전기보일러 = 0
For Each dr As DS.tbl_nanbangkikiRow In DSET1.tbl_nanbangkiki.Select("code <> '0'")
Dim cnt As Integer = 0
Dim zDR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("code <> '0' and 열생산급탕생산기기='" & dr.code & "'")
'//131207
If zDR.Length > 0 Then
Select Case dr.열생산기기방식
Case "보일러"
sum_보일러 += TOSG(dr.보일러정격출력)
Case "히트펌프"
sum_히트펌프 += TOSG(dr.히트난방용량)
Case "지역난방"
sum_지역난방 += TOSG(dr.열교환기정격출력)
Case "전기보일러"
sum_전기보일러 += TOSG(dr.보일러정격출력)
End Select
End If
Next
'//합이 가장 큰 그룹을 검색
maxvalue = 0
maxvalue = Math.Max(sum_보일러, sum_히트펌프)
maxvalue = Math.Max(maxvalue, sum_지역난방)
maxvalue = Math.Max(maxvalue, sum_전기보일러)
searchfilter = ""
If maxvalue = 0 Then
searchfilter = ""
ElseIf maxvalue = sum_보일러 Then
searchfilter = "열생산기기방식='보일러'"
ElseIf maxvalue = sum_히트펌프 Then
searchfilter = "열생산기기방식='히트펌프'"
ElseIf maxvalue = sum_지역난방 Then
searchfilter = "열생산기기방식='지역난방'"
ElseIf maxvalue = sum_전기보일러 Then
searchfilter = "열생산기기방식='전기보일러'"
End If
'//가장큰 그룹내의 개별 대표값 찾기
NDr.급탕설비방식 = ""
NDr.급탕설비연료 = ""
NDr.급탕용량 = ""
NDr.급탕효율 = ""
If searchfilter <> "" Then
For Each dr As DS.tbl_nanbangkikiRow In DSET1.tbl_nanbangkiki.Select("code <> '0' and " + searchfilter)
Dim cnt As Integer = 0
Dim zDR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("code <> '0' and 열생산급탕생산기기='" & dr.code + "'")
For Each drow As DS.tbl_zoneRow In zDR
Dim 입력존수문자 As Integer = drow.입력존의수
If IsNumeric(입력존수문자) = False Then 입력존수문자 = "1"
cnt += CInt(입력존수문자)
Next
If cnt > fndrcnt Then '//최대값찾기
fndr = dr
fndrcnt = cnt
End If
If Not fndr Is Nothing Then
NDr.급탕설비방식 = fndr.열생산기기방식
Select Case fndr.열생산기기방식
Case "보일러"
NDr.급탕설비연료 = fndr.사용연료
NDr.급탕용량 = maxvalue.ToString() '+ "(" + fndr.보일러정격출력 + ")"
NDr.급탕효율 = fndr.정격보일러효율 + "%"
Case "히트펌프"
NDr.급탕설비연료 = fndr.히트연료
NDr.급탕용량 = maxvalue.ToString() ' + "(" + fndr.히트난방용량 + ")"
NDr.급탕효율 = fndr.히트난방정격7
Case "지역난방"
NDr.급탕설비연료 = "지역난방" ' fndr.사용연료
NDr.급탕용량 = maxvalue.ToString() '+ "(" + fndr.열교환기정격출력 + ")"
NDr.급탕효율 = fndr.정격보일러효율 + "%"
Case "전기보일러"
NDr.급탕설비연료 = "전기" ' fndr.사용연료
NDr.급탕용량 = maxvalue.ToString() ' + "(" + fndr.보일러정격출력 + ")"
NDr.급탕효율 = fndr.정격보일러효율 + "%"
End Select
End If
Next
End If
'///#################################################################################
'///#################################################################################
'//냉방(입력존에서 가장많이 사용한놈)
Dim fndr2 As DS.tbl_nangbangkikiRow = Nothing
Dim fndr2cnt As Integer = 0
Dim sum_압축식 As Single = 0
Dim sum_압축식_LNG As Single = 0
Dim sum_지역냉방 As Single = 0
Dim sum_흡수식 As Single = 0
For Each dr As DS.tbl_nangbangkikiRow In DSET1.tbl_nangbangkiki.Select("code <> '0'")
Dim cnt2 As Integer = 0
Dim zDR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("열생산냉방생산기기='" & dr.code & "' or 공조냉방생산기기='" & dr.code & "'")
'//131207
If zDR.Length > 0 Then
Select Case dr.냉동기방식
Case "압축식"
sum_압축식 += TOSG(dr.냉동기용량)
Case "압축식(LNG)"
sum_압축식_LNG += TOSG(dr.냉동기용량)
Case "지역냉방"
sum_지역냉방 += TOSG(dr.냉동기용량)
Case "흡수식"
sum_흡수식 += TOSG(dr.냉동기용량)
End Select
End If
Next
'//합이 가장 큰 그룹을 검색
maxvalue = 0
maxvalue = Math.Max(sum_압축식, sum_압축식_LNG)
maxvalue = Math.Max(maxvalue, sum_지역냉방)
maxvalue = Math.Max(maxvalue, sum_흡수식)
searchfilter = ""
If maxvalue = 0 Then
searchfilter = ""
ElseIf maxvalue = sum_압축식 Then
searchfilter = "냉동기방식='압축식'"
ElseIf maxvalue = sum_압축식_LNG Then
searchfilter = "냉동기방식='압축식(LNG)'"
ElseIf maxvalue = sum_지역냉방 Then
searchfilter = "냉동기방식='지역냉방'"
ElseIf maxvalue = sum_흡수식 Then
searchfilter = "냉동기방식='흡수식'"
End If
'//가장큰 그룹내의 개별 대표값 찾기
If searchfilter <> "" Then
For Each dr As DS.tbl_nangbangkikiRow In DSET1.tbl_nangbangkiki.Select("code <> '0' and " + searchfilter)
Dim cnt2 As Integer = 0
Dim zDR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("열생산냉방생산기기='" & dr.code & "' or 공조냉방생산기기='" & dr.code & "'")
For Each drow As DS.tbl_zoneRow In zDR
Dim 입력존수문자 As Integer = drow.입력존의수
If IsNumeric(입력존수문자) = False Then 입력존수문자 = "1"
cnt2 += CInt(입력존수문자)
Next
If cnt2 > fndr2cnt Then '//최대값찾기
fndr2 = dr
fndr2cnt = cnt2
End If
If Not fndr2 Is Nothing Then
NDr.냉열원설비방식 = fndr2.냉동기방식
NDr.냉열원용량 = maxvalue.ToString() + "(" + fndr2.냉동기용량 + ")"
NDr.냉열원효율 = fndr2.열성능비
Select Case fndr2.냉동기방식
Case "압축식"
NDr.냉열원설비연료 = "전기"
Case "압축식(LNG)"
NDr.냉열원설비연료 = "천연가스"
Case "지역냉방"
NDr.냉열원설비연료 = "지역냉방"
Case "흡수식"
If fndr2.열생산연결방식 = "직화식" Then
NDr.냉열원설비연료 = fndr2.사용연료
ElseIf fndr2.열생산연결방식 = "외부연결" Then
Dim 온수열생산기기코드 As String = fndr2.온수열생산기기
If 온수열생산기기코드 <> "" Then
Dim 난방기기() As DS.tbl_nanbangkikiRow = DSET1.tbl_nanbangkiki.Select("code='" + 온수열생산기기코드 + "'")
If 난방기기.GetUpperBound(0) = 0 Then
NDr.냉열원설비연료 = fndr2.사용연료
End If
End If
End If
End Select
End If
Next
Else
NDr.냉열원설비방식 = ""
NDr.냉열원용량 = ""
NDr.냉열원효율 = ""
End If
DSR.Pyonga_YK.Rows.Add(NDr)
DSR.Pyonga_YK.AcceptChanges()
End Sub
Private Sub Frm_Upload_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
' Me.Hide()
LoadFile()
MakeData()
If fn <> "" Then
Try
If FpSpread1.SaveExcel(fn) Then
MsgBox("다음파일이 생성되었습니다" + vbCrLf + fn, MsgBoxStyle.Information, "확인")
Me.Close()
Else
MsgBox("저장실패", MsgBoxStyle.Critical, "확인")
' Me.Show()
End If
Catch ex As Exception
MsgBox("저장실패" + vbCrLf + ex.Message, MsgBoxStyle.Critical, "확인")
Me.Close()
End Try
End If
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"

453
ArinWarev1/MdiMain.Designer.vb generated
View File

@@ -34,6 +34,32 @@ Partial Class MdiMain
Me.lbl_prjname = New System.Windows.Forms.ToolStripStatusLabel()
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.WindowsMenu = New System.Windows.Forms.ToolStripMenuItem()
Me.NewWindowToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.CascadeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TileVerticalToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TileHorizontalToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.CloseAllToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ArrangeIconsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TreeView1 = New System.Windows.Forms.TreeView()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.그룹추가ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.그룹삭제ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.그룹복사ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.그룹변경ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.prb1 = New System.Windows.Forms.ToolStripProgressBar()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton7 = New System.Windows.Forms.ToolStripButton()
Me.bt_test = New System.Windows.Forms.ToolStripDropDownButton()
Me.비교데이터백업ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.데이터비교ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.순실체적ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ReportToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.btNew = New System.Windows.Forms.ToolStripMenuItem()
Me.신규코드업로드ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -43,6 +69,7 @@ Partial Class MdiMain
Me.btSaveNew = New System.Windows.Forms.ToolStripMenuItem()
Me.정보ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.bt_데이터관리 = New System.Windows.Forms.ToolStripMenuItem()
Me.btImport = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripSeparator()
Me.lbl_p1 = New System.Windows.Forms.ToolStripMenuItem()
Me.lbl_p2 = New System.Windows.Forms.ToolStripMenuItem()
@@ -78,32 +105,7 @@ Partial Class MdiMain
Me.SaveXmlRawToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.FielCheckerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripSeparator()
Me.WindowsMenu = New System.Windows.Forms.ToolStripMenuItem()
Me.NewWindowToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.CascadeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TileVerticalToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TileHorizontalToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.CloseAllToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ArrangeIconsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TreeView1 = New System.Windows.Forms.TreeView()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.그룹추가ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.그룹삭제ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.그룹복사ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.그룹변경ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton7 = New System.Windows.Forms.ToolStripButton()
Me.bt_test = New System.Windows.Forms.ToolStripDropDownButton()
Me.비교데이터백업ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.데이터비교ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.순실체적ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.btImport = New System.Windows.Forms.ToolStripMenuItem()
Me.일괄계산ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.StatusStrip1.SuspendLayout()
Me.MenuStrip1.SuspendLayout()
Me.ContextMenuStrip1.SuspendLayout()
@@ -114,7 +116,7 @@ Partial Class MdiMain
'
Me.StatusStrip1.BackColor = System.Drawing.Color.White
Me.StatusStrip1.Font = New System.Drawing.Font("돋움", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lbl_user, Me.lbl_password, Me.lbl_filename, Me.lbl_FileInfo, Me.lbl_lastedit, Me.lbl_mac, Me.lbl_prjname})
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lbl_user, Me.lbl_password, Me.lbl_filename, Me.lbl_FileInfo, Me.lbl_lastedit, Me.lbl_mac, Me.lbl_prjname, Me.prb1})
Me.StatusStrip1.Location = New System.Drawing.Point(0, 630)
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(1008, 22)
@@ -176,6 +178,198 @@ Partial Class MdiMain
Me.MenuStrip1.TabIndex = 22
Me.MenuStrip1.Text = "MenuStrip1"
'
'WindowsMenu
'
Me.WindowsMenu.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NewWindowToolStripMenuItem, Me.CascadeToolStripMenuItem, Me.TileVerticalToolStripMenuItem, Me.TileHorizontalToolStripMenuItem, Me.CloseAllToolStripMenuItem, Me.ArrangeIconsToolStripMenuItem})
Me.WindowsMenu.ForeColor = System.Drawing.Color.Red
Me.WindowsMenu.Name = "WindowsMenu"
Me.WindowsMenu.Size = New System.Drawing.Size(49, 20)
Me.WindowsMenu.Text = "창(&W)"
Me.WindowsMenu.Visible = False
'
'NewWindowToolStripMenuItem
'
Me.NewWindowToolStripMenuItem.Name = "NewWindowToolStripMenuItem"
Me.NewWindowToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
Me.NewWindowToolStripMenuItem.Text = "새 창(&N)"
'
'CascadeToolStripMenuItem
'
Me.CascadeToolStripMenuItem.Name = "CascadeToolStripMenuItem"
Me.CascadeToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
Me.CascadeToolStripMenuItem.Text = "계단식 배열(&C)"
'
'TileVerticalToolStripMenuItem
'
Me.TileVerticalToolStripMenuItem.Name = "TileVerticalToolStripMenuItem"
Me.TileVerticalToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
Me.TileVerticalToolStripMenuItem.Text = "세로 바둑판식 배열(&V)"
'
'TileHorizontalToolStripMenuItem
'
Me.TileHorizontalToolStripMenuItem.Name = "TileHorizontalToolStripMenuItem"
Me.TileHorizontalToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
Me.TileHorizontalToolStripMenuItem.Text = "가로 바둑판식 배열(&H)"
'
'CloseAllToolStripMenuItem
'
Me.CloseAllToolStripMenuItem.Name = "CloseAllToolStripMenuItem"
Me.CloseAllToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
Me.CloseAllToolStripMenuItem.Text = "모두 닫기(&L)"
'
'ArrangeIconsToolStripMenuItem
'
Me.ArrangeIconsToolStripMenuItem.Name = "ArrangeIconsToolStripMenuItem"
Me.ArrangeIconsToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
Me.ArrangeIconsToolStripMenuItem.Text = "아이콘 정렬(&A)"
'
'TreeView1
'
Me.TreeView1.ContextMenuStrip = Me.ContextMenuStrip1
Me.TreeView1.Dock = System.Windows.Forms.DockStyle.Left
Me.TreeView1.Font = New System.Drawing.Font("돋움", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TreeView1.Location = New System.Drawing.Point(0, 49)
Me.TreeView1.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.TreeView1.Name = "TreeView1"
Me.TreeView1.Size = New System.Drawing.Size(185, 581)
Me.TreeView1.TabIndex = 23
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.그룹추가ToolStripMenuItem, Me.그룹삭제ToolStripMenuItem, Me.그룹복사ToolStripMenuItem, Me.그룹변경ToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(123, 92)
'
'그룹추가ToolStripMenuItem
'
Me.그룹추가ToolStripMenuItem.Name = "그룹추가ToolStripMenuItem"
Me.그룹추가ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
Me.그룹추가ToolStripMenuItem.Text = "그룹추가"
'
'그룹삭제ToolStripMenuItem
'
Me.그룹삭제ToolStripMenuItem.Name = "그룹삭제ToolStripMenuItem"
Me.그룹삭제ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
Me.그룹삭제ToolStripMenuItem.Text = "그룹삭제"
'
'그룹복사ToolStripMenuItem
'
Me.그룹복사ToolStripMenuItem.Name = "그룹복사ToolStripMenuItem"
Me.그룹복사ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
Me.그룹복사ToolStripMenuItem.Text = "그룹복사"
'
'그룹변경ToolStripMenuItem
'
Me.그룹변경ToolStripMenuItem.Name = "그룹변경ToolStripMenuItem"
Me.그룹변경ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
Me.그룹변경ToolStripMenuItem.Text = "그룹변경"
'
'ToolStrip1
'
Me.ToolStrip1.Font = New System.Drawing.Font("돋움", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1, Me.ToolStripButton2, Me.ToolStripButton3, Me.ToolStripButton4, Me.ToolStripButton5, Me.ToolStripButton6, Me.ToolStripButton7, Me.bt_test})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(1008, 25)
Me.ToolStrip1.TabIndex = 25
Me.ToolStrip1.Text = "ToolStrip1"
'
'prb1
'
Me.prb1.Name = "prb1"
Me.prb1.Size = New System.Drawing.Size(100, 16)
'
'ToolStripButton1
'
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton1.Name = "ToolStripButton1"
Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton1.Text = "파일생성"
'
'ToolStripButton2
'
Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton2.Name = "ToolStripButton2"
Me.ToolStripButton2.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton2.Text = "파일열기"
'
'ToolStripButton3
'
Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton3.Image = CType(resources.GetObject("ToolStripButton3.Image"), System.Drawing.Image)
Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton3.Name = "ToolStripButton3"
Me.ToolStripButton3.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton3.Text = "파일저장"
'
'ToolStripButton4
'
Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton4.Image = CType(resources.GetObject("ToolStripButton4.Image"), System.Drawing.Image)
Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton4.Name = "ToolStripButton4"
Me.ToolStripButton4.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton4.Text = "다른이름으로 저장"
'
'ToolStripButton5
'
Me.ToolStripButton5.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton5.Image = CType(resources.GetObject("ToolStripButton5.Image"), System.Drawing.Image)
Me.ToolStripButton5.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton5.Name = "ToolStripButton5"
Me.ToolStripButton5.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton5.Text = "건물개요"
'
'ToolStripButton6
'
Me.ToolStripButton6.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton6.Image = CType(resources.GetObject("ToolStripButton6.Image"), System.Drawing.Image)
Me.ToolStripButton6.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton6.Name = "ToolStripButton6"
Me.ToolStripButton6.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton6.Text = "계산"
'
'ToolStripButton7
'
Me.ToolStripButton7.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton7.Image = CType(resources.GetObject("ToolStripButton7.Image"), System.Drawing.Image)
Me.ToolStripButton7.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton7.Name = "ToolStripButton7"
Me.ToolStripButton7.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton7.Text = "계산결과그래프보기"
'
'bt_test
'
Me.bt_test.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.비교데이터백업ToolStripMenuItem, Me.데이터비교ToolStripMenuItem, Me.순실체적ToolStripMenuItem})
Me.bt_test.Image = CType(resources.GetObject("bt_test.Image"), System.Drawing.Image)
Me.bt_test.ImageTransparentColor = System.Drawing.Color.Magenta
Me.bt_test.Name = "bt_test"
Me.bt_test.Size = New System.Drawing.Size(90, 22)
Me.bt_test.Text = "TestMenu"
Me.bt_test.Visible = False
'
'비교데이터백업ToolStripMenuItem
'
Me.비교데이터백업ToolStripMenuItem.Name = "비교데이터백업ToolStripMenuItem"
Me.비교데이터백업ToolStripMenuItem.Size = New System.Drawing.Size(170, 22)
Me.비교데이터백업ToolStripMenuItem.Text = "1.비교데이터백업"
'
'데이터비교ToolStripMenuItem
'
Me.데이터비교ToolStripMenuItem.Name = "데이터비교ToolStripMenuItem"
Me.데이터비교ToolStripMenuItem.Size = New System.Drawing.Size(170, 22)
Me.데이터비교ToolStripMenuItem.Text = "2.데이터비교"
'
'순실체적ToolStripMenuItem
'
Me.순실체적ToolStripMenuItem.Name = "순실체적ToolStripMenuItem"
Me.순실체적ToolStripMenuItem.Size = New System.Drawing.Size(170, 22)
Me.순실체적ToolStripMenuItem.Text = "3.순실체적"
'
'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})
@@ -242,6 +436,12 @@ Partial Class MdiMain
Me.bt_데이터관리.Text = "데이터관리"
Me.bt_데이터관리.Visible = False
'
'btImport
'
Me.btImport.Name = "btImport"
Me.btImport.Size = New System.Drawing.Size(244, 22)
Me.btImport.Text = "가져오기"
'
'ToolStripMenuItem5
'
Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5"
@@ -379,7 +579,7 @@ Partial Class MdiMain
'bt_etc
'
Me.bt_etc.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.bt_etc.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem8, Me.ToolStripMenuItem10, Me.ToolStripMenuItem11, Me.ToolStripSeparator5, Me.ToolStripMenuItem12, Me.ToolStripSeparator6, Me.ToolStripMenuItem13, Me.설정프로필ToolStripMenuItem, Me.ExportToolStripMenuItem, Me.ToolStripMenuItem1, Me.파일로부터기상데이터가져오기ToolStripMenuItem, Me.SaveXmlRawToolStripMenuItem, Me.FielCheckerToolStripMenuItem, Me.ToolStripMenuItem2})
Me.bt_etc.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem8, Me.ToolStripMenuItem10, Me.ToolStripMenuItem11, Me.ToolStripSeparator5, Me.ToolStripMenuItem12, Me.ToolStripSeparator6, Me.ToolStripMenuItem13, Me.설정프로필ToolStripMenuItem, Me.ExportToolStripMenuItem, Me.ToolStripMenuItem1, Me.파일로부터기상데이터가져오기ToolStripMenuItem, Me.SaveXmlRawToolStripMenuItem, Me.FielCheckerToolStripMenuItem, Me.ToolStripMenuItem2, Me.일괄계산ToolStripMenuItem})
Me.bt_etc.Image = CType(resources.GetObject("bt_etc.Image"), System.Drawing.Image)
Me.bt_etc.Name = "bt_etc"
Me.bt_etc.Size = New System.Drawing.Size(57, 20)
@@ -466,198 +666,11 @@ Partial Class MdiMain
Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
Me.ToolStripMenuItem2.Size = New System.Drawing.Size(259, 6)
'
'WindowsMenu
'일괄계산ToolStripMenuItem
'
Me.WindowsMenu.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NewWindowToolStripMenuItem, Me.CascadeToolStripMenuItem, Me.TileVerticalToolStripMenuItem, Me.TileHorizontalToolStripMenuItem, Me.CloseAllToolStripMenuItem, Me.ArrangeIconsToolStripMenuItem})
Me.WindowsMenu.ForeColor = System.Drawing.Color.Red
Me.WindowsMenu.Name = "WindowsMenu"
Me.WindowsMenu.Size = New System.Drawing.Size(49, 20)
Me.WindowsMenu.Text = "창(&W)"
Me.WindowsMenu.Visible = False
'
'NewWindowToolStripMenuItem
'
Me.NewWindowToolStripMenuItem.Name = "NewWindowToolStripMenuItem"
Me.NewWindowToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
Me.NewWindowToolStripMenuItem.Text = "새 창(&N)"
'
'CascadeToolStripMenuItem
'
Me.CascadeToolStripMenuItem.Name = "CascadeToolStripMenuItem"
Me.CascadeToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
Me.CascadeToolStripMenuItem.Text = "계단식 배열(&C)"
'
'TileVerticalToolStripMenuItem
'
Me.TileVerticalToolStripMenuItem.Name = "TileVerticalToolStripMenuItem"
Me.TileVerticalToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
Me.TileVerticalToolStripMenuItem.Text = "세로 바둑판식 배열(&V)"
'
'TileHorizontalToolStripMenuItem
'
Me.TileHorizontalToolStripMenuItem.Name = "TileHorizontalToolStripMenuItem"
Me.TileHorizontalToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
Me.TileHorizontalToolStripMenuItem.Text = "가로 바둑판식 배열(&H)"
'
'CloseAllToolStripMenuItem
'
Me.CloseAllToolStripMenuItem.Name = "CloseAllToolStripMenuItem"
Me.CloseAllToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
Me.CloseAllToolStripMenuItem.Text = "모두 닫기(&L)"
'
'ArrangeIconsToolStripMenuItem
'
Me.ArrangeIconsToolStripMenuItem.Name = "ArrangeIconsToolStripMenuItem"
Me.ArrangeIconsToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
Me.ArrangeIconsToolStripMenuItem.Text = "아이콘 정렬(&A)"
'
'TreeView1
'
Me.TreeView1.ContextMenuStrip = Me.ContextMenuStrip1
Me.TreeView1.Dock = System.Windows.Forms.DockStyle.Left
Me.TreeView1.Font = New System.Drawing.Font("돋움", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TreeView1.Location = New System.Drawing.Point(0, 49)
Me.TreeView1.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.TreeView1.Name = "TreeView1"
Me.TreeView1.Size = New System.Drawing.Size(185, 581)
Me.TreeView1.TabIndex = 23
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.그룹추가ToolStripMenuItem, Me.그룹삭제ToolStripMenuItem, Me.그룹복사ToolStripMenuItem, Me.그룹변경ToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(123, 92)
'
'그룹추가ToolStripMenuItem
'
Me.그룹추가ToolStripMenuItem.Name = "그룹추가ToolStripMenuItem"
Me.그룹추가ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
Me.그룹추가ToolStripMenuItem.Text = "그룹추가"
'
'그룹삭제ToolStripMenuItem
'
Me.그룹삭제ToolStripMenuItem.Name = "그룹삭제ToolStripMenuItem"
Me.그룹삭제ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
Me.그룹삭제ToolStripMenuItem.Text = "그룹삭제"
'
'그룹복사ToolStripMenuItem
'
Me.그룹복사ToolStripMenuItem.Name = "그룹복사ToolStripMenuItem"
Me.그룹복사ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
Me.그룹복사ToolStripMenuItem.Text = "그룹복사"
'
'그룹변경ToolStripMenuItem
'
Me.그룹변경ToolStripMenuItem.Name = "그룹변경ToolStripMenuItem"
Me.그룹변경ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
Me.그룹변경ToolStripMenuItem.Text = "그룹변경"
'
'ToolStrip1
'
Me.ToolStrip1.Font = New System.Drawing.Font("돋움", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1, Me.ToolStripButton2, Me.ToolStripButton3, Me.ToolStripButton4, Me.ToolStripButton5, Me.ToolStripButton6, Me.ToolStripButton7, Me.bt_test})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(1008, 25)
Me.ToolStrip1.TabIndex = 25
Me.ToolStrip1.Text = "ToolStrip1"
'
'ToolStripButton1
'
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton1.Name = "ToolStripButton1"
Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton1.Text = "파일생성"
'
'ToolStripButton2
'
Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton2.Name = "ToolStripButton2"
Me.ToolStripButton2.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton2.Text = "파일열기"
'
'ToolStripButton3
'
Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton3.Image = CType(resources.GetObject("ToolStripButton3.Image"), System.Drawing.Image)
Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton3.Name = "ToolStripButton3"
Me.ToolStripButton3.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton3.Text = "파일저장"
'
'ToolStripButton4
'
Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton4.Image = CType(resources.GetObject("ToolStripButton4.Image"), System.Drawing.Image)
Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton4.Name = "ToolStripButton4"
Me.ToolStripButton4.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton4.Text = "다른이름으로 저장"
'
'ToolStripButton5
'
Me.ToolStripButton5.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton5.Image = CType(resources.GetObject("ToolStripButton5.Image"), System.Drawing.Image)
Me.ToolStripButton5.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton5.Name = "ToolStripButton5"
Me.ToolStripButton5.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton5.Text = "건물개요"
'
'ToolStripButton6
'
Me.ToolStripButton6.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton6.Image = CType(resources.GetObject("ToolStripButton6.Image"), System.Drawing.Image)
Me.ToolStripButton6.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton6.Name = "ToolStripButton6"
Me.ToolStripButton6.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton6.Text = "계산"
'
'ToolStripButton7
'
Me.ToolStripButton7.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton7.Image = CType(resources.GetObject("ToolStripButton7.Image"), System.Drawing.Image)
Me.ToolStripButton7.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton7.Name = "ToolStripButton7"
Me.ToolStripButton7.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton7.Text = "계산결과그래프보기"
'
'bt_test
'
Me.bt_test.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.비교데이터백업ToolStripMenuItem, Me.데이터비교ToolStripMenuItem, Me.순실체적ToolStripMenuItem})
Me.bt_test.Image = CType(resources.GetObject("bt_test.Image"), System.Drawing.Image)
Me.bt_test.ImageTransparentColor = System.Drawing.Color.Magenta
Me.bt_test.Name = "bt_test"
Me.bt_test.Size = New System.Drawing.Size(90, 22)
Me.bt_test.Text = "TestMenu"
Me.bt_test.Visible = False
'
'비교데이터백업ToolStripMenuItem
'
Me.비교데이터백업ToolStripMenuItem.Name = "비교데이터백업ToolStripMenuItem"
Me.비교데이터백업ToolStripMenuItem.Size = New System.Drawing.Size(170, 22)
Me.비교데이터백업ToolStripMenuItem.Text = "1.비교데이터백업"
'
'데이터비교ToolStripMenuItem
'
Me.데이터비교ToolStripMenuItem.Name = "데이터비교ToolStripMenuItem"
Me.데이터비교ToolStripMenuItem.Size = New System.Drawing.Size(170, 22)
Me.데이터비교ToolStripMenuItem.Text = "2.데이터비교"
'
'순실체적ToolStripMenuItem
'
Me.순실체적ToolStripMenuItem.Name = "순실체적ToolStripMenuItem"
Me.순실체적ToolStripMenuItem.Size = New System.Drawing.Size(170, 22)
Me.순실체적ToolStripMenuItem.Text = "3.순실체적"
'
'btImport
'
Me.btImport.Name = "btImport"
Me.btImport.Size = New System.Drawing.Size(244, 22)
Me.btImport.Text = "가져오기"
Me.일괄계산ToolStripMenuItem.Name = "일괄계산ToolStripMenuItem"
Me.일괄계산ToolStripMenuItem.Size = New System.Drawing.Size(262, 22)
Me.일괄계산ToolStripMenuItem.Text = "일괄 계산"
'
'MdiMain
'
@@ -779,5 +792,7 @@ Partial Class MdiMain
Friend WithEvents FielCheckerToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripMenuItem2 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents btImport As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents 일괄계산ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents prb1 As System.Windows.Forms.ToolStripProgressBar
End Class

462
ArinWarev1/MdiMain.resx
View File

@@ -223,31 +223,6 @@
L6EuGjGgPk0oQzDdcEUqKuriEBlSI/ysHKF+JVZscgSsxbTSfdjLTxLKEEzqLlH7nVJq2EmpDgUCfTIs
m4uwZCqAyGthUR4nlCEYr79AT9dGJbbQCxioiwYpVeR1iI3dpbXqYLp1lNDfBIIgwO12Y7QmDy+qzklF
Oe+cQb/qFGxlJ2C9nQOz4hh65dkwyo6A4zhpDgX/Psj6CQV66PBRu7f+AAAAAElFTkSuQmCC
</value>
</data>
<data name="bt_filesave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
R0lGODlhEAAQAIQAAJXD9Iasxm6MqnSn2lZtjVaRyEpXbYu767TX/2KZztvr/4Gy5KrT/3ut32+gzlFh
e+r0/0RNX9/u/9Ln+8Xg//n8/4e36CkxQz9GVkSCvKjL35/N/Je91K7T5bDS4////yH/C05FVFNDQVBF
Mi4wAwEBAAAh+QQAAAAAACwAAAAAEAAQAAAIuQA/CBxIsKDACRwScggQwIGAhwIICBDYQcEEgwg+bNjw
QKCHCQgkQBgpQcKBCg0AEBCoAaRIkhIsVBigUiAHCgwkKNjJU8GAAx0/3NwIAMABCwsaDHCwIGgAChuK
HjiQdMDSAQYEPpWKtKqDBA6yfgiAwGhXpUsTJIgg0AGCo0nRfi1QgO0HAQyQNpCrtkAGDAIFbKi69GsC
un8FEohqdEFavxkyXAhMoPKDBwYMRIiAAcOFoAZDCwwIADs=
</value>
</data>
<data name="bt_데이터관리.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAIVSURBVDhPjVLJihpRFK1VFvmAXiSfkFV+Irt8Rpb5
jGSXlfOMioIjiLgSxRERJ1QcUJxQcMSUitBJad/c8+gq2m4XeXCqXt2659zz7n0SEb1BLpf7GY/HFx6P
5wnAHrF7uW8CkUjkIRAI/OX9zULM7/d/4O1Nvng8V5xwtSuDYrEYdbtdul6vdLlcqN1uixj+IQe5qiMh
wOqP/NbWdDqlcDhMzWZTIBQKidjL9cyRpGg06mJQp9MRFYFSqUSJRIK8Xq8A9ojBjaIo1Gq1CByHw+GX
uJLS7/epVqtRvV4XFVH99VIdVatVymazlE6nyWazKRLbk0+nE63XaxqNRjQej4nPR4PBQHOEfT6fp16v
R8lkUqDRaJDVapWlYDAoBA6HA+33e5rNZsJupVLReoCqaCKImUxGAG4tFouMBgoBWZZpt9vRZrOhxWIh
quJohUJBEGEZzuAEAihgNptliWf753w+0/F4pOVyKciTyYSGw6EYJZJBVJFKpYRYuVwmg8HwKPl8viQC
8/lcHAMi6AUcQAD/0DQATlAZolyY9Hp9VuIxvePL8c3tdg+RtFqtaLvdimZCQG0aiOgN7gQTp4zvOp3u
vXYlXS7Xg9Pp/MGz/V0sFoUIxNBAjJhvHyyfmPiLiR9Vniagwm63f+L5+nhETyDizOwO5DCTP7/Ov/l4
Ce7wF5PJlDYajQUmf72XA9wN/j9I+gdcby0cbkUDWAAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
@@ -331,72 +306,72 @@
<data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAA8+SURBVHhe7ZpZbFXXFYap2kRN2kptU6kP6VPV17z0sVJV
9aVS1aqV2pCmaRuSpgkEMDZgMxl8sQEb4xmb2JgxCaMN2BAIEAZDMJ6wCVMI82DANp5tzMz16v+vvfc5
514cMBmkRLpb+rX2Ge65d333X+vsc+0RsREbsREbsREbsREbHKEt157N3tL/s/RNfc9ROTt6f5qxtfcn
VF5Fz48fp6ydrT+wl/p2jbiCpkWJJcdvZa0/JV9WaUVn7yYsPHxgZFnZd+3lv/ljzMKDAyc6HsjdByJH
Wx9I5af3vpA2n7wnOy88kMyNVeH4gqZke/lv/pi2rO7OtpMDcvDMHcnf3ifZ255E/RpzOP/QaFXDTYnP
O3w7bn7dL+xbfLNHfN4nt5fU9poEXGKYa1Iqk2TE8eC2Pdc/v09CK+oHJy1qqrZv8c0eDoAmoUkh4Q8p
l5AFQEXtz8G2vkYhYK77+qS46oakrjh1f0J+w5JxhfXPjS2q+uHXqbcWNz5l03nyMXXJiVulNSYpB4GJ
mIQpk5RJ1s3NfvcaBcBjnPO12N51+q6kr6weHKpZfh2Ky2+sH51T87xNa/jDATDJBxK036iB4I7ZpF2y
ep47P/L1y/ffkJa+sHTeFqluG/xaVdsuElpaNzgur6HWpjX8kUQAB11SJklNiMnq3N/HaGAYOTA+ILfP
j/7rzfWco4yDgtvBa5nj3pdiP1fw9b76pXBXv3x49r6MK2jsD4WqvmdTe/wYObLsu+wBi6t7JWsb+kDE
hc3FI9/UfBAns3+oY27bXSfqOO823nZwbrYjY9Sx7dGfh/v6JP+jGxK/oP7GxJyaZ2x6jx+/Ay0CKAGA
9E0dARsb5TLi4nxT3ceo88A+p6HO0WOR14w8h3rEtYYjfj57jXELm/qfCMBbbzU+lVRad6f4QK/MKW+T
eZvaTdJ6YRNzgx/G7XNzKOK4J/9D6TnB8+2cUV9LBc7V19vonYPj3rnuHHeeFc/9QgASAeCdj3sldX2L
pJW1BiAwCfNG5s1vBD5wYL933Ihzo6jzuc9Gs22ORyv6ujpXRZ3vruHOh54YwKhQ1fcJoBgAQmuvSuq6
azIbIOZuuC5ZW7E4YklQeCPXnPhmrMFs9gz9ILaBaQ/hB+f5/gc1H96X2+eORyiQjL/fgbyhCh43+/xz
nxjAixNrnsFC4u6i/b0yc1WzpKyGAGK2gmgFCFMW8yraJaOyQ9IrOiVjc6fM39wFIVaaeUZll2Ru7jba
YpT1Qa8s2Noj2ZSD5L41fvgdBGWk23oc8x32eACGl7A7J7iPEOw+AkBa3zHZDWP8JanyRwRQVNUt0969
IDPevQgQl1WzAIOuCK0zQFLXQ+taJLW8VdIAZg7iHJSMCv2DsFQbr8s8aA7hwUmc01G6n9sbAHQjBLDp
2JeOOeXt24R9hI7z9BhixoYOydjYIfOxX4V5ps4R8eVk4ovJxL4JuAuMGCEOAKLOPx+IA1C4t0uSlpyR
KcvPyYyV52XGexehSwBxSUHMWn1FUtYYKRTnEmqtjQDlYBlggEVo7C2cY18aAKaVWREgwBFUUHPLrslc
nD8Px+eVtwBAqyoD56bjeMbGNgDANuAZtQEG9gHcmIKDAza1ESLDcMKfQ1ueTQwdv0cHJC07K9NWnJPp
Ky/IdDhhOiAkv08IcMMaiuVhATBBm+hsBXLNAzOUWFZmTlc1K6xUJJpWDjFuoFpkzkYkvwmJV6D8KuAg
Sh1hxVKsMDG9Aq7QCCdgH0s0NP/Eg1lY2D1KCUtOdo8vaDgZBaAHAOgAA4HlMJ0l8T5KAhBmrTYlkQII
rN2aC/ek/eagnGgPy9HrRkfajD6BDrdCLWFphA5BDdS1sNRBtVfDUgMdvBKWauhAc1g+vhyW/dA+aO+l
sOy5GJbd0C7qQlh2Wu04b7T9C+rDc2EpP3YfzqsOK4CRobKnE0PH7hXt65HE0tOmDJaelakK4rwFASeg
FOgGWrfykzsSHhT5rOW+5O0ckFyIMe+jAcnfdVPyIMYCxt23pGA35hqNFu65JYXQwr23pTCgoirEqjsa
F2m8Y+I+bO/D/CtU2oqL9xUAV4KjSo7dZwlMWvyZTC49JYmAkLgUIFASU9ETpq1EWQBEMkCU1nTLqrpb
SNh2X3ZsQthhIewEACgfMBTERwZGPiHsAgDMCWAhQSiM2wbIXkKxICwMpwgIhBKVzBfR6MLaHgXALukA
xBd/KhNLTgZAnIYb/LJIQe0uq++RAiSfpQ8x5r6c7UAAgso6QiNBOBiejCsIQB1hXaFyjnAwPBDGGUX4
8ArlS7gic3OHxBU0VWn6fBiaHDr2oGhft0xYdFzi3zkhCcUnDQgLQUHADUX7OqR4f5/M38IHJ0K4IVlc
EEWByHEgLAwHRN3AMnGuAAgtlSFKhM5wENQdhME5Iew15eHcoYkxDtMdCYtPdL+dU/d7BcAxOXQUALpk
fOFRiSs6piASAGIiHWHdwAa5rL4bq78eLIS4wCGAPlmgIJwjIAfCSZ1h3aEwWCIOhg+CpeEBcLIgIpwR
kCkVH4ZxxtBJO+Wigcfl1V+yqZuhAKo6ZWzBEaykjgLEMYCAGxbRDQABN2Rta5ESrBbnbupWAJkf9EH9
soDaGgABN9AVjOoM646HQRhX5AGC9oxdvjOCbihwpeG5IhIGky6EI9zcl0mYJRMEkLji7I2xOfVv2tTN
+HtJVZgAxuQdlrfzP5FxADEeIOIAYgJBwA1Laruw1u8GACx7N7MMICx1MxENDEAgCDjDuIMyEIIyMABg
OxQsE/YJusNzhYVhgbh+oXNA0PLQErEN1MFg8jq3rtDETc8o2HNT4nIbuh96VnAARuc0ypicJgUxNgAi
Zc0FKTnQg1tgBxYm3ZJe2asuoBQEegLlQGRaCA6Ec0e2AwIIpkwGIvuFhaGusM3Tc4XKAiAI5woLhK5w
ztBeEZg7V6QWNd8dn38oz6btj78RwL5OeTOrQd7KPmRA5DbJ2wriiBQf6MSH78LKjQB6FIBCqEQ/UBim
LxgQhICoIALOIATPGQaGa6DOGXzqc7dVdzv1SsQ5wwMCCA4IALjo5DdQSF1xSybkN/XGDfW3Cgfgjcw6
+d+CeguiESCaUP+fyuLqLix922R2Waf2gHkUQTgRhDrCgvBg2BKxZWJKxIdhnEEQzhE2EkLQHYF+ke/6
hXWFuZP4zvAg7EbiiLQ9nRHKqx8cn3dou005ckwKbR5cBACvZ9TKf+fXAUS9BXEIF25D7XdiFXgNDypd
WKt34amOvYDqAQwrhUFn0BUOCGH0IZqeoeXhomueHgjIusHdTbRfKBALwwMRAOKcYV2hK08FwmMDColg
Eoobut/ObviNTTlyEAAd8Nq8g/Jaeo2CeAMgRsMF/PZT17XiQYiPwACg6gYIAAgKEOayPwCEKRMDxJSI
L69MPBAQS8WCUBgWAqPvCkAINE4FEJCuPANAOOfvBYSRtbUbd7hDZ2y6D49JoUoA6JBX51TLqLnVCuJ1
gEivaJa8HR14LMYTH+o/tRwwoDTKwkhD8nSFAlFXGLkS8UpFewYc4mAARNAZLka4AgC0X7j1BcFEu0J7
hu0X2jMIYgCv7ddjdMC05af7sfB51ab78FAAVR3y79SP5T9pByyIg9r8+O1PJ4D1mKMHpJaxGdpoYRhX
WNkScUD88rBQCIHuYL/AXPuFOoO3VXNHMa5giQCCU7BE8M26xhkJw5QJewhBEgjPHZ/d2DkydOJpm+7D
wwH41+z9gLAfED7Gw88ZKdzdieeAZti/HU2wU0LrOxSED8OHklaOSEdYea4gDK9fBIDYEjEw6A72DfYL
wOD6ghA8EFG9grdT1zyDIFQDKK8evLYX7h2QsUUXeetLt6kOPSYVH9F1/ispVfJKaJ+CKKrq0l96pq64
IinrOlShgBQEyoJ3Bg9IsEQoB0N7hg+EELRUAMK4AyAsFHcnyaAj7J1Eb6nQAgXil4lzhZFxBSHN3dRp
tgEkDre+Cfm1P7epDj0cgJdn7ZV/zqrSZ4KFu7vx7V9G90cDXNuOJ0FAsAoxRsBwQAwIE1kqBohC8WAY
EH6J2BjVQIdsns4VTtYVHgwmX4ESBADCCGUeHIzLb6iwaX7+MADa5R/Je+TlmXtQS1z1tUjiMv4K1G6E
MlAQGn0YKg8G3eDDmO1BoDs6H3JGmnWGuYtQ5k5iXEEQbJoORpQzCMA2TnUHIND2qWXX9VyWSQKWveNy
a35t0/z8QQCLAOClGbuxDqjFraQf3/4lmbryqsxE8jOR9MzV1zUqCCd1BrSOCoAgAIDQnkE3BNzhuSLg
CI3OFQEYBOGkvUKBWFdoeZi7h3PGnA18/+sKg79Cx+U3nrApPno4ACOn78LFO2VOebtMXsKfwZA0Ek8m
BBW37TwahEY6glB8GJ4jnDxnGBgPucJB8GDQFQ6EKRNzJ7EgrHgnSVnLX5k71BmJpUf7xubWv2RTfPQg
gI2He/QWyAXFtBWX8fzfrACcZjIi8WSFYMTS0LgG254jOrzoxJ7hSsS4IxqGKxNCQKmoM+AIu+DSu4jC
MOWhjnDR9os0JD5zdYtusweMzqprH/afyQlgz6l+XJR/lOiU+OKzDwHwxOR17hxBWVdAvisAIgDFlYoB
AbFE3K2VICwQdzdxrjDrC8KwZaLlASF54wzjCiafsqZNAfCv3WNzD82y6T1+TC45Ih98OiCtfWGZsuwC
nv/PKoSJi89L4tJLUbqsSkKDNGrGa5pNxJphyvIrMgW3Tif2kWnUu9egq1hfXDN6rwUrTAh3GdWqVkCF
VrciGS696SrGNiR2HQAhAlx/HbBYVu0a2V+SV7VIEnpWKlzAJjo+v7GX/5dk03v8SCw9rj8Y8A+hCUg8
/p0zAXE7IB6PEl8ToZJziBCj1cRoAS41KRAnlTpdQA+CNF40c6vEpRcjtewi4F8C1KvqjOS0/Xjqa1xr
U3v8WNwoT01d+pn+YJCxqUu/QX7gJwEQrejkoxUE4IFg4lEQFIRTAIIqAIHrFZYOSyQ+dOTeuJyaF2x6
jx+FVXdfTig6gnt/nySXgeC3WNPRZ8bk+n8bHNaYsbyxfPa6/eExWXUSV3hcJpWclsmLz3x9Kj0jiYiJ
jE78Q4yLS86qklTnJGnp0JoCTV3mdF6S8PrxoUMP/jBq/jyk9UtoeP8u9/yvXnjxt399czSmf/wK9ach
9n2enuTc4YjJx0ZsxEZsxEZsxEZsxMajx4gR/wcDB1vXlVSY6QAAAABJRU5ErkJggg==
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAA89SURBVHhe7ZpZbFXXFYap2kRN2kptU6kP6VPV17z0sVJV
9aVS1aqDFNI0bTM0TSCAsQGbyeCLDdgYz9jExmDIwGiDDQQChOEyesImTCFhBgds49nGYb5e/f+19z7n
3IsDJoOUSHdLv9Y+wz33ru/+a519rj0qPuIjPuIjPuIjPuKDI7T56pO5mwd+llnd/xSVt73vp1lb+n5C
FdT0/vhhytnR9gN7qW/XSChqXpxcduJGzrpP5Msqo+Ts7aRFRw6Mrqz8rr38N3+MXXRo8GTnPbl9T+RY
2z3Z+NGdL6RNp+7Ijgv3JHtDOJJY1JxqL//NH9Mr6m9tPTUoh87cksJt/ZK79VE0oDGP8/eNVjZ+JokF
R24mLKj/hX2Lb/ZILPjw5tK6PpOASwxzTUplkow6Hty25/rn90uoom5o8uLmg/YtvtnDAdAkNCkk/D7l
ErIAqJj9edjW1ygEzHVfv5SGr0v6ik/uTixsXDq+uOGpcSXhH36den1J02M2nUcf05aevFFea5JyEJiI
SZgySZlk3dzsd69RADzGOV+L7Z2nb8u85fuHhmuWX4cSCpsaxuTVPm3TGvlwAEzygQTtN2oguGM2aZes
nufOj3798n3XpbU/Il03RQ62D32tqusQCZXXDo0vaKyzaY18pBDAIZeUSVITYrI69/cxGhhGDowPyO3z
o/96cz3nKOOg4HbwWua496XYzxV8va8BKd45IO+fvSvji5oGQqHw92xqDx+jR1d+lz1gycE+ydmKPhB1
YXPx6Dc1H8TJ7B/umNt214k5zruNtx2cm+3oGHNsW+zn4b5+KfzguiQubLg+Ka/2CZvew8fvQIsAygAg
s7ozYGOjfEZcnG+q+xh1HtjnNNw5eiz6mtHnUA+41kjEz2evMX5R88AjAXj99abHUsrrb5Ue6JO5Ve0y
v7rDJK0XNjE/+GHcPjeHoo578j+UnhM8384Z9bVU4Fx9vY3eOTjunevOcedZ8dwvBCAZAN7c3yfp61ol
o7ItAIFJmDcyb3498IED+73jRpwbxZzPfTaabXM8VrHX1bkq5nx3DXc+9MgAXgqFv08ApQAQWnNF0tde
lTkAMW/9NcnZgsURS4LCG7nmxDdjDeayZ+gHsQ1Mewg/OM/3P6j58L7cPnc8SoFk/P0O5HVV8LjZ55/7
yACenVT7BBYStxfv65NZK1skbRUEEHMURBtAmLKYX9MhWRs7JbOmS7I2dcmCTd0Q4kYzz9rYLdmbeow2
G+W81ycLt/RKLuUguW+NH347QRnpth7HfLs9HoDhJezOCe4jBLuPAJDWd0x2Ixh/Sdn4IwIoCffI9Lcv
yMy3LwLEZdVswKArQmsNkPR10NpWSa9qkwyAmYs4FyWjQv8gLNWGazIfmkt4cBLndJTu5/Z6AN0AAWwm
9mViTnn7qrGP0HGeHkPMWt8pWRs6ZQH2qzDP1jkivpxsfDHZ2DcRd4FRo8QBQNT55wNxAIr3dEvK0jMy
dfk5mfnWeZn5zkXoEkBcUhCzV30qaauNFIpzCbXGRoBysAwwwCI09hbOsS8DADMqrQgQ4AgqqHmVV2Ue
zp+P4/OrWgGgTZWFczNxPGtDOwBgG/CM2gED+wBubNGhQZvaKJEROOHPoc1PJodO3KEDUirOyvQV52TG
WxdkBpwwAxBS3yUEuGE1xfKwAJigTXSOArnqgRlOLCszp6taFFY6Es2oghjXU60ydwOSr0biNSi/GjiI
UkdYsRRrTMysgSs0wgnYxxINZZ68NxsLuwcpaempnglFjadiAPQCAB1gILAcZrAk3kVJAMLsVaYk0gCB
tVt74Y50fDYkJzsicuya0dF2ow+hI21Qa0SaoMNQI3U1IvVQ3ZWI1EKHPo3IQehAS0T2X47IPmgvtOdS
RHZfjMguaCd1ISI7rLafN9r2BfX+uYhUHb8L5+2PKIDRocrHk0PH75Ts7ZXk8tOmDJadlWkK4rwFASeg
FOgGWnfjh7ckMiTycetdKdgxKPkQY8EHg1K48zMpgBiLGHfdkKJdmGs0WrT7hhRDi/bclOKASsKI4Vsa
F2u8ZeJebO/F/CtUxoqLdxUAV4IvlR2/yxKYvORjmVL+iSQDQvIygEBJTENPmP4WygIgUgGivLZHVtbf
QMK2+7JjE8J2C2EHAECFgKEgPjAwCglhJwBgTgCLCEJh3DRA9hCKBWFhOEVBIJSYZL6IxhTX9SoAdkkH
ILH0I5lUdioA4jTc4JdFGmq3oqFXipB8jj7EmPtyrgMBCCrrCI0E4WB4Mq4gAHWEdYXKOcLB8EAYZ5Tg
wyuUL+GK7E2dklDUHNb0+TA0JXT8XsneHpm4+IQkvnlSkkpPGRAWgoKAG0r2dkrpvn5ZsJkPToRwXXK4
IIoBkedAWBgOiLqBZeJcARBaKsOUCJ3hIKg7CINzQthjysO5QxNjHKE7kpac7Hkjr/73CoBjSugYAHTL
hOJjklByXEEkAcQkOsK6gQ2yoqEHq79eLIS4wCGAflmoIJwjIAfCSZ1h3aEwWCIOhg+CpeEBcLIgopwR
kCkVH4ZxxvBJO+WjgScUNFyyqZuhAMJdMq7oKFZSxwDiOEDADYvpBoCAG3K2tkoZVovzqnsUQPZ7/dCA
LKS2BEDADXQFozrDuuN+EMYVBYCgPWOn74ygG4pcaXiuiIbBpIvhCDf3ZRJmyQQBJK84e31cXsNrNnUz
/l4WjhDA2IIj8kbhhzIeICYARAJATCQIuGFpXTfW+j0AgGXvJpYBhKVuNqKBAQgEAWcYd1AGQlAGBgBs
g4Jlwj5Bd3iusDAsENcvdA4IWh5aIraBOhhMXufWFZq46RlFuz+ThPzGnvueFRyAMXlNMjavWUGMC4BI
W31Byg704hbYiYVJj2Ru7FMXUAoCPYFyILItBAfCuSPXAQEEUyaD0f3CwlBX2ObpuUJlARCEc4UFQlc4
Z2ivCMydK9JLWm5PKDxcYNP2x98IYG+XvJbTKK/nHjYg8pvlDQVxVEoPdOHDd2PlRgC9CkAhbEQ/UBim
LxgQhICoIALOIATPGQaGa6DOGXzqc7dVdzv1SsQ5wwMCCA4IALjo5DdQSF1xQyYWNvclDPe3Cgfg1ex6
+d/CBguiCSCaUf8fyZKD3Vj6tsucyi7tAfMpgnAiCHWEBeHBsCViy8SUiA/DOIMgnCNsJISgOwL9otD1
C+sKcyfxneFB2IXEEWl7OiOUVzc0oeDwNpty9JgcqhlaDACvZNXJfxfUA0SDBXEYF25H7XdhFXgVDyrd
WKt346mOvYDqBQwrhUFn0BUOCGH0I5qeoeXhomueHgjIusHdTbRfKBALwwMRAOKcYV2hK08FwmODColg
kkobe97IbfyNTTl6EAAd8PL8Q/JyZq2CeBUgxsAF/PbT17bhQYiPwACg6gEIAAgKEOaxPwCEKRMDxJSI
L69MPBAQS8WCUBgWAqPvCkAINE4FEJCuPANAOOfvBYSRs6UHd7jDZ2y694/JoWoA6JQX5x6Ul+YdVBCv
AERmTYsUbO/EYzGe+FD/6VWAAWVQFkYGkqcrFIi6wsiViFcq2jPgEAcDIILOcDHKFQCg/cKtLwgm1hXa
M2y/0J5BEIN47YAeowOmLz89gIXPizbd+4cCCHfKv9P3y38yDlgQh7T58dufQQDrMEcPSK9kM7TRwjCu
sLIl4oD45WGhEALdwX6BufYLdQZvq+aOYlzBEgEEp2CJ4Jt1jTMahikT9hCCJBCeOyG3qWt06OTjNt37
hwPwrzn7AGEfIOzHw88ZKd7VheeAFti/A02wS0LrOhWED8OHklGFSEdYea4gDK9fBIDYEjEw6A72DfYL
wOD6ghA8EDG9grdT1zyDIFSDKK9evLYP7h2UcSUXeevLtKkOPyaXHtV1/gtpYXkhtFdBlIS79ZeeaSs+
lbS1napQQAoCZcE7gwckWCKUg6E9wwdCCFoqAGHcARAWiruTZNER9k6it1RooQLxy8S5wsi4gpDmVXeZ
bQBJwK1vYmHdz22qww8H4PnZe+Sfs8P6TLBoVw++/cvo/miAazrwJAgIViHGKBgOiAFhIkvFAFEoHgwD
wi8RG2Ma6LDN07nCybrCg8Hka1CCAEAYoawDQwmFjTU2zc8fBkCH/CN1tzw/azdqiau+Vkmu4K9AHUYo
AwWh0Yeh8mDQDT6MOR4EuqPrPmdkWGeYuwhl7iTGFQTBpulgxDiDAGzjVHcAAm2fXnlNz2WZJGHZOz6/
9tc2zc8fBLAYAJ6buQvrgDrcSgbw7V+SaW9dkVlIfhaSnrXqmkYF4aTOgNZSARAEABDaM+iGgDs8VwQc
odG5IgCDIJy0VygQ6wotD3P3cM6Yu57vf01h8FfohMKmkzbFBw8HYPSMnbh4l8yt6pApS/kzGJJG4qmE
oOK2nceC0EhHEIoPw3OEk+cMA+M+VzgIHgy6woEwZWLuJBaEFe8kaWv4K3OnOiO5/Fj/uPyG52yKDx4E
sOFIr94CuaCYvuIynv9bFIDTLEYknqoQjFgaGldj23NEpxed2DNciRh3xMJwZUIIKBV1BhxhF1x6F1EY
pjzUES7afpGBxGetatVt9oAxOfUdI/4zOQHs/mQAF+UfJboksfTsfQA8MXmdO0dQ1hWQ7wqACEBxpWJA
QCwRd2slCAvE3U2cK8z6gjBsmWh5QEjeOMO4gsmnrW5XAPxr97j8w7Nteg8fU8qOynsfDUpbf0SmVlzA
8/9ZhTBpyXlJXnYpRpdVKWiQRi14TYuJWDNMXf6pTMWt04l9ZDr19lXoCtYXV43eacUKE8JdRrWyDVCh
VW1IhktvuoqxHYldA0CIANddAyyWVYdG9pfUla2Sgp6VDhewiU4obOrj/yXZ9B4+kstP6A8G/ENoEhJP
fPNMQNwOiMdjxNdEqewcIsRoNSlWgEtNDsTJ5U4X0IMgjRfN3Cp52cVoVVwE/EuAekWdkTonjKe+pjU2
tYePJU3y2LRlH+sPBlnV3foN8gM/CoBYxSYfqyAADwQTj4GgIJwCEFQBCFyvsHRYIomho3fG59U+Y9N7
+CgO334+qeQo7v39kloJgt9izUCfGZvv/21wRGPm8qaqOWvDkbE59ZJQfEIml52WKUvOfH0qPyPJiMmM
TvxDjItLz6pSVOckZdnwmgpNq3A6Lyl4/YTQ4Xt/eGnBfKT1S2hk/y739K+eefa3f31tDKZ//Ar1p2H2
fZ4e5dyRiMnHR3zER3zER3zER3zEx4PHqFH/B7/AW6VS4Su/AAAAAElFTkSuQmCC
</value>
</data>
<data name="ToolStripButton3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -509,152 +484,152 @@
<data name="ToolStripButton5.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAA24SURBVHhe7VoJcFRVFsWZKixX1kACgRBglDWIYZFVNoXI
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAA24SURBVHhe7VoJcFRVFsWZKixX1kACgRBglB0xLLLKEoXI
HsKWsO+Lu4M6JS4jZTE6rjPOyFgCSYAsgGQPhEDAGJJAVpJOOunsJODujKMOMGrduef+/353J90Q0o0a
x1d16t53/+t77zn9l/e7us2v4ycalml9b0zu2/dGffr/NQqX+N2SPqTdxZh+7S6m+HW9RQ8bg4h+U1BQ
0CsvL69bbm5uZ5PJdCujLcdv0Je03mGededt6SM6XrqwbQIBe/p1vJQxutNt+mEZIBweHk7OcPr06YH6
0tY1LCEjbgd50/whQh44OdxLRMge0fF2fZkhgKOBeE5OzmB9aesZufP92ynyjQVQIqT6d2iHtUoAPv2b
oFUKUDB7SHtb8o4EUCKcGOLT/hclQFHw4A4nRnlctiXvTAAg1qPT5ewn13j/IgQwBQ3o6Ig88PH2KYLG
AgBxd3lcbvUClC327+yMfPXmsURHnhDkzxvURIAPxvoK0VYrQH7QXR7OyY+jy/vX0YUX7xVcil7XRIRW
LUDhXL8u8aO8/uuY/Fi6FLVWiH+0fRJ98vL94l+MXGMvwkjv1ilA0aJBXZ2Rr9o0li5GrDbIp216gBJD
JtD5FyZK7D/7VlF+4EBDhL/3uolOR4a2HgFK597t5ZT8xjFCUJE/umkGvbj1GUFsyCRqeIGfCHzs2z0r
KW9uIxFCd/z8BTAvGtrNKfkNY+jb8BUG+ZTNM4V4WFiYAH5MyGQWQbsnfBO2nPLmDLATIfud136+Apyd
O9g73df7O0fkKzeMpm9ClxnkD2+eLYSjoqIoKTGJkpKSxEfs0NL7DBG+3r2Ucmf3txMh6/UXDQEy//H6
FL38TztM8/17OiW/fjR9vWuJQT7pwblCNDo6mo4fP075efmUl58nfvT+aDn2/rKphgj/fi+EcmfZi5C5
bYsIkOQ34PsP/b166m38NKMkcKiPM/IV60YxgWCDfOJDVvJpaWlUVFREVVVVAvhpx9PkGNYcXBFADc9r
Inz17mLKmdnPToRTT28Qu9un03fHh3r66O38uKMwyM/XKfm193Djiwzy8Q8H2XzzGvnq6hqqrz9H587V
U3VNjSZCGp8Jugj7V043RPjXOwspZ8addiIoQIQPRnT11dv6cUZR4ODeTsmvuYcbXmCQj3tkvg3541R0
9iyTr2bi56ihoYHOM+DXcOwsH5PLQYmwaoYhwpdvB9GZ6XfYiaB8iPDhsC699fau7zAFDe2bPsD7e0fk
LatH0j//FmSQj3lkgR35s4VW8vX19SyAhnoRoY6PVTURIWrNLKp/ThPhi78E0umA3xnEbRHbv9P3J4Z6
99XbvD6jdKHfHU7JrxpJX3KDivyhRxfakz9bKNf7S8PaXhFVLEJhYaGdCJFr5xgifP7GHDo9zbkI6cO7
3aG3695RFDion1PyK0fQF2/ONsgffHSxDfljVFhQSJVMvq6ujvbO6EJ/iv/KIXAMayqrKqmAP2MrQsS6
QBZhvNT47LWZlD21r1MRTvh79dPbds8oXji0vzPy5SuG0+fckEH+sWCD/DEmX1BQQFWVlVRbWyen/tUE
wJra2lqq5M/gs8eOHbOKsH4eNTyrifDpK9Mp+/4+TkU4OdKzv96+a6Nk3pCBTskvH0af/Xm6QX7/4yEG
+VRuHAQqKyqolu/y5/ibratrngB1EKHGKkJqqlWEvRsXGCJ8sj2Asqb0dirC8eFdXfvhtGjeID9n5MuY
/KcvBxjkox9fYiWfmiqNV1RWUA2Tx2mtcDUB6vhmqNbisxUsoCZCqiHCnk1WET5+aSplTfZ1KkL6yO5+
Op1rG/gN78Ro7x9sSSuULfNn9aca5COfWNaIfL40jkcbiOCUruNLAJfB1QSoreO1DKwFsF+osFRQfn6+
5I6K1rbN4ZsXGSJc2HYfZU7q5UyEH3RK1zZOjujWhDhQttSfVdfe4UE+4vfLpSHs59EgGq2wWHhzUy3E
G+OqAqi1IoJm8ei0cE5DBP3dIfzBYGrYOk56Of/HyZQ50bEIMT43f63Tav5wJIB5yd300bYpBvl9W1YY
5I9yY3m8t0ejaLiGr2Fc+7W1DN1ujdFyvpV1q/ggDV/NgYSijXL9gzwuAU2QGkOEvEYihD0UwmeCJkLD
8xPp1ASfJgLwWUA6reaPxgKA/IU/TjLI792y0kr+6FEmnycNVgn5GjvEn10vOVa+OdAgnPBRezurRAjN
Hc6f0XJgi1zDl4BYBnKjRi7XQk0lQujDS6heifDsBDp1b0/3CmAOYfL6rzYgH75lVSPyuVSOb56f9bju
8W1pzVfLIxD7f5ADSeRTPgTB3FYIxCCA5GDyyCEiiM8icI3y8nJ5LbYVYdejywwR6p8ZTxk2IrgkgDl4
KJ1/Tvu1RiO/2o48GikvL5PGIIDWuNXiZpjM7/zq24e19W2FUMckl8pRpUPyab6IUOZIhOV0butY6fXc
H8ZRxvgerglQyuQbntW2oCAf+uRag3xKSoo0UFZWJs9rJQC2svC1eTU/CispMTGJdh2bJ+Tw7e9OCzLI
2oqyO20+pRw5ol1Kej7J2QTVsrNEbfSQkmIV4b3HVrAI2plQ9/RYyhjXo2UCfDi+J99htccMyO9+SiMf
qZPPyWHyZpCv4IY0AdAUTvmqSvuG0WhCfBwdiomh2Ng4iouP53m82DiOKxvLxw8nJrMAek4RVs8nefU5
A7VQW0TgXtCTIcLjq6wiPDWGku/2vDYBiNrcgFNSYddT6zTykZHaN5+Tw+TNssvDt68BDSm/KXDdlvJn
SkpKqMRkIhNQbKLi4mLxETeXmuXbd/R5Z8AlZua8OdwTekOPIsITq43+AXDS6V37QEJsco6kHKEzZ85I
wYoKbhQCVKAJBppR4DhiO3fupJLt97gE5EBOqSP5VU2uIXHUsrB4pZTDveESUjtGvX3XR0REhNxsQL6U
C1ks5TrJKwPNO3rlvRaIAA5yNwbOHPSGHtHrvn373CfAwYMH+WaTI6eppdwixSx6Uez6cM3iW7AwYBGD
VQKkruzTTPS1mxsCSD6uIXX1mjLXY3pcLjMWAb0eOHDAfQIkJCRw4hJ53EkxQbk8+wFDFPHL5Rh8JcDR
FX3o8DJfh6e4Ixxe7msnQLlNfqnnDLxOiRAXF+c+AfDbPe62ePaigAGdKEjDR6PW4zYCLO9NCcE+LERv
SmGI5ZiGPhKDPQqwnxDCa9lXAihiWg3HEOEZ6LOM+8SXprfv+khOThbyJXIWcEEIoSBzLgrLZ0gZAxZx
JQCIHlrgTUf4LIB/RCcvdpnyffW4r6xF3DgDdFJCTuqwL7DO0QvmpSWlMk9MTHSvACiOx5WmsDOob0Dz
lQA4/aMDvcRqYMIMNYcwtsewFjElgMqpCeEcOK56dLsAePThF9uyMrPAzJsg7AUAM2I8xxqJ4zhDCZC8
xJf28Ktu8lImqAM+4uKzTV7SSzuOtTO1tYYAkpshtTVrhlX1YeWY1iOOu10AbGLwyww2KxrRRuAbT+OY
EiAppBftDOgkNomJ2sNHszimQ9ZyTAmg5bfP7SwmPZpLr4cApZTH+27cYVEYc5BWc4lJQxzjRhBXAuCm
tmNKB0rkG2FicC9K5HmCWAXErdgxpb3ElACoZV8PVusBcyPGdfGqjLj7BeACZ86c5huhtShuOLAS4z0C
HpWIlUi8xBAgfrEP/XXC7ZSwuKf48cGwytfBvnoMamttBEANPaeqYe0BMVhtLps19t0uADZBWVnZVgF4
Dh9PBtnf2wENWwWIW9ST3hh3q9i4RT1029jvSVsHtxGotUoAqYOcqCUCqBoacVUPflZ2lvjXRYDMzEz5
5UcjWUKmEn6JMSnSmMNqLzbwlQAxC3rQq2Nupli2MQsZuo218VUca2Qtzw0B9PwCox7qaLUU8EKUeSpT
1rhdABDKyMiQIiIC3uAETJatvNHpVkEJcGh+D7muXxl1U7OA+wU+owTQ8umCM8TnmNRDjC36ysg4JT0i
5n4BuEh6ejqfYtnyE1g222w+3bL5shDAF8DXoAR4P8ibDjLeD+ou9qButbgjH7a7IUDjvFlZWXKqi98o
jh5NpuLrIAC/u588efKaoAQ4MK87o5tmA+HD8lz5Ki5za1wJ4Cj3lYDfGNwuAJI6KnYlKAH2M9moOV70
wcMDmoWoOZ4UPbfbz0yAoiJOzGCLf3OIlXmxMbdHsSEAyIfzThD2Soie041hXasEKNJraJah6rIVnwlr
PVhjbhEAPyV99u6iFgH/AT481lNIRM72pJ3TOrH10jDLk+FFEQzMI/g41qhju/S1+CxyIJejGs0BOOh0
rn3gw1UPjWwRzm+fbgiwb1ZX2jG5A1tP2jeTAav7EXzMsHocTwHMlQDI5ahGc+C6AA9yohbAVoC9M7rK
7g4W2AM7E76nZsW34m2s5ZidAJs5bwtgclWAyk0jWgRbAfZM7yK7O9hwG+yZzmIYPizmXWUtYrYCVG7k
vC2AywJUbBjeItgKEP5AF3p19M0UxhY+YOuDLOZhD3jYrPWwE8BRjebAdQHWc6IWwFaAsAAPemv8bfTS
8LbNAtaG8mfsBFjHeVsAlwWwrB3WItgKEDrNQwOT2j2tMwNzZRHT53KcEdC5iQCOajQHLRVgImMKirsK
kBDSU20gpDvz446tzG3A811irQK4CnDROeHPlN0ZVx1YGOAutG/729ktgaNcLuDH+Sfpr6PVjTZt/gcz
jeXAu4L+4QAAAABJRU5ErkJggg==
x1d16t53/+t77zn9l/e7us2v4ycalml9b0zu2/dGffr/NQqXDLklfWi7izH92l1MGdL1Fj1sDCL6TUFB
Qa+8vLxuubm5nU0m062Mthy/QV/Seod51p23pY/seOnCtokE7OnX8VLGmE636YdlgHB4eDg5w+nTpwfq
S1vXsISMvB3kTfOHCnng5AgvESF7ZMfb9WWGAI4G4jk5OYP1pa1n5M73a6fINxZAiZDq16Ed1ioB+PRv
glYpQMHsoe1tyTsSQIlwYqhP+1+UAEXBgzucGO1x2Za8MwGAWI9Ol7OfXOP9ixDAFDSgoyPywMfb/QWN
BQDi7vK43OoFKFvs19kZ+erN44iOPCHInzeoiQAfjPMVoq1WgPyguzyckx9Pl/evowsv3iu4FL2uiQit
WoDCuUO6xI/2+q9j8uPoUtRaIf7R9sn0ycv3i38xco29CKO8W6cARYsGdXVGvmrTOLoYsdogn7bpAUoM
mUjnX5gksf/sW0X5gQMNEf7e6yY6HRnaegQonXu3l1PyG8cKQUX+6KYZ9OLWZwSxIZOp4QV+IvCxb/es
pLy5jUQI3fHzF8C8aFg3p+Q3jKVvw1cY5FM2zxTiYWFhAvgxIVNYBO2e8E3YcsqbM8BOhOx3Xvv5CnB2
7mDvdB/v7xyRr9wwhr4JXWaQP7x5thCOioqipMQkSkpKEh+xQ0vvM0T4evdSyp3d306ErNdfNATI/Mfr
/nr5n3aY5vv1dEp+/Rj6etcSg3zSg3OFaHR0NB0/fpzy8/IpLz9P/Oj90XLs/WVTDRH+/V4I5c6yFyFz
2xYRIGnQgO8/9PPqqbfx04ySwGE+zshXrBvNBIIN8okPWcmnpaVRUVERVVVVCeCnHU+TY1hzcEUANTyv
ifDVu4spZ2Y/OxFOPb1B7G6fTt8dH+bpo7fz447CoCG+TsmvvYcbX2SQj384yOab18hXV9dQff05Oneu
nqprajQR0vhM0EXYv3K6IcK/3llIOTPutBNBASJ8MLKrr97WjzOKAgf3dkp+zT3c8AKDfNwj823IH6ei
s2eZfDUTP0cNDQ10ngG/hmNn+ZhcDkqEVTMMEb58O4jOTL/DTgTlQ4QPh3fprbd3fYcpaFjf9AHe3zsi
b1k9iv75tyCDfMwjC+zIny20kq+vr2cBNNSLCHV8rKqJCFFrZlH9c5oIX/wlkE4H/M4gbovY/p2+PzHM
u6/e5vUZpQuH3OGU/KpR9CU3qMgfenShPfmzhXK9vzS87RVRxSIUFhbaiRC5do4hwudvzKHT05yLkD6i
2x16u+4dRYGD+jklv3IkffHmbIP8wUcX25A/RoUFhVTJ5Ovq6mjvjC70p/ivHALHsKayqpIK+DO2IkSs
C2QRJkiNz16bSdlT+zoV4YSfVz+9bfeM4oXD+jsjX75iBH3ODRnkHws2yB9j8gUFBVRVWUm1tXVy6l9N
AKypra2lSv4MPnvs2DGrCOvnUcOzmgifvjKdsu/v41SEk6M8++vtuzZK5g0d6JT88uH02Z+nG+T3Px5i
kE/lxkGgsqKCavkuf46/2bq65glQBxFqrCKkplpF2LtxgSHCJ9sDKMu/t1MRjo/o6toPp0XzBg1xRr6M
yX/6coBBPvrxJVbyqanSeEVlBdUweZzWClcToI5vhmotPlvBAmoipBoi7NlkFeHjl6ZS1hRfpyKkj+o+
RKdzbQO/4Z0Y4/2DLWmFsmV+rP5Ug3zkE8sakc+XxvFoAxGc0nV8CeAyuJoAtXW8loG1APYLFZYKys/P
l9xR0dq2OXzzIkOEC9vuo8zJvZyJ8INO6drGyZHdmhAHypb6seraOzzIR/x+uTSE/TwaRKMVFgtvbqqF
eGNcVQC1VkTQLB6dFs5piKC/O4Q/GEwNW8dLL+f/OIUyJzkWIcbn5q91Ws0fjgQwL7mbPtrmb5Dft2WF
Qf4oN5bHe3s0ioZr+BrGtV9by9Dt1hgt51tZt4oP0vDVHEgo2ijXP8jjEtAEqTFEyGskQthDIXwmaCI0
PD+JTk30aSIAnwWk02r+aCwAyF/442SD/N4tK63kjx5l8nnSYJWQr7FD/Nn1kmPlmwMNwgkftbezSoTQ
3BH8GS0Htsg1fAmIZSA3auRyLdRUIoQ+vITqlQjPTqRT9/Z0rwDmECav/2oD8uFbVjUin0vl+Ob5WY/r
Ht+W1ny1PAKx/wc5kEQ+5UMQzG2FQAwCSA4mjxwigvgsAtcoLy+X12JbEXY9uswQof6ZCZRhI4JLApiD
h9H557RfazTyq+3Io5Hy8jJpDAJojVstbobJ/M6vvn1YW99WCHVMcqkcVTokn+aLCGWORFhO57aOk17P
/WE8ZUzo4ZoApUy+4VltCwryoU+uNcinpKRIA2VlZfK8VgJgKwtfm1fzo7CSEhOTaNexeUIO3/7utCCD
rK0ou9PmU8qRI9qlpOeTnE1QLTtL1EYPKSlWEd57bAWLoJ0JdU+Po4zxPVomwIcTevIdVnvMgPzupzTy
kTr5nBwmbwb5Cm5IEwBN4ZSvqrRvGI0mxMfRoZgYio2No7j4eJ7Hi43juLKxfPxwYjILoOcUYfV8klef
M1ALtUUE7gU9GSI8vsoqwlNjKfluz2sTgKjNDTglFXY9tU4jHxmpffM5OUzeLLs8fPsa0JDymwLXbSl/
pqSkhEpMJjIBxSYqLi4WH3FzqVm+fUefdwZcYmbOm8M9oTf0KCI8sdroHwAnnd61DyTEJudIyhE6c+aM
FKyo4EYhQAWaYKAZBY4jtnPnTirZfo9LQA7klDqSX9XkGhJHLQuLV0o53BsuIbVj1Nt3fURERMjNBuRL
uZDFUq6TvDLQvKNX3muBCOAgd2PgzEFv6BG97tu3z30CHDx4kG82OXKaWsotUsyiF8WuD9csvgULAxYx
WCVA6so+zURfu7khgOTjGlJXrylzPabH5TJjEdDrgQMH3CdAQkICJy6Rx50UE5TLsx8wRBG/XI7BVwIc
XdGHDi/zdXiKO8Lh5b52ApTb5Jd6zsDrlAhxcXHuEwC/3eNui2cvChjQiYI0fDRqPW4jwPLelBDsw0L0
phSGWI5p6CMx2KMA+wkhvJZ9JYAiptVwDBGegT7LuE98aXr7ro/k5GQhXyJnAReEEAoy56KwfIaUMWAR
VwKA6KEF3nSEzwL4R3TyYpcp31eP+8paxI0zQCcl5KQO+wLrHL1gXlpSKvPExET3CoDieFxpCjuD+gY0
XwmA0z860EusBibMUHMIY3sMaxFTAqicmhDOgeOqR7cLgEcffrEtKzMLzLwJwl4AMCPGc6yROI4zlADJ
S3xpD7/qJi9lgjrgIy4+2+QlvbTjWDtTW2sIILkZUluzZlhVH1aOaT3iuNsFwCYGv8xgs6IRbQS+8TSO
KQGSQnrRzoBOYpOYqD18NItjOmQtx5QAWn773M5i0qO59HoIUEp5vO/GHRaFMQdpNZeYNMQxbgRxJQBu
ajv8O1Ai3wgTg3tRIs8TxCogbsUO//YSUwKgln09WK0HzI0Y18WrMuLuF4ALnDlzmm+E1qK44cBKjPcI
eFQiViLxEkOA+MU+9NeJt1PC4p7ixwfDKl8H++oxqK21EQA19JyqhrUHxGC1uWzW2He7ANgEZWVlWwXg
OXw8GWR/bwc0bBUgblFPemP8rWLjFvXQbWO/J20d3Eag1ioBpA5yopYIoGpoxFU9+FnZWeJfFwEyMzPl
lx+NZAmZSvglxqRIYw6rvdjAVwLELOhBr469mWLZxixk6DbWxldxrJG1PDcE0PMLjHqoo9VSwAtR5qlM
WeN2AUAoIyNDiogIeIMTMFm28kanWwUlwKH5PeS6fmX0Tc0C7hf4jBJAy6cLzhCfY1IPMbboKyPjlPSI
mPsF4CLp6el8imXLT2DZbLP5dMvmy0IAXwBfgxLg/SBvOsh4P6i72IO61eKOfNjuhgCN82ZlZcmpLn6j
OHo0mYqvgwD87n7y5MlrghLgwLzujG6aDYQPy3Plq7jMrXElgKPcVwJ+Y3C7AEjqqNiVoATYz2Sj5njR
Bw8PaBai5nhS9NxuPzMBioo4MYMt/s0hVubFxtwexYYAIB/OO0HYKyF6TjeGda0SoEivoVmGqstWfCas
9WCNuUUA/JT02buLWgT8B/jwOE8hETnbk3ZO68TWS8MsT4YXRTAwj+DjWKOO7dLX4rPIgVyOajQH4KDT
ufaBD1c9NKpFOL99uiHAvlldaceUDmw9ad9MBqzuR/Axw+pxPAUwVwIgl6MazYHrAjzIiVoAWwH2zugq
uztYYA/sTPiemhXfirexlmN2AmzmvC2AyVUBKjeNbBFsBdgzvYvs7mDDbbBnOoth+LCYd5W1iNkKULmR
87YALgtQsWFEi2ArQPgDXejVMTdTGFv4gK0PspiHPeBhs9bDTgBHNZoD1wVYz4laAFsBwgI86K0Jt9FL
I9o2C1gbyp+xE2Ad520BXBbAsnZ4i2ArQOg0Dw1Mave0zgzMlUVMn8txRkDnJgI4qtEctFSASQx/FHcV
ICGkp9pASHfmxx1bmduA57vEWgVwFeCic8KfKbszrjqwMMBdaN/2t7NbAke5XMCP80/SX0erG23a/A//
AuW0nr/YzwAAAABJRU5ErkJggg==
</value>
</data>
<data name="ToolStripButton6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAABKmSURBVHhe7VtnjJ3ZWV5CIBBaRA2gCIWghLYIQhTBH4RC
l0CkIDZEgBAoP6KIRaII7ZLs9XjKnXrv/W6budN77713z4w9HnvWvdf1ru1t9sbrdZs5PM97zvnud2eu
x22Mdlcc6dFp73nbae/57swz/5/+D5JTXt4cqqy4tgkV5ddyS0uvexGpru41wz48iYYppLPX3toSTL6K
8ltm2Icn+Xy+O7PLy2puLyD5HhezaCOkD3Vfxo57oP+oGfrBT75E4uNFpYm7c8swVkCDjQNsGx1h+nxV
lXd8RUW/Yoa/PxNW6veZ4gPTzmDwc7GqqrvaQA9cozVmTF7Z0rxWUFLyVTP8gelRdNmWlBWJfD67OHQl
Mxz4kmnaMmWEQn9S1d62NrO8G0buhpEEDN6jocvJvsaebhWrqQmY4VumzHD40/547FxJU8O3TNPTTXmR
yBd8mTvv8bAKV1Wu5cfjxQ/ar5mh0L80D/RrI11YB3jrutw1MqyiNdXzZvh9U04k9JcFweB71MWXl7te
1tL4vOl6OkmMz8q8d/jSRTWze0m9+t67qnVoUBVGo+czowW/ZMjcxKWZGQz+QX5x/Ej3+Jiado0llnS+
O9nGfmJ4Zkbx0MyJRfy+QOCXDTs3kW9ePF7ky8m+d/zqZbV4YFWdeP2KOKG8penfDNn2Jq/x00b5aTjh
yu331OKRw3TC7exI6Ouk9UXzP1lYUhIowuxkhoLr8wdeVvP794Fej9GgsaZscw/2HDuixtDOVRatqDiP
pS7bzRcMfiKvOL43Lx5bv3TzBmg1n/l9e9Xxy69aJ/w7abct5YbDX6TxR159JUXJqaVFtefwIXXp3e+p
02+9oeL1dWsFxcWHfKUZdwZ3zakzb7+prty5JU7iFTe1exHAuBQeBuhL8l5U+44f12OBvadOqKyws+4v
Ln7bXxx/e3hhXtplvECPnV1ZVsdfc53wn0b9J0u58fjvWeNFGIwWSFnXeYeffv2quszVcPSw4sxQwbNw
yuqZU2puZa9nDHPLY1FNMndh+5Gjb3ZlRa2ePil8yO/oa5fUwYvnpezyEV6kT+qSXAktT+aEpPGXtMCl
BcmptFY8WWf55TOn1eVbN9Up7MclLHuXdhH9hNB5x6fmGl6eyM048iNfOtnblwK2YTyv12N0Qr444b+N
OY+WrPH0+gSYTywuCHMtzJaZa6FSBniIkZ50E2ifEEWT/Ula257Kb7Oc1PE8e3TZ6ARQjtBTnmnj1Sor
IT9vvbTpMc6EnEjks8GKsrXB6Sk1saAZC3Nb9rRNLO7ylIGUPl0fX9il2nFjlNTXqUBZQvmjEbWjqFB9
Nz9PZTkhVVASV+HKClXT3qYGpiYND/DFuE38ADGcSNNnMYmt4SvIW4/WVf+tMevRUn4i/jWGsGPz80aR
XWKIzb1l20+lk+0Lqm9yQkWrq5SvsEC96M9R/5PrNwYXq0hVpYqhL1BWqnJjUXHICznZ6kXQ5ETC4oyx
XfNqnAYJv438k3DlG7AtKxhYx3VZbsx5vJQXjxYV19WujePkHSPjXZp5sgwF3TrKbEM+NDOlSupq1UuY
4ZcK8mV2GeEN4Y4XpUE3JrSaXsYD3aOjqry5UfnhgBfgsJ2BItXQ1Sm0rkw7hrmM0zpYnmOotwz0KVzd
ZxOJxA8YUx4vMejIj0Z313V2gPkcQMEaWonNaBscULj/ZdZjNdWypFNosKJScgPLz+ZNvT0qO+zIygmU
JhAgTRtaq4dXn2S5H/J8sejNdMHZYyWf4/w4lugbHdjDoyJoTo1CeQ3UCQpHvaajXWVg1riku0dHjGKg
Z27G6PG2bspp2kg7Mj+rqlqa1XfyclU2tk7P2KihBx1hxloZpMeWupvtOH9j1N+elB0u/FUcXHc5CxQ6
YqAVnZW8srVF7QwGlFNepoamNd3o3KymnfPS6zEjpo91Ki5tBsIT/QKUW/r75YwgusdGZMwoeQpIp+u1
HR0qJxYdNWpvX+KLzpeddU+UTgMu151Y9lzyw7MzaWmeFFxRO7C6uBK4rdLR9E6Mq9xo5LqvyvdDRvXt
SYHKikudI0MQMiMGDs9CIA1F3jE8LHuVp/kgZl73A6AljThE8llTprLsR52KC63tM7TGID2GdLqtFYfb
d3GoFiZK5Exwx7h6zajSxsa1WH3tC0b1J0/+uPO7DCimEWYOGSHMh4wCPKC45/vgfWlPoUnmVsHU/mnd
Z+lmUbd9KWVd57jqtla5WXjeuPxJS14o902Oq1BF+ZtG/SdPgbKyuQEKEWWn1aDJiYbuLjnxa0UZqwTz
JL3GTMo4i3RtG9tZduvG0ILiuMQKPPG9dDZnFIuH2a8bEx4/8QbANXib9yujQgHueC71gelJhbe+BDUs
i6KWxgUVSm3rR3AkV5wTXM8oKlyvwuHZPjSQpHHpzVhBKu/mvl6VgQO3AjeE7rPQ/bW4tosSiWafz/cR
Y8r9k6+g4Gczg8G/ywyFXsyLxVryY7FVvLev+vGep/GFieJ1HjoDU1NiqABlGsHZr0egMgChup+5oTF0
g6gTrFMxfuxAkLKYGQq8mOkE/iHLcQIMWhB1rjGG0GOtLC8/8rIypnDmlGECYjDY9Emuyz3jY7IKcqG/
Lxa5kRt3LuTH43OoJzIDgW9nBIN/Zsx/5plgRcU/BsvL1pr6+1Qn7tkBeHQCj4751f1q6dBBNblnSZaa
F1SqtLFB7/3xcbRNbOonvGVcYev+WPAcP5Ia0SkpJxx+zheN3GTEuBUfW6/CWcAJaEN8IvSTut1iDCE0
z60pfmXCtdmDldeN86ERq4eOQZCnP+VVtLU8j2W8vnLihFo8fFDN7d+nsbpP7TqwKkusj8zBQAtCDuCg
kccNjWfMb9vdsrRreh5YuY5z4UHfD/k5nCukc3hI9dGp5Ec+BlqG5tk5om8fbgOhY58dAxquhMnl3XDC
HjWF1yFtWjl5XB26cF75dvjuXVhf/2ERihn5KuN9MuAJKvkEMS73qi5PqF63f1x14U52EN/X4xC040hL
GneM8BlXPRNYjjDqfjO/Mfmj4f/CA0r06RU+lh9zC113MAnx2hrI9bRbWkCPt3X2aTpubyMu6QAxgMCS
7sUecusp7brMp20cj52Wgf7UfhirYdoAOikH7wkj7oGJDxg6jA+jVN6bkWioVzE6wG2DbC+tq1NqW1oH
8OAgtPG67GJDvRWHVVlzE4KgIdQxy54+QniY9rKmRoVD9jtG3EMlbheGv+Rj+Xn5W1S3t8pEpOtLB80n
jQPidTVrfGh0Az3jybxnbEzK/KzdLXWWR8UB1djXnSMjwribdGRueFiwvqOwYB0y/tmIe6jkj8dWeBha
Hi7PFBljsroSOIyFzvYxF6TSM9f9o2kcUFuz1oVOgjF3F5afWxeMSN6FnGgfGlINuAZ5EEk/6Emjx4AW
PHTbKA6pJoWrrtSIe6jkC4WutcDJ6fhpOVpH6lDV3raBDjB11wajn+3PSesAdKRDp0FKHYbzRxHmXtp0
4DmRFQy+ZsQ9MGUWFn5KzgAq7+GzSQegCVdaA1ZKks6rz/11S3EA44BYbfWaNWxLWBoywvJKOwaCuTUE
KA8iDMZDaS074vyrEbllyo1E9lZzVu+rT7Kdq4RIyrN99xtLpHNATfUaDzQBXn2EJmZ5WLfh1adpdL0f
8QGDi5Q+KafSMgghD380cjurqOiLRuymxK9PCIZ8eFytjSD01uPJE3oIPy3XymGs0AGDBehzacwYgakL
rUC3pTggv6TkG1xyuFPv8sDihw0+ctoGBvQgLHXm7RbY/x3Dg2oQD6SRBa2o7htM0gC6HdsEq2B6Za9q
xakOOQxPEwy/jXgxfGcg8BvZMecQVwqjUF5XHZDj5Sc8PW2c7V4EZpxRkSV6mX5DRz2b+3slBC9vapIf
THxlGXd8YeeGEa8VyAoEfh5X1R8C38qNRRrzYtGj/vz873HW6BSGm7z7k2CkNqlm9q3ISZvST0d46wBp
Fw4eUKNwWHFdnf7xE/yzYtGLWU7odgFCU4aopBnEu59j2miE5OmAFYhIbwiri7qwzSuXbwpGe3gx3ka4
fjU3FlvIiTiFO0NFX8d59NsFBQU/YszfOnGmqGzrYD+YehXQq2PXgZfxbtgjAi14RZKmFTTSZhSio/hD
6fKxo+rC5cvwu07v3LghbYuHDsmMkrceZ6HHa/m6j1tgfPeSGpqbk/akLE3HMyQHDy6wf/I/nsCdvJ8P
j1ac5mIcwJwYxYNjz9EjCJTG3TY6qxXbx5a5lZL1Adk2nOnlY8fU3uPHYPhBMUacJrSUo2Xpum4TuYYP
V9IsYntuA8vXS8ufzjnbxoQnS7gmv4yn5TqvM35v1zmNhFJQevHwITX38qrUvf33g6bzQo+RdpwT3r6N
tKzzXqdMOj9dP2MDviqf+DcBm8gop7Dw3aa+HigIZQ2amUPgEPbsyskT8oR2+2GU9MMg5vwLEWmzMHQs
W/qUcaSnMzx0BPf3ArYRVw33vDsG9FpOn3yYxVWab9TfnpQdDuXyBG3q0woKUGYgwpynPH8d5qFkaVxa
0uAk1rlpYz/aNLx0JudYO17Avn41u7pfzotuvE28/KwejZh9Hnz8Qwqj+vYk3hA4Te9yFVCYoNfkRpEl
LMsD586qkV3zSZpHBvkbGR7+XBFzMH4fVhqvX9u+EeV4oOHwO2bU3p6U7Tg/A69eZ8zdCKV4XTHnJzF6
nIKZU8mlw4fV4YsX5IDiCmC7AEbpcaZuQB52fGp7kj8DmmUctKtYYcPz85rGHeMZaxzHP7TMjjrb81dj
uAI/So+WtzRrYT1GmBeIxW2Zs8fY4Oirl9T+UyclWmzs1f08nCzIR3Lb59aTNNwePFe4qlZPn0LUOa7l
e2ht3VvmC5GfvHB4/5ox4/GTPxyu9fn964yqtKLdqYABm9oABjNU/Pjl1+SAlLMB2ySFLs3YesjgjNPw
g+fPqSOvXFQLOPB426TQGQgPjJGyaaOcejgCQdzVoqIi/dnrcVJWOPxPjKZaEWlxydV3QwDAMJleFohQ
lpNKabou1YDVwPv9yKVX1Jk331Cngf2YSV6Z4zCQt0f/9LTc6RN7l6WdTjv5+lVx3DJiBD64Glz+4An+
UpeyzrUuut/WGRfwO0FuLNxtzHm0lB0K/RbDYHqTqANTi/ruThFS16WFJdsBtOl6p9tOpRm2ciZPXLms
Lr5zXV27dUuHgUjXbr2nzr/9ljoLB3GpTyzvkSvO8tS54delZVPOJtkp6JSVJOdBOPT3xqyHT9nx+G/6
cffzqw+9WwumNFgMgxLaQJa1Um67Qa2HrtY7DqBD2qEc3wcDs7MyyzxAtYGGn0GtW07K8bYJb7euIbqC
juEww/j80uKvGLMeLRWVlDzri4Rv8NtfXacRjFcVwXIKTP9G1HWB1tKDRuoCS5Par/sgQ2BpdLtroLfN
jJHcw4ehO1ewP+b8lTHn8RJPUr7a+GFTBAA1Hmihpr2jQ77Rs+6lcek2lLWytu4pe9prXMNQBoS/22fo
DY2l5XNevj2Eg39hzHiyxD+OoBNKGxshpF0EC2CwRrviNcnllh3OvV6YKFkrhcM0DehJg7JVOgnySvJz
+80YqbPc3q6K6/GEjkVvZUOPcFWlO8Yda2RUtGjjMx3nz43625OwEj6H7fAOfw6r9hhOMPamgzIDgS/B
CR/JCoW+guvzFZTvUfHqjjb5gmzhdZzmpXPdp8EyVx1/fRLHRkJjO53C3+G1Bt5DvJ0qscyT/DgJ1vjA
nxq1tzfhQfRZOiHRWI8Dpl1RAc52juOsMFo0ZG7i568sx+nj56eSeoyhYRinc49TbJugTfjSef5g8Bz4
fpu/UBuWbsLJ/h80lucTx8sKjEZuYRL+2JA8nWSdEKmuEm9DwZdwk2350SErGHyey5ahNEHjdZnGm7Jx
CtsSDQ3yMcMMv2/KCAZ/3+qC/FZGKPRHpuvpJv6AiTjhQFYg8HnTtGXKcgJ/zW991gFVbSYXtG6ot6lo
dbXCHi40w7dM0OPnckKhZW4/0/T+S9y73Mdc2ryeKmkwUAljdRvLth3LPytznX+vYIZ/8BOW809xu9DY
hwGd9bCr6wOTssPO7cpWGEi0tWhjpWxyW0affNCIRn/UDH1fJR52/Jub7wf4ve1jAF9b/MT8YwC/wvwk
8NPAL3rhCzvv8GNFBYKUChgpuQGNtzmvMp8TuukZ+wvAJwH+jkC+5E85lEe5lE89qA/1on7b/m90XsP5
Fx4/CPAPEb3GU0Eq/Cng08AXvMjIzz+JbXCXy3sjcrE9LKStqPCMZ+yzAP+w4jMA+ZI/5VCe1wnUh3pR
v6fiCDLzOsLrDM6AdcjHASr1E158+bnnPvONb37z2YcBaT1jaSTBLUG+5G8Nplyv0V7Dt9X4D3F65pn/
BSza8KJ3IAsCAAAAAElFTkSuQmCC
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAABKaSURBVHhe7VtnjJ3ZWTYhEAgtogZQhEJQQlsEIYrgD0Kh
SyBSEBsiQAiUH1HEIlGEdkn226l32u1leu+99148M/Z47Fn3Xte7trfZG6/XbebwPO8557vfHV+P2xjt
rjjSo9Pe87bT3vPdmR3/n/4PUriioiVUVXn1HlRWXM0rK7vmRbSmps8M+/AkGqaQzlx9a0swOZUVN82w
D09yHOf23MqKmt8DSL7bxRzaCOlDHbR3gY+aoR/85JSWftxfVnpnfgXGCmiwcYBtoyNMn1Ndddvx+3/F
DH9/JqzU7zPFB6bMYPBz8erqO9pAD1yjNWZNXtXasl5YUvJVM/yB6VF02ZaUHY1+Pqc4dDkrEviSadoy
ZYRCf1Ld0b4+u7ILRu6CkQQM3q2hy8m+pt4eFa+tDZjhW6asSOTTvkT8bElz47dM09NN+dHoF5yMl+7y
sIpUV60XJBLFD9qvWaHQv7QMDmgjXVgHeOu63D06omK1NQtm+H1TbjT0l4XB4HvUxfHlbpS3Nj1nup5O
EuMzM+4eunhBze5aVq++965qGx5SRbHYuaxY4S8ZMjdxaWYFg39QUJw43DMxrmZcY4llne9KtrGfGJmd
5UF4Ozce9TmBwC8bdm4i3/xEwu9kZ909duWSWtq/po6/flmcUNHa/G+GbHuT1/gZo/wMnHD51ntq6fAh
OuFWTjT0ddI6sYJPFpWUBPyYnYyAf2Nh/8tqYd9e0OsxGjTWlG3uwe6jh9U42rnKYpWV57DUZbs5weAn
8osTe3yx6MbFG9dBq/ks7N2jjl161Trh30m7bSkvEvkijT/86ispSk4vL6ndhw6qi+9+T5166w2VaKhf
LywuPuiUObeHds6r02+/qS7fvilO4hU3vWsJwLgUHgboS/JeUnuPHdNjgT0nj6vMUHDDV1z8tq848fbI
4oK0y3iBHju3uqKOveY64T+N+k+W8hKJ37PGizAYLZCyrvMOP/X6FXWJq+HIIcWZoYJn4JS10yfV/Ooe
zxjmlseSmmLuwvYjR9/c6qpaO3VC+JDfkdcuqgMXzknZ5SO8SJ/UJbkSWp/MCUnjL2qBy4uSU2mteLLO
8sunT6lLN2+ok9iPy1j2Lu0S+gmh845PzTW8PJGbceRHvnSyty8FbMN4Xq9H6YQ8ccJ/G3MeLVnj6fVJ
MJ9cWhTmWpgtM9dCpQzwECM96SbRPimKJvuTtLY9ld+9clLH8+zRZaMTQDlCT3mmjVerrIQ830ZZ82Oc
CbnR6GeDleXrQzPTanJRMxbmtuxpm1za6SkDKX26PrG4U3XgxihpqFeB8lKFQ0y95C9S3y3IV9nhkCos
SahIVaWq7WhXg9NThgf4Ytw9/AAxnEjTZzGFreHk+zZi9TV/a8x6tFRQmvgaQ9jxhQWjyE4xxObesu2n
0sn2RdU/NaliNdXKKSpUL/hy1f/k+YzBxSpaXaXi6AuUl6m8eEwc8nxujnoBNLnRiDhjfOeCmqBBwm8z
/yRc+QZsy/QXbeC6rDDmPF7KT8T8xfV16xM4ecfJeKdmnixDQbeOMtuQD89Oq5L6OvUiZvjFwgKZXUZ4
w7jjRWnQjQutppfxQM/YmKpoaVI+OOB5OCwz4FeN3V1C68q0Y5jLOK2D5TmOeutgv8LVfaa0tPQHjCmP
lxh0FMRiu+q7OsF8HqBgDa3EvWgfGlRZoaDMery2RpZ0Cg1WVEpuYPnZvLmvV+VEwrJyAmWlCJBmDK3V
w6tPsjwAeU48diNdcPZYyQmHfxxL9I1O7OExETSvxqC8BuoEhaNe29mhEPzIku4ZGzWKgZ65GaPH27op
p2kj7ejCnKpubVHfyc9TOdg6veNjhh50hBlrZZAeW+pOTjj8N0b97Uk5kaJfxcF1h7NAoaMGWtE5yava
WlVmMKDCFeVqeEbTjc3Padp5L70eM2r6WKfi0mYgPNEvQLl1YEDOCKJnfFTGjJGngHS6XtfZqXLjsTGj
9vYlvuicrMy7onQacLkiWpMlPzI3m5bmScEV9RJWF1cCt1U6mr7JCZUXi15zqp0fMqpvTwpUVV7sGh2G
kFkxcGQOAmko8s6REdmrPM2HMPO6HwAtacQhks+ZMpVlP+pUXGhtn6E1BukxpNNtbTjcvotDtai0RM4E
d4yr16wqa2pajzfUPW9Uf/LkS4R/lwHFDMLMYSOE+bBRgAcU93w/vC/tKTTJ3CqY2j+j+yzdHOq2L6Ws
6xxX094mNwvPG5c/ackL5f6pCRWqrHjTqP/kKVBePj9IIaLsjBoyOdHY0y0nfp0oY5VgnqTXmE0ZZ5Gu
bXM7y27dGFpYnJBYgSe+l87mjGLxMPt1Y8LjJ94AuAZv8X5lVCjAHc+lPjgzpfDWl6CGZVHU0rigQqlt
AwiOeGZkBf0bTmHBRjUOz47hwSSNS2/GClJ5t/T3qQwcuJW4IXSfhe6vw7XtLy1tcRznI8aU+yensPBn
s4LBv8sKhV7Ij8dbC+LxtfxE/IoP73kaX1Ac3+ChMzg9LYYKUBYjMPsNCFQGIVT3Mzc0hm4IdYJ1KsaP
HQhSlrJCgReywoF/yA6HAwxaEHWuM4bQY60sLz/ysjKmceaUYwLiMNj0Sa7LvRPjsgryoL8Tj17PS4TP
FyQS86iXZgUC384IBv/MmL9jR7Cy8h+DFeXrzQP9qgv37CA8OolHx8LaPrV88ICa2r0sS80LKlXW1Kj3
/sQE2ibv6Se8Zc62Lx48y4+kRnRKyo1EnnVi0RuMGLfiY+vVOAs4Ae2IT4R+SrdbjCOE5rk1za9MuDZ7
sfJ6cD40YfXQMQjy9Ke8yvbW5zDjG6vHj6ulQwfU/L69Gmt71c79a7LE+skcDLQg5AAOGnnc0HjG/Lbd
LUu7pueBlRcOn3/Q90N+DucK6RoZVv10KvmRj4GWoXl2jerbh9tA6Nhnx4CGK2FqZRecsFtN43VIm1ZP
HFMHz5+T3x7Ob2z8sAjFjHyV8T4Z8ASVfJKYkHtVlydVn9s/obpxJ4cR3zfgELTjSEsad4zwmVC9k1iO
MOp+M785+WKR/8IDSvTpEz6WH3MLXQ9jEhJ1tZDrabe0gB5v6+zTdNzeRlzSAWIAgSXdhz3k1lPadZlP
2wQeO62DA6n9MFbDtAF0Ui7eE0bcAxMfMHQYH0apvO9FaWODitMBbhtke2ldnVLb0jqABwehjddlF5vq
bTisyluaEQQNo45Z9vQRwsO0lzc34cQPfseIe6jE7cLwl3wsPy9/i5qONpmIdH3poPmkcUCivnadD40e
oHcimfeOj0uZn7V7pM7ymDigBvu6a3RUGPeQjswNDwvWnYL8Dcj4ZyPuoZIvEV/lYWh5uDxTZIzL6irF
YSx0to+5IJWeue4fS+OAutr1bnQSjLm7sfzcumBU8m7kRMfwsGrENciDSPpBTxo9BrTgodvGcEg1K1x1
ZUbcQyUnFLraCien46flaB2pQ3VH+yY6wNRdG4x+tj83rQPQkQ5dBil1GM4fRZh7adOB50R2MPiaEffA
lFVU9Ck5A6i8h889OgDNuNIasVKSdF597q9bigMYB8TratatYVvC0pARllfaMRDMrSFAeQhhMB5K6znR
8L8akVumvGh0Tw1n9b76JNu5SoikPNt3v7FEOgfU1qzzQBPg1UdoYpZHdBtefZpG1wcQHzC4SOmTciot
gxDy8MWit7L9/i8asfckfn1CMOTgcbU+itBbjydP6CH8tFwrh7FCJwwWoM+lMWMEpi60At2W4oCCkpJv
cMnhTr3DA4sfNvjIaR8c1IOw1Jl3WGD/d44MqSE8kEYXtaK6byhJA+h2bBOsgpnVPaoNpzoDEIajDL+N
eDE8MxD4jZx4+CBXCqNQXledkOPlJzw9bZztPgRmnFGRJXqZfkNHPVsG+iQEr2hulh9MnHLnthMJXzfi
tQLZgcDP46r6Q+BbefFoU348dsRXUPA9zhqdwnCTd38SjNSm1OzeVTlpU/rpCG8dIO3igf1qDA4rrq/X
P36Cf3Y8diE7HLpViNCUISpphvDu55h2GiF5OmAFItIbxuqiLmzzyuWbgs7Gi/EWwvUrefH4Ym40XJQZ
8n8d59FvFxYW/ogxf+vEmaKybUMDYOpVQK+Onftfxrthtwi04BVJmjbQSJtRiI7iD6UrR4+o85cuwe86
vXP9urQtHTwoM0reepyFHq/l6z5ugYldy2p4fl7ak7I0Hc+QXDy4wP7J/3gCd/I+PjzacJqLcQBzYgwP
jt1HDiNQmnDb6Kw2bB9b5lZK1gdl23CmV44eVXuOHYXhB8QYcZrQUo6Wpeu6TeQaPlxJc4jtuQ0sXy8t
fzrnbBsTnizhmvwynpYbvM74vV3nNBJKQemlQwfV/MtrUvf23w+azgs9RtpxTnj7NtOyznudMun8dP2M
DfiqfOLfBGwio9yioneb+3uhIJQ1aGEOgcPYs6snjssT2u2HUdIPg5jzL0SkzcLQsWzpU8aRns7w0BHc
34vYRlw13PPuGNBrOf3yYRZXaYFRf3tSTiSUxxO0uV8rKECZgQhznvL8dZiHkqVxaUmDk1jnpo39aNPw
0pmcY+14AfsG1NzaPjkvevA28fKzejRh9nnw8Q8pjOrbk3hD4DS9w1VAYYI+kxtFlrEs9589o0Z3LiRp
Hhnkb2R4+HNFzMP4vVhpvH5t+2ZU4IGGw++oUXt7Uk44/DPw6jXG3E1QitcVc34So8cpmDmVXD50SB26
cF4OKK4AtgtglB5n6gbkYcentif5M6BZwUG7hhU2srCgadwxnrHGcbz+cmLh7fmrMTD7KD1a0dqihfUa
YV4gFrdlzh5jgyOvXlT7Tp6QaLGpT/fzcLIgH8ltn1tP0nB78Fzhqlo7dRJR54SW76G1dW+ZL0R+8sLh
/WvGjMdPvkikzsnJ2WBUpRXtSQUMuKcNYDBDxY9dek0OSDkbsE1S6NKMbYAMzjgNP3DurDr8ygW1iAOP
t00KnYHwwBgpmzbKaYAjEMRd8fv9+rPX46TsSOSfuJzaEGlxyTX0QADAMJleFohQlpNKabpu1YjVwPv9
8MVX1Ok331CngH2YSV6ZEzCQt8fAzIzc6ZN7VqSdTjvx+hVx3ApiBD64Gl3+4An+UpeyzrUuut/WGRfw
O0FePNJjzHm0lBMK/RbDYHqTqAdTi4aeLhFS362FJdsBtOl6l9tOpRm2ciaPX76kLrxzTV29eVOHgUhX
b76nzr39ljoDB3GpT67slivO8tS54detZVPOPbJT0CUrSc6DSOjvjVkPn3ISid/04e7nVx96tw5MabAY
BiW0gSxrpdx2gzoPXZ13HECHdEA5vg8G5+ZklnmAagMNP4M6t5yU420T3m5dQ3QFHcNhhvEFZcVfMWY9
WvKXlDzjRCPX+e2vvssIxquKYDkFpn8z6rtBa+lBI3WBpUnt132QIbA0ut010Ntmxkju4cPQnSvYFw//
lTHn8RJPUr7a+GFTBAC1Hmihpr2zU77Rs+6lcek2lbWytu4pe9prXcNQBoS/22foDY2l5XNevj1Egn9h
zHiyxD+OoBPKmpogpEMEC2CwRofiNcnllhPJu1ZUWrJeBodpGtCTBmWrdBLkleTn9psxUme5o0MVN+AJ
HY/dzIEekeoqd4w71siobNXGZ4XDf27U356ElfA5bId3+HNYjcdwgrE3HZQVCHwJTvhIdij0FVyfr/AA
ouI1ne3yBdnC6zjNS+e6T4Nlrjr++iSOjYbGM8NFv8NrDbyHybsKyzzJj5NgjQ/8qVF7exMeRJ+lE0qb
GnDAdCgqwNnODYdXGS0aMjfx81d2ONzPz08lDRhDwzBO5x6n2DZBu/Clgb5g8Cz4fpu/UBuWbsLJ/h80
lucTx8sKjEVvYhL+2JA8nWSdEK2pFm9DwRdxk2350SE7GHyOy5ahNEHjdZnGm7JxCttKGxvlY4YZft+U
EQz+vtUF+c2MUOiPTNfTTfwBE3HC/uxA4POmacuUHQ78Nb/1WQdUt5tc0Lap3q5iNTUKe7jIDN8yQY+f
yw2FVrj9TNP7L3Hvch9zafN6qqLBQBWM1W0s23Ys/8yMDf69ghn+wU9Yzj/F7UJjHwZ01sOurg9MyomE
b1W1wUCivVUbK2WT2zL65INGLPajZuj7KvGw49/cfD/A720fA/ja4ifmHwP4FeYngZ8GftELJxJ+hx8r
KhGkVMJIyQ1ovM15lTnh0A3P2F8APgnwdwTyJX/KoTzKpXzqQX2oF/Xb9n+j8xrOv/D4QYB/iOg1ngpS
4U8Bnwa+4EVGQcEJbIM7XN6bkYftYSFt/qLTnrHPAPzDis8A5Ev+lEN5XidQH+pF/Z6KI8jM6wivMzgD
1iEfB6jUT3jx5Wef/cw3vvnNZx4GpPWMpZEEtwT5kr81mHK9RnsN31bjP8Rpx47/BSi/7+UjGX0xAAAA
AElFTkSuQmCC
</value>
</data>
<data name="ToolStripButton7.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -742,6 +717,31 @@
mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
TgDQASA1MVpwzwAAAABJRU5ErkJggg==
</value>
</data>
<data name="bt_filesave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
R0lGODlhEAAQAIQAAJXD9Iasxm6MqnSn2lZtjVaRyEpXbYu767TX/2KZztvr/4Gy5KrT/3ut32+gzlFh
e+r0/0RNX9/u/9Ln+8Xg//n8/4e36CkxQz9GVkSCvKjL35/N/Je91K7T5bDS4////yH/C05FVFNDQVBF
Mi4wAwEBAAAh+QQAAAAAACwAAAAAEAAQAAAIuQA/CBxIsKDACRwScggQwIGAhwIICBDYQcEEgwg+bNjw
QKCHCQgkQBgpQcKBCg0AEBCoAaRIkhIsVBigUiAHCgwkKNjJU8GAAx0/3NwIAMABCwsaDHCwIGgAChuK
HjiQdMDSAQYEPpWKtKqDBA6yfgiAwGhXpUsTJIgg0AGCo0nRfi1QgO0HAQyQNpCrtkAGDAIFbKi69GsC
un8FEohqdEFavxkyXAhMoPKDBwYMRIiAAcOFoAZDCwwIADs=
</value>
</data>
<data name="bt_데이터관리.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAIVSURBVDhPjVLJihpRFK1VFvmAXiSfkFV+Irt8Rpb5
jGSXlfOMioIjiLgSxRERJ1QcUJxQcMSUitBJad/c8+gq2m4XeXCqXt2659zz7n0SEb1BLpf7GY/HFx6P
5wnAHrF7uW8CkUjkIRAI/OX9zULM7/d/4O1Nvng8V5xwtSuDYrEYdbtdul6vdLlcqN1uixj+IQe5qiMh
wOqP/NbWdDqlcDhMzWZTIBQKidjL9cyRpGg06mJQp9MRFYFSqUSJRIK8Xq8A9ojBjaIo1Gq1CByHw+GX
uJLS7/epVqtRvV4XFVH99VIdVatVymazlE6nyWazKRLbk0+nE63XaxqNRjQej4nPR4PBQHOEfT6fp16v
R8lkUqDRaJDVapWlYDAoBA6HA+33e5rNZsJupVLReoCqaCKImUxGAG4tFouMBgoBWZZpt9vRZrOhxWIh
quJohUJBEGEZzuAEAihgNptliWf753w+0/F4pOVyKciTyYSGw6EYJZJBVJFKpYRYuVwmg8HwKPl8viQC
8/lcHAMi6AUcQAD/0DQATlAZolyY9Hp9VuIxvePL8c3tdg+RtFqtaLvdimZCQG0aiOgN7gQTp4zvOp3u
vXYlXS7Xg9Pp/MGz/V0sFoUIxNBAjJhvHyyfmPiLiR9Vniagwm63f+L5+nhETyDizOwO5DCTP7/Ov/l4
Ce7wF5PJlDYajQUmf72XA9wN/j9I+gdcby0cbkUDWAAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">

1851
ArinWarev1/MdiMain.vb
View File

File diff suppressed because it is too large Load Diff

778
ArinWarev1/Module/Pub.vb
View File

@@ -84,15 +84,772 @@
End If
End Sub
Public Sub 항목별평가결과(ByRef DSR As Eco2Ar.DSR)
Dim NDr As DSR.Pyonga_YKRow = DSR.Pyonga_YK.NewPyonga_YKRow
'//기준(*)데이터가없는경우에는 1번째데이터를 쓰도록한다.
Dim 외벽벽체찾음 As Boolean = False
Dim 외벽지붕찾음 As Boolean = False
Dim 외벽바닥찾음 As Boolean = False
For Each dr As DS.tbl_ykRow In DSET1.tbl_yk.Select("code <> '0'")
Dim gcode As String = dr.면형태.ToString()
Dim gname As String = Get_CName("1088", gcode)
If gname = "외벽(벽체)" OrElse gname = "내벽(벽체)" Then
If dr.설명.Substring(0, 1) = "*" Then '//기준데이터가져오기
NDr.벽체값 = dr.열관류율
Dim 최대저항값 As Decimal = 0
'//세부데이터글가져온다 이중열저항이 가장큰것을 가져아야한다
For Each ddr As DS.tbl_ykdetailRow In DSET1.tbl_ykdetail.Select("code <> '0' and pcode = '" + dr.code + "'")
If CDec(ddr.열저항) > 최대저항값 Then '//최대저항값의설명을 가져와야한다.
외벽벽체찾음 = True
NDr.벽체종류 = ddr.설명 + Space(1) + ddr.두께 + "mm"
최대저항값 = CDec(ddr.열저항)
End If
Next
End If
ElseIf gname = "외벽(지붕)" OrElse gname = "내벽(지붕)" Then
If dr.설명.Substring(0, 1) = "*" Then '//기준데이터가져오기
NDr.지붕값 = dr.열관류율
Dim 최대저항값 As Decimal = 0
'//세부데이터글가져온다 이중열저항이 가장큰것을 가져아야한다
For Each ddr As DS.tbl_ykdetailRow In DSET1.tbl_ykdetail.Select("code <> '0' and pcode = '" + dr.code + "'")
If CDec(ddr.열저항) > 최대저항값 Then '//최대저항값의설명을 가져와야한다.
외벽지붕찾음 = True
NDr.지붕종류 = ddr.설명 + Space(1) + ddr.두께 + "mm"
최대저항값 = CDec(ddr.열저항)
End If
Next
End If
ElseIf gname = "외벽(바닥)" OrElse gname = "내벽(바닥)" Then
If dr.설명.Substring(0, 1) = "*" Then '//기준데이터가져오기
NDr.바닥값 = dr.열관류율
Dim 최대저항값 As Decimal = 0
'//세부데이터글가져온다 이중열저항이 가장큰것을 가져아야한다
For Each ddr As DS.tbl_ykdetailRow In DSET1.tbl_ykdetail.Select("code <> '0' and pcode = '" + dr.code + "'")
If CDec(ddr.열저항) > 최대저항값 Then '//최대저항값의설명을 가져와야한다.
외벽바닥찾음 = True
NDr.바닥종류 = ddr.설명 + Space(1) + ddr.두께 + "mm"
최대저항값 = CDec(ddr.열저항)
End If
Next
End If
End If
Next
If Not 외벽벽체찾음 Then
For Each dr As DS.tbl_ykRow In DSET1.tbl_yk.Select("code <> '0'")
Dim gcode As String = dr.면형태.ToString()
Dim gname As String = Get_CName("1088", gcode)
If gname = "외벽(벽체)" OrElse gname = "내벽(벽체)" Then
NDr.벽체값 = dr.열관류율
Dim 최대저항값 As Decimal = 0
'//세부데이터글가져온다 이중열저항이 가장큰것을 가져아야한다
For Each ddr As DS.tbl_ykdetailRow In DSET1.tbl_ykdetail.Select("code <> '0' and pcode = '" + dr.code + "'")
If CDec(ddr.열저항) > 최대저항값 Then '//최대저항값의설명을 가져와야한다.
외벽벽체찾음 = True
NDr.벽체종류 = ddr.설명 + Space(1) + ddr.두께 + "mm"
최대저항값 = CDec(ddr.열저항)
End If
Next
If 외벽벽체찾음 Then Exit For
End If
Next
If Not 외벽벽체찾음 Then
NDr.벽체종류 = ""
NDr.벽체값 = 0
End If
End If
If Not 외벽지붕찾음 Then
For Each dr As DS.tbl_ykRow In DSET1.tbl_yk.Select("code <> '0'")
Dim gcode As String = dr.면형태.ToString()
Dim gname As String = Get_CName("1088", gcode)
If gname = "외벽(지붕)" OrElse gname = "내벽(지붕)" Then
NDr.지붕값 = dr.열관류율
Dim 최대저항값 As Decimal = 0
'//세부데이터글가져온다 이중열저항이 가장큰것을 가져아야한다
For Each ddr As DS.tbl_ykdetailRow In DSET1.tbl_ykdetail.Select("code <> '0' and pcode = '" + dr.code + "'")
If CDec(ddr.열저항) > 최대저항값 Then '//최대저항값의설명을 가져와야한다.
외벽지붕찾음 = True
NDr.지붕종류 = ddr.설명 + Space(1) + ddr.두께 + "mm"
최대저항값 = CDec(ddr.열저항)
End If
Next
If 외벽지붕찾음 Then Exit For
End If
Next
If Not 외벽지붕찾음 Then
NDr.지붕종류 = ""
NDr.지붕값 = 0
End If
End If
If Not 외벽바닥찾음 Then
For Each dr As DS.tbl_ykRow In DSET1.tbl_yk.Select("code <> '0'")
Dim gcode As String = dr.면형태.ToString()
Dim gname As String = Get_CName("1088", gcode)
If gname = "외벽(바닥)" OrElse gname = "내벽(바닥)" Then
NDr.바닥값 = dr.열관류율
Dim 최대저항값 As Decimal = 0
'//세부데이터글가져온다 이중열저항이 가장큰것을 가져아야한다
For Each ddr As DS.tbl_ykdetailRow In DSET1.tbl_ykdetail.Select("code <> '0' and pcode = '" + dr.code + "'")
If CDec(ddr.열저항) > 최대저항값 Then '//최대저항값의설명을 가져와야한다.
외벽바닥찾음 = True
NDr.바닥종류 = ddr.설명 + Space(1) + ddr.두께 + "mm"
최대저항값 = CDec(ddr.열저항)
End If
Next
If 외벽바닥찾음 Then Exit For
End If
Next
If Not 외벽바닥찾음 Then
NDr.바닥종류 = ""
NDr.바닥값 = 0
End If
End If
'//지열설비정보확인
Dim Sum_지열히트펌프용량_난방 As Single = 0
Dim Sum_지열히트펌프용량_냉방 As Single = 0
Dim Max_난방 As Single = 0
Dim Max_냉방 As Single = 0
Dim JDROW() As DS.tbl_newRow = DSET1.tbl_new.Select("code <> '0' and 기기종류='지열'", "설명")
If JDROW.GetUpperBound(0) = -1 Then '//지열데이터가없는경우엔 빈값처리
NDr.지열히트펌프용량냉방 = ""
NDr.지열히트펌프용량 = ""
NDr.지열비고 = ""
NDr.지열난방COP = ""
NDr.지열냉방COP = ""
Else '//데이터가있다면 1번째 데이터를 이용한다.
Dim Max_Row_난방 As DS.tbl_newRow = Nothing
Dim MAx_Row_냉방 As DS.tbl_newRow = Nothing
NDr.지열비고 = JDROW(0).지열비고
For Each jdrowrow As DS.tbl_newRow In JDROW
Dim 난방연결수 As Integer = (DSET1.tbl_nanbangkiki.Select("신재생연결여부='시스템연결' and 연결된시스템='" & jdrowrow.code.ToString & "'").GetUpperBound(0) + 1)
Dim 냉방연결수 As Integer = (DSET1.tbl_nangbangkiki.Select("신재생연결여부='시스템연결' and 연결된시스템='" & jdrowrow.code.ToString & "'").GetUpperBound(0) + 1)
Dim 난방값 As String = jdrowrow.열성능비난방
Dim 냉방값 As String = jdrowrow.열성능비냉방
If 난방연결수 > 0 AndAlso 난방값 <> "" AndAlso IsNumeric(난방값) AndAlso 난방값 <> "0" Then
Sum_지열히트펌프용량_난방 += jdrowrow.지열히트펌프용량
If TOSG(jdrowrow.지열히트펌프용량) > Max_난방 Then
Max_난방 = TOSG(jdrowrow.지열히트펌프용량)
Max_Row_난방 = jdrowrow
End If
End If
If 냉방연결수 > 0 AndAlso 냉방값 <> "" AndAlso IsNumeric(냉방값) AndAlso 냉방값 <> "0" Then
Sum_지열히트펌프용량_냉방 += jdrowrow.지열히트펌프용량
If TOSG(jdrowrow.지열히트펌프용량) > Max_냉방 Then
Max_냉방 = TOSG(jdrowrow.지열히트펌프용량)
MAx_Row_냉방 = jdrowrow
End If
End If
Next
NDr.지열히트펌프용량냉방 = Sum_지열히트펌프용량_냉방.ToString()
NDr.지열히트펌프용량 = Sum_지열히트펌프용량_난방.ToString()
'NDr.지열히트펌프용량냉방 = Sum_지열히트펌프용량_냉방.ToString() + "(" + Max_냉방.ToString() + ")"
'If Sum_지열히트펌프용량_난방 > 0 Then
' NDr.지열히트펌프용량 = Sum_지열히트펌프용량_난방.ToString()
' 'NDr.지열히트펌프용량 = "난방: " + Sum_지열히트펌프용량_난방.ToString() + "(" + Max_난방.ToString() + ")"
'Else
' NDr.지열히트펌프용량 = ""
'End If
'If Sum_지열히트펌프용량_냉방 > 0 Then
' NDr.지열히트펌프용량 += " / 냉방: " + NDr.지열히트펌프용량냉방
'End If
If Max_난방 <> 0 Then
NDr.지열난방COP = Max_Row_난방.열성능비난방
Else
NDr.지열난방COP = ""
End If
If Max_냉방 <> 0 Then
NDr.지열냉방COP = MAx_Row_냉방.열성능비냉방
Else
NDr.지열냉방COP = ""
End If
End If
'//######################
'//13-12-08
'//######################
'//태양열시스템
Dim JDROW2() As DS.tbl_newRow = DSET1.tbl_new.Select("code <> '0' and 기기종류='태양열'", "설명")
Dim Max_태양열면적 As Single = -999
Dim Max_집열기유형 As String = ""
Dim Max_집열판방위 As String = ""
Dim Sum_태양열면적 As Single = 0
For Each rowsun As DS.tbl_newRow In JDROW2
Dim 난방연결수 As Integer = (DSET1.tbl_nanbangkiki.Select("신재생연결여부='시스템연결' and 연결된시스템='" & rowsun.code.ToString & "'").GetUpperBound(0) + 1)
Dim 냉방연결수 As Integer = (DSET1.tbl_nangbangkiki.Select("신재생연결여부='시스템연결' and 연결된시스템='" & rowsun.code.ToString & "'").GetUpperBound(0) + 1)
If 난방연결수 > 0 OrElse 냉방연결수 > 0 Then
Dim 태양면적 As String = rowsun.집열판면적
If 태양면적 <> "" AndAlso IsNumeric(태양면적) AndAlso 태양면적 <> "0" Then
Sum_태양열면적 += TOSG(태양면적)
If TOSG(태양면적) > Max_태양열면적 Then
Max_태양열면적 = TOSG(태양면적)
Max_집열기유형 = rowsun.집열기유형
Max_집열판방위 = rowsun.집열판방위
End If
End If
End If
Next
If Sum_태양열면적 > 0 Then
NDr.태양열집열판면적 = Sum_태양열면적.ToString() + "(" + Max_태양열면적.ToString + ")"
NDr.태양열집열기유형 = Max_집열기유형
NDr.태양열집열판방위 = Max_집열판방위
Else
NDr.태양열집열판면적 = ""
NDr.태양열집열기유형 = ""
NDr.태양열집열판방위 = ""
End If
'//태양광시스템
Dim JDROW3() As DS.tbl_newRow = DSET1.tbl_new.Select("code <> '0' and 기기종류='태양광'", "설명")
Dim Max_태양광면적 As Single = -999
Dim Max_태양광종류 As String = ""
Dim Max_태양광방위 As String = ""
Dim Max_태양광기울기 As String = ""
Dim Max_태양광적용타입 As String = ""
Dim Sum_태양광면적 As Single = 0
For Each rowsun As DS.tbl_newRow In JDROW3
Dim 태양면적 As String = rowsun.태양광모듈면적
If 태양면적 <> "" AndAlso IsNumeric(태양면적) AndAlso 태양면적 <> "0" Then
Sum_태양광면적 += TOSG(태양면적)
If TOSG(태양면적) > Max_태양광면적 Then
Max_태양광면적 = TOSG(태양면적)
Max_태양광종류 = rowsun.태양광모듈종류
Max_태양광방위 = rowsun.태양광모듈방위
Max_태양광기울기 = rowsun.태양광모듈기울기
Max_태양광적용타입 = rowsun.태양광모듈적용타입
End If
End If
Next
If Sum_태양광면적 > 0 Then
NDr.태양광모듈면적 = Sum_태양광면적.ToString() '+ "(" + Max_태양광면적.ToString + ")"
NDr.태양광모듈종류 = Max_태양광종류
NDr.태양광모듈방위 = Max_태양광방위
NDr.태양광모듈기울기 = Max_태양광기울기
NDr.태양광모듈적용타입 = Max_태양광적용타입
If NDr.태양광모듈방위 = "(없음)" Then
NDr.태양광모듈방위 = ""
End If
Else
NDr.태양광모듈면적 = ""
NDr.태양광모듈종류 = ""
NDr.태양광모듈방위 = ""
NDr.태양광모듈기울기 = ""
NDr.태양광모듈적용타입 = ""
End If
'//열병합시스템
Dim JDROW4() As DS.tbl_newRow = DSET1.tbl_new.Select("code <> '0' and 기기종류='열병합'", "설명")
Dim Max_열병합능력 As Single = -999
Dim Max_열병합생산효율 As String = ""
Dim Max_열병합발전효율 As String = ""
Dim Max_열병합가동연료 As String = ""
Dim Sum_열병합능력 As Single = 0
For Each rowsun As DS.tbl_newRow In JDROW4
Dim 난방연결수 As Integer = (DSET1.tbl_nanbangkiki.Select("신재생연결여부='시스템연결' and 연결된시스템='" & rowsun.code.ToString & "'").GetUpperBound(0) + 1)
Dim 냉방연결수 As Integer = (DSET1.tbl_nangbangkiki.Select("신재생연결여부='시스템연결' and 연결된시스템='" & rowsun.code.ToString & "'").GetUpperBound(0) + 1)
If 난방연결수 > 0 OrElse 냉방연결수 > 0 Then
Dim 값 As String = rowsun.열생산능력
If 값 <> "" AndAlso IsNumeric(값) AndAlso 값 <> "0" Then
Sum_열병합능력 += TOSG(값)
If TOSG(값) > Max_열병합능력 Then
Max_열병합능력 = TOSG(값)
Max_열병합생산효율 = rowsun.열생산효율.ToString
Max_열병합발전효율 = rowsun.발전효율.ToString
Max_열병합가동연료 = rowsun.가동연료
End If
End If
End If
Next
If Sum_열병합능력 > 0 Then
NDr.열병합열생산능력 = Sum_열병합능력.ToString() + "(" + Max_열병합능력.ToString + ")"
NDr.열병합열생산효율 = Max_열병합생산효율
NDr.열병합발전효율 = Max_열병합발전효율
NDr.열병합가동연료 = Max_열병합가동연료
Else
NDr.열병합열생산능력 = ""
NDr.열병합열생산효율 = ""
NDr.열병합발전효율 = ""
NDr.열병합가동연료 = ""
End If
'//창호종류 및 창호값확인
Dim 창호종류찾음 As Boolean = False
Dim 창호그룹 As New Dictionary(Of String, Double)
For Each drmyoun As DS.tbl_myounRow In DSET1.tbl_myoun.Select("code <> '0'")
If drmyoun.열관류율2 = "" OrElse drmyoun.열관류율2 = "0" Then Continue For
For Each cdr As DS.tbl_ykRow In DSET1.tbl_yk.Select("code= '" + drmyoun.열관류율2 + "'")
Dim 면코드 As String = cdr.면형태
If 면코드 = "" Then Continue For
Dim 면이름 As String = Get_CName("1088", 면코드)
If 면이름 = "" Then Continue For
If 면이름.IndexOf("외부창") <> -1 Then '//이름에 외부창이잇는것을 찾음
If Not 창호그룹.ContainsKey(cdr.code) Then
창호그룹.Add(cdr.code, TOSG(drmyoun.건축부위면적))
Else
창호그룹.Item(cdr.code) = 창호그룹.Item(cdr.code) + TOSG(drmyoun.건축부위면적)
End If
End If
Next
Next
Dim 최대면적 As Double = 0
Dim 최대면적면코드 As String = ""
For Each item As System.Collections.Generic.KeyValuePair(Of String, Double) In 창호그룹
If item.Value > 최대면적 Then
최대면적 = item.Value
최대면적면코드 = item.Key
End If
Next
For Each cdr As DS.tbl_ykRow In DSET1.tbl_yk.Select("code <> '0'")
Dim 면코드 As String = cdr.code
If 면코드 = 최대면적면코드 Then
NDr.창호종류 = cdr.창호세부설명
NDr.창호값 = TOSG(cdr.열관류율)
Exit For
End If
Next
'//조명설비값(모든존 ; sum(면적*조명에너지부하율) / sum(면적)
Dim 존면적합 As Decimal = 0
Dim 존면적부하율 As Decimal = 0
For Each drz As DS.tbl_zoneRow In DSET1.tbl_zone.Select("code <> '0'")
If drz.조명부하산출방법 = "계산치" Then
존면적합 += TOSG(drz.면적)
존면적부하율 += TOSG(drz.면적) * TOSG(drz.조명에너지부하율계산치)
ElseIf drz.조명부하산출방법 = "입력치" Then
존면적합 += TOSG(drz.면적)
존면적부하율 += TOSG(drz.면적) * TOSG(drz.조명에너지부하율입력치)
End If
Next
If 존면적합 <> 0 Then
NDr.주거실조명전력 = Math.Round(존면적부하율 / 존면적합, 2)
End If
'//주조명광원값()
NDr.주조명광원 = DSET1.tbl_Desc.Rows(0)("주조명").ToString
'///#################################################################################
'///#################################################################################
'//설비방식및사용연료
'//난방(입력존에서 가장많이 사용한놈)
Dim fndr As DS.tbl_nanbangkikiRow = Nothing
Dim fndrcnt As Integer = 0
Dim sum_보일러 As Single = 0
Dim sum_히트펌프 As Single = 0
Dim sum_지역난방 As Single = 0
Dim sum_전기보일러 As Single = 0
For Each dr As DS.tbl_nanbangkikiRow In DSET1.tbl_nanbangkiki.Select("code <> '0'")
Dim cnt As Integer = 0
Dim zDR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("code <> '0' and 열생산난방생산기기='" & dr.code & "' or 공조난방생산기기='" & dr.code & "'")
'//131207
If zDR.Length > 0 Then
Select Case dr.열생산기기방식
Case "보일러"
sum_보일러 += TOSG(dr.보일러정격출력)
Case "히트펌프"
sum_히트펌프 += TOSG(dr.히트난방용량)
Case "지역난방"
sum_지역난방 += TOSG(dr.열교환기정격출력)
Case "전기보일러"
sum_전기보일러 += TOSG(dr.보일러정격출력)
End Select
End If
Next
'//합이 가장 큰 그룹을 검색
Dim maxvalue As Single = 0
' Dim maxindex As Integer = 0
maxvalue = Math.Max(sum_보일러, sum_히트펌프)
maxvalue = Math.Max(maxvalue, sum_지역난방)
maxvalue = Math.Max(maxvalue, sum_전기보일러)
Dim searchfilter As String = ""
If maxvalue = 0 Then
searchfilter = ""
' maxindex = 0 '//없음
ElseIf maxvalue = sum_보일러 Then
' maxindex = 1
searchfilter = "열생산기기방식='보일러'"
ElseIf maxvalue = sum_히트펌프 Then
'maxindex = 2
searchfilter = "열생산기기방식='히트펌프'"
ElseIf maxvalue = sum_지역난방 Then
' maxindex = 3
searchfilter = "열생산기기방식='지역난방'"
ElseIf maxvalue = sum_전기보일러 Then
' maxindex = 4
searchfilter = "열생산기기방식='전기보일러'"
End If
'//가장큰 그룹내의 개별 대표값 찾기
If searchfilter <> "" Then
For Each dr As DS.tbl_nanbangkikiRow In DSET1.tbl_nanbangkiki.Select("code <> '0' and " + searchfilter)
Dim cnt As Integer = 0
Dim zDR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("code <> '0' and 열생산난방생산기기='" & dr.code & "' or 공조난방생산기기='" & dr.code & "'")
'///
For Each drow As DS.tbl_zoneRow In zDR
Dim 입력존수문자 As Integer = drow.입력존의수
If IsNumeric(입력존수문자) = False Then 입력존수문자 = "1"
cnt += CInt(입력존수문자)
Next
If cnt > fndrcnt Then '//최대값찾기
fndr = dr
fndrcnt = cnt
End If
If Not fndr Is Nothing Then
'//20160327
If Not IsNumeric(fndr.보일러대수) Then fndr.보일러대수 = "0"
If CInt(fndr.보일러대수) = 0 AndAlso (fndr.운전방식 = "동시가동" OrElse fndr.운전방식 = "순차가동") Then
MsgBox("다음 난방기기의 보일러 대수 가 입력되지 않았습니다" + vbCrLf + vbCrLf + _
"난방기기 : " + fndr.설명 + vbCrLf + _
"운전방식 : " + fndr.운전방식 + vbCrLf + _
"보일러대수 : " + fndr.보일러대수 + vbCrLf + vbCrLf + _
"단독가동이 아닌 경우에는 보일러 대수가 입력되어야 합니다", MsgBoxStyle.Critical, "확인")
End If
NDr.온열원설비방식 = fndr.열생산기기방식
Select Case fndr.열생산기기방식
Case "보일러"
NDr.온열원설비연료 = fndr.사용연료
If fndr.운전방식 = "동시가동" OrElse fndr.운전방식 = "순차가동" Then
NDr.온열원용량 = maxvalue * CInt(fndr.보일러대수) '+ "(" + fndr.보일러정격출력 + ")"
Else
NDr.온열원용량 = maxvalue.ToString() '+ "(" + fndr.보일러정격출력 + ")"
End If
NDr.온열원효율 = fndr.정격보일러효율 + "%"
Case "히트펌프"
NDr.온열원설비연료 = fndr.히트연료
If fndr.운전방식 = "동시가동" OrElse fndr.운전방식 = "순차가동" Then
NDr.온열원용량 = maxvalue * CInt(fndr.보일러대수) '+ "(" + fndr.보일러정격출력 + ")"
Else
NDr.온열원용량 = maxvalue.ToString() '+ "(" + fndr.보일러정격출력 + ")"
End If
NDr.온열원효율 = fndr.히트난방정격7
Case "지역난방"
NDr.온열원설비연료 = "지역난방" 'fndr.사용연료
If fndr.운전방식 = "동시가동" OrElse fndr.운전방식 = "순차가동" Then
NDr.온열원용량 = maxvalue * CInt(fndr.보일러대수) '+ "(" + fndr.보일러정격출력 + ")"
Else
NDr.온열원용량 = maxvalue.ToString() '+ "(" + fndr.보일러정격출력 + ")"
End If
NDr.온열원효율 = fndr.정격보일러효율 + "%"
Case "전기보일러"
NDr.온열원설비연료 = "전기" ' fndr.사용연료
If fndr.운전방식 = "동시가동" OrElse fndr.운전방식 = "순차가동" Then
NDr.온열원용량 = maxvalue * CInt(fndr.보일러대수) '+ "(" + fndr.보일러정격출력 + ")"
Else
NDr.온열원용량 = maxvalue.ToString() '+ "(" + fndr.보일러정격출력 + ")"
End If
NDr.온열원효율 = fndr.정격보일러효율 + "%"
End Select
End If
Next
Else
NDr.온열원설비연료 = ""
NDr.온열원용량 = ""
NDr.온열원효율 = ""
End If
'///#################################################################################
'///#################################################################################
'//급탕(입력존에서 가장많이 사용한놈)
fndr = Nothing
fndrcnt = 0
sum_보일러 = 0
sum_히트펌프 = 0
sum_지역난방 = 0
sum_전기보일러 = 0
For Each dr As DS.tbl_nanbangkikiRow In DSET1.tbl_nanbangkiki.Select("code <> '0'")
Dim cnt As Integer = 0
Dim zDR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("code <> '0' and 열생산급탕생산기기='" & dr.code & "'")
'//131207
If zDR.Length > 0 Then
Select Case dr.열생산기기방식
Case "보일러"
sum_보일러 += TOSG(dr.보일러정격출력)
Case "히트펌프"
sum_히트펌프 += TOSG(dr.히트난방용량)
Case "지역난방"
sum_지역난방 += TOSG(dr.열교환기정격출력)
Case "전기보일러"
sum_전기보일러 += TOSG(dr.보일러정격출력)
End Select
End If
Next
'//합이 가장 큰 그룹을 검색
maxvalue = 0
maxvalue = Math.Max(sum_보일러, sum_히트펌프)
maxvalue = Math.Max(maxvalue, sum_지역난방)
maxvalue = Math.Max(maxvalue, sum_전기보일러)
searchfilter = ""
If maxvalue = 0 Then
searchfilter = ""
ElseIf maxvalue = sum_보일러 Then
searchfilter = "열생산기기방식='보일러'"
ElseIf maxvalue = sum_히트펌프 Then
searchfilter = "열생산기기방식='히트펌프'"
ElseIf maxvalue = sum_지역난방 Then
searchfilter = "열생산기기방식='지역난방'"
ElseIf maxvalue = sum_전기보일러 Then
searchfilter = "열생산기기방식='전기보일러'"
End If
'//가장큰 그룹내의 개별 대표값 찾기
NDr.급탕설비방식 = ""
NDr.급탕설비연료 = ""
NDr.급탕용량 = ""
NDr.급탕효율 = ""
If searchfilter <> "" Then
For Each dr As DS.tbl_nanbangkikiRow In DSET1.tbl_nanbangkiki.Select("code <> '0' and " + searchfilter)
Dim cnt As Integer = 0
Dim zDR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("code <> '0' and 열생산급탕생산기기='" & dr.code + "'")
For Each drow As DS.tbl_zoneRow In zDR
Dim 입력존수문자 As Integer = drow.입력존의수
If IsNumeric(입력존수문자) = False Then 입력존수문자 = "1"
cnt += CInt(입력존수문자)
Next
If cnt > fndrcnt Then '//최대값찾기
fndr = dr
fndrcnt = cnt
End If
If Not fndr Is Nothing Then
NDr.급탕설비방식 = fndr.열생산기기방식
Select Case fndr.열생산기기방식
Case "보일러"
NDr.급탕설비연료 = fndr.사용연료
NDr.급탕용량 = maxvalue.ToString() '+ "(" + fndr.보일러정격출력 + ")"
NDr.급탕효율 = fndr.정격보일러효율 + "%"
Case "히트펌프"
NDr.급탕설비연료 = fndr.히트연료
NDr.급탕용량 = maxvalue.ToString() ' + "(" + fndr.히트난방용량 + ")"
NDr.급탕효율 = fndr.히트난방정격7
Case "지역난방"
NDr.급탕설비연료 = "지역난방" ' fndr.사용연료
NDr.급탕용량 = maxvalue.ToString() '+ "(" + fndr.열교환기정격출력 + ")"
NDr.급탕효율 = fndr.정격보일러효율 + "%"
Case "전기보일러"
NDr.급탕설비연료 = "전기" ' fndr.사용연료
NDr.급탕용량 = maxvalue.ToString() ' + "(" + fndr.보일러정격출력 + ")"
NDr.급탕효율 = fndr.정격보일러효율 + "%"
End Select
End If
Next
End If
'///#################################################################################
'///#################################################################################
'//냉방(입력존에서 가장많이 사용한놈)
Dim fndr2 As DS.tbl_nangbangkikiRow = Nothing
Dim fndr2cnt As Integer = 0
Dim sum_압축식 As Single = 0
Dim sum_압축식_LNG As Single = 0
Dim sum_지역냉방 As Single = 0
Dim sum_흡수식 As Single = 0
For Each dr As DS.tbl_nangbangkikiRow In DSET1.tbl_nangbangkiki.Select("code <> '0'")
Dim cnt2 As Integer = 0
Dim zDR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("열생산냉방생산기기='" & dr.code & "' or 공조냉방생산기기='" & dr.code & "'")
'//131207
If zDR.Length > 0 Then
Select Case dr.냉동기방식
Case "압축식"
sum_압축식 += TOSG(dr.냉동기용량)
Case "압축식(LNG)"
sum_압축식_LNG += TOSG(dr.냉동기용량)
Case "지역냉방"
sum_지역냉방 += TOSG(dr.냉동기용량)
Case "흡수식"
sum_흡수식 += TOSG(dr.냉동기용량)
End Select
End If
Next
'//합이 가장 큰 그룹을 검색
maxvalue = 0
maxvalue = Math.Max(sum_압축식, sum_압축식_LNG)
maxvalue = Math.Max(maxvalue, sum_지역냉방)
maxvalue = Math.Max(maxvalue, sum_흡수식)
searchfilter = ""
If maxvalue = 0 Then
searchfilter = ""
ElseIf maxvalue = sum_압축식 Then
searchfilter = "냉동기방식='압축식'"
ElseIf maxvalue = sum_압축식_LNG Then
searchfilter = "냉동기방식='압축식(LNG)'"
ElseIf maxvalue = sum_지역냉방 Then
searchfilter = "냉동기방식='지역냉방'"
ElseIf maxvalue = sum_흡수식 Then
searchfilter = "냉동기방식='흡수식'"
End If
'//가장큰 그룹내의 개별 대표값 찾기
If searchfilter <> "" Then
For Each dr As DS.tbl_nangbangkikiRow In DSET1.tbl_nangbangkiki.Select("code <> '0' and " + searchfilter)
Dim cnt2 As Integer = 0
Dim zDR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("열생산냉방생산기기='" & dr.code & "' or 공조냉방생산기기='" & dr.code & "'")
For Each drow As DS.tbl_zoneRow In zDR
Dim 입력존수문자 As Integer = drow.입력존의수
If IsNumeric(입력존수문자) = False Then 입력존수문자 = "1"
cnt2 += CInt(입력존수문자)
Next
If cnt2 > fndr2cnt Then '//최대값찾기
fndr2 = dr
fndr2cnt = cnt2
End If
If Not fndr2 Is Nothing Then
NDr.냉열원설비방식 = fndr2.냉동기방식
NDr.냉열원용량 = maxvalue.ToString() + "(" + fndr2.냉동기용량 + ")"
NDr.냉열원효율 = fndr2.열성능비
Select Case fndr2.냉동기방식
Case "압축식"
NDr.냉열원설비연료 = "전기"
Case "압축식(LNG)"
NDr.냉열원설비연료 = "천연가스"
Case "지역냉방"
NDr.냉열원설비연료 = "지역냉방"
Case "흡수식"
If fndr2.열생산연결방식 = "직화식" Then
NDr.냉열원설비연료 = fndr2.사용연료
ElseIf fndr2.열생산연결방식 = "외부연결" Then
Dim 온수열생산기기코드 As String = fndr2.온수열생산기기
If 온수열생산기기코드 <> "" Then
Dim 난방기기() As DS.tbl_nanbangkikiRow = DSET1.tbl_nanbangkiki.Select("code='" + 온수열생산기기코드 + "'")
If 난방기기.GetUpperBound(0) = 0 Then
NDr.냉열원설비연료 = fndr2.사용연료
End If
End If
End If
End Select
End If
Next
Else
NDr.냉열원설비방식 = ""
NDr.냉열원용량 = ""
NDr.냉열원효율 = ""
End If
DSR.Pyonga_YK.Rows.Add(NDr)
DSR.Pyonga_YK.AcceptChanges()
End Sub
''' <summary>
''' 모든입력면의 창,문의 면적비를 계산하여 반환한다(frm_myoun의 Display_info 함수에서 가져옴)
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Function calc_창및문면적비(ByRef 면적비 As Decimal, ByRef 열관류율 As Decimal, Optional 방위 As String = "") As Boolean
Public Function calc_창및문면적비(ByRef 면적비 As Decimal, ByRef 열관류율 As Decimal, ByRef 창열관류율 As Decimal, ByRef 일사에너지투과율 As Decimal, Optional 방위 As String = "") As Boolean
면적비 = 0
열관류율 = 0
창열관류율 = 0
일사에너지투과율 = 0
Dim filter As String = "code <> '0' and (건축부위방식='외벽' or 건축부위방식 ='외부창' or 건축부위방식='내벽' or 건축부위방식 ='내부창')"
If 방위 <> "" Then filter += " and 방위='" + 방위 + "'"
@@ -101,6 +858,9 @@
Dim WindowArea As Decimal = 0
Dim WallArea As Decimal = 0
Dim 열관류율합 As Double = 0
Dim 창열관류율합 As Double = 0
Dim 투과율합 As Decimal = 0
For Each Dr입력면 As DS.tbl_myounRow In 면데이터
Dim 존수 As Integer = 1
@@ -108,6 +868,8 @@
'If Dr입력면.열관류율2 = "0" Then Continue For '//열관류율이 연결되어 있어야한다
Dim Dryk() As DS.tbl_ykRow = Nothing
If Dr입력면.열관류율2 <> "0" Then
Dryk = DSET1.tbl_yk.Select("code='" & Dr입력면.열관류율2 & "'")
@@ -134,8 +896,12 @@
열관류율합 += 열관 * 0.7 * TOSG(Dr입력면.건축부위면적) * 존수
Case "외부창"
열관류율합 += 열관 * 1 * TOSG(Dr입력면.건축부위면적) * 존수
창열관류율합 += 열관 * 1 * TOSG(Dr입력면.건축부위면적) * 존수
투과율합 += Dr입력면.투과율 * TOSG(Dr입력면.건축부위면적) * 존수
Case "내부창"
열관류율합 += 열관 * 0.8 * TOSG(Dr입력면.건축부위면적) * 존수
창열관류율합 += 열관 * 0.8 * TOSG(Dr입력면.건축부위면적) * 존수
투과율합 += Dr입력면.투과율 * TOSG(Dr입력면.건축부위면적) * 존수
End Select
If Dryk Is Nothing Then
@@ -188,6 +954,14 @@
열관류율 = 열관류율합 / (WallArea + WindowArea)
End If
If WindowArea = 0 Then
창열관류율 = (0.0F)
일사에너지투과율 = (0.0F)
Else
창열관류율 = 창열관류율합 / (WindowArea)
일사에너지투과율 = 투과율합 / (WindowArea)
End If
Return True
End Function

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.1003")>
<Assembly: AssemblyFileVersion("1.2017.0122.1003")>
<Assembly: AssemblyVersion("1.2017.0122.1004")>
<Assembly: AssemblyFileVersion("1.2017.0122.1004")>

6
ArinWarev1/단축키.txt
View File

@@ -3,4 +3,8 @@ alt+d
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ư <20><>Ŭ<EFBFBD><C5AC> : <20><>ü<EFBFBD><C3BC><EFBFBD><EFBFBD>..
<EFBFBD><EFBFBD>ȭ<EFBFBD><EFBFBD><EFBFBD><EFBFBD> 1<><31>° <20><><EFBFBD><EFBFBD><EFBFBD>ۿ<EFBFBD> <20>ٿ<EFBFBD><D9BF>ֱⰡ<D6B1><E2B0A1>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȭ<EFBFBD>鿡<EFBFBD><EFBFBD> <20><><EFBFBD>Ϻҷ<CFBA><D2B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ű f1,f2,f3,f4
<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȭ<EFBFBD>鿡<EFBFBD><EFBFBD> <20><><EFBFBD>Ϻҷ<CFBA><D2B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ű f1,f2,f3,f4

2
SetupIS/SetupIS.isl
View File

@@ -2491,7 +2491,7 @@
<row><td>Custom</td><td>Express</td><td>&lt;ISProjectDataFolder&gt;</td><td>Default</td><td>2</td><td>1033</td><td>0</td><td>2</td><td>Intel</td><td/><td>1033</td><td>0</td><td>100</td><td>0</td><td>1024</td><td/><td>0</td><td/><td>MediaLocation</td><td/><td>http://</td><td/><td/><td/><td/><td>75805</td><td/><td/><td/><td>3</td></row>
<row><td>DVD-10</td><td>Express</td><td>&lt;ISProjectDataFolder&gt;</td><td>Default</td><td>3</td><td>1033</td><td>0</td><td>2</td><td>Intel</td><td/><td>1033</td><td>0</td><td>8.75</td><td>1</td><td>2048</td><td/><td>0</td><td/><td>MediaLocation</td><td/><td>http://</td><td/><td/><td/><td/><td>75805</td><td/><td/><td/><td>3</td></row>
<row><td>DVD-18</td><td>Express</td><td>&lt;ISProjectDataFolder&gt;</td><td>Default</td><td>3</td><td>1033</td><td>0</td><td>2</td><td>Intel</td><td/><td>1033</td><td>0</td><td>15.83</td><td>1</td><td>2048</td><td/><td>0</td><td/><td>MediaLocation</td><td/><td>http://</td><td/><td/><td/><td/><td>75805</td><td/><td/><td/><td>3</td></row>
<row><td>DVD-5</td><td>Express</td><td>C:\eco2\Setup_ECO2_2022V2_20170122_1003</td><td>Default</td><td>3</td><td>1042</td><td>0</td><td>1</td><td>Intel</td><td/><td>1042</td><td>0</td><td>4.38</td><td>1</td><td>2048</td><td/><td>0</td><td/><td>MediaLocation</td><td/><td>http://</td><td/><td/><td/><td/><td>75805</td><td/><td/><td/><td>3</td></row>
<row><td>DVD-5</td><td>Express</td><td>C:\eco2\Setup_ECO2_2022V2_20170122_1004</td><td>Default</td><td>3</td><td>1042</td><td>0</td><td>1</td><td>Intel</td><td/><td>1042</td><td>0</td><td>4.38</td><td>1</td><td>2048</td><td/><td>0</td><td/><td>MediaLocation</td><td/><td>http://</td><td/><td/><td/><td/><td>75805</td><td/><td/><td/><td>3</td></row>
<row><td>DVD-9</td><td>Express</td><td>&lt;ISProjectDataFolder&gt;</td><td>Default</td><td>3</td><td>1033</td><td>0</td><td>2</td><td>Intel</td><td/><td>1033</td><td>0</td><td>7.95</td><td>1</td><td>2048</td><td/><td>0</td><td/><td>MediaLocation</td><td/><td>http://</td><td/><td/><td/><td/><td>75805</td><td/><td/><td/><td>3</td></row>
<row><td>SingleImage</td><td>Express</td><td>C:\eco2\Setup_2016_191020_guest_patch</td><td>PackageName</td><td>1</td><td>1042</td><td>0</td><td>1</td><td>Intel</td><td/><td>1042</td><td>0</td><td>0</td><td>0</td><td>0</td><td/><td>0</td><td/><td>MediaLocation</td><td/><td>http://</td><td/><td/><td/><td/><td>108701</td><td/><td/><td/><td>3</td></row>
<row><td>WebDeployment</td><td>Express</td><td>&lt;ISProjectDataFolder&gt;</td><td>PackageName</td><td>4</td><td>1033</td><td>2</td><td>1</td><td>Intel</td><td/><td>1033</td><td>0</td><td>0</td><td>0</td><td>0</td><td/><td>0</td><td/><td>MediaLocation</td><td/><td>http://</td><td/><td/><td/><td/><td>124941</td><td/><td/><td/><td>3</td></row>