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)

Prosedur Beep

Prosedur Beep merupakan suatu prosedur yang digunakan untuk memutar suara beep secara langsung. Biasanya prosedur ini digunakan untuk mempertegas sebuah informasi yang ditampilkan. Berikut ini adalah varian dari Prosedur Beep yang bisa Anda gunakan :

1. Beep Standar
Beep ini adalah beep standar yang sudah menjadi bawaan VB.

Beep

2. Beep Internal
Beep ini menggunakan speaker internal yang biasanya terdapat dalam CPU. Beep ini dapat diatur frekuensi dan durasinya.

[ VB 6.0 ]
Di bagian '(Declarations)' dari form ketikkan :

Private Declare Function cBeep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Untuk menggunakannya ketikkan :

cBeep 1000, 100

[ VB .NET ]

System.Console.Beep(1000, 100)

3. Beep MsgBox
Beep ini merupakan beep yang sama ketika sebuah MessageBox (MsgBox) / kotak pesan muncul. Buat sebuah Module dan ketikkan :

Public Declare Function MessageBeep Lib "user32.dll" (ByVal wType As Integer) As Integer

Misalnya Anda ingin menggunakan beep seperti di MsgBox tipe Information, maka ketiikkan :

MessageBeep vbInformation

Form Notifikasi / Pemberitahuan

Form notifikasi / pemberitahuan adalah form yang digunakan untuk memberitahukan informasi tertentu. Form ini akan muncul secara slide di bagian kanan bawah layar.
Contoh aplikasi yang menggunakannya adalah aplikasi antivirus SMADAV, yang akan memunculkan form notifikasi ketika mendeteksi sebuah flash drive baru.
Download contoh source code-nya disini.