¿QUÉ ES UNA VARIABLE?


 Variable es un área dentro de la memoria RAM a la cual se le asigna una constante que si es numérica por lo general comienza con cero, si la variable de tipo texto o string; los valores asignados a esa variable pueden cambiar o variar durante la ejecución del programa. Toda variable debe tener un nombre, el signo igual de asignación, y el valor que se le asigna a esa variable. Para poner el nombre a una variable se debe cumplir ciertas reglas básicas tales como: 1.-Todo nombre de variable debe empezar con una letra a partir del segundo carácter se puede usar dígitos o números, y en la mayoría de lenguaje de programación se acepta el signo de subguion como parte del nombre de una variable. 2.-El nombre de una variable siempre debe de ser una palabra es decir no puede haber espacio en blanco entre medio del nombre de una variable. 3.-El nombre de una variable el programador debe asignar de acuerdo al valor que se le va asignar. Las variables son necesarias definirlas y expresarlas, con el objetivo que allí se almacenen los datos que se ingresan desde el teclado, así como también valores que se obtienen como resultados de un cálculo matemáticos. Numéricas Enteras = interger/long Decimales=doublé VARIABLE DE 2 TIPOS Texto String Logica= boolean (1-true; 0-false). LABEL Proporciona información en tiempo de ejecución o texto descriptivo para un control.

  JUEGO COMO FORMAR LETRA E, NUMERO 3 Y EL NUMERO 0

Public Class frm1lab

    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 = False

        Label4.Visible = True

        Label5.Visible = True

        Label6.Visible = False

        Label7.Visible = True

    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 = False

        Label5.Visible = True

        Label6.Visible = True

        Label7.Visible = True

    End Sub

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

        Label1.Visible = True

        Label2.Visible = False

        Label3.Visible = True

        Label4.Visible = True

        Label5.Visible = False

        Label6.Visible = True

        Label7.Visible = True

    End Sub

  

End Class

Dim

Es para definir variables (palabras reservadas no pueden ser cambiadas es propia del programa)

Public Class Form1

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

        'Definir variables del ejercicio

        Dim NomApe As String

        Dim Curso As String

        Dim Sueldo As Double

        'ingreso de datos a las variables

        NomApe = InputBox("Ingrese su Nombre y Apellido")

        Curso = InputBox(" Entre el curso y paralelo donde esta matriculado")

        MsgBox("Sr/a/ta:  " + NomApe + "  Usted esta matriculado en el curso  " + Curso)

    End Sub

End Class

Pongamos en práctica lo estudiado.

Public Class Form1

    Private Sub Cmb0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmb0.Click

        Label1.Visible = True

        Label1a.Visible = True

        Label1b.Visible = True

        Label2.Visible = False

        Label2a.Visible = True

        Label2b.Visible = True

        Label3.Visible = True

    End Sub

    Private Sub Cmb6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmb6.Click

        Label1.Visible = True

        Label1a.Visible = True

        Label1b.Visible = False

        Label2.Visible = True

        Label2a.Visible = True

        Label2b.Visible = True

        Label3.Visible = True

    End Sub

    Private Sub Cmb8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmb8.Click

        Label1.Visible = True

        Label1a.Visible = True

        Label1b.Visible = True

        Label2.Visible = True

        Label2a.Visible = True

        Label2b.Visible = True

        Label3.Visible = True

    End Sub

    Private Sub CmbA_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles CmbA.MouseMove

        Label1.Visible = True

        Label1a.Visible = True

        Label1b.Visible = True

        Label2.Visible = True

        Label2a.Visible = True

        Label2b.Visible = True

        Label3.Visible = False

    End Sub

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

        Me.Hide()

        Form2.Show()

    End Sub

End Class

Public Class Form2

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

        'Definir variables del ejercicio

        Dim NomApe As String

        Dim Curso As String

        'ingreso de datos a las variables

        NomApe = InputBox("Ingrese su Nombre y Apellido")

        Curso = InputBox(" Entre el curso y paralelo donde esta matriculado")

        MsgBox("Sr/a/ta:  " + NomApe + "Usted esta matriculado en el curso" + Curso)

Me.Close()

Form1.Show()

    End Sub

End Class

ComboBox

