mazana vectorizada

EMAZE COCA-COLA

COMUNICACION

GIF CLASH OF CLANS

TRABAJO DE REFUERZO 2

Visual Estudio

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label1.Visible = True
        Label2.Visible = False
        Label3.Visible = False
        Label4.Visible = False
        Label5.Visible = False
        Button1.Visible = True
        Button2.Visible = True
        Button3.Visible = True

        Button5.Visible = False
        Button6.Visible = False
        Button7.Visible = False

        Button9.Visible = True
        Button10.Visible = True
        PictureBox1.Visible = False
        PictureBox2.Visible = False
        PictureBox3.Visible = False

        TextBox1.Visible = False
        TextBox2.Visible = False
        TextBox3.Visible = False
        TextBox4.Visible = False

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label1.Visible = True
        Label2.Visible = True
        Label3.Visible = True
        Label4.Visible = True
        Label5.Visible = False
        Button1.Visible = True
        Button2.Visible = True
        Button3.Visible = True
        Button5.Visible = True
        Button6.Visible = False
        Button7.Visible = False
        Button9.Visible = True
        Button10.Visible = True
        PictureBox1.Visible = True
        PictureBox2.Visible = False
        PictureBox3.Visible = False
        TextBox1.Visible = True
        TextBox2.Visible = True
        TextBox3.Visible = True
        TextBox4.Visible = False
        Label2.Text = "AREA DE BASE"
        Label3.Text = "ALTURA"
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Label1.Visible = True
        Label2.Visible = True
        Label3.Visible = False
        Label4.Visible = True
        Label5.Visible = False
        Button1.Visible = True
        Button2.Visible = True
        Button3.Visible = True

        Button5.Visible = False
        Button6.Visible = True
        Button7.Visible = False

        Button9.Visible = True
        Button10.Visible = True
        PictureBox1.Visible = False
        PictureBox2.Visible = True
        PictureBox3.Visible = False

        TextBox1.Visible = True
        TextBox2.Visible = True
        TextBox3.Visible = False
        TextBox4.Visible = False

        Label2.Text = "R3"
        Label4.Text = "Cm2"

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Label1.Visible = True
        Label2.Visible = True
        Label3.Visible = True
        Label4.Visible = True
        Label5.Visible = False
        Button1.Visible = True
        Button2.Visible = True
        Button3.Visible = True

        Button5.Visible = False
        Button6.Visible = False
        Button7.Visible = True

        Button9.Visible = True
        Button10.Visible = True
        PictureBox1.Visible = False
        PictureBox2.Visible = False
        PictureBox3.Visible = True

        TextBox1.Visible = True
        TextBox2.Visible = True
        TextBox3.Visible = True
        Label2.Text = "RADIO"
        Label3.Text = "ALTURA"

        Label4.Text = "Cm2"

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Label1.Visible = True
        Label2.Visible = True
        Label3.Visible = False
        Label4.Visible = True
        Label5.Visible = False
        Button1.Visible = True
        Button2.Visible = True
        Button3.Visible = True

        Button5.Visible = False
        Button6.Visible = False
        Button7.Visible = False

        Button9.Visible = True
        Button10.Visible = True
        PictureBox1.Visible = False
        PictureBox2.Visible = False
        PictureBox3.Visible = False

        TextBox1.Visible = True
        TextBox2.Visible = True
        TextBox3.Visible = False
        Label2.Text = "LADO3"
        Label4.Text = "VOLUMEN"
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        TextBox1.Text = Val(TextBox2.Text) * Val(TextBox3.Text) / 3

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        TextBox1.Text = 4 / 3 * 3.1416 * Val(TextBox2.Text)


    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        TextBox1.Text = 3.1416 * Val(TextBox2.Text) ^ 2 * Val(TextBox3.Text) / 3




    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        TextBox1.Text = Val(TextBox2.Text) ^ 3
        Label4.Text = "VOLUMEN"

    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Label1.Visible = True
        Label2.Visible = False
        Label3.Visible = False
        Label4.Visible = False
        Label5.Visible = False
        Button1.Visible = True
        Button2.Visible = True
        Button3.Visible = True

        Button5.Visible = False
        Button6.Visible = False
        Button7.Visible = False

        Button9.Visible = True
        Button10.Visible = True
        PictureBox1.Visible = False
        PictureBox2.Visible = False
        PictureBox3.Visible = False

        TextBox1.Visible = False
        TextBox2.Visible = False
        TextBox3.Visible = False


    End Sub

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

