Kalkulator Sederhana

Buat Tampilan seperti berikut :

Coding :

Public Class Form1

    Dim mfirst As Single

    Dim msecond As Single

    Dim manswer As Single

    Dim mbutton As Integer

    Private Sub nol_Click(sender As Object, e As EventArgs) Handles nol.Click

        TextBox1.Text = TextBox1.Text + "0"

    End Sub

    Private Sub satu_Click(sender As Object, e As EventArgs) Handles satu.Click

        TextBox1.Text = TextBox1.Text + "1"

    End Sub

    Private Sub dua_Click(sender As Object, e As EventArgs) Handles dua.Click

        TextBox1.Text = TextBox1.Text + "2"

    End Sub

    Private Sub tiga_Click(sender As Object, e As EventArgs) Handles tiga.Click

        TextBox1.Text = TextBox1.Text + "3"

    End Sub

    Private Sub empat_Click(sender As Object, e As EventArgs) Handles empat.Click

        TextBox1.Text = TextBox1.Text + "4"

    End Sub

    Private Sub lima_Click(sender As Object, e As EventArgs) Handles lima.Click

        TextBox1.Text = TextBox1.Text + "5"

    End Sub

    Private Sub enam_Click(sender As Object, e As EventArgs) Handles enam.Click

        TextBox1.Text = TextBox1.Text + "6"

    End Sub

    Private Sub tujuh_Click(sender As Object, e As EventArgs) Handles tujuh.Click

        TextBox1.Text = TextBox1.Text + "7"

    End Sub

    Private Sub delapan_Click(sender As Object, e As EventArgs) Handles delapan.Click

        TextBox1.Text = TextBox1.Text + "8"

    End Sub

    Private Sub sembilan_Click(sender As Object, e As EventArgs) Handles sembilan.Click

        TextBox1.Text = TextBox1.Text + "9"

    End Sub

    Private Sub bagi_Click(sender As Object, e As EventArgs) Handles bagi.Click

        mbutton = 4

        mfirst = Val(TextBox1.Text)

        TextBox1.Text = ""

    End Sub

    Private Sub samadengan_Click(sender As Object, e As EventArgs) Handles samadengan.Click

        msecond = Val(TextBox1.Text)

        Select Case mbutton

            Case Is = 1

                manswer = mfirst + msecond

            Case Is = 2

                manswer = mfirst - msecond

            Case Is = 3

                manswer = mfirst * msecond

            Case Is = 4

                manswer = mfirst / msecond

        End Select

        TextBox1.Text = manswer

    End Sub

    Private Sub kali_Click(sender As Object, e As EventArgs) Handles kali.Click

        mbutton = 3

        mfirst = Val(TextBox1.Text)

        TextBox1.Text = ""

    End Sub

    Private Sub kurang_Click(sender As Object, e As EventArgs) Handles kurang.Click

        mbutton = 2

        mfirst = Val(TextBox1.Text)

        TextBox1.Text = ""

    End Sub

    Private Sub tambah_Click(sender As Object, e As EventArgs) Handles tambah.Click

        mbutton = 1

        mfirst = Val(TextBox1.Text)

        TextBox1.Text = ""

    End Sub

    Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click

        Me.Close()

    End Sub

    Private Sub clear_Click(sender As Object, e As EventArgs) Handles clear.Click

        TextBox1.Clear()

    End Sub

End Class