BELAJAR VB.NET : MEMBUAT ANGKA ACAK

Sekarang kita akan mencoba membuat program sederhana yang Outputnya akan menghasilkan angka acak antara angka 1 sampai 5000.

Sekarang lihat gambar dibawah 

Gambar 1

Penjelasan program : Jika tombol "Random Number" di klik, maka di TextBox akan muncul angka acak antara angka 1 sampai 5000.

Cara membuat : 

• Buat Project Baru (File - New - Project - Windows Application)
• Klik OK
• Buat 1 TextBox, 1 Button (Lihat Gambar 1 )
• Setelah selesai, saatnya memasukkan kodenya, Double Click tombol "Random Number"

Ketikkan kode di bawah ini : 

        Me.TextBox1.Clear()

        Dim R As New Random
        Dim number As Integer = R.Next(5000)

        Me.TextBox1.Text = number

Setelah selesai, coba jalankan programnya. Jika anda sudah membuat seperti langkah di atas maka programnya pasti akan menghasilkan angka acak setiap kali anda mengklik tombol, seperti gambar di bawah

Gambar 2

Gambar 3

Gambar 4

Jika anda masih bingung tentang cara kerja programnya, silahkan download di sini.

Sekian untuk kali ini, jika ada pertanyaan seputar postingan ini silahkan komen di bawah..
Terima kasih telah membaca :D

Posted in: Programming