Permite definir una lista de elementos, donde el usuario puede seleccionar de uno o más elementos.

EJERCICIO DE REPASO DE VARIABLES

Incluimos el control ComboBox

Public Class frmvariable

    Private Sub ComboBox1_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbxdestino.SelectedValueChanged

        If cbxdestino.SelectedItem = "Gquil - Quito" Then

            txtcosto.Text = 230

        ElseIf cbxdestino.SelectedItem = "Gquil - Cuenca" Then

            txtcosto.Text = 170

        ElseIf cbxdestino.SelectedItem = "Gquil - Machala" Then

            txtcosto.Text = 130

        Else : txtcosto.Text = 400

        End If

    End Sub

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

        cbxdestino.Items.add("Gquil - Quito")

        cbxdestino.Items.Add("Gquil - Cuenca")

        cbxdestino.Items.Add("Gquil - Machala")

        cbxdestino.Items.Add("Gquil - Galapagos")

    End Sub

    Private Sub cbxdestino_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbxdestino.SelectedIndexChanged

    End Sub

    Private Sub cmbtotalizar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbtotalizar.Click

        txtsubtotal.Text = (Val(txtcosto.Text) * Val(txtcantidad.Text))

        txtiva.Text = (Val(txtsubtotal.Text) * 0.12)

        txtliquido.Text = (Val(txtiva.Text) + Val(txtsubtotal.Text))

    End Sub

End Class

EN ESTE EJERCICIO VAMOS A VER EL CONTADOR DIFERENCIADOR Y ACUMULADOR

CONTADOR.- esto nos sirve para saber cuántas ventas se han realizados diarias, se contara o se incrementara de uno en uno cada venta se la sumara +1 para de esta forma saber el número de ventas totales.

DIFERENCIADOR.- esto nos sirve para saber cuánto tenemos en nuestro stock o nuestra bodega, se resta dependiendo al número de artículos o lo que se venda con lo que está en el stock.

ACUMULADOR.- esto nos sirve para acumular o sumar el valor total ($) de ventas se suma los valores totales de cada venta realizada.

Public Class Form1

    Dim bgq, bgc, bgm, bgg As Integer

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

        'CARGA LOS ELEMENTOS DEL COMBOBOX CBXDESTINO

        cbxColor.Items.Add("CHIFON BLANCO")

        cbxColor.Items.Add("CHIFON AZUL")

        cbxColor.Items.Add("CHIFON NEGRO")

        cbxColor.Items.Add("CHIFON CAFE")

        'ASIGNAR LOS VALORES INICIALES A LOS DIFERENCIADORES

        txtChiblan.Text = 100

        txtChiNe.Text = 100

        txtChiaz.Text = 100

        txtChica.Text = 100

        cbxColor.SelectedValue = ""

        txtCosto.Clear()

        txtCantidad.Clear()

        txtSubtotal.Clear()

        txtIva.Clear()

        txtLiquido.Clear()

    End Sub

    Private Sub cbxColor_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbxColor.SelectedValueChanged

        If cbxColor.SelectedItem = "CHIFON BLANCO" Then

            txtCosto.Text = 8

        ElseIf cbxColor.SelectedItem = "CHIFON AZUL" Then

            txtCosto.Text = 7

        ElseIf cbxColor.SelectedItem = "GHIFON NEGRO" Then

            txtCosto.Text = 10

        Else

            txtCosto.Text = 9

        End If

    End Sub

    Private Sub cmbTotolizar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbTotolizar.Click

        'Decremento de Diferenciadores

        If cbxColor.SelectedItem = "CHIFON BLANCO" Then

            If (Val(txtCantidad.Text) > Val(txtChiblan.Text)) Then

                MessageBox.Show("NO TIENE CUPOS DISPONIBLES, INGRESE CANTIDAD CORRECTA")

                txtCantidad.Clear()

                txtCantidad.Focus()

            Else

                txtChiblan.Text = (Val(txtChiblan.Text) - Val(txtCantidad.Text))

            End If}

