Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

allaylist(klassen) sortieren
Autor: Nachtritter
Datum: 08.02.05 15:14
hi alles zusammen, ich hab hier mal den code von nem beispiel rauskopiert . so mein problem ist nun wenn ihr ganz runter scrollt bei den function compare . vielleicht kann die mir wer erklären , wie ich des verstanden hab muss man da die werte angeben nach dene sortiert werden soll und genau liegt mein frage . Public Class Element Private m_intWeight As Integer Private m_intCost As Integer Private m_strName As String Public Sub New( _ ByVal intWeight As Integer, _ ByVal intCost As Integer, _ ByVal strName As String) m_intWeight = intWeight m_intCost = intCost m_strName = strName End Sub Public Property Weight() As Integer Get Return m_intWeight End Get Set(ByVal Value As Integer) m_intWeight = Value End Set End Property Public Property Cost() As Integer Get Return m_intCost End Get Set(ByVal Value As Integer) m_intCost = Value End Set End Property Public Property Name() As String Get Return m_strName End Get Set(ByVal Value As String) m_strName = Value End Set End Property End Class Public Class Main Public Shared Sub Main() Dim alst As ArrayList = New ArrayList() alst.Add(New Element(10, 100, "Hundekuchen")) alst.Add(New Element(100, 100, "Beissknochen")) alst.Add(New Element(20, 1000, "Knabberstab")) alst.Sort(New ValueComparer()) Dim i As Integer For i = 0 To alst.Count - 1 Dim el As Element = DirectCast(alst(i), Element) Console.WriteLine("Name: {0}, Nutzen: {1}", _ el.Name, el.Cost / el.Weight) Next i ' Liste leeren. alst.Clear() End Sub End Class Public Class ValueComparer Implements IComparer Public Function Compare( _ ByVal x As Object, _ ByVal y As Object) _ As Integer Implements IComparer.Compare Dim el1 As Element = DirectCast(x, Element) Dim el2 As Element = DirectCast(y, Element) Return CInt((el1.Cost / el1.Weight) - (el2.Cost / el2.Weight)) End Function End Class

allaylist(klassen) sortieren	1.296	Nachtritter	08.02.05 15:14
Re: allaylist(klassen) sortieren	936	Maywood	08.02.05 15:36
Re: allaylist(klassen) sortieren	894	Nachtritter	08.02.05 15:41
Re: allaylist(klassen) sortieren	1.043	Maywood	08.02.05 16:09
Re: allaylist(klassen) sortieren	858	Nachtritter	08.02.05 20:42
Re: allaylist(klassen) sortieren	917	Maywood	08.02.05 22:24
Re: allaylist(klassen) sortieren	1.321	Maywood	09.02.05 20:07
Re: allaylist(klassen) sortieren	797	Nachtritter	09.02.05 22:09

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übersicht

Suchen