Bagikan melalui

Koleksi (Visual Basic)

Untuk banyak aplikasi, Anda ingin membuat dan mengelola grup objek terkait. Ada dua cara untuk mengelompokkan objek: dengan membuat array objek, dan dengan membuat kumpulan objek.

Array paling berguna untuk membuat dan bekerja dengan jumlah tetap objek yang ditik dengan kuat. Untuk informasi tentang array, lihat Array.

Koleksi menyediakan cara yang lebih fleksibel untuk bekerja dengan sekelompok objek. Tidak seperti array, grup objek yang Anda kerjakan dapat tumbuh dan menyusut secara dinamis saat kebutuhan aplikasi berubah. Untuk beberapa koleksi, Anda dapat menetapkan kunci ke objek apa pun yang Anda masukkan ke dalam koleksi sehingga Anda dapat dengan cepat mengambil objek dengan menggunakan kunci.

Koleksi adalah kelas, jadi Anda harus mendeklarasikan instans kelas sebelum Anda dapat menambahkan elemen ke koleksi tersebut.

Jika koleksi Anda hanya berisi elemen dari satu jenis data, Anda dapat menggunakan salah satu kelas di System.Collections.Generic namespace. Koleksi generik memberlakukan keamanan jenis sehingga tidak ada jenis data lain yang dapat ditambahkan ke dalamnya. Saat Anda mengambil elemen dari koleksi generik, Anda tidak perlu menentukan jenis datanya atau mengonversinya.

Nota

Untuk contoh pada topik ini, sertakan pernyataan 'Imports' untuk namespace dan System.Collections.Generic.

Menggunakan Koleksi Sederhana

Contoh di bagian ini menggunakan kelas generik List<T>, yang memungkinkan Anda bekerja dengan daftar objek yang bertipe kuat.

Contoh berikut membuat daftar string lalu melakukan iterasi melalui string dengan menggunakan Untuk Setiap... Pernyataan berikutnya .

' Create a list of strings.
Dim salmons As New List(Of String)
salmons.Add("chinook")
salmons.Add("coho")
salmons.Add("pink")
salmons.Add("sockeye")

' Iterate through the list.
For Each salmon As String In salmons
    Console.Write(salmon & " ")
Next
'Output: chinook coho pink sockeye

Jika konten koleksi diketahui sebelumnya, Anda dapat menggunakan penginisialisasi koleksi untuk menginisialisasi koleksi. Untuk informasi selengkapnya, lihat Penginisialisasi Koleksi.

Contoh berikut sama dengan contoh sebelumnya, kecuali penginisialisasi koleksi digunakan untuk menambahkan elemen ke koleksi.

' Create a list of strings by using a
' collection initializer.
Dim salmons As New List(Of String) From
    {"chinook", "coho", "pink", "sockeye"}

For Each salmon As String In salmons
    Console.Write(salmon & " ")
Next
'Output: chinook coho pink sockeye

Anda dapat menggunakan For…Next statement alih-alih For Each statement untuk mengulangi koleksi. Anda menyelesaikan ini dengan mengakses elemen koleksi berdasarkan posisi indeks. Indeks elemen dimulai pada 0 dan berakhir pada jumlah elemen minus 1.

Contoh berikut berulang melalui elemen koleksi dengan menggunakan For…Next alih-alih For Each.

Dim salmons As New List(Of String) From
    {"chinook", "coho", "pink", "sockeye"}

For index = 0 To salmons.Count - 1
    Console.Write(salmons(index) & " ")
Next
'Output: chinook coho pink sockeye

Contoh berikut menghapus elemen dari koleksi dengan menentukan objek yang akan dihapus.

' Create a list of strings by using a
' collection initializer.
Dim salmons As New List(Of String) From
    {"chinook", "coho", "pink", "sockeye"}

' Remove an element in the list by specifying
' the object.
salmons.Remove("coho")

