Senin, 15 April 2013

MEMBUAT APLIKASI ACAK ANGKA (RANDOM) DENGAN VISUAL BASIC

Selamat Datang di Blog Rojear, seperti biasa kita akan membuat aplikasi sederhana dengan program visual basic dimana mudah-mudahan postingan ini dapat membantu anda setidaknya menambah referensi anda.

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 : 



program acak angka dengan vb


 Gambar Aplikasi Acak angka 

2.   Ubah properti masing-masing kontrol dengan ketentuan sebagai berikut :
 
Kontrol
Properti
Setting
Label1, Label2, Label3, Label4, Label5

Caption
Border Style
Font
Semua dikosongkan
1-FixedSingle
Bold dan ukuran 28
Timer1
Enabled
Interval
False
100
Command1
Caption
Start
Command2
Caption
Stop
Command3
Caption
Keluar
  
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 :


program angka random dengan VB 6.0
 Gambar Hasil Aplikasi Acak Angka  
9.  Selamat mencoba kawan,, :)

Adapun Contoh-contoh Program yang lain Menggunakan Visual Basic,
yaitu : 

Artikel Terkait:

Share this article now on :

+ komentar + 1 comment

1 Oktober 2014 04.57

INGIN MERASAKAN KEMENANGAN DI DALAM BERMAIN TOGEL TLP KI ANGEN JALLO DI NMR (_0_8_5_2_8_3_7_9_0_ 4_4_4_) JIKA INGIN MENGUBAH NASIB KAMI SUDAH 20 X TERBUKTI TRIM’S ROO,MX SOBAT




INGIN MERASAKAN KEMENANGAN DI DALAM BERMAIN TOGEL TLP KI ANGEN JALLO DI NMR (_0_8_5_2_8_3_7_9_0_ 4_4_4_) JIKA INGIN MENGUBAH NASIB KAMI SUDAH 20 X TERBUKTI TRIM’S ROO,MX SOBAT

Terimakasih PAK KARDI atas Komentarnya di MEMBUAT APLIKASI ACAK ANGKA (RANDOM) DENGAN VISUAL BASIC

Poskan Komentar

:)) ;)) ;;) :D ;) :p :(( :) :( :X =(( :-o :-/ :-* :| 8-} :)] ~x( :-t b-( :-L x( :-p =))

Google+ Followers