Pertemuan 7, 30 Maret 2015 :Membuat Program Sederhana Menggunakan Parameter ByVal di Visual Basic 2008

1. Pertama Buka aplikasi VISUAL BASIC 2008, lalu setelah program terbuka, klik FILE > New Project, maka akan muncul windows pop-up, lalu pilih “Windows Form Application”. Jika sudah di pilih isikan Nama dan Tempat Penyimpan project yang nanti akan di buat pada Name dan Location jika sudah klik Ok

2. Design interface program yang akan kita buat menjadi seperti ini. Lihat gambar




Beberapa komponen toolbox yang dibutuhkan, antara lain :

§ 1 GroupBox

§ 1 Buah ListBox : (name) : lstOutput

§ 2 Buah Button

§ Button 1 : (name) : btnGo | Text : Go!

§ Button 2 : (name) : btnExit | Text : Exit

3. Klik 2X pada Button1 (btnInputBil), lalu isikan koding seperti berikut :

Public Class Form1

Private Sub btnGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGo.Click
Dim intnumber As Integer = 100

lstOutput.Items.Add(“Inside btnGo_Click the value of ” & “intNumber is ” & intnumber.ToString())
lstOutput.Items.Add(“Now I am calling ChangeArg”)

ChangeArg(intnumber)
lstOutput.Items.Add(“Now back in btnGo_Click, ” & “the value of intNumber is ” & intnumber.ToString())
End Sub

Sub ChangeArg(ByVal intArg As Integer)
lstOutput.Items.Add(“Didalam procedure, ” & “Saya akan mengubah intArg.”)
intArg = 0
lstOutput.Items.Add(“Sekarang intNumber adaalah ” & intArg.ToString)
End Sub

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click

End Sub
End Class

4. Klik 2X pada Button2 (btnExit), lalu isikan koding seperti berikut :

Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
Me.Close()

End Sub

5. Kemudian coba jalankan dengan meng klik tombol Run coba.

Berikut hasilnya




! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! Selamat Mencoba dan Sukses yahhhh ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !
J J J J J J J J J J
J J J J J
J J J J J