..

2023-10-27 23:05:50 +09:00
parent 0b976ad2ab
commit ec0e3013c6
50 changed files with 4751 additions and 1383 deletions
--- a/ArinWarev1/Calculator/Result/C1차소요량.vb
+++ b/ArinWarev1/Calculator/Result/C1차소요량.vb
@@ -95,7 +95,41 @@
        End Get
    End Property

+
+#Region "신재생"
+
+    'ReadOnly Property 신재생_난방_소요량() As Decimal
+    '    Get
+    '        If MIdx = 0 Then
+
+
+
+    '            Try
+    '                Dim a As Decimal = Result.생산E(0).태양광전력생산량
+    '                Dim b As Decimal = Result.생산E(0).풍력전력생산량
+    '                Dim c As Decimal = Result.생산E(0).열병합전력생산량
+    '                Dim sumdata As Decimal = a + b + c
+
+    '                Dim 난방비율 As Decimal = Me.난방전력 / (Me.난방전력 + Me.냉방전력 + Me.급탕전력 + Me.조명전력 + Me.환기전력)
+
+    '                Return 난방비율 * sumdata
+    '            Catch ex As Exception
+
+    '            End Try
+
+    '        Else
+    '            Return 조명전력 * Result.E변환계수.전력
+    '        End If
+    '    End Get
+    'End Property
+
+#End Region
+
+
 #Region "난방"
+
+  
+
    ReadOnly Property 난방소요량() As Decimal
        Get
            If MIdx = 0 Then
@@ -147,7 +181,7 @@
                    End Try
                End If

-                
+
            Else


@@ -694,6 +728,9 @@
 #End Region

 #Region "조명부분(읽기전용)"
+
+    
+
    ReadOnly Property 조명소요량() As Decimal
        Get
            If MIdx = 0 Then
--- a/ArinWarev1/Calculator/Result/C생산에너지.vb
+++ b/ArinWarev1/Calculator/Result/C생산에너지.vb
@@ -212,6 +212,35 @@ Public Class C생산에너지
        End Set
    End Property

+    Property 신재생열병합열생산량() As Decimal
+        Get
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                'MsgBox(ErrMsg)
+                Return 0
+            Else
+                If MIdx = 0 Then   '//0월이면 모든월의 합계를 반환한다.
+                    Dim Res As Decimal = 0
+                    For i As Short = 1 To 12
+                        Res += Result.생산E(i).신재생열병합열생산량
+                    Next
+                    Return Res
+                Else
+                    Return TOSG(DR(0)("신재생열병합열생산량"))
+                End If
+            End If
+        End Get
+        Set(ByVal value As Decimal)
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                MsgBox(ErrMsg)
+            Else
+                DR(0)("신재생열병합열생산량") = value
+            End If
+        End Set
+    End Property
+
+
    Property 신재생면적당열생산량() As Decimal
        Get
            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
@@ -239,7 +268,87 @@ Public Class C생산에너지
            End If
        End Set
    End Property
-
+    Property 신재생면적당열생산량_난방() As Decimal
+        Get
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                'MsgBox(ErrMsg)
+                Return 0
+            Else
+                If MIdx = 0 Then   '//0월이면 모든월의 합계를 반환한다.
+                    Dim Res As Decimal = 0
+                    For i As Short = 1 To 12
+                        Res += Result.생산E(i).신재생면적당열생산량_난방
+                    Next
+                    Return Res
+                Else
+                    Return TOSG(DR(0)("신재생면적당열생산량_난방"))
+                End If
+            End If
+        End Get
+        Set(ByVal value As Decimal)
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                MsgBox(ErrMsg)
+            Else
+                DR(0)("신재생면적당열생산량_난방") = value
+            End If
+        End Set
+    End Property
+    Property 신재생면적당열생산량_냉방() As Decimal
+        Get
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                'MsgBox(ErrMsg)
+                Return 0
+            Else
+                If MIdx = 0 Then   '//0월이면 모든월의 합계를 반환한다.
+                    Dim Res As Decimal = 0
+                    For i As Short = 1 To 12
+                        Res += Result.생산E(i).신재생면적당열생산량_냉방
+                    Next
+                    Return Res
+                Else
+                    Return TOSG(DR(0)("신재생면적당열생산량_냉방"))
+                End If
+            End If
+        End Get
+        Set(ByVal value As Decimal)
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                MsgBox(ErrMsg)
+            Else
+                DR(0)("신재생면적당열생산량_냉방") = value
+            End If
+        End Set
+    End Property
+    Property 신재생면적당열생산량_급탕() As Decimal
+        Get
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                'MsgBox(ErrMsg)
+                Return 0
+            Else
+                If MIdx = 0 Then   '//0월이면 모든월의 합계를 반환한다.
+                    Dim Res As Decimal = 0
+                    For i As Short = 1 To 12
+                        Res += Result.생산E(i).신재생면적당열생산량_급탕
+                    Next
+                    Return Res
+                Else
+                    Return TOSG(DR(0)("신재생면적당열생산량_급탕"))
+                End If
+            End If
+        End Get
+        Set(ByVal value As Decimal)
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                MsgBox(ErrMsg)
+            Else
+                DR(0)("신재생면적당열생산량_급탕") = value
+            End If
+        End Set
+    End Property

    Property 태양열생산량() As Decimal
        Get
