Bagaimana Cara Membuat Randomize (Pengacakan) pada Angka di Visual Basic

Cara Membuat Randomize (Pengacakan) pada Angka - Kita sering melihat dan menyaksikan pengundian melalui nomor-nomor yang diacak menggunakan komputer. Sebenarnya anda juga bisa membuat program seperti itu melalui Visual Basic.

Randomize (Pengacakan) angka biasanya digunakan untuk memunculkan salah satu angka yang muncul dari sekian banyak angka.Biasanya pengacakan angka digunakan untuk proses pengundian yang dijalankan secara otomatis.

Untuk melakukan proses pengacakan angka,kita bisa menentukan angka yang kita akan acak yaitu kisaran 0 sampai dengan jumlah tertentu sesuai dengan kebutuhan.Misalnya kita menetukan angka pengacakan dari abgka 0 sampai dengan angka 100 yang akan kita acak,maka setelah pengacakan dijalankan hasilnya berupa angka 1 sampai 3 digit yaitu angka 0 sampai dengan angka 100.
Untuk membuat pengacakan Angka tidak banyak di butuhkan kontrol, hanya membutuhkan 1 Timer dan beberapa label.Timer inilah yang berfungsi untuk menjalankan pengacakan sesuai dengan interval yang diberikan.Semakin kecil angka interval yang dimasukan semakin cepat pengacakan angka dijalankan dan sebaliknya semakin besar angka interval maka semakin lambat pengacakan angka.Visual Basic menyediakan Statement Randomize yang bisa digunakan untuk mengacak angka.

Bagi Anda yang penasaran bagaimana cara membuatnya, ikuti langkah langkah berikut untuk lebih memahami penggunaan statement Randomize.

Cara Membuat Program Acak Angka di VB:

1. Letakan sebuah Label, sebuah Timer dan 2 buah CommandButton pada form, berikut tampilannya
    seperti gambar dibawah ini

Form setelah di beri Kontrol

 

2. Atur properti masing kontrol seperti dibawah ini

KONTROL	PROPERTI
Label1	Caption:
Timer	Interval: 500
Command1	Caption:ACAK
Command2	Caption :STOP

3. Buka Jendela kode lalu ketikan kode dibawah ini :

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Dim i As Integer
Randomize
i = Int(Rnd * 1000)
Label1.Caption = i
End Sub

pada bagian kode kontrol timer ada kata statement Randomize.Statement itulah yang akan berfungsi sebagai pengacakan pada saat program dijalankan.Jika Satement tersebut tidak ada pada saat menjalankan program yang kedua kalinya angka acak yang keluar akan sama dengan angka acak sebelumnya. Dibawah Statement Randomize, terdapat sebuah baris yang berisi pernyataan:

 i=Int(Rnd*1000)

 Angka 1000 menyatakan bahwa bilangan yang diacak adalah 0 sampai 1000 

Sekian cara membuat  Membuat Randomize (Pengacakan) pada Angka di Visual Basic.Selamat mencoba senoga berhasil

Related Post: Aplikasi sederhana Label/Text