Visual Estudio

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Numero1, Numero2 As Double
        Dim SYN As String
        Dim Simbolos As String
        Dim Resultado As Double

        Numero1 = TextBox1.Text
        Numero2 = TextBox2.Text
        SYN = Label1.Text
        Simbolos = ComboBox1.Text


        If Simbolos = "SUMA" Then
            Resultado = Numero1 + Numero2
            TextBox3.Text = Resultado
            Label1.Text = "+"

        ElseIf Simbolos = "RESTA" Then
            Resultado = Numero1 - Numero2
            TextBox3.Text = Resultado
            Label1.Text = "-"

        ElseIf Simbolos = "MULTIPLICACION" Then
            Resultado = Numero1 * Numero2
            TextBox4.Text = Resultado
            Label1.Text = "*"

        ElseIf Simbolos = "DIVISION" Then
            Resultado = Numero1 / Numero2
            TextBox3.Text = Resultado
            Label1.Text = "/"

        ElseIf Simbolos = "POTENCIA" Then
            Resultado = Numero1 ^ Numero2
            TextBox3.Text = Resultado
            Label1.Text = "^"

          
        End If
    End Sub

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






    End Sub

  
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PictureBox1.Visible = False
        PictureBox2.Visible = False
        PictureBox3.Visible = False
        PictureBox4.Visible = False
        TextBox2.Visible = False
        TextBox1.Visible = False
        TextBox3.Visible = False
        TextBox4.Visible = False
        Label1.Visible = False
        Label2.Visible = False
        Label3.Visible = False
        Label4.Visible = False
        Button1.Visible = False
        Button2.Visible = False
        Button3.Visible = False
        Button4.Visible = False
        Button5.Visible = False
        Button6.Visible = False
        Button7.Visible = True
        Button8.Visible = True
        Button9.Visible = False
        Button10.Visible = False
        ComboBox1.Visible = False
    

      
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        PictureBox1.Visible = True
        PictureBox2.Visible = False
        PictureBox3.Visible = False
        PictureBox4.Visible = False
        Label3.Text = "LADO"
        Label4.Text = "LADO"
        Label3.Visible = True
        Label4.Visible = True
        TextBox4.Visible = True




    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        PictureBox1.Visible = False
        PictureBox2.Visible = True
        PictureBox3.Visible = False
        PictureBox4.Visible = False
        Label3.Text = "LARGO"
        Label4.Text = "ANCHO"
        Label3.Visible = True
        Label4.Visible = True
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        PictureBox1.Visible = False
        PictureBox2.Visible = False
        PictureBox3.Visible = True
        PictureBox4.Visible = False
        Label3.Text = "BASE"
        Label4.Text = "ALTURA"
        Label3.Visible = True
        Label4.Visible = True
        Button9.Visible = True


    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        PictureBox1.Visible = False
        PictureBox2.Visible = False
        PictureBox3.Visible = False
        PictureBox4.Visible = True
        Label3.Text = "PI"
        Label4.Text = "R2"
        Label3.Visible = True
        Label4.Visible = True
        Button9.Visible = False
        Button10.Visible = True



    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        PictureBox1.Visible = False
        PictureBox2.Visible = False
        PictureBox3.Visible = False
        PictureBox4.Visible = False
        TextBox2.Visible = True
        TextBox1.Visible = True
        TextBox3.Visible = True
        Label1.Visible = True
        Label2.Visible = False
        Label3.Visible = False
        Label4.Visible = False
        Button1.Visible = True
        Button2.Visible = True
        Button3.Visible = True
        Button4.Visible = True
        Button5.Visible = True
        Button6.Visible = True
        Button7.Visible = True
        Button8.Visible = True
        ComboBox1.Visible = True
        TextBox4.Visible = True
        Button9.Visible = False
        Button10.Visible = False
    End Sub

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

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

        TextBox3.Text = TextBox4.Text / 2

    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        TextBox3.Text = TextBox4.Text ^ 2
    End Sub
End Class