user id DB로그인 안되게 수정
디버깅이안되는 현상 있음
This commit is contained in:
chi
@@ -50,6 +50,8 @@
|
||||
Dim Q_V_win_sink As Decimal, Q_V_win_source As Decimal, H_V_win As Decimal, n_win As Decimal
|
||||
Dim zone_count As Decimal '//2012.07.08 추가 입력존의 수
|
||||
|
||||
Dim Delta_theta_AUL, V_dot_A_AHU As Decimal
|
||||
|
||||
'Dim priod_value As Single = 0
|
||||
Dim age As Decimal = 1 '//준공연도에 의한 경년변화값
|
||||
'For Each DRpriod As DS.tbl_DescRow In DSET.tbl_Desc.Select("cname<>'0'", "cname")
|
||||
@@ -190,15 +192,90 @@
|
||||
'Q_I_L = 0 'mu_L*Q_I_L_elektr (2-123)추후 추가
|
||||
End If
|
||||
|
||||
''/// 공기식 태양열 적용여부 확인
|
||||
'Delta_theta_AUL = 0
|
||||
'V_dot_A_AHU = 0
|
||||
|
||||
'If DR존.냉난방공조처리시스템 <> "0" Then
|
||||
' Dim Dr공조() As DS.tbl_kongjoRow = DSET.tbl_kongjo.Select("code='" & DR존.냉난방공조처리시스템 & "' and code <> '0'", "code")
|
||||
' If Dr공조.Length = 1 AndAlso i_count_month > 0 Then
|
||||
' If Dr공조(0).공기식태양열적용 = "예" Then
|
||||
|
||||
' V_dot_A_AHU = Get_V_dot_A_AHU(DSET.tbl_profile, DSET.tbl_zone, Dr공조(0).code)
|
||||
|
||||
' '해당 존에 연결된 공조기에 연결된 입력존*입력존수*최소외기도입량 의 합계 산출(V_dot_A_AHU)
|
||||
' '/////////////
|
||||
' '/////////////
|
||||
' '/////////////
|
||||
' '/////////////
|
||||
' '/////////////
|
||||
' '/////////////
|
||||
' '/////////////
|
||||
' Delta_theta_AUL = SolarAirHeatingSystem(DSET, i_count_month, d_op_mth, Dr공조(0), V_dot_A_AHU, Calc.Pub.theta_e(i_count_month), Delta_theta_AUL)
|
||||
|
||||
|
||||
' End If
|
||||
' End If
|
||||
'End If
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
V_mech_outdoor = 1 '외기처리 관련 (ZZ=사용안함 Y=예)
|
||||
If DR존.냉난방방식 <> "기능없음" And DR존.냉난방공조 <> "기능없음" And DR존.외기부하처리여부 = "예" Then
|
||||
If i_count_HeatCool = 1 Then '//난방이라면
|
||||
If DR존.냉난방공조 <> "난방" AndAlso DR존.냉난방공조 <> "냉난방" Then '난방/냉난방 이 아니면!
|
||||
If theta_i_h_soll > Calc.Pub.theta_e(i_count_month) Then '//난방설정온도 > 외기온도(난방기)
|
||||
Q_vh_b_op = V_mech * (theta_i_h_soll - Calc.Pub.theta_e(i_count_month)) * t_h_op_d * c_p_arhoa * d_op_mth * zone_count '===============d_op(i_count_month) 2010.2.21 수정
|
||||
V_mech_outdoor = 0 ' 외기처리된 상태인 경우
|
||||
'Log.AppendLine(" >> 외기처리됨")
|
||||
End If
|
||||
'If theta_i_h_soll > (Calc.Pub.theta_e(i_count_month) + Delta_theta_AUL) Then '//난방설정온도 > 외기온도(난방기)
|
||||
' Q_vh_b_op = V_mech * (theta_i_h_soll - (Calc.Pub.theta_e(i_count_month) + Delta_theta_AUL)) * t_h_op_d * c_p_arhoa * d_op_mth * zone_count '===============d_op(i_count_month) 2010.2.21 수정
|
||||
' V_mech_outdoor = 0 ' 외기처리된 상태인 경우
|
||||
' 'Log.AppendLine(" >> 외기처리됨")
|
||||
'End If
|
||||
|
||||
'If theta_i_h_soll > Calc.Pub.theta_e(i_count_month) Then '//난방설정온도 > 외기온도(난방기)
|
||||
' Q_vh_b_op = V_mech * (theta_i_h_soll - Calc.Pub.theta_e(i_count_month)) * t_h_op_d * c_p_arhoa * d_op_mth * zone_count '===============d_op(i_count_month) 2010.2.21 수정
|
||||
' V_mech_outdoor = 0 ' 외기처리된 상태인 경우
|
||||
' 'Log.AppendLine(" >> 외기처리됨")
|
||||
|
||||
'End If
|
||||
|
||||
|
||||
|
||||
'If DR존.냉난방공조처리시스템 <> "0" Then
|
||||
|
||||
' Dim Dr공조 As DS.tbl_kongjoRow = DSET.tbl_kongjo.Select("code='" & DR존.냉난방공조처리시스템 & "' and code <> '0'", "code")(0)
|
||||
' If DR공조.공기식태양열적용 = "예" Then
|
||||
|
||||
' V_dot_A_AHU = Get_V_dot_A_AHU(DSET.tbl_profile, DSET.tbl_zone, Dr공조.code)
|
||||
|
||||
|
||||
' '해당 존에 연결된 공조기에 연결된 입력존*입력존수*최소외기도입량 의 합계 산출(V_dot_A_AHU)
|
||||
' '/////////////
|
||||
' '/////////////
|
||||
' '/////////////
|
||||
' '/////////////
|
||||
' '/////////////
|
||||
' '/////////////
|
||||
' '/////////////
|
||||
' Delta_theta_AUL = SolarAirHeatingSystem(DSET, i_count_month, d_op_mth, Dr공조, V_dot_A_AHU, Calc.Pub.theta_e(i_count_month), Delta_theta_AUL)
|
||||
|
||||
' If theta_i_h_soll > (Calc.Pub.theta_e(i_count_month) + Delta_theta_AUL) Then '//난방설정온도 > 외기온도(난방기)
|
||||
' Q_vh_b_op = V_mech * (theta_i_h_soll - (Calc.Pub.theta_e(i_count_month) + Delta_theta_AUL)) * t_h_op_d * c_p_arhoa * d_op_mth * zone_count '===============d_op(i_count_month) 2010.2.21 수정
|
||||
' V_mech_outdoor = 0 ' 외기처리된 상태인 경우
|
||||
' 'Log.AppendLine(" >> 외기처리됨")
|
||||
' End If
|
||||
' Else
|
||||
|
||||
|
||||
' End If
|
||||
'Else
|
||||
' '//ㄱ
|
||||
'End If
|
||||
''For Each Dr공조 As DS.tbl_kongjoRow In DSET.tbl_kongjo.Select("code='" & DR존.냉난방공조처리시스템 & "' and code <> '0'", "code")
|
||||
|
||||
''Next
|
||||
|
||||
|
||||
End If
|
||||
Else
|
||||
If DR존.냉난방공조 <> "냉방" AndAlso DR존.냉난방공조 <> "냉난방" Then '냉방/냉난방이 아닐경우
|
||||
@@ -391,23 +468,58 @@
|
||||
'theta_V_mech = theta_e(i_count_month) + eta_V_mech * (theta_i - theta_e(i_count_month)) '(2-91) 비제어적 열교환 eta_V_mech은 사용자입력
|
||||
theta_V_mech_RLT = TOSG(IIf(i_count_HeatCool = 1, 27, 16))
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
theta_V_mech = Calc.Pub.theta_e(i_count_month) 'theta_V_mech_RLT '(2-92) 공조처리된 급기온도(도표 3-3, 3-4, 7-5) 난방 27, 냉방 16으로 설정
|
||||
|
||||
pLog.Add(String.Format("theta_i:{0},theta_z:{1},theta_u:{2},theta_V_mech_RLT:{3},theta_V_mech:{4}", theta_i, theta_z, theta_u, theta_V_mech_RLT, theta_V_mech))
|
||||
|
||||
|
||||
|
||||
|
||||
'=======================================================================2010.02.04 추가부분 시작
|
||||
If DR존.냉난방공조처리시스템 <> "0" And DR존.냉난방공조 = "환기" Then '//냉난방공조처리시스템이 선택되어있고 공조가 환기라면
|
||||
'//공조처리스템과 일치하는 공조기기(tbl_kongjo) 를 찾아서 계산한다.
|
||||
Dim DR() As DS.tbl_kongjoRow = CType(DSET.tbl_kongjo.Select("code='" & DR존.냉난방공조처리시스템 & "' and code <> '0'"), DS.tbl_kongjoRow())
|
||||
|
||||
'/// 공기식 태양열 적용여부 확인
|
||||
Delta_theta_AUL = 0
|
||||
V_dot_A_AHU = 0
|
||||
|
||||
|
||||
If i_count_month > 0 Then
|
||||
If DR(0).공기식태양열적용 = "예" Then
|
||||
|
||||
V_dot_A_AHU = Get_V_dot_A_AHU(DSET.tbl_profile, DSET.tbl_zone, DR(0).code)
|
||||
|
||||
'해당 존에 연결된 공조기에 연결된 입력존*입력존수*최소외기도입량 의 합계 산출(V_dot_A_AHU)
|
||||
'/////////////
|
||||
'/////////////
|
||||
'/////////////
|
||||
'/////////////
|
||||
'/////////////
|
||||
'/////////////
|
||||
'/////////////
|
||||
Delta_theta_AUL = SolarAirHeatingSystem(DSET, i_count_month, d_op_mth, DR(0), V_dot_A_AHU, Calc.Pub.theta_e(i_count_month), Delta_theta_AUL)
|
||||
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If DR.GetUpperBound(0) = 0 Then
|
||||
Select Case DR(0).열교환기유형.Trim
|
||||
Case "현열교환", "전열교환" '//현열교환,전열교환
|
||||
Phi = TOSG(DR(0).열회수율) ' Worksheets("공조처리시스템").Range("열교환기1").Offset(1, i_count_AHU - 1)
|
||||
theta_V_mech = Calc.Pub.theta_e(i_count_month) + Phi * (theta_i - Calc.Pub.theta_e(i_count_month) + Delta_theta_AUL)
|
||||
Case Else
|
||||
Phi = 0
|
||||
theta_V_mech = Calc.Pub.theta_e(i_count_month) + Delta_theta_AUL
|
||||
End Select
|
||||
theta_V_mech = Calc.Pub.theta_e(i_count_month) + Phi * (theta_i - Calc.Pub.theta_e(i_count_month))
|
||||
|
||||
Else
|
||||
MsgBox(DR존.설명 & "존의 냉난방공조처리스템(" & DR존.냉난방공조처리시스템 & ") 의값이 일치하지않습니다", MsgBoxStyle.Critical, "확인")
|
||||
End If
|
||||
@@ -874,7 +986,7 @@
|
||||
|
||||
|
||||
pLog.Add("환기소요량 시작")
|
||||
Calc.AirHandling.Calc_AirHandling(i_count_month, d_full_mth) '//환기? '========2010.2.21 수정
|
||||
Calc.AirHandling.Calc_AirHandling(i_count_month, d_full_mth, theta_e_month) '//환기? '========2010.2.21 수정
|
||||
|
||||
'//
|
||||
If Result.E분석(i_count_month).난방에너지요구량 <> 0 Then
|
||||
|
||||
Reference in New Issue
Block a user