Pertemuan 9: 20 April 2015 Aplikasi dengan ByVal pada VB .NET

Aplikasi dengan ByVal pada VB NET 2010
ByVal merupakan parameter yang dikirimkan yaitu nilai dari sebuah object sehingga kita tidak dapat mengubah nilai object tersebut, kita hanya dapat mengolah/mengubah nilai object tersebut di dalam sub/function saja, setelah sub/function tersebut selesai, perubahan nilai di sub/function tidak akan mengubah nilai object yang sebenarnya. Di sini, saya akan membuat sebuah aplikasi dengan ByVal.
Langkah-langkahnyaseperti berikut.

Pertama buka VB 2010, kemudian klik menu File kemudian pilih New Project dan kemudian pilih Windows Form Application. Ganti nama projectnya sesuai dengan project yang dibuat.

Seperti biasa setelah mengisi nama project akan muncul form kosong. Saya akan memberi nama dengan ByVal.



Kemudian buat form seperti berikut dengan atribut ListBox, dan Button. ListBox diganti dengan lstOutput dan Button diganti dengan Go! dan Exit.

Masukan source codenya 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(" My Name is Agustinus")

        lstOutput.Items.Add(" Inside btnGo_click the value of " & " intNumber is " & intNumber.ToString())

        lstOutput.Items.Add(" I'am now calling ChangeArg.")

        ChangeArg(intNumber)

        lstOutput.Items.Add(" Now back in btnGo_Click the value of " & " The value intNumber is " & intNumber.ToString())

    End Sub

    Sub ChangeArg(ByVal intArg As Integer)

        lstOutput.Items.Add(" Di dalam procedure " & " saya akan mengubah intArg. ")

        intArg = 0

        lstOutput.Items.Add(" Sekarang intNumber adalah " & intArg.ToString())

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

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

        Me.Close()

    End Sub

End Class

Dan hasilnya seperti berikut.

Cukup mudah bukan? Sekian dan terima kasih.