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