Option Explicit On
Option Strict On
Option Infer Off
 
Public Module modGlobal
 
    ' Basis-Interface
    Public Interface I_Base
        Property Höhe As Double
        Property Länge As Double
    End Interface
 
    ' Interface einer Reihe
    Public Interface I_Reihe
        ReadOnly Property AnzElemente As Integer
        ReadOnly Property Breite As Double
    End Interface
 
    ' eine Reihe von BasisObjekten bzw. Grund-Werten
    ' falls das BasisObjekt Nothing ist
    Public Class BaseReihe(Of T As I_Base)
        Implements I_Reihe
 
        Protected mBaseObj As T
        Protected mAnz As Integer
        Protected mLänge As Double
        Protected mHöhe As Double
 
        ' Konstruktor für abstrakte Klasse (mBaseObj = Nothing)
        Public Sub New(ByVal Länge As Double, ByVal Höhe As Double, ByVal iAnz _
          As Integer)
            mLänge = Länge
            mHöhe = Höhe
            mAnz = iAnz
        End Sub
 
        ' Konstruktor für Klasse mit konkretem Objekt
        Public Sub New(ByVal BaseObj As T, ByVal iAnz As Integer)
            mBaseObj = BaseObj
            mAnz = iAnz
        End Sub
 
        'Das zu Grunde liegende Basis-Objekt
        Public Property Element As T
            Get
                Return mBaseObj
            End Get
            Set(value As T)
                mBaseObj = value
            End Set
        End Property
 
        ' Klasse enthält ein Objekt
        Public ReadOnly Property ContainsObject As Boolean
            Get
                Return mBaseObj IsNot Nothing
            End Get
        End Property
 
        'die Anzahl der Objekte in der Reihe
        Public ReadOnly Property AnzElemente As Integer Implements _
          I_Reihe.AnzElemente
            Get
                Return mAnz
            End Get
        End Property
 
        'z.B. die Fläche der gesamten Reihe
        Public ReadOnly Property Fläche As Double
            Get
                If Me.ContainsObject Then Return mBaseObj.Höhe * Me.Breite
                Return mLänge * mHöhe * mAnz
            End Get
        End Property
 
        ' die Breite der Reihe
        Public ReadOnly Property Breite As Double Implements I_Reihe.Breite
            Get
                If Me.ContainsObject Then Return mAnz * mBaseObj.Länge
                Return mAnz * mLänge
            End Get
        End Property
    End Class