44 lines
		
	
	
		
			1.4 KiB
		
	
	
	
		
			VB.net
		
	
	
	
	
	
			
		
		
	
	
			44 lines
		
	
	
		
			1.4 KiB
		
	
	
	
		
			VB.net
		
	
	
	
	
	
| Public Class CResultOD
 | |
| 
 | |
| 
 | |
|     ' Public Zones As CZonesOD
 | |
| 
 | |
|     Public E요구량(12) As C에너지요구량OD
 | |
|     Public E소요량(12) As C에너지소요량OD
 | |
|     Public 일차E소요량(12) As C1차소요량OD
 | |
|     Public 생산E(12) As C생산에너지OD
 | |
|     Public Co2발생량(12) As CCo2발생량OD
 | |
|     Public E분석(12) As C에너지분석OD  '//여기는 유일하게 0번 인덱스를 쓸수없다
 | |
| 
 | |
|     Public Co2배출계수 As CCo2배출계수OD
 | |
|     Public E변환계수 As C1차에너지변환계수OD
 | |
| 
 | |
|     Public 사용면적 As C사용면적OD
 | |
|     Public 최대부하 As C최대냉난방부하OD
 | |
| 
 | |
|     Public Sub New()
 | |
|         '//공용
 | |
|         Co2배출계수 = New CCo2배출계수OD
 | |
|         E변환계수 = New C1차에너지변환계수OD
 | |
| 
 | |
|         '//단일
 | |
|         사용면적 = New C사용면적OD
 | |
|         최대부하 = New C최대냉난방부하OD
 | |
| 
 | |
|         '//서브추가항목
 | |
|         'Zones = New CZonesOD
 | |
| 
 | |
|         '//월별로 들어가는 배열항목
 | |
|         For i As Integer = 0 To 12
 | |
|             Me.E요구량(i) = New C에너지요구량OD(i)
 | |
|             Me.E소요량(i) = New C에너지소요량OD(i)
 | |
|             Me.일차E소요량(i) = New C1차소요량OD(i)
 | |
|             Me.생산E(i) = New C생산에너지OD(i)
 | |
|             Me.Co2발생량(i) = New CCo2발생량OD(i)
 | |
|             Me.E분석(i) = New C에너지분석OD(i)
 | |
|         Next
 | |
| 
 | |
|     End Sub
 | |
| 
 | |
| End Class
 | 
