Pertemuan 9, 13 April 2015 Penerapan Function , ByVal , & ByRef pada pemrograman VB .Net

Pertama kita buka vb.netnya, lalu buat program baru.dengan cara KLIK - NEW-PROJECT

Maka tampilan awal akan seperti gambar dibawah ini.

Pada jendela tampilan diatas pilih Windows Form Application,dan pada Nama,ganti dengan nama project yang ingin kita buat yaitu kalkulator. pada Location pilih folder untuk menyimpan project lalu KLIK OK.maka akan tampil seperti gambar dibawah ini.

Komponen	Properties
	Name	Text	Read Only
Button	BtnHasil	Hitung
Label1	Label1	Masukan Bilangan :
Label2	Label2	Hasil :
Textbox1	txtBil1
Textbox2	txtBil2
TextBox3	txtHasil		True

 Selanjutnya kita mulai membuat script kodenya.

Setelah selesai Coba di RUN  atau tekan F5 pada keyboard anda.LIHAT HASILNYA.

Bila angka pertama dan angka kedua telah diisi klik tombol yang anda inginkan maka hasilnya dapat anda lihat.pada textbox.

Hasilnya seperti gambar dibawah ini.

Demikian penjelasan mengenai function , berikutnya penjelasan tentang ByVal & ByRef.

Pertama kita buka vb.netnya, lalu buat program baru.dengan cara KLIK - NEW-PROJECT

Maka tampilan awal akan seperti gambar dibawah ini.

Pada jendela tampilan diatas pilih Windows Form Application,dan pada Nama,ganti dengan nama project yang ingin kita buat yaitu kalkulator. pada Location pilih folder untuk menyimpan project lalu KLIK OK.maka akan tampil seperti gambar dibawah ini.

Komponen	Properties
	Name	Text	Read Only
Button1	BtnVal	ByVal
Button2	BtnRef	ByRef
GroupBox	GroupBox1	By Val or By Ref
ListBox	lstOutput

Selanjutnya kita mulai membuat script kodenya.

Private Sub btnHitung_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) HandlesbtnHitung.Click

        Dim sngtotal As Single
        sngtotal = Sum(txtBil1.Text, txtBil2.Text)
        MessageBox.Show("Hasilnya adalah " & sngtotal.ToString)

End Sub
Dan ini functionnya :
Function Sum(ByVal sngNum1 As Single, _
          ByVal sngNum2 As Single) As Single
                  
Dim sngResult As Single
          sngResult = sngNum1 + sngNum2
          txtHasil.Text = sngResult
         
Return sngResult
   
End Function

Private Sub btnGo_Val(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles btnVal.Click
       
Dim intNumber As Integer = 50

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

        lstOutput.Items.Add("Now I am calling ChangeArg.")

        ChangeArgument(intNumber)

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

End Sub

Sub ChangeArgument(ByVal intArg As Integer)
lstOutput.Items.Add("Dalam procedure," & "saya akan merubah intArg.")
        intArg = 0

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

Kemudian Masukan procedurenya :

Private Sub btnRef_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles btnRef.Click
       
Dim intNumber As Integer = 50

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

Kemudian Masukan Source code pada button ByRef :

Private Sub btnRef_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles btnRef.Click
       
Dim intNumber As Integer = 50

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

Masukan procedurenya :

Sub ChangeArg(ByRef intArg As Integer)
lstOutput.Items.Add("Dalam procedure," & "saya akan merubah intArg.")
intArg = 0

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

            

            

     

 Setelah selesai Coba di RUN  atau tekan F5 pada keyboard anda.LIHAT HASILNYA.

Bila angka pertama dan angka kedua telah diisi klik tombol yang anda inginkan maka hasilnya dapat anda lihat.pada textbox.

Hasilnya seperti gambar dibawah ini.

Selesai !!!
Selamat Mencoba… 

“jangan menyerah sebelum mencoba dan berusaha”