Membuat Program Acak Angka menggunakan Microsoft Visual Basic 2010 Express

Membuat Program Acak Angka menggunakan Microsoft Visual Basic 2010 Express

1.      Buka aplikasi Microsoft Visual Basic 2010 pada PC/Laptop anda.

Maka akan muncul tampilan seperti dibawah ini :

2.      Klik New Project.

Pilih Windows Forms Application dan isikan nama file yang akan dibuat pada kolom Name.

Sebagai contoh saya mengisikan kolom name dengan judul ProgramAcakAngka (tanpa spasi) atau anda dapat mengganti spasi dengan tanda _ (underscore).

Kemudian klik OK.

3.      Buatlah Design program seperti dibawah ini :

3.1.  Untuk point 1. Dinamakan form1. Kita dapat mengganti nama yang akan tampil pada form dengan mengubah textnya di jendela properties sesuai keinginan kita. Disini saya merubah textnya menjadi “Program Acak Angka”

3.2.  Untuk point 2 dan point 5 kita menggunakan Label pada menu Toolbox

Kemudian klik pada label yang ada di form dan ganti text pada properties sesuai dengan design diatas.

3.3.Untuk point 3 dan point 4 gunakan TextBox pada menu Toolbox

3.4.  Untuk point 6 gunakan Button

3.5  Dan yang terakhir, pilih Timer pada menu Toolbox

         

Setelah selesai maka tampilan form adalah seperti berikut :

         

4.      Klik ganda kontrol Start, kemudian buat kode program sebagai berikut :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Timer1.Enabled = True

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

End Sub

5.  Klik ganda pada kontrol Stop, kemudian buat kode program sebagai berikut :

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Timer1.Enabled = False

        TextBox5.Text = TextBox1.Text & TextBox2.Text & TextBox3.Text & TextBox4.Text

End Sub

6.      Klik ganda pada kontrol Keluar, kemudian buat kode program sebagai berikut :

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        End

End Sub

7.      Klik ganda pada timer, kemudian buat kode program sebagai berikut :

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        TextBox1.Text = Int(Rnd() * 10)

        TextBox2.Text = Int(Rnd() * 10)

        TextBox3.Text = Int(Rnd() * 10)

        TextBox4.Text = Int(Rnd() * 10)

End Sub

Untuk coding lengkapnya adalah sebagai berikut :

Setelah semua selesai, jalankan program dengan menekan tombol start debugging atau bisa menggunakan tombol F5.

Jika berhasil maka program akan berjalan seperti ini :

8.      Selamat mencoba kawan.. semoga penjelasan diatas dapat bermanfaat dan mempermudah teman-teman semua dalam pembuatan program.

Tetap semangat, terus berusaha dan pantang menyerah !!  Selamat belajar..

http://fitrifebriani26.blogspot.com