vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Brandneu! sevEingabe v3.0 - Das Eingabecontrol der Superlative!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Collection Enum Probleme beim hinzufügen von Listen Einträge 
Autor: frankuc45
Datum: 30.10.14 08:59

 
n,

ich bin neu hier. Ich versuche eine List mit Daten zu füllen.
Für den Test möchte ich 2 * 5 Einträge in die Liste legen.
Um die 10 Einträge zu unterscheiden habe ich eine Sleep Zeit eingebaut und Zähle den Temp_wert hoch
Mein Problem ist damit alle Werte nach dem durchlaufen der beiden Schleifen immer gleich sind
Ich blick aber nicht warum.

Kann mir bitte jemand Helfen.
Ich hänge den Beispielcode an.

Dim a As Integer
Dim Temperatur_Liste As New Temp_Daten_Liste
Dim Zeile = New Temp_Daten()
'Liste mit Beispieldaten füllen
For a = 1 To 5
'Daten für eine Zeile im Listenobjekt zusammensammeln
'Zeile.datum = #8/29/2008 7:27:15 PM#
Zeile.datum = Now
Zeile.Fühlername = Temp_Daten.Fühler.Rücklauf
'Zeile.Fühlername = Temp_Daten.Fühler.Boiler_vor
Zeile.Temp_wert = 123 + a
'1,2 sec verweilzeit
System.Threading.Thread.Sleep(200) 'Nur damit ich ev. unterschiede in der Liste sehe
'Zeile mit den gesammelten Daten an in die Liste eintragen
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#
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) 'Nur damit ich ev. unterschiede in der Liste sehe
'Zeile mit den gesammelten Daten an in die Liste eintragen
Temperatur_Liste.Add(Zeile)
Next a
MsgBox("Anzahl Einträge in Liste = " & Temperatur_Liste.count)
a = 1
MsgBox("Test = " & Temperatur_Liste.Zeilen_inhalt_zurückgeben(1).Temp_wert)
For a = 1 To 10
MsgBox("Wert = " & Temperatur_Liste.IndexOf(a) & vbCrLf)
Next a

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 ArrayList
Public Sub New()
'Neue Liste erstellen
Temp_List = New ArrayList()
End Sub
Public Function Add(ByVal Temp_Daten)
'Datenzeile an Liste anfügen
Return Temp_List.Add(Temp_Daten)
End Function



'Public Function Add(ByVal Temp_Zeile As Temp_Daten)
' 'Datenzeile an Liste anfügen
' Return Temp_List.Add(Temp_Zeile)
'End Function
Public Function IndexOf(ByVal nummer As Integer)
'bestimmte Zeile wieder ausgeben
Return Temp_List.IndexOf(nummer)
End Function
Public Function Zeilen_inhalt_zurückgeben(ByVal nummer As Integer) As Temp_Daten
'Inhalt einer Zeile aus der Liste zurückgeben
Return Temp_List.Item(nummer)
End Function
Public Function count()
'Anzahl Einträge in Liste
Return Temp_List.Count
End Function
End Class

Vielen Dank
Gruß Frankuc45

Vielen Dank für Eure Hilfe

Gruß Frankuc45

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Collection Enum Probleme beim hinzufügen von Listen Einträge1.366frankuc4530.10.14 08:59
Re: Collection Enum Probleme beim hinzufügen von Listen Eint...922Manfred X30.10.14 13:15
Re: Collection Enum Probleme beim hinzufügen von Listen Eint...857frankuc4530.10.14 14:53

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel