Membuat Angka Acak (VB 6.0)

Berikut ini saya bagikan lagi sebuah kode program untuk Mengacak Angka dengan VB 6.0 (Visual Basic 6.0). Ok, karena saya tidak suka bertele-tele nih langsung simak cara membuatnya.

Berikut cara pembuatannya:

1. Buat Project VB 6.0 baru.
2. Pada Form yang aktif tambahkan 1 Textbox dan 1 Commandbutton.
3. Atur Properties Textbox dengan Name=txtBil.
4. Atur Properties Commandbutton dengan Name=cmdAcak dan Caption=Angka Acak.
5. Double klik tombol "Angka Acak" dan pada cmdAcak_Click() ketikkan kode di bawah ini.

Dim Angka As Integer
Randomize
Angka = (100 * Rnd) + 1 '100 adalah angka acak maksimal.
Me.txtBil.Text = Angka

6. Jalankan dan lihat hasilnya. Selesai dan terima kasih.

Untuk contoh programnya Anda bisa mendownloadnya disini.