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

2024y .

Browse Source
This commit is contained in:
ykh
2024-12-30 23:04:30 +09:00
parent c01051f024
commit 8f89991a09
45 changed files with 7567 additions and 1033 deletions
Download Patch File Download Diff File Expand all files Collapse all files

96
ArinWarev1/Calculator/CZone.vb
View File

@@ -181,8 +181,58 @@
Delta_theta_i_WE = TOSG(DR프로필(0).주말최저허용온도) ' Worksheets("설정조건").Range("주말최저허용온도1").Offset(0, i_count_profile)
' If i_count_OpWe = 1 Then=============================================================2010.2.21 삭제
'Log.AppendLine(" >> i_count_OpWe = 1 >> Q_I_source_p/Q_I_source_fac/V_mech 계산됨")
Q_I_source_p = TOSG(DR프로필(0).사람) * A_B ' Worksheets("설정조건").Range("사람1").Offset(0, i_count_profile) * A_B '(2-118)
Q_I_source_fac = (TOSG(DR프로필(0).작업보조기기) * A_B) + 기저비율 ' Worksheets("설정조건").Range("작업보조기기1").Offset(0, i_count_profile) * A_B '(2-119)
Dim v사람 As Decimal = TOSG(DR프로필(0).사람)
Dim v작업보조기기 As Decimal = TOSG(DR프로필(0).작업보조기기)
'If DR프로필(0).설명.StartsWith("00") OrElse DR프로필(0).설명.StartsWith("27") Then
' If A_B = 0 Then
' MsgBox("존=" & DR존.code & " 의 프로필=" & DR존.프로필 & " 의 면적데이터(A_B)가 존재하지않습니다", MsgBoxStyle.Critical, "확인")
' Else
' Dim 프로필면적 As Char = Pub.면적별범위값(TOSG(DR존.면적))
' If 프로필면적 = "A"c Then
' v사람 = 1528.8 / A_B
' ElseIf 프로필면적 = "B"c Then
' v사람 = 1999.2 / A_B
' ElseIf 프로필면적 = "C"c Then
' v사람 = 2822.4 / A_B
' ElseIf 프로필면적 = "D"c Then
' v사람 = 3292.8 / A_B
' ElseIf 프로필면적 = "E"c Then
' v사람 = 3763.2 / A_B
' ElseIf 프로필면적 = "F"c Then
' v사람 = 4116.0 / A_B
' Else
' v사람 = 5762.4 / A_B
' End If
' If 프로필면적 = "A"c Then
' v작업보조기기 = 3741.9 / A_B
' ElseIf 프로필면적 = "B"c Then
' v작업보조기기 = 4893.2 / A_B
' ElseIf 프로필면적 = "C"c Then
' v작업보조기기 = 6908.1 / A_B
' ElseIf 프로필면적 = "D"c Then
' v작업보조기기 = 8059.5 / A_B
' ElseIf 프로필면적 = "E"c Then
' v작업보조기기 = 9210.8 / A_B
' ElseIf 프로필면적 = "F"c Then
' v작업보조기기 = 10074.3 / A_B
' Else
' v작업보조기기 = 14104.1 / A_B
' End If
' End If
'End If
Q_I_source_p = v사람 * A_B ' Worksheets("설정조건").Range("사람1").Offset(0, i_count_profile) * A_B '(2-118)
Q_I_source_fac = (v작업보조기기 * A_B) + 기저비율 ' Worksheets("설정조건").Range("작업보조기기1").Offset(0, i_count_profile) * A_B '(2-119)
V_mech = TOSG(DR프로필(0).최소도입외기량) * A_B ' Worksheets("설정조건").Range("최소도입외기량1").Offset(0, i_count_profile) * A_B
' Else '=============================================================2010.2.21 삭제
' Log.AppendLine(" >> i_count_OpWe <> 1 >> Q_I_source_p/Q_I_source_fac 는 0입니다")
@@ -217,7 +267,7 @@
' End If
' End If
'End If
@@ -321,7 +371,15 @@
Q_I_L = TOSG(DR존.조명에너지부하율입력치) * TOSG(Drow프로필.일일사용시간) * A_B
End If
'Q_I_L = TOSG(IIf(DR존.조명부하산출방법 = "계산치", TOSG(DR존.조명에너지부하율계산치), TOSG(DR존.조명에너지부하율입력치))) * TOSG(Drow프로필.일일사용시간) * A_B
Q_w_b = TOSG(Drow프로필.일일급탕요구량) * A_B * d_op_mth
Dim 프로필급탕요구량 As Decimal = TOSG(Drow프로필.일일급탕요구량)
'If Drow프로필.설명.StartsWith("00") OrElse Drow프로필.설명.StartsWith("27") Then
' Dim 면적별범위 As Char = Pub.면적별범위값(TOSG(DR존.면적))
' 프로필급탕요구량 = Pub.프로필급탕요구량(면적별범위) / A_B
'End If
Q_w_b = 프로필급탕요구량 * A_B * d_op_mth
'===================================2010.2.21 삭제
'If DR존.조명부하산출방법 = "CALC" Then '//OpWe의 2번은 주말인거 같다.
' '//부하율계산치?입력치구분
@@ -796,7 +854,15 @@
Else
Q_l_b = TOSG(DR존.조명에너지부하율입력치) * TOSG(DRProf.일일사용시간) * A_B * d_op_mth * zone_count
End If
Q_w_b = TOSG(DRProf.일일급탕요구량) * A_B * d_op_mth * zone_count 'Worksheets("입력존").Range("일일급탕요구량1").Offset(0, i_count_zone - 1) * A_B * d_op(i_count_month)
프로필급탕요구량 = TOSG(DRProf.일일급탕요구량)
'If DRProf.설명.StartsWith("00") OrElse DRProf.설명.StartsWith("27") Then
' Dim 면적별범위 As Char = Pub.면적별범위값(TOSG(DR존.면적))
' 프로필급탕요구량 = Pub.프로필급탕요구량(면적별범위) / A_B
'End If
Q_w_b = 프로필급탕요구량 * A_B * d_op_mth * zone_count 'Worksheets("입력존").Range("일일급탕요구량1").Offset(0, i_count_zone - 1) * A_B * d_op(i_count_month)
'=================================================2010.2.21 삭제
'End If
'=================================================2010.2.21 삭제
@@ -821,7 +887,15 @@
Q_l_b = TOSG(DR존.조명에너지부하율입력치) * TOSG(DRProf.일일사용시간) * A_B * d_op_mth * zone_count
End If
Q_w_b = TOSG(DRProf.일일급탕요구량) * A_B * d_op_mth * zone_count '===============d_op(i_count_month) 2010.2.21 수정
Dim 프로필급탕요구량 As Decimal = TOSG(DRProf.일일급탕요구량)
'If DRProf.설명.StartsWith("00") OrElse DRProf.설명.StartsWith("27") Then
' Dim 면적별범위 As Char = Pub.면적별범위값(TOSG(DR존.면적))
' 프로필급탕요구량 = Pub.프로필급탕요구량(면적별범위) / A_B
'End If
Q_w_b = 프로필급탕요구량 * A_B * d_op_mth * zone_count '===============d_op(i_count_month) 2010.2.21 수정
End If
pLog.Add(String.Format("Q_w_b:{0}", Q_w_b))
@@ -979,6 +1053,16 @@
pLog.Add(String.Format("소요량계산 Mon={0},d_full_mth={1},theta_e_month={2}", i_count_month, d_full_mth, theta_e_month))
Dim importrows() As DS.tbl_importdataRow = DSET1.tbl_importdata.Select("mon='M" + i_count_month.ToString("00") + "'")
If importrows.Length = 1 Then
Result.생산E(i_count_month).연료전지전력생산량_offsite += importrows(0).외부전기도입량
End If
'///난방
pLog.Add("급탕소요량 시작")