Calculator Application's (in VB & VB.Net)

---

CALCULATOR IN VB

Karems First Calculator Application
in VB

    * It Source Code is similar to Calculator Application in VB.Net
      find it bellow                             


                                          CALCULATOR IN VB.NET

Karems First Calculator Application
In VB.Net

Source Code For Calculator Application in VB.Net

Public Class frmcal

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

                 FLG1 = 1
                 FLG2 = 1
                     mcld.Hide()
    End Sub

    Private Sub add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandleSadd.Click

        Module1.va1 = Val(txtdis.Text)
        txtdis.Text = ""
        Module1.op = "+"

    End Sub

    Private Sub b1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b1.Click
        txtdis.Text = txtdis.Text & "1"
    End Sub

    Private Sub b2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b2.Click
        txtdis.Text = txtdis.Text & "2"
    End Sub

    Private Sub b3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b3.Click
        txtdis.Text = txtdis.Text & "3"
    End Sub

    Private Sub b4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b4.Click
        txtdis.Text = txtdis.Text & "4"
    End Sub

    Private Sub b5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b5.Click
        txtdis.Text = txtdis.Text & "5"
    End Sub

    Private Sub b6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b6.Click
        txtdis.Text = txtdis.Text & "6"
    End Sub

    Private Sub b7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b7.Click
        txtdis.Text = txtdis.Text & "7"
    End Sub

    Private Sub b8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b8.Click
        txtdis.Text = txtdis.Text & "8"
    End Sub

    Private Sub b9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b9.Click
        txtdis.Text = txtdis.Text & "9"
    End Sub

    Private Sub b0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b0.Click
        txtdis.Text = txtdis.Text & "0"
    End Sub

    Private Sub bclr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles  bclr.Click
        txtdis.Text = ""
        Module1.va1 = 0
        Module1.va2 = 0

    End Sub

    Private Sub equ_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles equ.Click
        Dim i As Integer
        i = 1

       Do While i < 800

            pbar.Value = i
            i = i + 1

        Loop

         Module1.va2 = Val(txtdis.Text)
        txtdis.Text = ""
      
       Select Case Module1.op
            Case "+" : txtdis.Text = Module1.va1 + Module1.va2
            Case "-" : txtdis.Text = Module1.va1 - Module1.va2
            Case "*" : txtdis.Text = Module1.va1 * Module1.va2
            Case "/" : txtdis.Text = Module1.va1 / Module1.va2
            Case "mod" : txtdis.Text = Module1.va1 Mod Module1.va2

        End Select

        If p = 1 Then
            txtdis.Text = Math.Pow(Module1.va1, Module1.va2)
            p = 0
        End If

        pbar.Value = 1

    End Sub

    Private Sub subr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles subr.Click
        va1 = Val(txtdis.Text)
        op = "-"

    End Sub

    Private Sub mul_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mul.Click
        va1 = Val(txtdis.Text)
        op = "*"
        txtdis.Text = ""
    End Sub

    Private Sub div_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles div.Click
        va1 = Val(txtdis.Text)
        op = "/"
        txtdis.Text = ""
    End Sub

    Private Sub modl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles modl.Click
        va1 = Val(txtdis.Text)
        op = "mod"
        txtdis.Text = ""
    End Sub

    Private Sub A3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles A3.Click
        If Module1.FLG2 = 1 Then
            mcld.Show()
            Module1.FLG2 = 0
        Else
            mcld.Hide()
            Module1.FLG2 = 1
        End If
    End Sub

    Private Sub A2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles A2.Click

        If Module1.FLG1 = 1 Then
            bsin.Show()
            btan.Show()
            bcos.Show()
            bsec.Show()
            bcosec.Show()
            Module1.FLG1 = 0
        Else
            bsin.Hide()
            btan.Hide()
            bcos.Hide()
            bsec.Hide()
            bcosec.Hide()
            Module1.FLG1 = 1
        End If
    End Sub

    Private Sub A1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        mcld.Hide()
    End Sub

    Private Sub bsin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bsin.Click

      Module1.va1 = 0
       Module1.va2 = 0

             txtdis.Text = Math.Sin(txtdis.Text)

    End Sub

    Private Sub bcos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bcos.Click
        Module1.va1 = 0
        Module1.va2 = 0
             txtdis.Text = Math.Cos(txtdis.Text)
    End Sub

    Private Sub btan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btan.Click
        Module1.va1 = 0
        Module1.va2 = 0

        txtdis.Text = Math.Tan(txtdis.Text)
    End Sub

    Private Sub bsec_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bsec.Click
        txtdis.Text = Math.Sqrt(txtdis.Text)
    End Sub

    Private Sub bcosec_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bcosec.Click

        p = 1
          Module1.va1 = Val(txtdis.Text)
          txtdis.Text = ""

          Module1.va2 = Val(txtdis.Text)

    End Sub

    Private Sub Process1_Exited(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub
    End Class