ByVal dengan menggunakan Microsoft Visual Basic 2010

Kali ini saya akan menjelaskan tentang “ByVal dengan menggunakan Microsoft Visual Basic 2008” dengan desain seperti dibawah ini:

List dengan nama lstOutput

Button1 dengan nama btnGo!

Button2 dengan nama btnExit

Masukan Coding di btnGo seperti ini:

Public Class Form1

    Private Sub btnGo_Click(ByVal sender As System.Object, ByVal e AsSystem.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

Lalu coding di btnExit seperti ini:

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

    End Sub

End Class

Sehingga outputnya seperti gambar dibawah ini :

Sekian dan Terimakasih, semoga bermanfaat