ElseIf cbxColor.SelectedItem = "CHIFON AZUL" Then

            If (Val(txtCantidad.Text) > Val(txtChiaz.Text)) Then

                MessageBox.Show("NO TIENE CUPOS DISPONIBLES, INGRESE CANTIDAD CORRECTA")

                txtCantidad.Clear()

                txtCantidad.Focus()

            Else

                txtChiaz.Text = (Val(txtChiaz.Text) - Val(txtCantidad.Text))

            End If

        ElseIf cbxColor.SelectedItem = "CHIFON NEGRO" Then

            If (Val(txtCantidad.Text) > Val(txtChiNe.Text)) Then

                MessageBox.Show("NO TIENE CUPOS DISPONIBLES, INGRESE CANTIDAD CORRECTA")

                txtCantidad.Clear()

                txtCantidad.Focus()

            Else

                txtChiNe.Text = (Val(txtChiNe.Text) - Val(txtCantidad.Text))

            End If

        Else

            If (Val(txtCantidad.Text) > Val(txtChica.Text)) Then

                MessageBox.Show("NO TIENE CUPOS DISPONIBLES, INGRESE CANTIDAD CORRECTA")

                txtCantidad.Clear()

                txtCantidad.Focus()

            Else

                txtChica.Text = (Val(txtChica.Text) - Val(txtCantidad.Text))

            End If

        End If

        ' calculos realizados si la venta es correcta

        txtSubtotal.Text = (Val(txtCosto.Text) * Val(txtCantidad.Text))

        txtIva.Text = (Val(txtSubtotal.Text) * 0.12)

        txtLiquido.Text = (Val(txtSubtotal.Text) + Val(txtIva.Text))

        'Incremento de CONTADOR y ACUMULADOR

        txtNumvta.Text = (Val(txtNumvta.Text) + 1)

        txtTotrec.Text = (Val(txtTotrec.Text) + Val(txtLiquido.Text))

 End Sub

    Private Sub cmbLimpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbLimpiar.Click

        cbxColor.SelectedValue = ""

        txtCosto.Clear()

        txtCantidad.Clear()

Private Sub cmbLimpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbLimpiar.Click

        cbxColor.SelectedValue = ""

        txtCosto.Clear()

        txtCantidad.Clear()

        txtSubtotal.Clear()

        txtIva.Clear()

        txtLiquido.Clear()

    End Sub

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

        txtNumvta.Text = 0

        txtTotrec.Text = 0

    End Sub

    Private Sub Button1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseMove

    End Sub

End Class

OTRO EJEMPLO

Public Class Form1

    Dim costo As Double = 0

    Dim cantidad As Integer = 0

    Dim total As Double = 0

    Dim iva As Double = 0

    Dim totalapagar As Double = 0

    Dim contador As Integer = 0

    Dim acumulador As Double = 0

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

        'elementos del combobox

        cbxsoft.Items.Add("WINDOWS8")

        cbxsoft.Items.Add("OFFICE 2013")

    End Sub

    Private Sub cbblimpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbblimpiar.Click

        txtcantidad.Clear()

        txtcosto.Clear()

        txttotaliva.Clear()

    End Sub

    Private Sub cbxsoft_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbxsoft.SelectedIndexChanged

        If cbxsoft.SelectedItem = "WINDOWS8" Then

            costo = 320

            txtcosto.Text = costo

        ElseIf cbxsoft.SelectedItem = "OFFICE 2013" Then

            costo = 280

            txtcosto.Text = costo

        End If

    End Sub

    Private Sub cbbtotal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbbtotal.Click

        'formula boton totalizar se utilizan las variables declaradas

        cantidad = Val(txtcantidad.Text)

        total = cantidad * costo

        iva = total * 0.12

        totalapagar = total + iva

        txttotaliva.Text = totalapagar

        'contador y acumulador

        contador = contador + 1

        txtvtareali.Text = contador

        acumulador = (acumulador + Val(txttotaliva.Text))

        txttotalrecau.Text = acumulador

    End Sub

End Class

REPRODUCTOR FLASH

En cuadro de herramientas en la sección de CONTENEDORES damos click derecho/elegir elementos. Aquí seleccionamos ShockwaveFlash para poder visualizar videos en FLASH

