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

Merge branch 'master' of https://gitlab.com/free-lancer/eco2-od

Browse Source
This commit is contained in:
raytrace
2020-07-06 00:28:51 +09:00
parent 9163566839 5cc843777c
commit 50bb66aa4f
14 changed files with 318 additions and 171 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
ArinWarev1/Calculator-OD/AirHandling/CAirHandling.vb
View File

@@ -261,6 +261,11 @@
'If Dr존.냉난방공조처리시스템 <> "" Then ' Worksheets("입력존").Range("입력난방공급기기1").Offset(2, i_count_zone - 1) <> "" Then
'If Worksheets("입력존").Range("입력난방공급기기1").Offset(2, i_count_zone - 1) = Worksheets("공조처리시스템").Range("공조기기1").Offset(0, i_count_AHU - 1) Then
'If Dr존.냉난방공조처리시스템 = Dr공조.code Then ' Worksheets("공조처리시스템").Range("공조기기1").Offset(0, i_count_AHU - 1) Then
'If i_count_month > 4 Then
' Console.WriteLine(String.Format("공조 {0}월 존이름={1},급기풍량={2},배기풍량={3}", i_count_month, Dr공조.code, Dr공조.급기풍량, Dr공조.배기풍량))
'End If
If sum_kongjo = 0 Then
ea_kongjo = 0
Else
@@ -740,6 +745,10 @@
End If
Drow분석(0).공조요구량가습 = Q_vm_b ' Sheets("" & i_count_month & "").Cells(23, 7 + i_count_zone) = Q_vm_b
Drow분석(0).환기요구량 = Q_V_E_ZUL_m + Q_V_E_ABL_m ' Sheets("" & i_count_month & "").Cells(25, 7 + i_count_zone) = Q_V_E_ZUL_m + Q_V_E_ABL_m
'Console.WriteLine(String.Format("환기요구량={0}", Q_V_E_ZUL_m + Q_V_E_ABL_m))
'If i_count_month > 4 Then
' Console.WriteLine(String.Format("문제의 {0}월", i_count_month))
'End If
'==========================================================================================================================================
'End If
'End If
@@ -837,6 +846,7 @@
Result1o.E분석(i_count_month).환기에너지요구량(Dr존.code) = Q_V_E_ZUL_m + Q_V_E_ABL_m
'Console.WriteLine(String.Format("환기요구량2={0}", Q_V_E_ZUL_m + Q_V_E_ABL_m))
'Sheets("" & i_count_month & "").Cells(25, 7 + i_count_zone) = Q_V_E_ZUL_m + Q_V_E_ABL_m
End If
Else

11
ArinWarev1/Calculator-OD/Cooling/CCooling.vb
View File

@@ -84,6 +84,9 @@
Dim Mon As String = "M" & Format(i_count_month, "00")
For Each dr냉방 As DS.tbl_nangbangkikiRow In DSET1.tbl_nangbangkiki.Select("code<>'0'", "code")
'log.debug(String.format("cool title=%s", drCooling.getCode()));
' Console.WriteLine(String.Format("cool title={0}", dr냉방.code))
'//이 냉방기가가 존에서 사용되었는지확인한다.
Dim Drow존() As DS.tbl_zoneRow = CType(DSET1.tbl_zone.Select("code <> '0'"), DS.tbl_zoneRow())
If Drow존.GetUpperBound(0) <> -1 Then ' Worksheets("냉방기기").Range("냉방생산기기1").Offset(2, i_count_chiller - 1) = "0001" Then '2
@@ -97,6 +100,8 @@
For Each Dr존 As DS.tbl_zoneRow In DSET1.tbl_zone.Select("code <> '0'", "code")
'Console.WriteLine(String.Format("냉방기기={0},존={1},mon={2}", dr냉방.설명, Dr존.code, i_count_month))
Dim Drow분석() As DSR.월별에너지분석Row = CType(DSETR1.월별에너지분석.Select("월='" & Mon & "' and 존='" & Dr존.code & "'"), DSR.월별에너지분석Row())
' 존데이터를가져올떄 해당 냉방기기에서 사용한 존만 가져왔따.
' If Dr존.열생산냉방생산기기 <> "" Then ' Worksheets("입력존").Range("입력냉방생산기기1").Offset(0, i_count_zone - 1) <> "" Then
@@ -420,7 +425,8 @@
Q_c_f = Q_c_f + Q_c_f_elektr + Q_c_f_R_elektr + Q_c_outg_therm + Q_c_g
use_Elec = use_Elec + Q_c_f_elektr + Q_c_f_R_elektr
'Console.WriteLine(String.Format("=>coolin mon={0}, gcf={1}, elect={2}", i_count_month, Q_c_f, use_Elec))
'log.debug(String.format("=>coolin mon=%s, gcf=%s, elect=%s", i_count_month, Q_c_f,use_Elec));
'// 냉수, 냉각수 분배
Q_dot_z = Q_dot_c_outg * (1 + 1 / EER) '(3.2.8-30)
@@ -461,9 +467,10 @@
'Console.WriteLine("loop 2")
End If '2
'Console.WriteLine("loop 1")
Next '1

