JAVA 웹 과 비교를 하기위한 기타 기능 추가

ArinWarev1/Calculator-OD/Cooling/CCooling.vb

@@ -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