CALCULADORA BASICA

UNIVERSIDAD TÉCNICA DE BABAHOYO

FACULTAD DE CIENCIAS JURÍDICAS Y DE LA EDUCACIÓN CONTINUA A DISTANCIA

"SECED"

TEMA:

CALCULADORA BÁSICA

AUTORAS:

MONICA SIPION VACA

MIRIAN ZUÑIGA SORIA

GLENDA FLORES MURRIETA

VERONICA CONYA CASTRO 

SEMESTRE:

9º SEMESTRE DE INFORMATICA EDUCATIVA

TUTOR:

ING. PEDRO VERA

 

DISEÑO DE LA CALCULADORA

PROGRAMACION

Public Class Form1

    Dim Almacenar As String = " "

    Dim Resultado1 As Integer = 0

    Dim Resultado2 As Double

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

        TextBox1.Text = TextBox1.Text + "1"

    End Sub

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

    End Sub

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

        TextBox1.Text = TextBox1.Text + "2"

    End Sub

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

        TextBox1.Text = TextBox1.Text + "3"

    End Sub

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

        TextBox1.Text = TextBox1.Text + "4"

    End Sub

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

        TextBox1.Text = TextBox1.Text + "5"

    End Sub

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

        TextBox1.Text = TextBox1.Text + "6"

    End Sub

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

        TextBox1.Text = TextBox1.Text + "7"

    End Sub

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

        TextBox1.Text = TextBox1.Text + "8"

    End Sub

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

        TextBox1.Text = TextBox1.Text + "9"

    End Sub

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click

        If (TextBox1.Text = "0") Then

            Return

        Else

            TextBox1.Text = TextBox1.Text + "0"

        End If

    End Sub

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

        Almacenar = "suma"

        Resultado1 = Val(TextBox1.Text)

        TextBox1.Text = ""

    End Sub

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

        Almacenar = "resta"

        Resultado1 = Val(TextBox1.Text)

        TextBox1.Text = ""

    End Sub

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

        Almacenar = "multiplicacion"

        Resultado1 = Val(TextBox1.Text)

        TextBox1.Text = ""

    End Sub

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

        Almacenar = "divicion"

        Resultado1 = Val(TextBox1.Text)

        TextBox1.Text = ""

    End Sub

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

        Almacenar = "division"

        Resultado1 = Val(TextBox1.Text)

        TextBox1.Text = ""

    End Sub

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

        Almacenar = "movi"

        Resultado1 = Val(TextBox1.Text)

        TextBox1.Text = ""

    End Sub

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

        If (Almacenar = "suma") Then

            TextBox1.Text = Resultado1 + Val(TextBox1.Text)

        End If

        If (Almacenar = "resta") Then

            TextBox1.Text = Resultado1 - Val(TextBox1.Text)

        End If

        If (Almacenar = "multiplicacion") Then

            TextBox1.Text = Resultado1 * Val(TextBox1.Text)

        End If

        If (Almacenar = "divicion") Then

            TextBox1.Text = Resultado1 / Val(TextBox1.Text)

        End If

        If (Almacenar = "division") Then

            TextBox1.Text = Resultado2 / Val(TextBox1.Text)

        End If

        If (Almacenar = "movi") Then

            TextBox1.Text = Resultado1 Mod Val(TextBox1.Text)

        End If

    End Sub

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

        TextBox1.Text = " "

    End Sub

End Class