7
ArinWarev1/Calculator-OD/Heating/CHeating.vb
View File

@@ -467,6 +467,9 @@
Result1o.일차E소요량(i_count_month).급탕LPG = use_LPG
Result1o.일차E소요량(i_count_month).급탕지역 = use_DH
Result1o.일차E소요량(i_count_month).급탕전력 = use_Elec
'log.debug(String.format("####### => (i_count_month=%s,Q_w_f=%s,Q_w_aux=%s,use_Oil=%s,use_LNG=%s,use_LPG=%s,use_DH=%s,use_Elec=%s)",i_count_month,Q_w_f,Q_w_aux,use_Oil,use_LNG,use_LPG,use_DH,use_Elec));
' Console.WriteLine(String.Format("####### => (i_count_month={0},Q_w_f={1},Q_w_aux={2},use_Oil={3},use_LNG={4},use_LPG={5},use_DH={6},use_Elec={7})", i_count_month, Q_w_f, Q_w_aux, use_Oil, use_LNG, use_LPG, use_DH, use_Elec))
End Sub
@@ -815,7 +818,7 @@
Result1o.일차E소요량(i_count_month).난방전력 = use_Elec
'pLog.Add(String.Format("q_h_aux={0},난방등유={1},LNG={2},LPG={3},지역={4},전력={5}", Q_h_aux, use_Oil, use_LNG, use_LPG, use_DH, use_Elec))
'Console.WriteLine(String.Format("####### => (i_count_month={0},Q_h_aux={1},use_Elec={2},use_Oil={3},use_LNG={4},use_LPG={5},use_DH={6},use_Elec={7})", i_count_month, Q_h_aux, use_Elec, use_Oil, use_LNG, use_LPG, use_DH, use_Elec))
End Sub
Private Sub Calc_난방_개별기기미적용시(dr난방 As DS.tbl_nanbangkikiRow, mon As String, 비율 As Decimal, i_count_month As Integer, theta_e As Decimal)
@@ -1812,7 +1815,7 @@
H_DS = TOSG(B_DS * Psi_DS ^ (1 / 3))
Q_h_g = Q_h_g + (H_DS * (theta_DS - theta_i)) * system_count '=====2013.08.13 수정
use_DH = use_DH + (H_DS * (theta_DS - theta_i)) * system_count '========2013.08.18 수정
Console.WriteLine("used=" + use_DH.ToString())
'Console.WriteLine("used=" + use_DH.ToString())
End If

1
ArinWarev1/Calculator-OD/Result/C에너지분석.vb
View File

@@ -334,6 +334,7 @@
a10 = a10 + Dr.공조요구량냉방
a11 = a11 + Dr.공조요구량가습
a12 = a12 + Dr.환기요구량
' Console.WriteLine(String.Format(">>>>>>>>> a2={0},a3={1},a4={2},a5={3},a6={4},a7={5},a8={6},a9={7},a10={8},a11={9},a12={10}", a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12))
Next
'Me.에너지요구량 = a2 + a3 + a4 + a5 + a6 + a7 ㅇ건 Readonlye 로 계산한다.

13
ArinWarev1/Calculator-OD/Result/C에너지소요량.vb
View File

@@ -53,6 +53,8 @@
I6 += Result1o.일차E소요량(i).조명전력
I7 += Result1o.일차E소요량(i).급탕전력
I8 += Result1o.일차E소요량(i).환기전력
'Console.WriteLine(String.Format(">>C에너지소요량 IV={0},i={1}", IV, i))
Next
Me.난방 = I10
@@ -64,11 +66,12 @@
If (I4 + I5 + I6 + I7 + I8 <> 0) Then
Me.난방S = IH - (Result1o.생산E(0).태양광전력생산량 + Result1o.생산E(0).열병합전력생산량) / (I4 + I5 + I6 + I7 + I8) * I4
Me.냉방S = IC - (Result1o.생산E(0).태양광전력생산량 + Result1o.생산E(0).열병합전력생산량) / (I4 + I5 + I6 + I7 + I8) * I5
Me.조명S = IL - (Result1o.생산E(0).태양광전력생산량 + Result1o.생산E(0).열병합전력생산량) / (I4 + I5 + I6 + I7 + I8) * I6
Me.급탕S = IW - (Result1o.생산E(0).태양광전력생산량 + Result1o.생산E(0).열병합전력생산량) / (I4 + I5 + I6 + I7 + I8) * I7
Me.환기S = IV - (Result1o.생산E(0).태양광전력생산량 + Result1o.생산E(0).열병합전력생산량) / (I4 + I5 + I6 + I7 + I8) * I8
Dim baseValue As Double = (Result1o.생산E(0).태양광전력생산량 + Result1o.생산E(0).열병합전력생산량)
Me.난방S = IH - baseValue / (I4 + I5 + I6 + I7 + I8) * I4
Me.냉방S = IC - baseValue / (I4 + I5 + I6 + I7 + I8) * I5
Me.조명S = IL - baseValue / (I4 + I5 + I6 + I7 + I8) * I6
Me.급탕S = IW - baseValue / (I4 + I5 + I6 + I7 + I8) * I7
Me.환기S = IV - baseValue / (I4 + I5 + I6 + I7 + I8) * I8
Else
Me.난방S = IH
Me.냉방S = IC

9
ArinWarev1/Calculator-OD/Zone/CZone.vb
View File

@@ -107,9 +107,9 @@
For i_count_month As Short = 0 To 12 '(2) --월전체의 루프?
If i_count_HeatCool = 1 AndAlso i_count_month = 1 Then
Console.WriteLine("col")
End If
'If i_count_HeatCool = 1 AndAlso i_count_month = 1 Then
' Console.WriteLine("col")
'End If
Work_msg("요구량계산중..." & CStr(IIf(i_count_HeatCool = 1, "난방", "냉방")) & "(" & i_count_month & "/12)") : Work_plus()
Dim Mon As String = "M" & Format(i_count_month, "00") '//저장소의 필드명이 M00 식으로되어있다.
@@ -733,6 +733,9 @@
Q_w_b = TOSG(T, DRProf.일일급탕요구량) * A_B * d_op_mth '===============d_op(i_count_month) 2010.2.21 수정
End If
Console.WriteLine(String.Format("mon={0},Q_l_b ={1},Q_w_b ={2}", i_count_month, Q_l_b, Q_w_b)) '//191120
Dim Dr최대부하 As New C최대냉난방부하OD.Citem(DR존.code) ' DSR.최대냉난방부하Row = CType(DSETR1.최대냉난방부하.Select("zone='" & DR존.code & "'")(0), DSR.최대냉난방부하Row)
If i_count_HeatCool = 1 Then

9
ArinWarev1/ECO2OD.vbproj
View File

@@ -152,6 +152,12 @@
<Compile Include="DataSet\DS.vb">
<DependentUpon>DS.xsd</DependentUpon>
</Compile>
<Compile Include="FORM-BASIC\Frm_Buha.Designer.vb">
<DependentUpon>Frm_Buha.vb</DependentUpon>
</Compile>
<Compile Include="FORM-BASIC\Frm_Buha.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="FORM-BASIC\Frm_ExtReport.Designer.vb">
<DependentUpon>Frm_ExtReport.vb</DependentUpon>
</Compile>
@@ -393,6 +399,9 @@
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="FORM-BASIC\Frm_Buha.resx">
<DependentUpon>Frm_Buha.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="FORM-BASIC\Frm_DisplayGubun.resx">
<DependentUpon>Frm_DisplayGubun.vb</DependentUpon>
</EmbeddedResource>

224
ArinWarev1/FORM-BASIC/Frm_RepResult_Admin.Designer.vb generated
View File

