Program dengan menggunakan Function

Menindaklanjuti dengan postingan sebelumnya, kali ini saya akan mencoba membeberkan program sederhana dengan menggunakan Function.

Langkah pertama buat form dengan desain seperti ini

Textbox 3 buah
Label 1 buah
Button 1 buah













Setelah selesai masukkan kode berikut :

Public Class Form1
    Dim a, b, c As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox3.Text = tambah(Val(TextBox1.Text), Val(TextBox2.Text))
    End Sub

    Function tambah(ByVal a As Integer, ByVal b As Integer) As Integer
        c = a + b
        Return c
    End Function
End Class

Kalo masih belum jelas bisa download programnya disini