@@ -355,6 +464,92 @@ Public Class C생산에너지
            End If
        End Set
    End Property
+    Property 면적당생산량태양열_난방() As Decimal
+        Get
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                'MsgBox(ErrMsg)
+                Return 0
+            Else
+                If MIdx = 0 Then   '//0월이면 모든월의 합계를 반환한다.
+                    Dim Res As Decimal = 0
+                    For i As Short = 1 To 12
+                        Res += Result.생산E(i).면적당생산량태양열_난방
+                    Next
+                    Return Res
+                Else
+                    Return TOSG(DR(0)("면적당생산량태양열_난방"))
+
+                End If
+            End If
+        End Get
+        Set(ByVal value As Decimal)
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                MsgBox(ErrMsg)
+            Else
+                DR(0)("면적당생산량태양열_난방") = value
+            End If
+        End Set
+    End Property
+    Property 면적당생산량태양열_냉방() As Decimal
+        Get
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                'MsgBox(ErrMsg)
+                Return 0
+            Else
+                If MIdx = 0 Then   '//0월이면 모든월의 합계를 반환한다.
+                    Dim Res As Decimal = 0
+                    For i As Short = 1 To 12
+                        Res += Result.생산E(i).면적당생산량태양열_냉방
+                    Next
+                    Return Res
+                Else
+                    Return TOSG(DR(0)("면적당생산량태양열_냉방"))
+
+                End If
+            End If
+        End Get
+        Set(ByVal value As Decimal)
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                MsgBox(ErrMsg)
+            Else
+                DR(0)("면적당생산량태양열_냉방") = value
+            End If
+        End Set
+    End Property
+    Property 면적당생산량태양열_급탕() As Decimal
+        Get
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                'MsgBox(ErrMsg)
+                Return 0
+            Else
+                If MIdx = 0 Then   '//0월이면 모든월의 합계를 반환한다.
+                    Dim Res As Decimal = 0
+                    For i As Short = 1 To 12
+                        Res += Result.생산E(i).면적당생산량태양열_급탕
+                    Next
+                    Return Res
+                Else
+                    Return TOSG(DR(0)("면적당생산량태양열_급탕"))
+
+                End If
+            End If
+        End Get
+        Set(ByVal value As Decimal)
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                MsgBox(ErrMsg)
+            Else
+                DR(0)("면적당생산량태양열_급탕") = value
+            End If
+        End Set
+    End Property
+
+
    Property 면적당생산량수열() As Decimal
        Get
            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
@@ -382,6 +577,87 @@ Public Class C생산에너지
            End If
        End Set
    End Property
