user id DB로그인 안되게 수정

디버깅이안되는 현상 있음

ArinWarev1/Calculator/CAirHandling.vb

@@ -194,9 +194,9 @@
 
     End Sub
 
-    Public Overridable Sub Calc_AirHandling(ByVal i_count_month As Integer, ByVal theta_e As Decimal, Optional p_난방온도 As Decimal = 20, Optional p_냉방온도 As Decimal = 26) ' ByVal d_mth As Integer,
+    Public Overridable Sub Calc_AirHandling(ByVal i_count_month As Integer, ByVal i_d_full_month As Decimal, ByVal theta_e As Decimal, Optional p_난방온도 As Decimal = 20, Optional p_냉방온도 As Decimal = 26) ' ByVal d_mth As Integer,
 
-        pLog.Add(String.Format(">>Calc_AirHandling 진입 : i_count_month={0},theta_e={1},p_난방온도={2},p_냉방온도={3}", i_count_month, theta_e, p_난방온도, p_냉방온도))
+        pLog.Add(String.Format(">>Calc_AirHandling 진입 : i_count_month={0},i_d_full_month={1},p_난방온도={2},p_냉방온도={3}", i_count_month, i_d_full_month, p_난방온도, p_냉방온도))
 
         Dim A_B As Decimal
         Dim x_ABL_wi As Decimal, h_ABL_wi As Decimal, x_ABL_so As Decimal, h_ABL_so As Decimal, x_AUL_wi As Decimal, h_AUL_wi As Decimal, x_AUL_so As Decimal, h_AUL_so As Decimal
@@ -219,6 +219,8 @@
         Dim c_p_Lrho_L As Decimal, theta_ZUL_so As Decimal, p_S_theta_ZUL_so As Decimal, p_95_theta_ZUL_so As Decimal, x_95_ZUL_so As Decimal
         Dim h_95_ZUL_so As Decimal, i_count_air As Integer, i_count_start_time As Integer, i_count_end_time As Integer ', i_profile As Integer
         Dim P_D_j_theta_AUL_j As Decimal
+        Dim Delta_theta_AUL, V_dot_A_AHU As Decimal
+
 
         ' 공조처리
         theta_i_h_soll = p_난방온도
@@ -277,6 +279,33 @@
                     '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
+
+                    '/// 공기식 태양열 적용여부 확인
+                    Delta_theta_AUL = 0
+                    V_dot_A_AHU = 0
+                    If Dr공조.공기식태양열적용.Trim = "예" Then
+
+                        'Dim ZoneListKongjo() As DS.tbl_zoneRow = DSET.tbl_zone.Select("code<>'0' and 냉난방공조처리시스템 = '" + Dr공조.code + "'", "code")
+                        V_dot_A_AHU = Get_V_dot_A_AHU(DSET.tbl_profile, DSET.tbl_zone, Dr공조.code)
+                        'For Each DrZonbyKongjo As DS.tbl_zoneRow In ZoneListKongjo
+
+                        '    'Dim Dr프로필2 As DS.tbl_profileRow = CType(DSET.tbl_profile.Select("code='" & DrZonbyKongjo.프로필 & "'")(0), DS.tbl_profileRow)
+                        '    V_dot_A_AHU += Get_V_dot_A_AHU(DSET.tbl_profile, DSET.tbl_zone, Dr공조.code) '  TOSG(DrZonbyKongjo.면적) * TOSG(DrZonbyKongjo.입력존의수) * TOSG(Dr프로필2.최소도입외기량)
+                        'Next
+
+                        '공조기에 연결된 입력존면적*입력존수*최소외기도입량 의 합계 산출(V_dot_A_AHU)
+                        '/////////////
+                        '/////////////
+                        '/////////////
+                        '/////////////
+                        '/////////////
+                        '/////////////
+                        '/////////////
+                        Delta_theta_AUL = SolarAirHeatingSystem(DSET, i_count_month, i_d_full_month, Dr공조, V_dot_A_AHU, theta_e, Delta_theta_AUL)
+                    End If
+
+
+
                     Q_vh_b = 0
                     Q_vc_b = 0
                     Q_vm_b = 0
@@ -324,7 +353,7 @@
 
                     End If
 
