Daftar Acak

Daftar acak biasanya digunakan mengacak urutan playlist (daftar putar) yang dikenal dengan fitur shuffle dalam aplikasi pemutar musik. Berikut ini ada beberapa metode untuk membuat daftar acak sesuai dengan kebutuhan Anda.

1. Metode ListBox
Ini adalah cara sederhana untuk mengacak item yang ada dalam kontrol ListBox. Buat sebuah Form dengan sebuah kontrol ListBox dan sebuah kontrol Tombol / Button. Isikan ListBox dengan beberapa item sebagai bahan percobaan. Kemudian di bagian klik Tombol ketikkan :

[ VB 6.0 ]

Dim i As Integer, j As Integer, s As String

For i = 0 To (List1.ListCount - 1)
Randomize
j = (List1.ListCount - 1) * Rnd
s = List1.List(i)
List1.List(i) = List1.List(j)
List1.List(j) = s
Next

[ VB .NET ]

Dim i, j As Integer, s As String

For i = 0 To (ListBox1.Items.Count - 1)
Randomize()
j = (ListBox1.Items.Count - 1) * Rnd()
s = ListBox1.Items(i)
ListBox1.Items(i) = ListBox1.Items(j)
ListBox1.Items(j) = s
Next

2. Metode Array
Metode ini diterapkan khusus ke dalam variabel Array. berikut ini contoh kodenya :

Dim ar(4) As Integer 'contoh variabel array
ar(0) = 1
ar(1) = 2
ar(2) = 3
ar(3) = 4
ar(4) = 5


'memulai proses pengacakan
Dim i As Integer, j As Integer, t
For i = 0 To UBound(ar)
Randomize
j = UBound(ar) * Rnd
t = ar(i)
ar(i) = ar(j)
ar(j) = t
Next
'akhir proses pengacakan


'menunjukkan contoh hasil pengacakan
MsgBox ar(0)