Funciones de Visual Basic.
Enviado por lenavas • 19 de Octubre de 2016 • Tutoriales • 931 Palabras (4 Páginas) • 209 Visitas
GRANDES CANTANTES LATINOAMERICANOS
MARYI LORENA LOPEZ
FELIPE LISCANO
ALEJANDRA GAVIRIA
ANDRES FELIPE ZAPATA
11-2
LIC. ARMANDO DE LA CUESTA
AREA DE INFORMATICA
INSTITUCION EDUCATIVA GENERAL ALFREDO VASQUEZ COBO
SANTIAGO DE CALI
2011
INTRODUCCION
El siguiente trabajo es una especie de homenaje a 4 grandes exponentes del abundante talento latinoamericano (Joe Arroyo, Juan Gabriel, Jorge Celedon y el grupo Aventura) es un tema que controversial dado los diferentes gustos y los rasgos culturales que maneja la sociedad a nivel latinoamericano.
Gracias al programa de Visual Basic, se pudo dar a conocer mediante imágenes, texto y de forma didáctica aspectos relevantes sobre la vida personal y artística de los cantantes mencionados anteriormente, para acercarlos un poco más a todos aquellos que vean nuestro proyecto.
Por todo lo anterior, este trabajo es un pequeño aporte para resaltar la diversidad musical presente hoy en día en nuestro continente.
PROYECTO “GRANDES CANTANTES LATINOAMERICANOS”
Este trabajo contiene los siguientes formularios y demás elementos relacionados con Visual Basic tales como:
- Formulario 1
- 3 label
- 2 Check Box
- 2 Option Button
- 4 Picture Box
- 3 Command Button
- Formulario 2
- 6 label
- 1 Frame
- 5 Option Button
- 1 Windows Media Player
- Formulario 3
- 5 label
- 11 Image
- 1Frame
- 5 Check Box
- 1 Windows Media Player
- Formulario 4
- 5 label
- 6 Option Button
- 8 Image
- 1 Frame
- 1 Windows Media Player
- Formulario 5
- 3 label
- 6 Image
- 1 Windows Media Player
- Comando de Menús
FUNCIONAMIENTO DEL PROYECTO “GRANDES CANTANTES LATINOAMERICANOS”
La venta de código de cada formulario se escribe a continuación:
Form 1:
Private Sub Check1_Click ()
Form1.Hide
Form3.Show
End Sub
Private Sub Check3_Click ()
Form1.Hide
Form5.Show
End Sub
Private Sub Command1_Click ()
Label2.Visible = True
Label3.Visible = False
Command2.Visible = True
End Sub
Private Sub Command2_Click ()
Label1.Visible = True
Label2.Visible = False
Command1.Visible = False
Command2.Visible = False
Command3.Visible = False
End Sub
Private Sub Command3_Click ()
Label3.Visible = True
Command1.Visible = True
End Sub
Private Sub Form_Load ()
Picture1.Visible = False
Picture2.Visible = False
Picture3.Visible = False
Picture4.Visible = False
Label1.Visible = False
Label2.Visible = False
Label3.Visible = False
Option1.Visible = False
Option2.Visible = False
Option3.Visible = False
Check1.Visible = False
Check2.Visible = False
Check3.Visible = False
Command1.Visible = False
Command2.Visible = False
End Sub
Private Sub Label1_Click ()
Picture1.Visible = True
Picture2.Visible = True
Picture3.Visible = True
Picture4.Visible = True
Label1.Visible = False
Command1.Visible = False
Command2.Visible = False
End Sub
Private Sub Option1_Click ()
Form1.Hide
Form4.Show
End Sub
Private Sub Option3_Click ()
Form1.Hide
Form2.Show
End Sub
Private Sub Picture1_Click ()
Label1.Visible = False
Option1.Visible = True
Option3.Visible = True
Check3.Visible = True
Check1.Visible = True
Picture1.Visible = False
Picture2.Visible = False
Picture3.Visible = False
Picture4.Visible = False
End Sub
Private Sub Picture2_Click ()
Label1.Visible = False
Option1.Visible = True
Option3.Visible = True
Check3.Visible = True
Check1.Visible = True
Picture1.Visible = False
Picture2.Visible = False
Picture3.Visible = False
Picture4.Visible = False
End Sub
Private Sub Picture3_Click ()
Label1.Visible = False
Option1.Visible = True
Option3.Visible = True
Check1.Visible = True
Check3.Visible = True
Picture1.Visible = False
Picture2.Visible = False
Picture3.Visible = False
Picture4.Visible = False
End Sub
Private Sub Picture4_Click ()
Label1.Visible = False
Option1.Visible = True
Option3.Visible = True
Check3.Visible = True
Check1.Visible = True
Picture1.Visible = False
Picture2.Visible = False
Picture3.Visible = False
Picture4.Visible = False
End Sub
Form 2:
Private Sub Form_Load()
Label1.Visible = False
Label2.Visible = False
Label3.Visible = False
Label4.Visible = False
Label5.Visible = False
Label6.Visible = False
End Sub
Private Sub Option2_Click()
Label1.Visible = True
Label2.Visible = False
Label3.Visible = False
Label4.Visible = False
Label5.Visible = False
Label6.Visible = False
...