-                    theta_AUL = theta_AUL / t_V_mech_m
+                    theta_AUL = (theta_AUL / t_V_mech_m) + Delta_theta_AUL
                     x_AUL = x_AUL / t_V_mech_m
                     h_AUL = c_p_L * theta_AUL + x_AUL * (r_0 + c_p_L * theta_AUL)
 
@@ -501,6 +530,7 @@
                         '냉방공조처리에너지(냉각,리턴공기혼합유무(리턴공기혼합율 계산, 열회수유무(현열 또는 전열, 열회수율 입력)
 
                         Q_c_b = TOSG(Drow분석(0).냉방요구량공조) 'Sheets("" & i_count_month & "").Cells(11, 7 + i_count_zone)
+                        theta_AUL = theta_AUL - Delta_theta_AUL
                         Select Case Dr공조.공조방식.Trim 'Worksheets("공조처리시스템").Range("공조방식1").Offset(0, i_count_AHU - 1)
                             Case "정풍량" '정풍량"
                                 If Dr공조.외기냉방제어유무 = "유" Then ' Worksheets("공조처리시스템").Range("공조방식1").Offset(6, i_count_AHU - 1) = "유" Then
@@ -747,6 +777,7 @@
 
                 '==========================================================================2010.02.04 추가부분 시작
                 If Dr존.냉난방공조 = "환기" OrElse (Dr존.냉난방공조 = "난방" AndAlso Dr존.외기부하처리여부 = "예") Then   '//환기
+
                     Dim DR프로필() As DS.tbl_profileRow = CType(DSET.tbl_profile.Select("code='" & Dr존.프로필.ToString & "' and code <> '0'"), DS.tbl_profileRow())
                     If DR프로필.GetUpperBound(0) = 0 Then
                         t_V_mech_m = TOSG(DR프로필(0).운전시간난방) ' Worksheets("설정조건").Range("사용시작시간1").Offset(5, i_count_profile)
@@ -774,9 +805,38 @@
                     End If
 
                     Dim DR공조() As DS.tbl_kongjoRow = CType(DSET.tbl_kongjo.Select("code='" & Dr존.냉난방공조처리시스템 & "' and code <> '0'"), DS.tbl_kongjoRow())
+
+
                     If DR공조.GetUpperBound(0) = 0 Then
 
                         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------2010.05.26 추가
+
+
+                        '/// 공기식 태양열 적용여부 확인
+                        Delta_theta_AUL = 0
+                        V_dot_A_AHU = 0
+                        If DR공조(0).공기식태양열적용.Trim = "예" Then
+
+                            'Dim ZoneListKongjo() As DS.tbl_zoneRow = DSET.tbl_zone.Select("code<>'0' and 냉난방공조처리시스템 = '" + Dr공조.code + "'", "code")
+                            V_dot_A_AHU = Get_V_dot_A_AHU(DSET.tbl_profile, DSET.tbl_zone, DR공조(0).code)
+                            'For Each DrZonbyKongjo As DS.tbl_zoneRow In ZoneListKongjo
+
+                            '    'Dim Dr프로필2 As DS.tbl_profileRow = CType(DSET.tbl_profile.Select("code='" & DrZonbyKongjo.프로필 & "'")(0), DS.tbl_profileRow)
+                            '    V_dot_A_AHU += Get_V_dot_A_AHU(DSET.tbl_profile, DSET.tbl_zone, Dr공조.code) '  TOSG(DrZonbyKongjo.면적) * TOSG(DrZonbyKongjo.입력존의수) * TOSG(Dr프로필2.최소도입외기량)
+                            'Next
+
+                            '공조기에 연결된 입력존면적*입력존수*최소외기도입량 의 합계 산출(V_dot_A_AHU)
+                            '/////////////
+                            '/////////////
+                            '/////////////
+                            '/////////////
+                            '/////////////
+                            '/////////////
+                            '/////////////
+                            Delta_theta_AUL = SolarAirHeatingSystem(DSET, i_count_month, i_d_full_month, DR공조(0), V_dot_A_AHU, theta_e, Delta_theta_AUL)
+                        End If
+
+
                         If DR공조(0).열교환기유형.Trim = "현열교환" OrElse DR공조(0).열교환기유형.Trim = "전열교환" Then
                             Phi_h = TOSG(DR공조(0).열회수율) 'Worksheets("공조처리시스템").Range("열교환기1").Offset(1, i_count_AHU - 1)
                             Phi_c = TOSG(DR공조(0).열회수율냉) 'Worksheets("공조처리시스템").Range("열교환기1").Offset(2, i_count_AHU - 1)