For Each salmon As String In salmons
    Console.Write(salmon & " ")
Next
'Output: chinook pink sockeye

Contoh berikut menghapus elemen dari daftar generik. Alih-alih menggunakan pernyataan For Each, pernyataan For…Next yang melakukan iterasi dalam urutan menurun digunakan. Ini karena metode ini RemoveAt menyebabkan elemen setelah elemen yang dihapus memiliki nilai indeks yang lebih rendah.

Dim numbers As New List(Of Integer) From
    {0, 1, 2, 3, 4, 5, 6, 7, 8, 9}

' Remove odd numbers.
For index As Integer = numbers.Count - 1 To 0 Step -1
    If numbers(index) Mod 2 = 1 Then
        ' Remove the element by specifying
        ' the zero-based index in the list.
        numbers.RemoveAt(index)
    End If
Next

' Iterate through the list.
' A lambda expression is placed in the ForEach method
' of the List(T) object.
numbers.ForEach(
    Sub(number) Console.Write(number & " "))
' Output: 0 2 4 6 8

Untuk jenis elemen di List<T>, Anda juga dapat menentukan kelas Anda sendiri. Dalam contoh berikut, Galaxy kelas yang digunakan oleh List<T> ditentukan dalam kode.

Private Sub IterateThroughList()
    Dim theGalaxies As New List(Of Galaxy) From
        {
            New Galaxy With {.Name = "Tadpole", .MegaLightYears = 400},
            New Galaxy With {.Name = "Pinwheel", .MegaLightYears = 25},
            New Galaxy With {.Name = "Milky Way", .MegaLightYears = 0},
            New Galaxy With {.Name = "Andromeda", .MegaLightYears = 3}
        }

    For Each theGalaxy In theGalaxies
        With theGalaxy
            Console.WriteLine(.Name & "  " & .MegaLightYears)
        End With
    Next

    ' Output:
    '  Tadpole  400
    '  Pinwheel  25
    '  Milky Way  0
    '  Andromeda  3
End Sub

Public Class Galaxy
    Public Property Name As String
    Public Property MegaLightYears As Integer
End Class

Jenis Koleksi

Banyak koleksi umum disediakan oleh .NET Framework. Setiap jenis koleksi dirancang untuk tujuan tertentu.

Beberapa kelas koleksi umum dijelaskan di bagian ini:

Kelas 'System.Collections.Generic'

Anda dapat membuat koleksi generik dengan menggunakan salah satu kelas di System.Collections.Generic namespace. Koleksi generik berguna ketika setiap item dalam koleksi memiliki jenis data yang sama. Koleksi generik memberlakukan pengetikan yang kuat dengan hanya memungkinkan jenis data yang diinginkan untuk ditambahkan.

Tabel berikut ini mencantumkan beberapa kelas namespace yang System.Collections.Generic sering digunakan:

Kelas Deskripsi
Dictionary<TKey,TValue> Mewakili kumpulan pasangan kunci/nilai yang diatur berdasarkan kunci.
List<T> Mewakili daftar objek yang dapat diakses oleh indeks. Menyediakan metode untuk mencari, mengurutkan, dan mengubah daftar.
Queue<T> Mewakili kumpulan objek pertama masuk, pertama keluar (FIFO).
SortedList<TKey,TValue> Mewakili kumpulan pasangan kunci/nilai yang diurutkan menurut kunci berdasarkan implementasi terkait IComparer<T> .
Stack<T> Mewakili kumpulan objek dengan prinsip masuk terakhir, keluar pertama (LIFO).

Untuk informasi tambahan, lihat Jenis Koleksi yang Umum Digunakan, Memilih Kelas Koleksi, dan System.Collections.Generic.

Kelas System.Collections.Concurrent

Di .NET Framework 4 atau yang lebih baru, koleksi di System.Collections.Concurrent namespace menyediakan operasi aman utas yang efisien untuk mengakses item koleksi dari beberapa utas.

