CODIFICACIÓN DE LAS OPERACIONES BÁSICAS SEGÚN SU BOTÓN.

CODIFICACIÓN DE LAS OPERACIONES BÁSICAS

BOTÓN SUMA "+"

Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        Almacen = "suma"
        Resultado = Val(TextBox1.Text)
        TextBox1.Text = ""
    End Sub



BOTÓN RESTA "-"


Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        Almacen = "resta"
        Resultado = Val(TextBox1.Text)
        TextBox1.Text = ""
    End Sub

BOTÓN MULTIPLICACIÓN "*"


Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
        Almacen = "multiplicacion"
        Resultado = Val(TextBox1.Text)
        TextBox1.Text = ""
    End Sub

BOTÓN MULTIPLICACIÓN "*"


Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
        Almacen = "multiplicacion"
        Resultado = Val(TextBox1.Text)
        TextBox1.Text = ""
    End Sub


BOTÓN DIVISIÓN ENTERA"/"



Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        Almacen = "divicion"
        Resultado = Val(TextBox1.Text)
        TextBox1.Text = ""
    End Sub

BOTÓN DIVISIÓN DECIMALES "DIV"


Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
        Almacen = "division"
        Resultad = Val(TextBox1.Text)
        TextBox1.Text = ""
    End Sub



BOTÓN RESIDUO "MOD"


Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
        Almacen = "movi"
        Resultado = Val(TextBox1.Text)
        TextBox1.Text = ""
    End Sub

BOTÓN IGUAL "="


Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        If (Almacen = "suma") Then
            TextBox1.Text = Resultado + Val(TextBox1.Text)
        End If
        If (Almacen = "resta") Then
            TextBox1.Text = Resultado - Val(TextBox1.Text)
        End If
        If (Almacen = "multiplicacion") Then
            TextBox1.Text = Resultado * Val(TextBox1.Text)
        End If
        If (Almacen = "divicion") Then
            TextBox1.Text = Resultado \ Val(TextBox1.Text)
        End If
        If (Almacen = "division") Then
            TextBox1.Text = Resultad / Val(TextBox1.Text)
        End If
        If (Almacen = "movi") Then
            TextBox1.Text = Resultado Mod Val(TextBox1.Text)
        End If
    End Sub



BOTÓN BORRAR "C"



Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdC.Click
        TextBox1.Text = " "
    End Sub

BOTÓN PUNTO "."


Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        TextBox1.Text = TextBox1.Text + "."

    End Sub