@@ -787,8 +847,14 @@
                         '// 여기 i_count_month 에 0 이 오지는 않나요? 예.. 1 부터 시작해요
                         '// If CSng(Drow분석(0).난방요구량공조) > 0 Then 'Sheets("" & i_count_month & "").Cells(8, 7 + i_count_zone) > 0 Then
 
-                        If TOSG(Drow분석(0).난방요구량공조) > 0 Then
-                            Drow분석(0).난방요구량공조 = (1 - Phi_h) * TOSG(Drow분석(0).난방요구량공조)
+                        If TOSG(Drow분석(0).난방요구량공조) > 0 And theta_e <> 20 Then
+                            Drow분석(0).난방요구량공조 = TOSG(Drow분석(0).난방요구량공조) * (20 - theta_e + Delta_theta_AUL) / (20 - theta_e)
+                            If TOSG(Drow분석(0).난방요구량공조) < 0 Then
+                                Drow분석(0).난방요구량공조 = 0
+                            Else
+                                Drow분석(0).난방요구량공조 = (1 - Phi_h) * TOSG(Drow분석(0).난방요구량공조)
+                            End If
+
                         End If
 
                         If TOSG(Drow분석(0).냉방요구량공조) > 0 Then
@@ -839,6 +905,85 @@
 
     End Sub
 