Kelas di System.Collections.Concurrent namespace harus digunakan alih-alih jenis yang sesuai di System.Collections.Generic dan System.Collections namespace setiap kali beberapa thread mengakses koleksi secara bersamaan. Untuk informasi selengkapnya, lihat KoleksiThread-Safe dan System.Collections.Concurrent.

Beberapa kelas yang disertakan dalam System.Collections.Concurrent namespace adalah BlockingCollection<T>, ConcurrentDictionary<TKey,TValue>, ConcurrentQueue<T>, dan ConcurrentStack<T>.

Kelas-Kelas System.Collections

Kelas dalam System.Collections namespace tidak menyimpan elemen sebagai objek yang ditik khusus, melainkan sebagai objek dari jenis Object.

Jika memungkinkan, Anda harus menggunakan koleksi generik di namespace System.Collections.Generic atau namespace System.Collections.Concurrent daripada jenis lama di namespace System.Collections.

Tabel berikut ini mencantumkan beberapa kelas yang sering digunakan di System.Collections namespace:

Kelas Deskripsi
ArrayList Mewakili array objek yang ukurannya ditingkatkan secara dinamis sesuai kebutuhan.
Hashtable Mewakili koleksi pasangan kunci/ nilai yang diatur berdasarkan kode hash kunci.
Queue Mewakili kumpulan objek pertama masuk, pertama keluar (FIFO).
Stack Mewakili kumpulan objek dengan prinsip masuk terakhir, keluar pertama (LIFO).

Ruang nama System.Collections.Specialized menyediakan kelas koleksi khusus yang terdefinisi dengan ketat, seperti koleksi khusus string, daftar tertaut, dan kamus hibrida.

Kelas Koleksi Visual Basic

Anda dapat menggunakan kelas Visual Basic Collection untuk mengakses item koleksi dengan menggunakan indeks numerik atau String kunci. Anda dapat menambahkan item ke objek koleksi baik dengan atau tanpa menentukan kunci. Jika Anda menambahkan item tanpa kunci, Anda harus menggunakan indeks numeriknya untuk mengaksesnya.

Kelas Visual Basic Collection menyimpan semua elemennya sebagai jenis Object, sehingga Anda dapat menambahkan item dari jenis data apa pun. Tidak ada perlindungan terhadap jenis data yang tidak pantas yang ditambahkan.

Saat Anda menggunakan kelas Visual Basic Collection , item pertama dalam koleksi memiliki indeks 1. Ini berbeda dari kelas koleksi .NET Framework, yang indeks awalnya adalah 0.

Jika memungkinkan, Anda harus menggunakan koleksi generik di System.Collections.Generic namespace atau System.Collections.Concurrent namespace, bukan kelas Collection Visual Basic.

Untuk informasi selengkapnya, lihat Collection .

Menerapkan Kumpulan Pasangan Kunci/Nilai

Koleksi Dictionary<TKey,TValue> generik memungkinkan Anda mengakses elemen dalam koleksi dengan menggunakan kunci setiap elemen. Setiap penambahan pada kamus terdiri dari nilai dan kunci terkait. Mengambil nilai dengan menggunakan kuncinya cepat karena Dictionary kelas diimplementasikan sebagai tabel hash.

Contoh berikut membuat koleksi Dictionary dan mengiterasi kamus dengan menggunakan For Each instruksi.

Private Sub IterateThroughDictionary()
    Dim elements As Dictionary(Of String, Element) = BuildDictionary()

    For Each kvp As KeyValuePair(Of String, Element) In elements
        Dim theElement As Element = kvp.Value

        Console.WriteLine("key: " & kvp.Key)
        With theElement
            Console.WriteLine("values: " & .Symbol & " " &
                .Name & " " & .AtomicNumber)
        End With
    Next
End Sub

