60 lines
2.4 KiB
VB.net
60 lines
2.4 KiB
VB.net
|
|
' ''' <summary>
|
|
' ''' 각존의 데이터를 참조한다
|
|
' ''' </summary>
|
|
'Public Class CZonesOD
|
|
' Dim ErrMsg As String = "최대냉난방부하가 계산되지 않았습니다"
|
|
' Public Items() As Citem
|
|
|
|
' Public Sub New() '//존은초기화값을 가지고 생성한다.
|
|
' ReDim Items(Me.CountR) '//결과내의 존을 초기화한다.
|
|
' Dim idx As Integer = 0
|
|
' For Each It As DSR.최대냉난방부하Row In DSETR1.최대냉난방부하.Select("zone<>'00'")
|
|
' Items(idx) = New Citem(idx, It.Zone)
|
|
' idx += 1
|
|
' Next
|
|
' '//해당존의 코드값을 가지고 결과가 게산되어있따.
|
|
' End Sub
|
|
' Public Function Count() As Integer
|
|
' Return DSET1.tbl_zone.Rows.Count '//현재 시스템의 존 카운터를 반환
|
|
' End Function
|
|
' Public Function CountR() As Integer
|
|
' Return DSETR1.최대냉난방부하.Select("zone<>'00'").GetUpperBound(0) + 1 '//계산결과내의 존의 갯수를 반환
|
|
' End Function
|
|
|
|
' Public Class Citem
|
|
' Public Index As Integer
|
|
' Public Code As String
|
|
' Public 최대냉난방부하 As C최대냉난방부하OD.Citem
|
|
' Public 월에너지분석(11) As C에너지분석OD '//이존의 12달의 내역을 참조한다.
|
|
' Public Sub New(ByVal pidx As Integer, ByVal pcode As String)
|
|
' Me.Index = pidx
|
|
' Me.Code = pcode
|
|
' 최대냉난방부하 = New C최대냉난방부하OD.Citem(pcode)
|
|
|
|
' Dim Idx As Integer = 0
|
|
' For Each DR As C에너지분석OD In Me.월에너지분석
|
|
' DR = New C에너지분석OD(Idx, pcode)
|
|
' Idx += 1
|
|
' Next
|
|
' End Sub
|
|
' Public Function Name() As String
|
|
' Dim dR() As DataRow = DSET1.tbl_zone.Select("code='" & Me.Code & "'")
|
|
' If dR.GetUpperBound(0) = -1 Then
|
|
' Return "존재하지않는 Zone 입니다"
|
|
' Else
|
|
' Return dR(0)("설명").ToString
|
|
' End If
|
|
' End Function
|
|
' Public Function Row() As DS.tbl_zoneRow
|
|
' Dim dR() As DS.tbl_zoneRow = CType(DSET1.tbl_zone.Select("code='" & Me.Code & "'"), DS.tbl_zoneRow())
|
|
' If dR.GetUpperBound(0) = -1 Then
|
|
' Return Nothing
|
|
' Else
|
|
' Return dR(0)
|
|
' End If
|
|
' End Function
|
|
' End Class
|
|
'End Class
|
|
|