@@ -90,6 +90,18 @@ Partial Class Frm_RepResult_Admin
Me.bs_면적 = New System.Windows.Forms.BindingSource(Me.components)
Me.TabPage5 = New System.Windows.Forms.TabPage()
Me.DataGridView5 = New Eco2OD.ArinDv()
Me.MonDataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.난방에너지소요량DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.난방보조에너지소요량DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.냉방에너지소요량DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.냉방보조에너지소요량DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.급탕에너지소요량DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.급탕보조에너지소요량DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.난방 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.냉방 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.조명 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.급탕 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.환기 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.bs_소요량 = New System.Windows.Forms.BindingSource(Me.components)
Me.TabPage6 = New System.Windows.Forms.TabPage()
Me.DataGridView6 = New Eco2OD.ArinDv()
@@ -147,18 +159,7 @@ Partial Class Frm_RepResult_Admin
Me.면적당생산량태양열DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.면적당생산량지열DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.bs_생산E = New System.Windows.Forms.BindingSource(Me.components)
Me.MonDataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.난방에너지소요량DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.난방보조에너지소요량DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.냉방에너지소요량DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.냉방보조에너지소요량DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.급탕에너지소요량DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.급탕보조에너지소요량DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.난방 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.냉방 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.조명 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.급탕 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.환기 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
CType(Me.DSR, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.bn_all, System.ComponentModel.ISupportInitialize).BeginInit()
Me.bn_all.SuspendLayout()
@@ -300,7 +301,7 @@ Partial Class Frm_RepResult_Admin
Me.bn_all.DeleteItem = Nothing
Me.bn_all.Dock = System.Windows.Forms.DockStyle.Bottom
Me.bn_all.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.bn_all.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton44, Me.ToolStripButton45, Me.ToolStripSeparator25, Me.ToolStripTextBox6, Me.ToolStripLabel6, Me.ToolStripSeparator26, Me.ToolStripButton46, Me.ToolStripButton47, Me.ToolStripSeparator27, Me.ToolStripButton48, Me.ToolStripButton49, Me.ToolStripSeparator28, Me.ToolStripButton50, Me.ToolStripButton51})
Me.bn_all.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton44, Me.ToolStripButton45, Me.ToolStripSeparator25, Me.ToolStripTextBox6, Me.ToolStripLabel6, Me.ToolStripSeparator26, Me.ToolStripButton46, Me.ToolStripButton47, Me.ToolStripSeparator27, Me.ToolStripButton48, Me.ToolStripButton49, Me.ToolStripSeparator28, Me.ToolStripButton50, Me.ToolStripButton51, Me.ToolStripButton1})
Me.bn_all.Location = New System.Drawing.Point(0, 446)
Me.bn_all.MoveFirstItem = Me.ToolStripButton44
Me.bn_all.MoveLastItem = Me.ToolStripButton47
@@ -795,6 +796,102 @@ Partial Class Frm_RepResult_Admin
Me.DataGridView5.Size = New System.Drawing.Size(819, 420)
Me.DataGridView5.TabIndex = 16
'
'MonDataGridViewTextBoxColumn1
'
Me.MonDataGridViewTextBoxColumn1.DataPropertyName = "mon"
Me.MonDataGridViewTextBoxColumn1.HeaderText = "mon"
Me.MonDataGridViewTextBoxColumn1.Name = "MonDataGridViewTextBoxColumn1"
Me.MonDataGridViewTextBoxColumn1.ReadOnly = True
Me.MonDataGridViewTextBoxColumn1.Width = 56
'
'난방에너지소요량DataGridViewTextBoxColumn
'
Me.난방에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "난방에너지소요량"
Me.난방에너지소요량DataGridViewTextBoxColumn.HeaderText = "난방에너지소요량"
Me.난방에너지소요량DataGridViewTextBoxColumn.Name = "난방에너지소요량DataGridViewTextBoxColumn"
Me.난방에너지소요량DataGridViewTextBoxColumn.ReadOnly = True
Me.난방에너지소요량DataGridViewTextBoxColumn.Width = 87
'
'난방보조에너지소요량DataGridViewTextBoxColumn
'
Me.난방보조에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "난방보조에너지소요량"
Me.난방보조에너지소요량DataGridViewTextBoxColumn.HeaderText = "난방보조에너지소요량"
Me.난방보조에너지소요량DataGridViewTextBoxColumn.Name = "난방보조에너지소요량DataGridViewTextBoxColumn"
Me.난방보조에너지소요량DataGridViewTextBoxColumn.ReadOnly = True
Me.난방보조에너지소요량DataGridViewTextBoxColumn.Width = 99
'
'냉방에너지소요량DataGridViewTextBoxColumn
'
Me.냉방에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "냉방에너지소요량"
Me.냉방에너지소요량DataGridViewTextBoxColumn.HeaderText = "냉방에너지소요량"
Me.냉방에너지소요량DataGridViewTextBoxColumn.Name = "냉방에너지소요량DataGridViewTextBoxColumn"
Me.냉방에너지소요량DataGridViewTextBoxColumn.ReadOnly = True
Me.냉방에너지소요량DataGridViewTextBoxColumn.Width = 87
'
'냉방보조에너지소요량DataGridViewTextBoxColumn
'
Me.냉방보조에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "냉방보조에너지소요량"
Me.냉방보조에너지소요량DataGridViewTextBoxColumn.HeaderText = "냉방보조에너지소요량"
Me.냉방보조에너지소요량DataGridViewTextBoxColumn.Name = "냉방보조에너지소요량DataGridViewTextBoxColumn"
Me.냉방보조에너지소요량DataGridViewTextBoxColumn.ReadOnly = True
Me.냉방보조에너지소요량DataGridViewTextBoxColumn.Width = 99
'
'급탕에너지소요량DataGridViewTextBoxColumn
'
Me.급탕에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "급탕에너지소요량"
Me.급탕에너지소요량DataGridViewTextBoxColumn.HeaderText = "급탕에너지소요량"
Me.급탕에너지소요량DataGridViewTextBoxColumn.Name = "급탕에너지소요량DataGridViewTextBoxColumn"
Me.급탕에너지소요량DataGridViewTextBoxColumn.ReadOnly = True
Me.급탕에너지소요량DataGridViewTextBoxColumn.Width = 87
'
'급탕보조에너지소요량DataGridViewTextBoxColumn
'
Me.급탕보조에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "급탕보조에너지소요량"
Me.급탕보조에너지소요량DataGridViewTextBoxColumn.HeaderText = "급탕보조에너지소요량"
Me.급탕보조에너지소요량DataGridViewTextBoxColumn.Name = "급탕보조에너지소요량DataGridViewTextBoxColumn"
Me.급탕보조에너지소요량DataGridViewTextBoxColumn.ReadOnly = True
Me.급탕보조에너지소요량DataGridViewTextBoxColumn.Width = 99
'
'난방
'
Me.난방.DataPropertyName = "난방"
Me.난방.HeaderText = "난방"
Me.난방.Name = "난방"
Me.난방.ReadOnly = True
Me.난방.Width = 52
'
'냉방
'
Me.냉방.DataPropertyName = "냉방"
Me.냉방.HeaderText = "냉방"
Me.냉방.Name = "냉방"
Me.냉방.ReadOnly = True
Me.냉방.Width = 52
'
'조명
'
Me.조명.DataPropertyName = "조명"
Me.조명.HeaderText = "조명"
Me.조명.Name = "조명"
Me.조명.ReadOnly = True
Me.조명.Width = 52
'
'급탕
'
Me.급탕.DataPropertyName = "급탕"
Me.급탕.HeaderText = "급탕"
Me.급탕.Name = "급탕"
Me.급탕.ReadOnly = True
Me.급탕.Width = 52
'
'환기
'
Me.환기.DataPropertyName = "환기"
Me.환기.HeaderText = "환기"
Me.환기.Name = "환기"
Me.환기.ReadOnly = True
Me.환기.Width = 52
'
'bs_소요량
'
Me.bs_소요량.DataMember = "에너지소요량"
@@ -1336,101 +1433,13 @@ Partial Class Frm_RepResult_Admin
Me.bs_생산E.DataMember = "생산에너지"
Me.bs_생산E.DataSource = Me.DSR
'
'MonDataGridViewTextBoxColumn1
'ToolStripButton1
'
Me.MonDataGridViewTextBoxColumn1.DataPropertyName = "mon"
Me.MonDataGridViewTextBoxColumn1.HeaderText = "mon"
Me.MonDataGridViewTextBoxColumn1.Name = "MonDataGridViewTextBoxColumn1"
Me.MonDataGridViewTextBoxColumn1.ReadOnly = True
Me.MonDataGridViewTextBoxColumn1.Width = 56
'
'난방에너지소요량DataGridViewTextBoxColumn
'
Me.난방에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "난방에너지소요량"
Me.난방에너지소요량DataGridViewTextBoxColumn.HeaderText = "난방에너지소요량"
Me.난방에너지소요량DataGridViewTextBoxColumn.Name = "난방에너지소요량DataGridViewTextBoxColumn"
Me.난방에너지소요량DataGridViewTextBoxColumn.ReadOnly = True
Me.난방에너지소요량DataGridViewTextBoxColumn.Width = 87
'
'난방보조에너지소요량DataGridViewTextBoxColumn
'
Me.난방보조에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "난방보조에너지소요량"
Me.난방보조에너지소요량DataGridViewTextBoxColumn.HeaderText = "난방보조에너지소요량"
Me.난방보조에너지소요량DataGridViewTextBoxColumn.Name = "난방보조에너지소요량DataGridViewTextBoxColumn"
Me.난방보조에너지소요량DataGridViewTextBoxColumn.ReadOnly = True
Me.난방보조에너지소요량DataGridViewTextBoxColumn.Width = 99
'
'냉방에너지소요량DataGridViewTextBoxColumn
'
Me.냉방에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "냉방에너지소요량"
Me.냉방에너지소요량DataGridViewTextBoxColumn.HeaderText = "냉방에너지소요량"
Me.냉방에너지소요량DataGridViewTextBoxColumn.Name = "냉방에너지소요량DataGridViewTextBoxColumn"
Me.냉방에너지소요량DataGridViewTextBoxColumn.ReadOnly = True
Me.냉방에너지소요량DataGridViewTextBoxColumn.Width = 87
'
'냉방보조에너지소요량DataGridViewTextBoxColumn
'
Me.냉방보조에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "냉방보조에너지소요량"
Me.냉방보조에너지소요량DataGridViewTextBoxColumn.HeaderText = "냉방보조에너지소요량"
Me.냉방보조에너지소요량DataGridViewTextBoxColumn.Name = "냉방보조에너지소요량DataGridViewTextBoxColumn"
Me.냉방보조에너지소요량DataGridViewTextBoxColumn.ReadOnly = True
Me.냉방보조에너지소요량DataGridViewTextBoxColumn.Width = 99
'
'급탕에너지소요량DataGridViewTextBoxColumn
'
Me.급탕에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "급탕에너지소요량"
Me.급탕에너지소요량DataGridViewTextBoxColumn.HeaderText = "급탕에너지소요량"
Me.급탕에너지소요량DataGridViewTextBoxColumn.Name = "급탕에너지소요량DataGridViewTextBoxColumn"
Me.급탕에너지소요량DataGridViewTextBoxColumn.ReadOnly = True
Me.급탕에너지소요량DataGridViewTextBoxColumn.Width = 87
'
'급탕보조에너지소요량DataGridViewTextBoxColumn
'
Me.급탕보조에너지소요량DataGridViewTextBoxColumn.DataPropertyName = "급탕보조에너지소요량"
Me.급탕보조에너지소요량DataGridViewTextBoxColumn.HeaderText = "급탕보조에너지소요량"
Me.급탕보조에너지소요량DataGridViewTextBoxColumn.Name = "급탕보조에너지소요량DataGridViewTextBoxColumn"
Me.급탕보조에너지소요량DataGridViewTextBoxColumn.ReadOnly = True
Me.급탕보조에너지소요량DataGridViewTextBoxColumn.Width = 99
'
'난방
'
Me.난방.DataPropertyName = "난방"
Me.난방.HeaderText = "난방"
Me.난방.Name = "난방"
Me.난방.ReadOnly = True
Me.난방.Width = 52
'
'냉방
'
Me.냉방.DataPropertyName = "냉방"
Me.냉방.HeaderText = "냉방"
Me.냉방.Name = "냉방"
Me.냉방.ReadOnly = True
Me.냉방.Width = 52
'
'조명
'
Me.조명.DataPropertyName = "조명"
Me.조명.HeaderText = "조명"
Me.조명.Name = "조명"
Me.조명.ReadOnly = True
Me.조명.Width = 52
'
'급탕
'
Me.급탕.DataPropertyName = "급탕"
Me.급탕.HeaderText = "급탕"
Me.급탕.Name = "급탕"
Me.급탕.ReadOnly = True
Me.급탕.Width = 52
'
'환기
'
Me.환기.DataPropertyName = "환기"
Me.환기.HeaderText = "환기"
Me.환기.Name = "환기"
Me.환기.ReadOnly = True
Me.환기.Width = 52
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(89, 22)
Me.ToolStripButton1.Text = "Export CSV"
'
'Frm_RepResult_Admin
'
@@ -1654,4 +1663,5 @@ Partial Class Frm_RepResult_Admin
Friend WithEvents 조명 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents 급탕 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents 환기 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
End Class

