Pertemuan 10: 27 April 2015 Aplikasi Penghitungan (Penjumlahan) Menggunakan Function pada VB .NET

Aplikasi Penghitungan (Penjumlahan) dengan Menggunakan Function di VB NET 2010
Hampir sama dengan sub prosedur, namun pada fungsi terdapat nilai kembalian. Fungsi dapat dibuat sendiri ataupun menggunakan fungsi yang sudah disediakan oleh VB.NET. Kali ini, saya akan membuat sebuah aplikasi sederhana yang berhubungan dengan Function.
Berikut langkah-langkahnya.

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.

 

Saya akan memberikan nama project saya yaitu Function. Setelah itu, ada form kosong seperti berikut kemudian buat form dengan atribut seperti Label (Bilangan1, Bilangan2, dan Hasil) dan TextBox dan juga Button.

Kemudian masukan source codenya seperti berikut.

Public Class Form1

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

    End Sub

    'Ini merupakan Function

    Function Sum(ByVal sngNum1 As Single, ByVal sngNum2 As Single) As Single

        Dim sngResult = sngNum1 + sngNum2

        Return sngResult

    End Function

    'Ini untuk memanggil Function

    Private Sub btnFunction_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFunction.Click

        Dim sngResult As Single

        Dim Bil1 As Integer

        Dim Bil2 As Integer

        sngResult = Sum(txtBil1.Text, txtBil2.Text)

        txtHasilFunction.Text = sngResult

    End Sub

    Private Sub btnFunction_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFunction.Click

        Dim sngResult As Single

        Dim Bil1 As Integer

        Dim Bil2 As Integer

        sngResult = Sum(txtBil1.Text, txtBil2.Text)

        txtHasilFunction.Text = sngResult

    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 adalah:

Cukup sekian dan terima kasih.