Randomize (Pengacakan) Pada VB

Bismillah...

Di TV sering kita temui pengundial melalui nomor-nomor yang diacak menggunakan komputer. Sebenarnya anda juga bisa membuat program pengacakan angka melalui visual basic. Visual basic menyediakan statement randomize yang bisa digunakan untuk mengacak angka.

Untuk lebih memahami cara penggunaan statement randomize ikuti langkah-langkah berikut ini:

• Letakkan sebuah Label, Sebuah Timer dan 2 buah CommandButton pada Form. Lihat contoh

Gambar 1. Contoh Peletakan Komponen Pada Form

• Atur properti masing-masing kontrol sebagai berikut: Timer Interval 500, Command1 Caption ACAK, dan Command2 Caption STOP.
• Buka jendela Code lalu ketikkan code 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 = i

    End Sub

Pada bagian pengkodean kontrol timer, anda melihat statement Randomize. Statement tersebut berguna untuk melakukan pengacakan terus menerus pada saat program dijalankan kembali. Jika statement tersebut tidak ada, pada saat anda menjalankan program untuk yang kedua kalinya, angka-angka acak yang keluar akan sama dengan angka acak sebelumnya.

Di bawah statement Randomize, terdapat sebuah baris yang berisi pernyataan:

    i = Int(Rnd * 1000)

Angka 1000 menyatakan bahwa bilangan yang diacak adalah bilangan antara 0-1000.

Jika anda keliru dengan programnya silahkan Download Source Code nya Disini

Happy Programming, Dan jangan lupa dikembangkan