51
ArinWarev1/FORM-BASIC/Frm_RepResult_Admin.resx
View File

@@ -224,6 +224,21 @@
iFabELLuV+NxZzW27EzywNY1iMgm4Uoj65nPSOOlGMpfi+g5TUSCvug3onN5Npp0C/B0yWIM71yHyNm9
qk7s7EWiyQd1lVkIn8mA/uVhi16RiSVHo2eMCapyNHb7VrododNFyhkzxxox88h/mvZO/vN3FuI3yXDJ
RlfZIFMAAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9
c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32
Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo
mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
TgDQASA1MVpwzwAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
@@ -238,9 +253,21 @@
<metadata name="M00.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="F.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="M00.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="bs_max.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
</metadata>
<metadata name="bs_max.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
</metadata>
<metadata name="bs_면적.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="bs_면적.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
@@ -262,10 +289,34 @@
<metadata name="bs_소요량.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>111, 17</value>
</metadata>
<metadata name="난방.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="냉방.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="조명.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="급탕.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="환기.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="bs_소요량.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>111, 17</value>
</metadata>
<metadata name="bs_1차소요량.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>218, 17</value>
</metadata>
<metadata name="bs_1차소요량.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>218, 17</value>
</metadata>
<metadata name="bs_생산E.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>344, 17</value>
</metadata>
<metadata name="bs_생산E.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>344, 17</value>
</metadata>
</root>