Private Function BuildDictionary() As Dictionary(Of String, Element)
    Dim elements As New Dictionary(Of String, Element)

    AddToDictionary(elements, "K", "Potassium", 19)
    AddToDictionary(elements, "Ca", "Calcium", 20)
    AddToDictionary(elements, "Sc", "Scandium", 21)
    AddToDictionary(elements, "Ti", "Titanium", 22)

    Return elements
End Function

Private Sub AddToDictionary(ByVal elements As Dictionary(Of String, Element),
ByVal symbol As String, ByVal name As String, ByVal atomicNumber As Integer)
    Dim theElement As New Element

    theElement.Symbol = symbol
    theElement.Name = name
    theElement.AtomicNumber = atomicNumber

    elements.Add(Key:=theElement.Symbol, value:=theElement)
End Sub

Public Class Element
    Public Property Symbol As String
    Public Property Name As String
    Public Property AtomicNumber As Integer
End Class

Sebagai alternatif, untuk menggunakan penginisialisasi koleksi guna membangun koleksi Dictionary, Anda dapat mengganti metode BuildDictionary dan AddToDictionary dengan metode berikut.

Private Function BuildDictionary2() As Dictionary(Of String, Element)
    Return New Dictionary(Of String, Element) From
        {
            {"K", New Element With
                {.Symbol = "K", .Name = "Potassium", .AtomicNumber = 19}},
            {"Ca", New Element With
                {.Symbol = "Ca", .Name = "Calcium", .AtomicNumber = 20}},
            {"Sc", New Element With
                {.Symbol = "Sc", .Name = "Scandium", .AtomicNumber = 21}},
            {"Ti", New Element With
                {.Symbol = "Ti", .Name = "Titanium", .AtomicNumber = 22}}
        }
End Function

Contoh berikut menggunakan metode ContainsKey dan properti Item[] dari Dictionary untuk dengan cepat menemukan item berdasarkan kunci. Properti Item memungkinkan Anda mengakses item dalam elements koleksi dengan menggunakan elements(symbol) kode di Visual Basic.

Private Sub FindInDictionary(ByVal symbol As String)
    Dim elements As Dictionary(Of String, Element) = BuildDictionary()

    If elements.ContainsKey(symbol) = False Then
        Console.WriteLine(symbol & " not found")
    Else
        Dim theElement = elements(symbol)
        Console.WriteLine("found: " & theElement.Name)
    End If
End Sub

Contoh berikut menggunakan metode TryGetValue untuk cepat menemukan item berdasarkan kunci.

Private Sub FindInDictionary2(ByVal symbol As String)
    Dim elements As Dictionary(Of String, Element) = BuildDictionary()

    Dim theElement As Element = Nothing
    If elements.TryGetValue(symbol, theElement) = False Then
        Console.WriteLine(symbol & " not found")
    Else
        Console.WriteLine("found: " & theElement.Name)
    End If
End Sub

Menggunakan LINQ untuk Mengakses Koleksi

LINQ (Language-Integrated Query) dapat digunakan untuk mengakses koleksi. Kueri LINQ menyediakan kemampuan pemfilteran, pemesanan, dan pengelompokan. Untuk informasi selengkapnya, lihat Mulai menggunakan LINQ di Visual Basic.

Contoh berikut menjalankan kueri LINQ terhadap generik List. Kueri LINQ mengembalikan koleksi berbeda yang berisi hasilnya.

Private Sub ShowLINQ()
    Dim elements As List(Of Element) = BuildList()

    ' LINQ Query.
    Dim subset = From theElement In elements
                  Where theElement.AtomicNumber < 22
                  Order By theElement.Name

    For Each theElement In subset
        Console.WriteLine(theElement.Name & " " & theElement.AtomicNumber)
    Next

    ' Output:
    '  Calcium 20
    '  Potassium 19
    '  Scandium 21
End Sub