Public Class Form1

    Private Sub cmbPlay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbPlay.Click

        'boton play

        With ShockwaveFlash1

            .Movie = "C:\Users\Home\Documents\Visual Studio 2008\Projects\REPRODUCTORBOTONES\video.avi"

            .Loop = False

            .Play()

        End With

    End Sub

    Private Sub cmbStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbStop.Click

        'boton stop

        ShockwaveFlash1.Rewind()

    End Sub

    Private Sub cmbBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbBack.Click

        ShockwaveFlash1.Back()

    End Sub

    Private Sub cmbPausa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbPausa.Click

        ShockwaveFlash1.Stop()

    End Sub

    Private Sub cmbForward_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbForward.Click

        ShockwaveFlash1.Forward()

    End Sub

    Private Sub cmbExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbExit.Click

        End

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Label1.Text = "frame: " & ShockwaveFlash1.CurrentFrame

    End Sub

End Class

TabControl

Controla y muestra al usuario una colección relacionada de fichas que pueden contener controles y componentes.

Option Explicit On

Public Class Form1

    'definicion de variables el option explicit on es para q el programa nos verifique si la variebles es valida o no

    Dim CantPaqVen As Integer = 0

    Dim RecVent As Double = 0

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

        'desabilitar controles

        txtNombre.Enabled = False

        txtCedula.Enabled = False

        cbxPaquetes.Enabled = False

        txtCantidadPersona.Enabled = False

        txtCostoxPersona.Enabled = False

        txtSubtotal.Enabled = False

        txtIva.Enabled = False

        txtInteres.Enabled = False

        txtTotalCancelar.Enabled = False

        'acumulador y contador

        lblCantPaqVent.Visible = False

        txtCantPaqVen.Visible = False

        lblTotRecVent.Visible = False

        txtTotRecVent.Visible = False

      

        lsxResercliente.Enabled = False

        Panel1.Enabled = False

        'botones

        cmbNuevoRegistro.Enabled = True

        cmbOtraReserva.Enabled = False

        cmbGrabar.Enabled = False

        cmbLimpiar.Enabled = False

        cmbMostrar.Enabled = False

        cmbSalir.Enabled = True

    End Sub

    Private Sub cmbNuevoRegistro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbNuevoRegistro.Click

        txtNombre.Enabled = True

        txtCedula.Enabled = True

        cbxPaquetes.Enabled = True

        txtCantidadPersona.Enabled = True

        txtCostoxPersona.Enabled = False

        txtSubtotal.Enabled = False

        txtIva.Enabled = False

        txtInteres.Enabled = False

        txtTotalCancelar.Enabled = False

        'acumulador y contador

        lblCantPaqVent.Visible = False

        txtCantPaqVen.Visible = False

        lblTotRecVent.Visible = False

        txtTotRecVent.Visible = False

      

        lsxResercliente.Enabled = True

        Panel1.Enabled = True

        'botones

        cmbNuevoRegistro.Enabled = False

        cmbOtraReserva.Enabled = False

        cmbGrabar.Enabled = True

        cmbLimpiar.Enabled = False

        cmbMostrar.Enabled = False

        cmbSalir.Enabled = True

        txtNombre.Focus()

        'cargar contenido del combobox

        cbxPaquetes.Items.Add("Paquete 1")

        cbxPaquetes.Items.Add("Paquete 2")

        cbxPaquetes.Items.Add("Paquete 3")

    End Sub

    Private Sub cbxPaquetes_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbxPaquetes.SelectedIndexChanged

        If cbxPaquetes.SelectedItem = "Paquete 1" Then

            txtCostoxPersona.Text = 500

        ElseIf cbxPaquetes.SelectedItem = "Paquete 2" Then

            txtCostoxPersona.Text = 700

        Else : cbxPaquetes.SelectedItem = "Paquete 3"

            txtCostoxPersona.Text = 800

        End If

        txtCantidadPersona.Focus()

    End Sub

    Private Sub cmbValidarPago_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbValidarPago.Click

        Panel1.Enabled = True

        MsgBox("Seleccione su forma de pago antes de totalizar")

        Panel1.Focus()

    End Sub

    Private Sub rbContado_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbContado.CheckedChanged

        'calculo de esta reservacion

        txtSubtotal.Text = (Val(txtCantidadPersona.Text) * Val(txtCostoxPersona.Text) * Val(txtDiasestadia.Text))

        txtIva.Text = (Val(txtSubtotal.Text) * 0.12)

        If rbContado.Checked = True Then

            txtInteres.Text = 0

        End If

        txtTotalCancelar.Text = (Val(txtSubtotal.Text) + Val(txtIva.Text) + Val(txtInteres.Text))

    End Sub

    Private Sub rbMastercard_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbMastercard.CheckedChanged

        'calculo de esta reservacion con interes

        txtSubtotal.Text = (Val(txtCantidadPersona.Text) * Val(txtCostoxPersona.Text) * Val(txtDiasestadia.Text))

        txtIva.Text = (Val(txtSubtotal.Text) * 0.12)

        If rbMastercard.Checked = True Then

            'interes del 3% sobre el subtotal

            txtInteres.Text = (Val(txtSubtotal.Text) * 0.03)

        End If

        txtTotalCancelar.Text = (Val(txtSubtotal.Text) + Val(txtIva.Text) + Val(txtInteres.Text))

    End Sub

    Private Sub rbVisa_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbVisa.CheckedChanged

        'calculo de esta reservacion con interes

        txtSubtotal.Text = (Val(txtCantidadPersona.Text) * Val(txtCostoxPersona.Text) * Val(txtDiasestadia.Text))

        txtIva.Text = (Val(txtSubtotal.Text) * 0.12)

        If rbVisa.Checked = True Then

            'interes del 2% sobre el subtotal

            txtInteres.Text = (Val(txtSubtotal.Text) * 0.02)

        End If

        txtTotalCancelar.Text = (Val(txtSubtotal.Text) + Val(txtIva.Text) + Val(txtInteres.Text))

    End Sub

    Private Sub cmbLimpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbLimpiar.Click

        txtNombre.Clear()

        txtCedula.Clear()

        txtCostoxPersona.Clear()

        txtCantidadPersona.Clear()

        txtDiasestadia.Clear()

        txtSubtotal.Clear()

        txtIva.Clear()

        txtInteres.Clear()

        txtTotalCancelar.Clear()

        cbxPaquetes.ResetText()

        lsxResercliente.Items.Clear()

    End Sub

    Private Sub cmbGrabar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbGrabar.Click

        MsgBox("Su reservacion fue grabada con exito")

        Me.lsxResercliente.Items.Add(txtNombre.Text)

        Me.lsxResercliente.Items.Add(cbxPaquetes.Text)

       

        lsxResercliente.Enabled = True

        Panel1.Enabled = False

        'botones

        cmbNuevoRegistro.Enabled = True

        cmbOtraReserva.Enabled = True

        cmbGrabar.Enabled = False

        cmbLimpiar.Enabled = True

        cmbMostrar.Enabled = True

        cmbSalir.Enabled = True

        cmbValidarPago.Enabled = False

        txtNombre.Focus()

      

    End Sub

    Private Sub cmbSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbSalir.Click

        End

    End Sub

    Private Sub cmbOtraReserva_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbOtraReserva.Click

        txtNombre.Enabled = True

        txtCedula.Enabled = True

        cbxPaquetes.Enabled = True

        txtCantidadPersona.Enabled = True

        txtCostoxPersona.Enabled = False

        txtSubtotal.Enabled = False

        txtIva.Enabled = False

        txtInteres.Enabled = False

        txtTotalCancelar.Enabled = False

       

        lsxResercliente.Enabled = True

        Panel1.Enabled = True

        'botones

        cmbNuevoRegistro.Enabled = False

        cmbOtraReserva.Enabled = False

        cmbGrabar.Enabled = True

        cmbLimpiar.Enabled = True

        cmbMostrar.Enabled = False

        cmbSalir.Enabled = True

        cmbValidarPago.Enabled = True

        txtNombre.Focus()

    End Sub

    Private Sub cmbMostrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbMostrar.Click

        'acumulador y contador

        lblCantPaqVent.Visible = True

        txtCantPaqVen.Visible = True

        lblTotRecVent.Visible = True

        txtTotRecVent.Visible = True

        'acumulador y contador

        CantPaqVen = CantPaqVen + 1

        txtCantPaqVen.Text = CantPaqVen

        txtTotRecVent.Text = (Val(txtTotRecVent.Text) + Val(txtTotalCancelar.Text))

    End Sub

