user id DB로그인 안되게 수정

디버깅이안되는 현상 있음

ArinWarev1/Module/Pub.vb

@@ -486,6 +486,9 @@
         DSET1.weather_temp.Clear()
         DSET1.weather_supdo.Clear()
         DSET1.weather_group.Clear()
+        DSET1.weather_water.Clear()
+        DSET1.weather_river.Clear()
+        DSET1.weather_wind.Clear()
         DSET1.AcceptChanges()
 
         DSET2.tbl_weather.Clear()
@@ -494,6 +497,9 @@
         DSET2.weather_temp.Clear()
         DSET2.weather_supdo.Clear()
         DSET2.weather_group.Clear()
+        DSET2.weather_water.Clear()
+        DSET2.weather_river.Clear()
+        DSET2.weather_wind.Clear()
         DSET2.AcceptChanges()
 
         Try
@@ -570,6 +576,99 @@
 
         End If
     End Function
+
+    Public Function SolarAirHeatingSystem(DSET As DS, 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 / 3600 '// [J/kg'C] 3600으로 나누어 Wh로 변환 [Wh/kg'C]
+        Dim Delta_T_offset As Decimal = 3
+        Dim h_sunlight As Decimal = 24
+        Dim sigma_s As Decimal = 0.000000056703 '스테판볼츠만 상수
+        T_del_max = 20
+
+
+        '// 사용자 입력항목 : 집열기 면적(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"))) * 24
+            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"))) * 24
+            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"))) * 24
+            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"))) * 24
+            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"))) * 24
+            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"))) * 24
+            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"))) * 24
+            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"))) * 24
+
+        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)
+
+        Return Delta_T_act
+
+    End Function
+
+
+
+    Public Function Get_V_dot_A_AHU(tbl_profile As DS.tbl_profileDataTable, tbl_zone As DS.tbl_zoneDataTable, Dr공조Code As String) As Decimal
+
+
+        Dim ZoneListKongjo() As DS.tbl_zoneRow = tbl_zone.Select("code<>'0' and 냉난방공조처리시스템 = '" + Dr공조Code + "'", "code")
+        Dim V_dot_A_AHU As Decimal = 0
+        For Each DrZonbyKongjo As DS.tbl_zoneRow In ZoneListKongjo
+
+            Dim Dr프로필2 As DS.tbl_profileRow = CType(tbl_profile.Select("code='" & DrZonbyKongjo.프로필 & "'")(0), DS.tbl_profileRow)
+            V_dot_A_AHU += TOSG(DrZonbyKongjo.면적) * TOSG(DrZonbyKongjo.입력존의수) * TOSG(Dr프로필2.최소도입외기량)
+        Next
+        Return V_dot_A_AHU
+    End Function
     Public Function TOSG(ByVal obj As Object) As Decimal
         If obj Is DBNull.Value Then
             Return 0