Private Function BuildList() As List(Of Element)
    Return New List(Of Element) From
        {
            {New Element With
                {.Symbol = "K", .Name = "Potassium", .AtomicNumber = 19}},
            {New Element With
                {.Symbol = "Ca", .Name = "Calcium", .AtomicNumber = 20}},
            {New Element With
                {.Symbol = "Sc", .Name = "Scandium", .AtomicNumber = 21}},
            {New Element With
                {.Symbol = "Ti", .Name = "Titanium", .AtomicNumber = 22}}
        }
End Function

Public Class Element
    Public Property Symbol As String
    Public Property Name As String
    Public Property AtomicNumber As Integer
End Class

Mengurutkan Koleksi

Contoh berikut mengilustrasikan prosedur untuk mengurutkan koleksi. Contoh mengurutkan instansasi dari kelas Car yang disimpan dalam List<T>. Kelas Car mengimplementasikan antarmuka IComparable<T>, yang mengharuskan metode CompareTo diimplementasikan.

Setiap panggilan ke metode CompareTo melakukan perbandingan tunggal yang digunakan untuk mengurutkan. Kode yang ditulis pengguna dalam CompareTo metode mengembalikan nilai untuk setiap perbandingan objek saat ini dengan objek lain. Nilai yang dikembalikan kurang dari nol jika objek saat ini kurang dari objek lain, lebih besar dari nol jika objek saat ini lebih besar dari objek lainnya, dan nol jika sama. Ini memungkinkan Anda menentukan dalam kode kriteria untuk lebih besar dari, kurang dari, dan sama dengan.

Dalam metode ListCars, pernyataan cars.Sort() mengurutkan daftar. Panggilan ini ke metode Sort dari List<T> menyebabkan metode CompareTo dipanggil secara otomatis pada objek Car di dalam List.

Public Sub ListCars()

    ' Create some new cars.
    Dim cars As New List(Of Car) From
    {
        New Car With {.Name = "car1", .Color = "blue", .Speed = 20},
        New Car With {.Name = "car2", .Color = "red", .Speed = 50},
        New Car With {.Name = "car3", .Color = "green", .Speed = 10},
        New Car With {.Name = "car4", .Color = "blue", .Speed = 50},
        New Car With {.Name = "car5", .Color = "blue", .Speed = 30},
        New Car With {.Name = "car6", .Color = "red", .Speed = 60},
        New Car With {.Name = "car7", .Color = "green", .Speed = 50}
    }

    ' Sort the cars by color alphabetically, and then by speed
    ' in descending order.
    cars.Sort()

    ' View all of the cars.
    For Each thisCar As Car In cars
        Console.Write(thisCar.Color.PadRight(5) & " ")
        Console.Write(thisCar.Speed.ToString & " ")
        Console.Write(thisCar.Name)
        Console.WriteLine()
    Next

    ' Output:
    '  blue  50 car4
    '  blue  30 car5
    '  blue  20 car1
    '  green 50 car7
    '  green 10 car3
    '  red   60 car6
    '  red   50 car2
End Sub

Public Class Car
    Implements IComparable(Of Car)

    Public Property Name As String
    Public Property Speed As Integer
    Public Property Color As String

    Public Function CompareTo(ByVal other As Car) As Integer _
        Implements System.IComparable(Of Car).CompareTo
        ' A call to this method makes a single comparison that is
        ' used for sorting.

        ' Determine the relative order of the objects being compared.
        ' Sort by color alphabetically, and then by speed in
        ' descending order.

        ' Compare the colors.
        Dim compare As Integer
        compare = String.Compare(Me.Color, other.Color, True)

        ' If the colors are the same, compare the speeds.
        If compare = 0 Then
            compare = Me.Speed.CompareTo(other.Speed)

            ' Use descending order for speed.
            compare = -compare
        End If

        Return compare
    End Function
End Class

Menentukan Koleksi Kustom

Anda dapat menentukan koleksi dengan menerapkan IEnumerable<T> antarmuka atau IEnumerable . Untuk informasi tambahan, lihat Menghitung Koleksi.

