Pertemuan 7, 23 Maret 2015 : ByVal ByRef dengan menggunakan Microsoft Visual Basic 2010

saya akan menjelaskan tentang “ByVal dengan menggunakan Microsoft Visual Basic 2010” 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