41
ArinWarev1/FORM-BASIC/Frm_RepResult_Admin.vb
View File

@@ -54,5 +54,46 @@
' Me.bs.DataSource = DSETR
End Sub
Private Sub ToolStripButton1_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton1.Click
Dim sd As New SaveFileDialog()
sd.Filter = "csv|*.csv"
sd.FilterIndex = 0
If (sd.ShowDialog() <> Windows.Forms.DialogResult.OK) Then Return
Dim Fs As New System.IO.FileStream(sd.FileName, IO.FileMode.Create)
Dim SW As New System.IO.StreamWriter(Fs, System.Text.Encoding.Default)
Dim Strbuf As String = ""
Dim colList As New List(Of Integer)
SW.WriteLine(",Code,Total,M1,M2,M3,M4,M5,M6,M7,M8,M9,M10,M11,M12")
Strbuf = ""
For Each DR As Windows.Forms.DataGridViewRow In DataGridView1.Rows
Strbuf = Strbuf & "," & DR.Cells(0).Value.ToString
Strbuf = Strbuf & "," & DR.Cells(7 + 0).Value.ToString
Strbuf = Strbuf & "," & DR.Cells(7 + 1).Value.ToString
Strbuf = Strbuf & "," & DR.Cells(7 + 2).Value.ToString
Strbuf = Strbuf & "," & DR.Cells(7 + 3).Value.ToString
Strbuf = Strbuf & "," & DR.Cells(7 + 4).Value.ToString
Strbuf = Strbuf & "," & DR.Cells(7 + 5).Value.ToString
Strbuf = Strbuf & "," & DR.Cells(7 + 6).Value.ToString
Strbuf = Strbuf & "," & DR.Cells(7 + 7).Value.ToString
Strbuf = Strbuf & "," & DR.Cells(7 + 8).Value.ToString
Strbuf = Strbuf & "," & DR.Cells(7 + 9).Value.ToString
Strbuf = Strbuf & "," & DR.Cells(7 + 10).Value.ToString
Strbuf = Strbuf & "," & DR.Cells(7 + 11).Value.ToString
Strbuf = Strbuf & "," & DR.Cells(7 + 12).Value.ToString
SW.WriteLine(Strbuf)
Strbuf = ""
Next
SW.Dispose()
Fs.Dispose()
MsgBox("저장완료" & vbCrLf & sd.FileName, MsgBoxStyle.Information, "확인")
Shell("notepad " & sd.FileName, AppWinStyle.NormalFocus)
End Sub
End Class