Meskipun Anda dapat menentukan koleksi kustom, biasanya lebih baik menggunakan koleksi yang disertakan dalam .NET Framework, yang dijelaskan dalam Jenis Koleksi sebelumnya dalam topik ini.

Contoh berikut mendefinisikan kelas koleksi kustom bernama AllColors. Kelas ini mengimplementasikan antarmuka IEnumerable, yang mengharuskan metode GetEnumerator diimplementasikan.

Metode mengembalikan GetEnumerator instans ColorEnumerator kelas. ColorEnumerator mengimplementasikan antarmuka IEnumerator, yang mengharuskan properti Current, metode MoveNext, dan metode Reset diimplementasikan.

Public Sub ListColors()
    Dim colors As New AllColors()

    For Each theColor As Color In colors
        Console.Write(theColor.Name & " ")
    Next
    Console.WriteLine()
    ' Output: red blue green
End Sub

' Collection class.
Public Class AllColors
    Implements System.Collections.IEnumerable

    Private _colors() As Color =
    {
        New Color With {.Name = "red"},
        New Color With {.Name = "blue"},
        New Color With {.Name = "green"}
    }

    Public Function GetEnumerator() As System.Collections.IEnumerator _
        Implements System.Collections.IEnumerable.GetEnumerator

        Return New ColorEnumerator(_colors)

        ' Instead of creating a custom enumerator, you could
        ' use the GetEnumerator of the array.
        'Return _colors.GetEnumerator
    End Function

    ' Custom enumerator.
    Private Class ColorEnumerator
        Implements System.Collections.IEnumerator

        Private _colors() As Color
        Private _position As Integer = -1

        Public Sub New(ByVal colors() As Color)
            _colors = colors
        End Sub

        Public ReadOnly Property Current() As Object _
            Implements System.Collections.IEnumerator.Current
            Get
                Return _colors(_position)
            End Get
        End Property

        Public Function MoveNext() As Boolean _
            Implements System.Collections.IEnumerator.MoveNext
            _position += 1
            Return (_position < _colors.Length)
        End Function

        Public Sub Reset() Implements System.Collections.IEnumerator.Reset
            _position = -1
        End Sub
    End Class
End Class

' Element class.
Public Class Color
    Public Property Name As String
End Class

Iterator

Iterator digunakan untuk melakukan iterasi kustom atas koleksi. Iterator dapat berupa metode atau get aksesor. Iterator menggunakan pernyataan Yield untuk mengembalikan setiap elemen koleksi satu per satu.

Anda memanggil iterator dengan menggunakan For Each…Next statement. Setiap iterasi dari perulangan For Each memanggil iterator. Yield Ketika pernyataan tercapai di iterator, ekspresi dikembalikan, dan lokasi saat ini dalam kode dipertahankan. Eksekusi dimulai ulang dari lokasi tersebut saat berikutnya iterator dipanggil.

Untuk informasi selengkapnya, lihat Iterator (Visual Basic).

Contoh berikut menggunakan metode iterator. Metode iterator memiliki Yield pernyataan yang ada di dalam For…Next loop. Dalam metode ListEvenNumbers, setiap iterasi dari isi pernyataan For Each membuat panggilan ke metode iterator, yang melanjutkan ke pernyataan berikutnya Yield.

Public Sub ListEvenNumbers()
    For Each number As Integer In EvenSequence(5, 18)
        Console.Write(number & " ")
    Next
    Console.WriteLine()
    ' Output: 6 8 10 12 14 16 18
End Sub

Private Iterator Function EvenSequence(
ByVal firstNumber As Integer, ByVal lastNumber As Integer) _
As IEnumerable(Of Integer)

' Yield even numbers in the range.
    For number = firstNumber To lastNumber
        If number Mod 2 = 0 Then
            Yield number
        End If
    Next
End Function

Lihat juga

  • Last updated on