+    'Public Overridable Sub SolarAirHeatingSystem(ByVal i_count_month As Integer, ByVal i_count_d_mth As Integer, ByVal Dr공조 As DS.tbl_kongjoRow, ByVal V_dot_A_AHU As Decimal, ByVal T_amb As Decimal, ByVal Delta_T_act As Decimal) ' ByVal d_mth As Integer,
+
+    '    pLog.Add(String.Format(">>SolarAirHeatingSystem 진입 : i_count_month={0}, i_count_d_mth={1}, Dr공조={2}, 외기도입량={3}, theta_e={4}, Delta_T_act={5}", i_count_month, i_count_d_mth, Dr공조.code, V_dot_A_AHU, T_amb, Delta_T_act))
+
+    '    Dim G_coll, G_tilt, A_coll As Decimal
+    '    Dim e_HX, h_c, v_wind, t, alpha, h_dot_r, eta As Decimal
+    '    Dim Q_dot_coll, Delta_T_avl, T_del_avl, T_del_act, T_del_max As Decimal
+    '    Dim rho As Decimal = 1.225
+    '    Dim C_p As Decimal = 1005 '// [J/kg'C]
+    '    Dim Delta_T_offset As Decimal = 3
+    '    Dim h_sunlight As Decimal = 24
+    '    Dim sigma_s As Decimal = 0.000000056703 '스테판볼츠만 상수
+
+
+    '    '// 사용자 입력항목 : 집열기 면적(A_coll), 단면적, 집열기 표면방사율(e) 
+    '    '// Q_dot_coll 은 외기도입풍량을 집열기 면적으로 나눈 값
+    '    '// h_sunlight 는 주간 운전시간 적용 
+
+    '    Dim Drow풍속 As DS.weather_windRow = CType(DSET.weather_wind.Select("pcode='" & Calc.Pub.기상데이터.code & "'")(0), DS.weather_windRow)
+    '    v_wind = TOSG(Drow풍속("M" + i_count_month.ToString("00")))
+
+    '    Dim Dr일사 As DS.weather_ilsaRow
+
+    '    Select Case Dr공조.집열기방위.Trim
+    '        Case "남" '"남"
+    '            Dr일사 = CType(DSET.weather_ilsa.Select("pcode='" & Calc.Pub.기상데이터.code & "' and code='" & Format(1 + 1, "0000") & "'")(0), DS.weather_ilsaRow)
+    '            G_tilt = TOSG(Dr일사("M" & Format(i_count_month, "00"))) * i_count_d_mth * 24 / 1000
+    '        Case "남동" '"남동"
+    '            Dr일사 = CType(DSET.weather_ilsa.Select("pcode='" & Calc.Pub.기상데이터.code & "' and code='" & Format(1 + 2, "0000") & "'")(0), DS.weather_ilsaRow)
+    '            G_tilt = TOSG(Dr일사("M" & Format(i_count_month, "00"))) * i_count_d_mth * 24 / 1000
+    '        Case "남서" '"남서"
+    '            Dr일사 = CType(DSET.weather_ilsa.Select("pcode='" & Calc.Pub.기상데이터.code & "' and code='" & Format(1 + 3, "0000") & "'")(0), DS.weather_ilsaRow)
+    '            G_tilt = TOSG(Dr일사("M" & Format(i_count_month, "00"))) * i_count_d_mth * 24 / 1000
+    '        Case "동" '"동"
+    '            Dr일사 = CType(DSET.weather_ilsa.Select("pcode='" & Calc.Pub.기상데이터.code & "' and code='" & Format(1 + 4, "0000") & "'")(0), DS.weather_ilsaRow)
+    '            G_tilt = TOSG(Dr일사("M" & Format(i_count_month, "00"))) * i_count_d_mth * 24 / 1000
+    '        Case "서" '"서"
+    '            Dr일사 = CType(DSET.weather_ilsa.Select("pcode='" & Calc.Pub.기상데이터.code & "' and code='" & Format(1 + 5, "0000") & "'")(0), DS.weather_ilsaRow)
+    '            G_tilt = TOSG(Dr일사("M" & Format(i_count_month, "00"))) * i_count_d_mth * 24 / 1000
+    '        Case "북동" '"북동"
+    '            Dr일사 = CType(DSET.weather_ilsa.Select("pcode='" & Calc.Pub.기상데이터.code & "' and code='" & Format(1 + 6, "0000") & "'")(0), DS.weather_ilsaRow)
+    '            G_tilt = TOSG(Dr일사("M" & Format(i_count_month, "00"))) * i_count_d_mth * 24 / 1000
+    '        Case "북서" '"북서"
+    '            Dr일사 = CType(DSET.weather_ilsa.Select("pcode='" & Calc.Pub.기상데이터.code & "' and code='" & Format(1 + 7, "0000") & "'")(0), DS.weather_ilsaRow)
+    '            G_tilt = TOSG(Dr일사("M" & Format(i_count_month, "00"))) * i_count_d_mth * 24 / 1000
+    '        Case "북" '"북"
+    '            Dr일사 = CType(DSET.weather_ilsa.Select("pcode='" & Calc.Pub.기상데이터.code & "' and code='" & Format(1 + 8, "0000") & "'")(0), DS.weather_ilsaRow)
+    '            G_tilt = TOSG(Dr일사("M" & Format(i_count_month, "00"))) * i_count_d_mth * 24 / 1000
+
+    '    End Select
+
+
+    '    A_coll = TOSG(Dr공조.집열기면적)
+    '    alpha = TOSG(Dr공조.집열기방사율)
+    '    Q_dot_coll = V_dot_A_AHU / A_coll
+    '    G_coll = G_tilt * A_coll '// * f_op 집열기 가동계수는 G_tilt 에 포함
+
+    '    e_HX = 1 - 5 * Q_dot_coll
+    '    h_c = 6.0 + 4.0 * v_wind - 76 * Q_dot_coll
+    '    t = alpha * G_tilt / (rho * C_p * Q_dot_coll * e_HX + 4 * alpha * sigma_s * T_amb ^ 3 + h_c)  ' e는 alpha 로 공유
+    '    h_dot_r = 4 * alpha * sigma_s * T_amb ^ 2 * (T_amb + 1.6 * t) ' e는 alpha 로 공유
+    '    eta = alpha / (1 + (h_dot_r + h_c) / (rho * C_p * Q_dot_coll * e_HX))
+
+
+    '    Delta_T_avl = (eta * G_tilt) / (Q_dot_coll * rho * C_p * h_sunlight)
+    '    T_del_avl = (T_amb + Delta_T_offset) + Delta_T_avl
+    '    T_del_act = Math.Min(T_del_max, T_del_avl)
+    '    Delta_T_act = Math.Max(T_del_act - (T_amb + Delta_T_offset), 0)
+
+    '    'f_util = Delta_T_act / Delta_T_avl
+
+    '    'Q_sol = Sigma(eta * G_coll * f_util)
+
+
+
+    'End Sub
+
+
+
     Private DSET As DS
     Private DSETR As DSR
     Private Result As CResult