2
ArinWarev1/MdiMain.Designer.vb generated
View File

@@ -591,7 +591,7 @@ Partial Class MdiMain
'
Me.RibbonButton23.Name = "RibbonButton23"
Me.RibbonButton23.SmallImage = CType(resources.GetObject("RibbonButton23.SmallImage"), System.Drawing.Image)
Me.RibbonButton23.Text = "--"
Me.RibbonButton23.Text = "부분부하"
'
'RibbonButton22
'

32
ArinWarev1/MdiMain.vb
View File

@@ -436,8 +436,6 @@ Public Class MdiMain
Dim fn1 As String = AppDomain.CurrentDomain.BaseDirectory + "\profile.dat"
Dim fn2 As String = AppDomain.CurrentDomain.BaseDirectory + "\weather{0}.dat"
If System.IO.File.Exists(fn0) Then
Dim buffer() As Byte = System.IO.File.ReadAllBytes(String.Format(fn0, ""))
If (buffer(0) = &H90) Then '//<2F><>ȣȭ<C8A3><C8AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
@@ -2404,8 +2402,10 @@ ENDSTAT: '//
'//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> _<>ҿ䷮
P(92) = (-1 * (Result1o.<EFBFBD><EFBFBD><EFBFBD><EFBFBD>E(0).<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>귮<EFBFBD>¾翭 + Result1o.<EFBFBD><EFBFBD><EFBFBD><EFBFBD>E(0).<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>귮<EFBFBD><EFBFBD><EFBFBD><EFBFBD>) - <EFBFBD><EFBFBD><EFBFBD><EFBFBD>1).ToString()
Console.WriteLine("exp report ==========")
For i As Integer = 1 To 99
NewDR("c" + i.ToString("000")) = P(i - 1)
Console.WriteLine("P[{0}]={1}", i, P(i - 1))
Next
DSETR1.ExtReport.AddExtReportRow(NewDR)
@@ -3073,20 +3073,13 @@ ENDSTAT: '//
End Sub
Private Sub RibbonButton24_Click_1(sender As Object, e As EventArgs) Handles RibbonButton24.Click
'//save file (weather, profile)
Dim fn0 As String = AppDomain.CurrentDomain.BaseDirectory + "\common.dat"
Dim fn1 As String = AppDomain.CurrentDomain.BaseDirectory + "\profile.dat"
Dim fn2 As String = AppDomain.CurrentDomain.BaseDirectory + "\weather{0}.dat"
'DSET1.tbl_common_od.WriteXml(String.Format(fn0, ""), True)
'DSET1.tbl_profile_od.WriteXml(String.Format(fn1, ""), True)
'DSET1.tbl_weather_od.WriteXml(String.Format(fn2, ""), True)
'DSET1.weather_cha_od.WriteXml(String.Format(fn2, "_ch"), True)
'DSET1.weather_group.WriteXml(String.Format(fn2, "_gr"), True)
'DSET1.weather_ilsa_od.WriteXml(String.Format(fn2, "_is"), True)
'DSET1.weather_supdo_od.WriteXml(String.Format(fn2, "_sd"), True)
'DSET1.weather_temp_od.WriteXml(String.Format(fn2, "_tp"), True)
If MsgBox("<EFBFBD><EFBFBD>ȣȭ<EFBFBD><EFBFBD> <20>Ͻðڽ<C3B0><DABD>ϱ<EFBFBD>?", MsgBoxStyle.YesNo, "Ȯ<EFBFBD><EFBFBD>") = MsgBoxResult.Yes Then
Dim ms0 As New System.IO.MemoryStream()
Dim ms1 As New System.IO.MemoryStream()
Dim ms2 As New System.IO.MemoryStream()
@@ -3128,6 +3121,16 @@ ENDSTAT: '//
DSET1.weather_temp_od.WriteXml(ms25)
buffer0 = EnctryArea(ms25.GetBuffer())
System.IO.File.WriteAllBytes(String.Format(fn2, "_tp"), buffer0)
Else
DSET1.tbl_common_od.WriteXml(String.Format(fn0, "") + ".xml", True)
DSET1.tbl_profile_od.WriteXml(String.Format(fn1, "") + ".xml", True)
DSET1.tbl_weather_od.WriteXml(String.Format(fn2, "") + ".xml", True)
DSET1.weather_cha_od.WriteXml(String.Format(fn2, "_ch") + ".xml", True)
DSET1.weather_group.WriteXml(String.Format(fn2, "_gr") + ".xml", True)
DSET1.weather_ilsa_od.WriteXml(String.Format(fn2, "_is") + ".xml", True)
DSET1.weather_supdo_od.WriteXml(String.Format(fn2, "_sd") + ".xml", True)
DSET1.weather_temp_od.WriteXml(String.Format(fn2, "_tp") + ".xml", True)
End If
End Sub
@@ -4252,7 +4255,12 @@ ENDSTAT: '//
End Sub
Private Sub RibbonButton23_Click_1(sender As System.Object, e As System.EventArgs) Handles RibbonButton23.Click
If Not Prj.Opened Then
Work_msg_timer(CLang.<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ͼ<EFBFBD><EFBFBD><EFBFBD>)
Return
End If
Frm_Buha.ControlBox = True
Frm_Buha.Show()
End Sub
Private Sub ExportCSV()

