algoritmos

Institución Técnico Industrial Donald Rodrigo Tafur
Actividad para el día 10 de marzo de 2014
Continuar con la aplicación del día 3 de marzo. Con los siguientes anexos
1. La primera pantallaaparece como se muestra en la siguiente figura.

2. La lista debe ser para 10 animales salvajes en la del oso aumentar video como se muestra a continuación y como se ve en el archivo ejecutable anexadoen la carpeta compartida del dropbox. Debe incluir un icono de un animal salvaje, ejemplo el oso panda del ejemplo.

3. En la opción del oso debe incluir un video.

4. En la opción del león seincluye el sonido



5. En la opción de la Chita otro video, se den incluir 3 videos y 3 sonidos, en toda la aplicación.


6. Subir al dropbox su ejecutable.

ANEXO LA PROGRAMaCION DE CADAEVENTO, RECUERDE QUE EN CADA CASO ES DIFERENTE Y DEBE REVISAR DETALLADAMENTE EL CODIGO PARA CADA QUE SU APLICACION SE CORRA CORRECTAMENTE.
Private Sub Command1_Click()
End
End Sub

Private SubForm_Load()
Image1.Visible = False
Image2.Visible = False
Label2.Visible = True
Shape1.Visible = True
Line1.Visible = True
End Sub

Private Sub List1_Click()
Shape1.Visible = False
Label2.Visible =False
Shape2.Visible = True
Line1.Visible = False
If List1.ListIndex = 0 Then
Label3.Visible = True
WindowsMediaPlayer1.Visible = True
WindowsMediaPlayer1.URL = "E:\DONALD2014\VisualBasic\Nacimiento Osos Panda.mp4"
Label3 = "EL OSO:Los úrsidos (Ursidae) popularmente conocidos como osos, pertenecen a la familia de mamíferos carnívoros. Se localizan en América del Norte, América del Sur,Europa y Asia. Se pueden encontrar osos desde la tundra ártica hasta los bosques tropicales, montañas, praderas y unos cuantos en zonas áridas. El oso panda se localiza en bosques montañosos de bambúal sur de China."
Image1.Visible = True
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
Image7.Visible = False
End If
If...