End Class

TRABAJO PROYECTO EDUCATIVO

Public Class Form1

    Private Sub cmbSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbSalir.Click

        End

    End Sub

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

        PictureBox1.Image = Image.FromFile("C:\Users\Home\Documents\Visual Studio 2008\Projects\YovanaTite_ProyectoJuegaCantaAprende\frutas.png")

        PictureBox2.Image = Image.FromFile("C:\Users\Home\Documents\Visual Studio 2008\Projects\YovanaTite_ProyectoJuegaCantaAprende\arcoiris.png")

        PictureBox4.Image = Image.FromFile("C:\Users\Home\Documents\Visual Studio 2008\Projects\YovanaTite_ProyectoJuegaCantaAprende\barney.png")

    End Sub

  

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

        Dim f2 As New FormFrutas

        f2.show()

        Me.Hide()

        Formcolores.Hide()

        FormVideos.Hide()

    End Sub

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

        Dim f3 As New Formcolores

        f3.Show()

        Me.Hide()

        FormFrutas.Hide()

        FormVideos.Hide()

    End Sub

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

        Dim f4 As New FormVideos

        f4.Show()

        Me.Hide()

        FormFrutas.Hide()

        Formcolores.Hide()

    End Sub

End Class

Public Class FormFrutas

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

        piboxNaranja.Image = Image.FromFile("C:\Users\Home\Documents\Visual Studio 2008\Projects\YovanaTite_ProyectoJuegaCantaAprende\naranja.png")

        piboxGuineo.Image = Image.FromFile("C:\Users\Home\Documents\Visual Studio 2008\Projects\YovanaTite_ProyectoJuegaCantaAprende\guineo.png")

        piboxFrutilla.Image = Image.FromFile("C:\Users\Home\Documents\Visual Studio 2008\Projects\YovanaTite_ProyectoJuegaCantaAprende\frutilla.png")

        piboxSandia.Image = Image.FromFile("C:\Users\Home\Documents\Visual Studio 2008\Projects\YovanaTite_ProyectoJuegaCantaAprende\sandia.png")

        piboxManzana.Image = Image.FromFile("C:\Users\Home\Documents\Visual Studio 2008\Projects\YovanaTite_ProyectoJuegaCantaAprende\manzana.png")

    End Sub

    Private Sub cmbCerrarFrutas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbCerrarFrutas.Click

        Dim f1 As New Form1

        f1.Show()

        Me.Hide()

        FormVideos.Hide()

        Formcolores.Hide()

    End Sub

