Contoh Aplikasi Sederhana Acak Angka (Random) dengan Visual Basic

1.  Buatlah New Project pada software VB anda kemudian tambahkan lima kontrol label, satu kontrol timer dan tiga kontrol commandbutton pada form. Atur desain form seperti pada gambar berikut : 

 Gambar Aplikasi Acak angka 

2.   Ubah properti masing-masing kontrol dengan ketentuan sebagai berikut :

3.   Klik ganda kontrol Timer, kemudian ketik program berikut :

Private Sub Timer1_Timer()

'label akan menampilkan bilangan acak 0-9'

Label1.Caption = Int(Rnd * 10)

Label2.Caption = Int(Rnd * 10)

Label3.Caption = Int(Rnd * 10)

Label4.Caption = Int(Rnd * 10)

End Sub

Rnd *10 atau Random akan menghasilkan bilangan acak desimal antara

0.12457-9.21654. Sedangkan int(integer) berfungsi untuk membulatkan

bilangan yang dihasilkan dari Rnd *10 dan hasil yang nantinya ditampilkan

adalah bilangan bulat antara 0-9.

Jadi perintah diatas adalah untuk menampilkan bilangan acak angka 0-9 pada

label1, label2, label3 dan label4.

4.  Klik ganda command1 (tombol start), kemudian ketikkan kode/script/listing berikut :

Private Sub Command1_Click()

'time diaktifkan'

Timer1.Enabled = True

'mengosongkan masing-masing label'

Label1.Caption = ""

Label2.Caption = ""

Label3.Caption = ""

Label4.Caption = ""

End Sub

Apabila tombol start diklik maka timer1 akan difungsikan untuk menampilkan bilangan acak pada masing-masing label.

5.  Klik ganda command2 (tombol stop), kemudian ketikkan kode/script/listing berikut :

Private Sub Command2_Click()

'time tidak diaktifkan'

Timer1.Enabled = False

'label 5 akan menampilkan hasil bilangan acak'

Label5.Caption = Label1.Caption & Label2.Caption & Label3.Caption & Label4.Caption

End Sub

Apabila tombol stop diklik, maka proses acak bilangan pada label1, label2, label3 dan label4 akan dihentikan dan hasilnya akan ditampilkan pada label5.

6.  Klik ganda command3(tombol Keluar),kemudian ketikkan kode/script/listing berikut :

Private Sub Command3_Click()

End

End Sub

7.  Jalankan program (F5) dan klik tombol start untuk mulai mengacak angka    lalu tekan tombol stop untuk menghentikannya.

8.  Hasilnya seperti gambar berikut :

 Gambar Hasil Aplikasi Acak Angka 

 Source : http://meriwardana.blogspot.com/

HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari PDF Visual Basic di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.