Share via

Koleksi (Visual Basic)

  • Artikel

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 sejumlah tetap dari tipe objek. Untuk informasi tentang array, lihat Array.

Collection menyediakan cara yang lebih fleksibel untuk bekerja dengan kelompok objek. Tidak seperti array, grup objek yang Anda kerjakan dapat berkembang dan menyusut secara dinamis seiring perubahan kebutuhan aplikasi. Untuk beberapa collection, Anda dapat menugaskan key ke objek apa pun yang Anda masukkan ke dalam collection sehingga Anda dapat dengan cepat mengambil objek dengan menggunakan key.

Koleksi merupakan kelas, jadi Anda harus menyatakan instans kelas sebelum Anda dapat menambahkan elemen ke koleksi tersebut.

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

Catatan

Untuk contoh dalam topik ini, sertakan pernyataan Impor untuk namespace System.Collections.Generic dan System.Linq.

Penggunaan Koleksi Sederhana

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

Contoh berikut membuat daftar string lalu melakukan perulangan melalui string tersebut dengan menggunakan pernyataan Untuk Setiap...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 terlebih dahulu, 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 pernyataan Untuk...Berikutnya alih-alih pernyataan For Each untuk mengulang melalui koleksi. Anda dapat mencapai ini dengan mengakses elemen koleksi berdasarkan posisi indeks. Indeks elemen dimulai dari 0 dan berakhir pada jumlah elemen minus 1.

Contoh berikut mengulang 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 semua elemen dari daftar generik. Alih-alih pernyataan For Each, pernyataan Untuk...Berikutnya yang mengulang dalam urutan menurun yang digunakan. Ini karena metode RemoveAt menyebabkan elemen-elemen setelah penghapusan sebuah elemen 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 dalam List<T>, Anda juga dapat menentukan kelas Anda sendiri. Dalam contoh berikut, kelas Galaxy 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 yang disediakan oleh .NET Framework. Setiap jenis koleksi dirancang untuk tujuan tertentu.

Beberapa kelas koleksi umum dijelaskan dalam bagian ini:

Kelas System.Collections.Generic

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

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

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

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

Kelas System.Collections.Concurrent

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

Kelas dalam namespace layanan System.Collections.Concurrent yang harus digunakan alih-alih jenis yang sesuai dalam namespace layanan System.Collections.Generic dan System.Collections setiap kali beberapa utas mengakses koleksi secara bersamaan. Untuk informasi selengkapnya, lihat Koleksi yang Aman untuk Utas dan System.Collections.Concurrent.

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

Kelas System.Collections

Kelas dalam namespace System.Collections tidak menyimpan elemen sebagai objek berjenis secara khusus, tetapi sebagai objek jenis Object.

Jika memungkinkan, Anda harus menggunakan koleksi generik dalam namespace System.Collections.Generic atau namespace System.Collections.Concurrent alih-alih jenis lama dalam namespace System.Collections.

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

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

Namespace layanan System.Collections.Specialized menyediakan kelas koleksi yang diketik khusus dan kuat, seperti koleksi khusus string dan kamus daftar tertaut serta hibrid.

Kelas Koleksi Visual Basic

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

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

Ketika Anda menggunakan kelas Collection Visual Basic, 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 dalam namespace System.Collections.Generic atau namespace System.Collections.Concurrent alih-alih kelas Collection Visual Basic.

Untuk informasi selengkapnya, lihat Collection .

Penerapan Kumpulan Pasangan Kunci/ Nilai

Koleksi generik Dictionary<TKey,TValue> memungkinkan Anda mengakses elemen dalam koleksi dengan menggunakan kunci setiap elemen. Setiap penambahan ke kamus terdiri dari nilai dan kunci terkaitnya. Pengambilan nilai dengan menggunakan kuncinya berlangsung cepat karena kelas Dictionary diterapkan sebagai tabel hash.

Contoh berikut membuat koleksi Dictionary dan mengulang melalui kamus dengan menggunakan pernyataan For Each.

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

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 dapat dengan cepat menemukan item berdasarkan kunci. Properti Item memungkinkan Anda mengakses item dalam koleksi elements dengan menggunakan kode elements(symbol) dalam 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 dapat dengan 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

Penggunaan LINQ untuk Mengakses Koleksi

LINQ (Kueri Terintegrasi Bahasa) dapat digunakan untuk mengakses koleksi. Kueri LINQ menyediakan kemampuan pemfilteran, pengurutan, dan pengelompokan. Untuk informasi selengkapnya, lihat Mulai menggunakan LINQ dalam Visual Basic.

Contoh berikut menjalankan kueri LINQ terhadap List generik. Kueri LINQ menampilkan 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

Pengurutan Koleksi

Contoh berikut mengilustrasikan prosedur untuk mengurutkan koleksi. Contoh tersebut mengurutkan instans kelas Car yang disimpan dalam List<T>. Kelas Car menerapkan antarmuka IComparable<T>, yang mengharuskan metode CompareTo untuk diterapkan.

Setiap panggilan ke metode CompareTo membuat perbandingan tunggal yang digunakan untuk pengurutan. Kode yang ditulis pengguna dalam metode CompareTo mengembalikan nilai untuk setiap perbandingan objek saat ini dengan objek lain. Nilai yang ditampilkan menjadi kurang dari nol jika objek saat ini kurang dari objek lainnya, menjadi lebih dari nol jika objek saat ini lebih besar dari objek lainnya, dan menjadi nol jika besarnya sama. Ini memungkinkan Anda untuk menentukan dalam kode kriteria yang lebih 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 untuk objek Car di 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

Penentuan Koleksi Kustom

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

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

Contoh berikut menentukan kelas koleksi kustom dengan nama AllColors. Kelas ini menerapkan antarmuka IEnumerable, yang mengharuskan penerapan metode GetEnumerator.

Metode GetEnumerator menampilkan instans kelas ColorEnumerator. ColorEnumerator menerapkan antarmuka IEnumerator, yang mengharuskan penerapan properti Current, metode MoveNext, dan metode Reset.

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

Pengulang digunakan untuk melakukan perulangan kustom terhadap koleksi. Iterator dapat menjadi metode atau pengakses get. Iterator menggunakan pernyataan Yield untuk mengembalikan setiap elemen koleksi satu per satu.

Anda memanggil fungsi pengulang dengan menggunakan pernyataan Untuk Setiap...Berikutnya. Setiap perulangan dari perulangan For Each akan memanggil pengulang. Ketika pernyataan Yield tercapai dalam pengulang, ekspresi akan ditampilkan, dan lokasi dalam kode saat ini akan dipertahankan. Eksekusi dimulai ulang dari lokasi tersebut saat iterator dipanggil lain kali.

Untuk informasi selengkapnya, lihat Pengulang (Visual Basic).

Contoh berikut menggunakan metode pengulang. Fungsi pengulang memiliki pernyataan Yield yang ada di dalam pengulangan Untuk...Berikutnya. Dalam metode ListEvenNumbers, setiap iterasi dari isi pernyataan For Each membuat panggilan ke metode iterator, yang akan berlanjut ke pernyataan Yield berikutnya.

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