DESIGN A CALCULATOR USING VB.NET

PROGRAM:

Declaration command

Public Class Form1

    Inherits System.Windows.Forms.Form

    Dim num1 As Double

    Dim num2 As Double

    Dim result As Double

    Dim add As Boolean

    Dim sb As Boolean

    Dim mul As Boolean

    Dim div As Boolean

Form command

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

        TextBox1.Text = " "

        add = sb = mul = div = False

    End Sub

Buttons command

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

        TextBox1.Text = TextBox1.Text + Button1.Text

        num1 = TextBox1.Text

    End Sub

    Private Sub Button4_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button4.Click

        TextBox1.Text = TextBox1.Text + Button4.Text

        num1 = TextBox1.Text

    End Sub

    Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click

        TextBox1.Text = TextBox1.Text + Button2.Text

        num1 = TextBox1.Text

    End Sub

    Private Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button3.Click

        TextBox1.Text = TextBox1.Text + Button3.Text

        num1 = TextBox1.Text

    End Sub

    Private Sub Button7_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button7.Click

        TextBox1.Text = TextBox1.Text + Button7.Text

        num1 = TextBox1.Text

    End Sub

    Private Sub Button5_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button5.Click

        TextBox1.Text = TextBox1.Text + Button5.Text

        num1 = TextBox1.Text

    End Sub

    Private Sub Button8_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button8.Click

        TextBox1.Text = TextBox1.Text + Button8.Text

        num1 = TextBox1.Text

    End Sub

    Private Sub Button6_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button6.Click

        TextBox1.Text = TextBox1.Text + Button6.Text

        num1 = TextBox1.Text

    End Sub

    Private Sub Button9_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button9.Click

        TextBox1.Text = TextBox1.Text + Button9.Text

        num1 = TextBox1.Text

    End Sub

    Private Sub Button11_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button11.Click

        TextBox1.Text = TextBox1.Text + Button11.Text

        num1 = TextBox1.Text

    End Sub

OFF Button

    Private Sub Button12_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button12.Click

        TextBox1.Text = " "

        num1 = 0

        result = 0

        add = False

        sb = False

        mul = False

        div = False

        num2 = 0

    End Sub

Equal button

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

        If add Then

            result = num1 + num2

        End If

        If sb Then

            result = num2 - num1

        End If

        If mul Then

            result = num1 * num2

        End If

        If div Then

            result = num2 / num1

        End If

        TextBox1.Text = result

        num1 = result

    End Sub

Div button

    Private Sub Button16_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button16.Click

        div = True

        num2 = num1

        num1 = 0

        TextBox1.Text = " "

    End Sub

Add button

    Private Sub Button13_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button13.Click

        add = True

        num2 = num1

        TextBox1.Text = " "

    End Sub

Sub button

    Private Sub Button14_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button14.Click

        sb = True

        num2 = num1

        num1 = 0

        TextBox1.Text = " "

    End Sub

Mul button

    Private Sub Button15_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button15.Click

        mul = True

        num2 = num1

        num1 = 0

        TextBox1.Text = " "

    End Sub

AC Button

    Private Sub Button10_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button10.Click

        TextBox1.Text = " "

        num1 = 0

        result = 0

        add = False

        sb = False

        mul = False

        div = False

        num2 = 0

    End Sub

End Class