ByVal, ByRef dan Function pada Pemrograman .NET

ByVal, ByRef dan Function pada Pemrograman .NET

Assalamu’alaikum wr. wb, Bissmillahirrohmanirrohim, kali ini saya akan sedikit berbagi dengan kawan kawan semua tentang ilmu yang saya dapatkan tadi pagi di mata kuliah Pemrograman .NET

ByVal sebuah type prosedur yang tidak merubah nilai

ByRef type prosedur yang bisa merubah nilai, ByRef juga dapat mengembalikan lebih dari satu nilai .

Contoh Program Penggunaan ByVal dan ByRef

Langkah pertama buka visual basic .net kemudian buat project baru dengan memilih file – new project – new form windows application

Setelah itu buatlah desain form seperti ini lengkap dengan penamaan yang benar :

Setelah itu klik dua kali pada btnVal dan isikan sintaks dan buat sub prosedur berikut ini :

Sub prosedur ChangArg

Lakukan langkah yang sama pada btnByRef :

Sub ChangeArgument

Setelah itu isikan sintaks berikut pada btnClear

Dan berikut ini pada btnExit

Untuk lebih lengkapnya, berikut ini adalah sintaks program ini secara lengkap

Public Class Form1

    Private Sub btnByVal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnByVal.Click
        Dim intNumber As Integer = 100

        lstView.Items.Add("sebelum memanggil prosedur " & "intNumber is " _
                          & intNumber.ToString())
        lstView.Items.Add("--------------------------------")
        lstView.Items.Add("saat memanggil prosedur")
        ChangeArg(intNumber)
        lstView.Items.Add("--------------------------------")
        lstView.Items.Add("setelah memanggil prosedur " & "the value in intNumber is " _
                          & intNumber.ToString())
    End Sub


    Sub ChangeArg(ByVal intNumber As Integer)
        lstView.Items.Add("dialam prosedur, " & "saya akan mengubah intNumber")
        intNumber = 0
        lstView.Items.Add("sekarang intNumber adalah " & intNumber.ToString())
    End Sub

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

    Private Sub btnByRef_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnByRef.Click
        Dim intNumber As Integer = 100

        lstView.Items.Add("sebelum memanggil prosedur " & "intNumber is " _
                          & intNumber.ToString())
        lstView.Items.Add("--------------------------------")
        lstView.Items.Add("saat memanggil prosedur")
        ChangeArgument(intNumber)
        lstView.Items.Add("--------------------------------")
        lstView.Items.Add("setelah memanggil prosedur " & "the value in intNumber is " _
                          & intNumber.ToString())
    End Sub

    Sub ChangeArgument(ByRef intNumber As Integer)
        lstView.Items.Add("dialam prosedur, " & "saya akan mengubah intNumber")
        intNumber = 0
        lstView.Items.Add("sekarang intNumber adalah " & intNumber.ToString())
    End Sub

    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
        lstView.Items.Clear()
    End Sub
End Class

Function (Fungsi) Pada Pemrograman .NET

Function adalah suatu bagian dari program yang dipergunakan untuk mengerjakan suatu tugas tertentu yangmenghasilkan suatu nilai untuk dikembalikan kepada program pemanggil dan letaknya dipisahkan dari bagian program yang menggunakannya

Perbedaan function dan prosedur adalah jika function akan mengembalikan nilai ke pemanggilnya, sedangkan prosedur tidak mengembalikan nilai apapun kepada program pemanggilnya.

Contoh penggunaan fungsi pada Program Penjumlahan Sederhana menggunakan Function

Langkah pertama buka visual basic .net kemudian buat project baru dengan memilih file – new project – new form windows application

  

Setelah itu buatlah desain form seperti ini lengkap dengan penamaan yang benar :

Klik dua kali pada btnHasil kemudian masukan sintaks berikut ini :

Function untuk menghitung hasil 

Dan berikut ini adalah sintaks pada btnExit 

Berikut ini adalah sintaks keseluruhan pada program kali ini :

Public Class Fungsi

    Private Sub btnHasil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHasil.Click
        Dim sngTotal As Single
        sngTotal = Sum(txtBilanganA.Text, txtBilanganB.Text)
    End Sub

    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 btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub
End Class

Sekian Tutorial yang bisa saya berikan untuk teman-teman sekalian, mohon maaf apabila masih banyak kekurangan, semoga tutorial ini bisa bermanfaat bagi yang membutuhkan Aamiin.