Option Strict On
Option Explicit On
 
Public Module modListDemo
 
    Public Sub test()
        Dim a As Integer
        Dim Temperatur_Liste As New Temp_Daten_Liste
 
        'Liste mit Beispieldaten füllen
        For a = 1 To 5
            Dim Zeile As New Temp_Daten()
            Zeile.datum = Now
            Zeile.Fühlername = Temp_Daten.Fühler.Rücklauf
            Zeile.Temp_wert = 123 + a
            System.Threading.Thread.Sleep(200) 
            Temperatur_Liste.Add(Zeile)
        Next a
 
 
        For a = 1 To 5
            'Daten für eine Zeile im Listenobjekt zusammensammeln
            'Zeile.datum = #8/29/2008 7:27:15 PM#
            Dim Zeile As New Temp_Daten()
            Zeile.datum = Now
            Zeile.Fühlername = Temp_Daten.Fühler.Vorlauf
            'Zeile.Fühlername = Temp_Daten.Fühler.Boiler_vor
            Zeile.Temp_wert = 12 + a
            '1,2 sec verweilzeit
            System.Threading.Thread.Sleep(200) 
            Temperatur_Liste.Add(Zeile)
        Next a
 
        MsgBox("Anzahl Einträge in Liste = " & Temperatur_Liste.count.ToString)
        a = 1
        MsgBox("Test = " & Temperatur_Liste.Zeilen_inhalt_zurückgeben( _
          1).Temp_wert)
 
        Dim m As New System.Text.StringBuilder
        For a = 0 To Temperatur_Liste.count - 1
            m.Append("Wert = " & Temperatur_Liste(a).Temp_wert.ToString & _
              vbCrLf)
        Next a
        MsgBox(m.ToString)
    End Sub
 
    Public Class Temp_Daten
        Enum Fühler
            Vorlauf
            Rücklauf
            Boiler_vor
        End Enum
 
        Private m_datum As DateTime
        Private m_Temperatur As Integer
        Private m_Fühlername As Fühler
 
        Public Property Fühlername As Fühler
            Get
                Return m_Fühlername
            End Get
            Set(ByVal value As Fühler)
                m_Fühlername = value
            End Set
        End Property
 
        Public Property datum As DateTime
            Get
                Return m_datum
            End Get
            Set(ByVal value As DateTime)
                m_datum = value
            End Set
        End Property
 
        Public Property Temp_wert As Integer
            Get
                Return m_Temperatur
            End Get
            Set(ByVal value As Integer)
                m_Temperatur = value
            End Set
        End Property
 
    End Class
 
    Public Class Temp_Daten_Liste
        Private Temp_List As List(Of Temp_Daten)
        Public Sub New()
            'Neue Liste erstellen
            Temp_List = New List(Of Temp_Daten)
        End Sub
 
        Public Sub Add(ByVal Temp As Temp_Daten)
            'Datenzeile an Liste anfügen
            Temp_List.Add(Temp)
        End Sub
 
        Public Function IndexOf(ByVal temp As Temp_Daten) As Integer
            'bestimmte Zeile wieder ausgeben
            Return Temp_List.IndexOf(temp)
        End Function
 
        Default Public ReadOnly Property Zeilen_inhalt_zurückgeben _
            (ByVal index As Integer) As Temp_Daten
            Get
                'Inhalt einer Zeile aus der Liste zurückgeben
                Return Temp_List.Item(index)
            End Get
        End Property
 
 
        Public Function count() As Integer
            'Anzahl Einträge in Liste
            Return Temp_List.Count
        End Function
    End Class
 
End Module