End Class

Public Class Formcolores

    Private Sub cmbColor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbColor.Click

        piboxAmarillo.Image = Image.FromFile("C:\Users\Home\Documents\Visual Studio 2008\Projects\YovanaTite_ProyectoJuegaCantaAprende\amarillo.png")

        piboxAzul.Image = Image.FromFile("C:\Users\Home\Documents\Visual Studio 2008\Projects\YovanaTite_ProyectoJuegaCantaAprende\azul.png")

        piboxRojo.Image = Image.FromFile("C:\Users\Home\Documents\Visual Studio 2008\Projects\YovanaTite_ProyectoJuegaCantaAprende\rojo.png")

        piboxVerde.Image = Image.FromFile("C:\Users\Home\Documents\Visual Studio 2008\Projects\YovanaTite_ProyectoJuegaCantaAprende\verde.png")

        piboxNaranja.Image = Image.FromFile("C:\Users\Home\Documents\Visual Studio 2008\Projects\YovanaTite_ProyectoJuegaCantaAprende\naranjacolor.png")

    End Sub

    Private Sub cmbCerrarColores_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbCerrarColores.Click

        Dim f1 As New Form1

        f1.Show()

        Me.Hide()

        FormVideos.Hide()

        FormFrutas.Hide()

    End Sub

End Class

Public Class FormVideos

    Private Sub cmbCerrarVideos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbCerrarVideos.Click

        Dim f1 As New Form1

        f1.Show()

        Me.Hide()

        Formcolores.Hide()

        FormFrutas.Hide()

    End Sub

End Class