7
ArinWarev1/REPORT-OD/Report_result.rdlc
View File

@@ -798,6 +798,7 @@ iif(Fields!type.Value="조명에너지","#765e00","#475e76")))))</Color>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<rd:Selected>true</rd:Selected>
</CellContents>
<DataElementOutput>Output</DataElementOutput>
</TablixCell>
@@ -911,8 +912,8 @@ iif(Fields!type.Value="조명에너지","#765e00","#475e76")))))</Color>
<DataSetName>DSR_Graph_ReqUse</DataSetName>
<Top>19cm</Top>
<Left>0.5cm</Left>
<Height>1.26984cm</Height>
<Width>4.73968cm</Width>
<Height>1.26985cm</Height>
<Width>4.73967cm</Width>
<ZIndex>2</ZIndex>
<Style>
<Border>
@@ -922,7 +923,7 @@ iif(Fields!type.Value="조명에너지","#765e00","#475e76")))))</Color>
</Style>
</Tablix>
</ReportItems>
<Height>20.26984cm</Height>
<Height>20.26985cm</Height>
<Style />
</Body>
<Width>19cm</Width>

8
ArinWarev1/UserControls/ArinDv.vb
View File

@@ -4,14 +4,14 @@
Select Case e.KeyCode
Case Keys.O
If e.Control Then
ExportView("c:\ExportData.txt", Me)
ExportView("c:\ExportData.txt")
End If
End Select
End Sub
'//그리드뷰의 내용을 내보낸다(ArinDataView 의 일부)
Public Sub ExportView(ByVal Filename As String, ByVal Dv As DataGridView)
If Dv.RowCount < 1 Then
Public Sub ExportView(ByVal Filename As String)
If Me.RowCount < 1 Then
MsgBox("저장가능한 목록이 없습니다", MsgBoxStyle.Information, "확인")
Return
End If
@@ -23,7 +23,7 @@
SD.FilterIndex = 0
SD.RestoreDirectory = True
If SD.ShowDialog <> Windows.Forms.DialogResult.OK Then Return
SaveTextfile(Dv, SD.FileName, CChar(IIf(SD.FilterIndex = 2, ",", vbTab)))
SaveTextfile(Me, SD.FileName, CChar(IIf(SD.FilterIndex = 2, ",", vbTab)))
End Sub