+    Property 면적당생산량수열_난방() As Decimal
+        Get
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                'MsgBox(ErrMsg)
+                Return 0
+            Else
+                If MIdx = 0 Then   '//0월이면 모든월의 합계를 반환한다.
+                    Dim Res As Decimal = 0
+                    For i As Short = 1 To 12
+                        Res += Result.생산E(i).면적당생산량수열_난방
+                    Next
+                    Return Res
+                Else
+                    Return TOSG(DR(0)("면적당생산량수열_난방"))
+                End If
+            End If
+        End Get
+        Set(ByVal value As Decimal)
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                MsgBox(ErrMsg)
+            Else
+                DR(0)("면적당생산량수열_난방") = value
+            End If
+        End Set
+    End Property
+    Property 면적당생산량수열_냉방() As Decimal
+        Get
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                'MsgBox(ErrMsg)
+                Return 0
+            Else
+                If MIdx = 0 Then   '//0월이면 모든월의 합계를 반환한다.
+                    Dim Res As Decimal = 0
+                    For i As Short = 1 To 12
+                        Res += Result.생산E(i).면적당생산량수열_냉방
+                    Next
+                    Return Res
+                Else
+                    Return TOSG(DR(0)("면적당생산량수열_냉방"))
+                End If
+            End If
+        End Get
+        Set(ByVal value As Decimal)
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                MsgBox(ErrMsg)
+            Else
+                DR(0)("면적당생산량수열_냉방") = value
+            End If
+        End Set
+    End Property
+    Property 면적당생산량수열_급탕() As Decimal
+        Get
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                'MsgBox(ErrMsg)
+                Return 0
+            Else
+                If MIdx = 0 Then   '//0월이면 모든월의 합계를 반환한다.
+                    Dim Res As Decimal = 0
+                    For i As Short = 1 To 12
+                        Res += Result.생산E(i).면적당생산량수열_급탕
+                    Next
+                    Return Res
+                Else
+                    Return TOSG(DR(0)("면적당생산량수열_급탕"))
+                End If
+            End If
+        End Get
+        Set(ByVal value As Decimal)
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                MsgBox(ErrMsg)
+            Else
+                DR(0)("면적당생산량수열_급탕") = value
+            End If
+        End Set
+    End Property

    Property 면적당생산량지열() As Decimal
        Get
@@ -410,6 +686,86 @@ Public Class C생산에너지
            End If
        End Set
    End Property
-
+    Property 면적당생산량지열_난방() As Decimal
+        Get
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                'MsgBox(ErrMsg)
+                Return 0
+            Else
+                If MIdx = 0 Then   '//0월이면 모든월의 합계를 반환한다.
+                    Dim Res As Decimal = 0
+                    For i As Short = 1 To 12
+                        Res += Result.생산E(i).면적당생산량지열_난방
+                    Next
+                    Return Res
+                Else
+                    Return TOSG(DR(0)("면적당생산량지열_난방"))
+                End If
+            End If
+        End Get
+        Set(ByVal value As Decimal)
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                MsgBox(ErrMsg)
+            Else
+                DR(0)("면적당생산량지열_난방") = value
+            End If
+        End Set
+    End Property
+    Property 면적당생산량지열_냉방() As Decimal
+        Get
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                'MsgBox(ErrMsg)
+                Return 0
+            Else
+                If MIdx = 0 Then   '//0월이면 모든월의 합계를 반환한다.
+                    Dim Res As Decimal = 0
+                    For i As Short = 1 To 12
+                        Res += Result.생산E(i).면적당생산량지열_냉방
+                    Next
+                    Return Res
+                Else
+                    Return TOSG(DR(0)("면적당생산량지열_냉방"))
+                End If
+            End If
+        End Get
+        Set(ByVal value As Decimal)
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                MsgBox(ErrMsg)
+            Else
+                DR(0)("면적당생산량지열_냉방") = value
+            End If
+        End Set
+    End Property
+    Property 면적당생산량지열_급탕() As Decimal
+        Get
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                'MsgBox(ErrMsg)
+                Return 0
+            Else
+                If MIdx = 0 Then   '//0월이면 모든월의 합계를 반환한다.
+                    Dim Res As Decimal = 0
+                    For i As Short = 1 To 12
+                        Res += Result.생산E(i).면적당생산량지열_급탕
+                    Next
+                    Return Res
+                Else
+                    Return TOSG(DR(0)("면적당생산량지열_급탕"))
+                End If
+            End If
+        End Get
+        Set(ByVal value As Decimal)
+            Dim DR() As DSR.생산에너지Row = CType(DSETR.생산에너지.Select("mon='" & Mon & "'"), DSR.생산에너지Row())
+            If DR.GetUpperBound(0) = -1 Then
+                MsgBox(ErrMsg)
+            Else
+                DR(0)("면적당생산량지열_급탕") = value
+            End If
+        End Set
+    End Property
 End Class