JAVA 웹 과 비교를 하기위한 기타 기능 추가
This commit is contained in:
chi
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
|
||||
@@ -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 로 계산한다.
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user