CD INTERACTIVO PARA EL AREA DE MATEMATICAS

CD INTERACTIVO PARA EL AREA DE MATEMATICAS

Public Class Form1

    Public operacion As String

    Public num1 As String

    Public num2 As String

    Public total As String

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

        resultado.Text = resultado.Text & "1"

    End Sub

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

        resultado.Text = resultado.Text & "2"

  

    End Sub

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

        num1 = resultado.Text

        resultado.Clear()

        operacion = "+"

    End Sub

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

        num2 = resultado.Text

        resultado.Clear()

        If operacion = "+" Then

            total = Val(num1) + Val(num2)

            resultado.Text = total

        End If

        If operacion = "resta" Then

            total = Val(num1) - Val(num2)

            resultado.Text = total

        End If

        If operacion = "multiplicar" Then

            total = Val(num1) * Val(num2)

            resultado.Text = total

        End If

        If operacion = "dividir" Then

            total = Val(num1) / Val(num2)

            resultado.Text = total

        End If

    End Sub

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

        resultado.Clear()

    End Sub

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

        Me.Close()

    End Sub

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

        resultado.Text = resultado.Text & "3"

    End Sub

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

        resultado.Text = resultado.Text & "4"

    End Sub

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

        resultado.Text = resultado.Text & "5"

    End Sub

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

        resultado.Text = resultado.Text & "6"

    End Sub

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

        resultado.Text = resultado.Text & "7"

    End Sub

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

        resultado.Text = resultado.Text & "8"

    End Sub

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

        resultado.Text = resultado.Text & "9"

    End Sub

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

        resultado.Text = resultado.Text & "0"

    End Sub

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

        resultado.Text = resultado.Text & "."

    End Sub

    Private Sub Button31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button31.Click

        num1 = resultado.Text

        resultado.Clear()

        operacion = "resta"

    End Sub

    Private Sub Button32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button32.Click

        num1 = resultado.Text

        resultado.Clear()

        operacion = "multiplicar"

    End Sub

    Private Sub Button33_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button33.Click

        num1 = resultado.Text

        resultado.Clear()

        operacion = "dividir"

    End Sub

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

        Me.Close()

    End Sub

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

        PictureBox10.Visible = False

        PictureBox11.Visible = True

    End Sub

    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click

        PictureBox10.Visible = False

        PictureBox11.Visible = False

        PictureBox12.Visible = True

    End Sub

    Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click

        PictureBox10.Visible = False

        PictureBox11.Visible = False

        PictureBox12.Visible = False

        PictureBox13.Visible = True

    End Sub

    Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click

        PictureBox10.Visible = False

        PictureBox11.Visible = False

        PictureBox12.Visible = False

        PictureBox13.Visible = False

        PictureBox14.Visible = True

    End Sub

    Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click

        PictureBox10.Visible = False

        PictureBox11.Visible = False

        PictureBox12.Visible = False

        PictureBox13.Visible = False

        PictureBox14.Visible = False

        PictureBox15.Visible = True

    End Sub

    Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click

        PictureBox10.Visible = False

        PictureBox11.Visible = False

        PictureBox12.Visible = False

        PictureBox13.Visible = False

        PictureBox14.Visible = False

        PictureBox15.Visible = False

        PictureBox16.Visible = True

    End Sub

    Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click

        PictureBox10.Visible = False

        PictureBox11.Visible = False

        PictureBox12.Visible = False

        PictureBox13.Visible = False

        PictureBox14.Visible = False

        PictureBox15.Visible = False

        PictureBox16.Visible = False

        PictureBox17.Visible = True

    End Sub

    Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click

        PictureBox10.Visible = False

        PictureBox11.Visible = False

        PictureBox12.Visible = False

        PictureBox13.Visible = False

        PictureBox14.Visible = False

        PictureBox15.Visible = False

        PictureBox16.Visible = False

        PictureBox17.Visible = False

        PictureBox18.Visible = True

    End Sub

    Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click

        PictureBox10.Visible = False

        PictureBox11.Visible = False

        PictureBox12.Visible = False

        PictureBox13.Visible = False

        PictureBox14.Visible = False

        PictureBox15.Visible = False

        PictureBox16.Visible = False

        PictureBox17.Visible = False

        PictureBox18.Visible = False

        PictureBox19.Visible = True

    End Sub

    Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click

        Me.Close()

    End Sub

End Class