Manual del reproductor en visual Basic

1. Manual del reproductor en visual Basic Josué Alexis Rojas Rojas 2 0 1 2 7-14

2. Inicio Pasos: #1- Inicio Microsoft Office Word #2- Presionar Alt+F11 #3- Habilitar Contenido #4- Arriba Insertar UserForm #5- A la izquierda (Name)= FRMReproductor #6- BackColor (escoger)

3. Pasos para insertar imágenpara la pantalla: #1- Arriba Cuadro de herramientas #2- (cuadro) Imagen #3- Clic y Arrastrar #4- Adecuar el tamaño #5- Cambiar opción: PICTURE y Clic #6- Buscar archivo y Doble clic

4. Para Insertar Pantalla #1- Arriba Barra de herramientas #2- (sobre las herramientas) Clic derecho y clic controles adicionales #3- Buscar en la lista: Windows media Player y Clic sobre la casilla #4- Aceptar (Aparecerá el símbolo en la barra) #5- Presionar el símbolo y Arrastrar #6- Ajustar Tamaño #7- (Name)= WMPPantalla #8- Clic PERSONALIZADO y cambiar= Casilla seleccione un modo y clic en NONE #9- Clic Aceptar

5. Botones #1- Barra de herramientas Botón de comando y arrastrar #2- Cambiar los Name y Picture

6. Botón PLAY Name: CMDPlay Picture: Cambiar (buscar y escoger) Sino tienes imágenes descárgalas de internet Botón PAUSA Name: CMDPause Picture: Cambiar (buscar y escoger) Sino tienes imágenes descárgalas de internet Botón ADELANTAR Name: CMDAdelantar Picture: Cambiar (buscar y escoger) Sino tienes imágenes descárgalas de internet

7. Botón RetrocederName: CMDRetrocederPicture: Cambiar (buscar y escoger) Sino tienes imágenes descárgalas de internetBotón SalirName: CMDSalirPicture: Cambiar (buscar y escoger) Sino tienes imágenes descárgalas de internetBotón MuteName: CMDMutePicture: Cambiar (buscar y escoger) Sino tienes imágenes descárgalas de internet

8. Botón EncendidoName: CMDEncendidoPicture: Cambiar (buscar y escoger) Sino tienes imágenes descárgalas de internetBotón RetrocederName: CMDRetrocederPicture: Cambiar (buscar y escoger) Sino tienes imágenes descárgalas de internetBotón Mas (Volumen)Name: CMDMasPicture: Cambiar (buscar y escoger) Sino tienes imágenes descárgalas de internet

9. Botón Stop (Detiene todo)Name: CMDStopPicture: Cambiar (buscar y escoger) Sino tienes imágenes descárgalas de internetBotón Menos (Volumen)Name: CMDMenosPicture: Cambiar (buscar y escoger) Sino tienes imágenes descárgalas de internet Lista de VideosPresionar sobre “Cuadro Combinado” en herramientas y escrir dentro del cuadro “Elija un video” Name: CBOlista

10. Programaciones Arriba de cada programación esta el nombre de cada botón. Botón CBOlista Cambiar lista de arriba (General) (Declaraciones) y Poner en programacion arriba de CBOlista “Dim estado As Boolean” Private Sub CBOlista_Change() Select Case CBOlista.ListIndex Case 0 WMPPantalla.URL = ActiveDocument.Path & ("/videos/Donde Llegaremos.WMV") Case 1 WMPPantalla.URL = ActiveDocument.Path & ("/videos/El Embarazo.WMV") Case 2 WMPPantalla.URL = ActiveDocument.Path & ("/Videos/Baile Del Robot.WMV") Case 3 WMPPantalla.URL = ActiveDocument.Path & ("/Videos/El Poder De Uno.WMV") Case 4 WMPPantalla.URL = ActiveDocument.Path & ("/Videos/Hermanita.WMV") Case 5 WMPPantalla.URL = ActiveDocument.Path & ("/Videos/somos un mundo 7-14.WMV") EndSelect End Sub

11. Botón CMDPlay: Private Sub CMDPlay_Click() WMPPantalla.Controls.play End Sub BotónCMDPause Private Sub CMDPause_Click() WMPPantalla.Controls.pause End Sub BotónCMDStop Private Sub CMDStop_Click() WMPPantalla.Controls.stop End Sub BotónCMDMenos Private Sub CMDMenos_Click() WMPPantalla.settings.volume = WMPPantalla.settings.volume - 10 End Sub BotónCMDMas Private Sub CMDMas_Click() WMPPantalla.settings.volume = WMPPantalla.settings.volume + 10 End Sub BotónCMDRetroceder Private Sub CMDRetroceder_Click() WMPPantalla.Controls.fastReverse End Sub

12. BotónCMDAdelantar Private Sub CMDAdelantar_Click() WMPPantalla.Controls.fastForward End Sub BotónCMDMute Private Sub CMDMute_Click() IfWMPPantalla.settings.mute = True Then WMPPantalla.settings.mute = False Else WMPPantalla.settings.mute = True EndIf End Sub BotónCMDSalir Private Sub CMDSalir_Click() ThisDocument.Application.Visible = True ThisDocument.Application.Quit End Sub

13. BotónCMDEncendido Private Sub CMDEncendido_Click() If estado = False Then CMDPlay.Enabled = True CMDPause.Enabled = True CMDStop.Enabled = True CMDMas.Enabled = True CMDMenos.Enabled = True CMDRetroceder.Enabled = True CMDAdelantar.Enabled = True CMDMute.Enabled = True CBOlista.Enabled = True estado = True Else CMDPlay.Enabled = False CMDPause.Enabled = False CMDStop.Enabled = False CMDMas.Enabled = False CMDMenos.Enabled = False CMDRetroceder.Enabled = False CMDAdelantar.Enabled = False CMDMute.Enabled = False CBOlista.Enabled = False estado = False EndIf End Sub

14. Pantalla (Cuadritos) Userform Private Sub UserForm_Activate() CBOlista.AddItem "DondeLlegaremos" CBOlista.AddItem "El Embarazo" CBOlista.AddItem "Baile Del Robot" CBOlista.AddItem "El Poder De Uno" CBOlista.AddItem "Hermanita" CBOlista.AddItem "somos un mundo 7-14" End Sub (Estoparaactivar la pantalla con los videos) Para estaprogramaciondebocambiararriba a la izquierda “Desactivate” Private Sub UserForm_Deactivate() ThisDocument.Application.Visible = True End Sub Para estaprogramaciondebocambiararriba a la izquierda “Initialize” Private Sub UserForm_Initialize() ThisDocument.Application.Visible = False End Sub