Dalam pembahasan ihwal perulangan/loop kita menggunakan array dalam pola masalah. Apa itu array?
- Array ialah kumpulan unsur dengan tipe yang sama.
- Array biasanya menyimpan sekumpulan data, namun kita akan lebih mudah mengerti kalau menyaksikan array sebagai sekumpulan variable.
- Array mampu berupa 1 dimensi dan multi dimensi.
- Kita bisa menentukan dimensi/ukuran array di permulaan ataupun membuatnya menjadi Dynamic Array.
Untuk mengerti array mari kita lihat pola berikut:
Dim intNumber(5) As Integer
Contoh diatas merupakan pendeklarasian array dengan 6 unsur. Penomoran elemen mulai dari angka 0 sampai 5.
Untuk mendekalarikan array dalam VB.NET kita memakai pernyataan Dim.
Contoh:
Dim intVar(4) As Integer ' array dengan 5 komponen integer
Dim strVar(10) As String ' array dengan 10 bagian strings
Dim intDua (3, 4) As Integer ' array dua dimensi bertipe integer
Dim strTiga(3,5,2) As String ' array tiga dimensi bertipe strings
Kita juga mampu pribadi memberi nilai pada array di awal deklarasi.
Contoh:
Dim strHari(6) As String = "Senin", "Selasa", "Rabu", "Kamis", _
"Jumat", "Sabtu", "Minggu"
Dim intTiga(3) As Integer = 1, 2, 3
Dim intVar() As Integer = 2, 3, 5, 7, 13, 17
Dim strVar() As String = "Andi", "Bani", "Cinta", "Doni", "Eka"
Dim miscVar() As Object = "Welcome", 12d, 16ui, "R"c
Nilai array mampu disimpan dan diakses dengan memakai index array tersebut.
Contoh:
UI:
Code:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Button1.Text = "Start Loop!"
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim arr(4) As Integer
arr(0) = 80
arr(1) = 75
arr(2) = 92
arr(3) = 66
arr(4) = 78
For i As Integer = 0 To arr.GetUpperBound(0)
ListBox1.Items.Add("Elemen " & i + 1 & " bernilai " & arr(i))
Next
End Sub
End Class
Runtime:
Seperti sudah disinggung di awal postingan, array mampu memiliki ukuran yang fleksibel dengan Dynamic Array. Ukuran array mampu diubah dengan mengunakan sintaks ReDim.
Sintaks
ReDim [Preserve] namaarray(subscript)
Keterangan:
Preserve ialah instruksi untuk mempertahankan nilai array yang dideklarasikan dan diberi nilai sebelumnya, saat kita mengganti ukuran.
namaarray ialah nama array yang mau diubah ukurannya.
subscripts merupakan ukuran/dimensi baru.
Contoh:
UI:
Code:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Button1.Text = "Start Loop!"
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim arr() As Integer
ReDim arr(2)
arr(0) = 85
arr(1) = 75
arr(2) = 90
ReDim Preserve arr(8)
arr(3) = 80
arr(4) = 76
arr(5) = 92
arr(6) = 99
arr(7) = 79
arr(8) = 75
For i As Integer = 0 To arr.GetUpperBound(0)
ListBox1.Items.Add("Elemen " & i + 1 & " bernilai " & arr(i))
Next i
End Sub
End Class
Runtime:
Kita dapat memakai IndexOf untuk mendapatkan index dari array berdasarkan nilai (value) dari array tersebut.
Contoh:
UI:
Code:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Button1.Text = "Cari Index"
TextBox1.Text = 5
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim arr(5) As Integer
arr(0) = 7
arr(1) = 3
arr(2) = 5
arr(3) = 4
arr(4) = 8
arr(5) = 9
Dim ind As Integer = Array.IndexOf(arr, 5)
MsgBox("Indeks array nilai " & TextBox1.Text & " adalah " & ind.ToString)
End Sub
End Class
Runtime:
Click here if you like this article.
Sumber http://rani-irsan.blogspot.com
EmoticonEmoticon