Web Hosting
» » Contoh Parameter ByVal Di Visual Basic [Pertemuan: VII]

Monday, 23 March 2015

Contoh Parameter ByVal Di Visual Basic [Pertemuan: VII]

Assalamu’alaikum wr. wb, kali ini saya akan membuat sebuah program sederhana menggunakan parameter ByVal di Visual Basic 2010.

ByVal adalah parameter yang dikirimkan adalah Nilai dari sebuah object sehingga anda tidak dapat mengubah Nilai Object tersebut, anda hanya dapat mengolah/mengubah nilai object tersebut di dalam sub/function saja, setelah sub/function tersebut selesai, perubahan nilai object di sub/function tidak akan mengubah nilai object yang sebenarnya.

Let’s go ! Mari kita buat project nya.


1. Buka aplikasi VISUAL BASIC 2010 EXPRESS, 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

 

3. 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
4. Klik 2X pada Button1 (btnInputBil), lalu isikan koding seperti berikut :


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

5. 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

7. Selesai, maka setelah itu jalankan programnya dengan menekan tombol F5. Maka seperti ini lah hasil program yang kita buat. Lihat gambar. Maka hasilnya jika kita menekan tombol “Input Bilangan” maka hasilnya akan jalan 2 2 nya.

Hasilnya :

 
Sekian dan Terima Kasih.
Labels: