VB.Net - Kalkulator Sederhana

No.	Kontrol	Properties
1	Label1	Text = Angka 1
2	Label2	Text = Angka 2
3	Textbox1	Name = txtAngka1
4	Textbox2	Name = txtAngka2
5	Button1	Name = btnTambah Text = +
6	Button2	Name = btnKurang Text = -
7	Button3	Name = btnBagi Text = /
8	Button4	Name = btnKali Text = x
9	Button5	Name = btnC Text = C
10	Label2	Text = Hasil
11	Textbox3	Name = txtHasil ReadOnly=True

Public Class Form1

    Private Sub BtnTambah_Click(sender As Object, e As EventArgs) Handles BtnTambah.Click

        txtHasil.Text = Val(txtAngka1.Text) + Val(txtAngka2.Text)

    End Sub

    Private Sub btnKurang_Click(sender As Object, e As EventArgs) Handles btnKurang.Click

        txtHasil.Text = Val(txtAngka1.Text) - Val(txtAngka2.Text)

    End Sub

    Private Sub btnKali_Click(sender As Object, e As EventArgs) Handles btnKali.Click

        txtHasil.Text = Val(txtAngka1.Text) * Val(txtAngka2.Text)

    End Sub

    Private Sub btnBagi_Click(sender As Object, e As EventArgs) Handles btnBagi.Click

        txtHasil.Text = Val(txtAngka1.Text) / Val(txtAngka2.Text)

    End Sub

    Private Sub btnC_Click(sender As Object, e As EventArgs) Handles btnC.Click

        txtAngka1.Clear()

        txtAngka2.Clear()

        txtHasil.Clear()

    End Sub

End Class