Program Acak Angka

Kali ini saya mencoba untuk membuat contoh program sederhana untuk mengacak angka. Tidak usah panjang lebar penjelasannya. Langsung aja, cara membuatnya adalah sebagai berikut.


1. Buatlah form baru.
2. Tambahkan kontrol berikut : TextBox, CommandButton, dan Timer. ubah Interval Timer menjadi 200, caption CommangButton menjadi "Start".
3. Ketik Kode berikut.

Private Sub Command1_Click()
If Command1.Caption = "Start" Then
Timer1.Enabled = True
Command1.Caption = "Stop"
Else
Timer1.Enabled = False
Command1.Caption = "Start"
End If
End Sub

Private Sub Timer1_Timer()
Randomize
Text1.Text = Int(Rnd * 9)
End Sub

4. Simpan project dan form tersebut.
5. Jalankan Program tersebut dan lihat hasilnya.

Maksud (Rnd) pada program tersebut adalah untuk menghasilkan nilai acak berbentuk desimal dengan range dari 0 sampai 1. (Rnd * 9) dikali 9 agar menghasilkan nilai acak dari 1 sampai 9. dan Int untuk menghasilkan nilai kembalian berbentuk integer atau bilangan asli.

Selamat Mencoba Yaaaaa......!