Simple Calculator using Visual basic .NET

















This is a simple calculator created using VB .Net

This are the Codes :

Public Class frmcalculator
    Dim Operand1 As Double
    Dim Operand2 As Double
    Dim [Operator] As String

    Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click, btn2.Click, btn3.Click, btn4.Click, btn5.Click, btn6.Click, btn7.Click, btn8.Click, btn9.Click, Button2.Click
        txtsource.Text = txtsource.Text & sender.text
    End Sub

    Private Sub btnclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        txtsource.Text = ""
    End Sub

    Private Sub btnadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnadd.Click
        Operand1 = Val(txtsource.Text)
        txtsource.Text = ""
        txtsource.Focus()
        [Operator] = "+"
    End Sub


    Private Sub btndecimal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If InStr(txtsource.Text, ".") > 0 Then
            Exit Sub
        Else
            txtsource.Text = txtsource.Text & "."
        End If
    End Sub

    Private Sub btnequals_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim Result As Double
        Operand2 = Val(txtsource.Text)

        'If [Operator] = "+" Then
        '    Result = Operand1 + Operand2
        'ElseIf [Operator] = "-" Then
        '    Result = Operand1 - Operand2
        'ElseIf [Operator] = "/" Then
        '    Result = Operand1 / Operand2
        'ElseIf [Operator] = "*" Then
        '    Result = Operand1 * Operand2
        'End If

        Select Case [Operator]
            Case "+"
                Result = Operand1 + Operand2
                MsgBox(Result.ToString("#,###.00"), MsgBoxStyle.Information, "Result")
                txtsource.Text = Result.ToString("#,###.00")
            Case "-"
                Result = Operand1 - Operand2
                MsgBox(Result.ToString("#,###.00"), MsgBoxStyle.Information, "Result")
                txtsource.Text = Result.ToString("#,###.00")
            Case "/"
                Result = Operand1 / Operand2
                MsgBox(Result.ToString("#,###.00"), MsgBoxStyle.Information, "Result")
                txtsource.Text = Result.ToString("#,###.00")
            Case "*"
                Result = Operand1 * Operand2
                MsgBox(Result.ToString("#,###.00"), MsgBoxStyle.Information, "Result")
                txtsource.Text = Result.ToString("#,###.00")
        End Select

        txtsource.Text = Result.ToString("#,###.00")

    End Sub

    Private Sub btnminus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnminus.Click
        Operand1 = Val(txtsource.Text)
        txtsource.Text = ""
        txtsource.Focus()
        [Operator] = "-"
    End Sub

    Private Sub btnmultiply_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmultiply.Click
        Operand1 = Val(txtsource.Text)
        txtsource.Text = ""
        txtsource.Focus()
        [Operator] = "*"
    End Sub

    Private Sub btndivide_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndivide.Click
        Operand1 = Val(txtsource.Text)
        txtsource.Text = ""
        txtsource.Focus()
        [Operator] = "/"
    End Sub

    Private Sub btnaddminus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        txtsource.Text = -1 * txtsource.Text
    End Sub
    Private Sub btnx_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnx.Click
        Dim convert As Single
        If txtsource.Text <> 0 Then
            convert = 1 / Val(txtsource.Text)
            txtsource.Text = convert
        End If
    End Sub
    Private Sub frmcalculator_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.Enter Then
            Call btnequals_Click(sender, e)
        End If
    End Sub


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

    End Sub

    Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter

    End Sub
End Class



  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

5 comments:

heemanshu bhalla said...

Nice one
Take a look at this one also

http://geeksprogrammings.blogspot.in/2013/09/make-calculator-in-net.html

may yapchiongco said...

how can i multiply without using asteisk sign "*" and also in division w/o using "/"
can you help me? :)

Gautam Rampalli said...

http://www.dreamincode.net/forums/topic/32951-basic-calculator-in-vbnet/

Alagbala Damilola said...

nice ,really cool.

Mikee Jimenez said...

i dunno if this code works, but if you explained every bit of your code, then we can understand how it works...

and to be honest, i still prefer to read this one:
http://www.dreamincode.net/forums/topic/32951-basic-calculator-in-vbnet/

Post a Comment