1 / 23

Manual del reproductor Visual Basic

Manual del reproductor Visual Basic. Nombre: Leidy Céspedes Acosta . Sección: 7-16. Año: 2012. Elementos del Reproductor de video:. 1° paso. Acceder a Microsoft Office Word. Pulsar los botones alt+F11 Un clic en: Insertar UserForm. Creación del reproductor:. Clic en: El formulario.

gerek
Download Presentation

Manual del reproductor Visual Basic

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript


  1. Manual del reproductor Visual Basic Nombre: Leidy Céspedes Acosta Sección: 7-16 Año: 2012

  2. Elementos del Reproductor de video:

  3. 1° paso • Acceder a Microsoft Office Word. • Pulsar los botones alt+F11 • Un clic en: • Insertar • UserForm

  4. Creación del reproductor: • Clic en: • El formulario. •  (Name): FRMReproductor

  5. Crear los botones: • Clic en: • El Formulario • Clic en el “Cuadro de Herramientas”: • Clic en “Botón de comando” • Arrastrar los botones hasta el formulario(10 botones)

  6. Nombre de cada Botón: •1° Botón de play: (Name)=CMDPlay Caption: Play Picture: Se elije una imagen que represente el botón play de igual manera a todos los demás botones •2°Boton pause: (Name)=CMDPause Caption: PAUSE

  7. 3° Stop: (Name): CMDStop Caption: STOP 4° Adelantar: (name): CMDAdelantar Caption: ADELANTAR 5°Retroceder: (Name): CMDRetroceder Caption: RETROCEDER

  8. •Volumen: 6°Mas: (Name): CMDMas Caption: + 7°Menos: (Name): CMDMenos Caption: - 8°Mute: (Name): CMDMute Caption: MUTE

  9. 9°Encendido y apagado: (Name): CMDEncendido Caption: ON/OF 10° Salir: (Name): CMDSalir Caption: Salir

  10. 2° Paso • Clic en: •El formulario. •Cuadro de herramientas •Clic derecho en el cuadro de herramientas. Seleccionar: • Controles Adicionales. •Windows Media Player. •Aceptar.

  11. •Seleccionar en el cuadro de herramientas el ícono de Windows Media Player. •Arrastrar hasta el formulario •Clic sobre el ícono de Windows Media Player ya arrastrado en el formulario. •(Name): WMPPantalla •(Personalizado): En Disposición de controles seleccionamos: •Seleccione un modo: None • Y en opciones de reproducción quitamos todas las marcas que seleccionen opciones.

  12. 3° Imagen del reproductor • Descargo una imagen de internet de un reproductor de video(T.V, celular, tableta…) • Clic en: • El formulario • Picture […] • Seleccionamos la imagen • Aceptar • Sobre la pantalla de la imagen insertamos la pantalla de color negra (Windows media Player)

  13. 4° Lista para seleccionar los videos: • Clic en: •El formulario •Cuadro de herramientas •Cuadro combinado(arrastrar hasta el formulario) •Clic sobre el cuadro combinado del formulario. (Name): CBOLista •Sobre la lista escribimos: “ELIJE UN VIDEO”

  14. Programaciones:

  15. 5° Programación De los Botones: *Para programar cada botón se debe dar doble clic sobre cada uno. •PLAY: Private Sub CMDPlay_Click() WMPPantalla.Controls.play End Sub •PAUSE: Private Sub CMDPause_Click() WMPPantalla.Controls.pause End Sub

  16. •STOP: Private Sub CMDStop_Click() WMPPantalla.Controls.pause End Sub •ADELANTAR: Private Sub CMDAdelantar_Click() WMPPantalla.Controls.fastForward End Sub •Retroceder: Private Sub CMDRetroceder_Click() WMPPantalla.Controls.fastReverse End Sub

  17. •MAS: Private Sub CMDMas_Click() WMPPantalla.settings.volume = WMPPantalla.settings.volume + 10 End Sub •MENOS: Private Sub CMDMenos_Click() WMPPantalla.settings.volume = WMPPantalla.settings.volume - 10 End Sub •MUTE: Private Sub CMDMute_Click() If WMPPantalla.settings.mute = True Then WMPPantalla.settings.mute = False Else WMPPantalla.settings.mute = True End If End Sub

  18. •SALIR: Private Sub CMDSalir_Click() ThisDocument.Application.Visible = True ThisDocument.Application.Quit End Sub

  19. Declaración de la variable: • Dim estado As Boolean

  20. 6° Programación del botón de encendido y apagado: Private Sub CMDEncendido_Click() If estado = False Then CMDPlay.Enabled = True CMDPause.Enabled = True CMDStop.Enabled = True CMDAdelantar.Enabled = True CMDRetroceder.Enabled = True CMDMas.Enabled = True CMDMenos.Enabled = True CMDMute.Enabled = True CMDSalir.Enabled = True CBOLista.Enabled = True estado = True Else CMDPlay.Enabled = False CMDPause.Enabled = False CMDStop.Enabled = False CMDAdelantar.Enabled = False CMDRetroceder.Enabled = False CMDMas.Enabled = False CMDMenos.Enabled = False CMDMute.Enabled = False CMDSalir.Enabled = False CBOLista.Enabled = False estado = False End If End Sub

  21. 7°Programación de la lista: • Private Sub CBOLista_Change() Select Case CBOLista.ListIndex Case 0 WMPPantalla.URL = ActiveDocument.Path & ("/videos/Gritar.WMV") Case 1 WMPPantalla.URL = ActiveDocument.Path & ("/videos/color esperanza.WMV") Case 2 WMPPantalla.URL = ActiveDocument.Path & ("/videos/no basta.WMV") End Select End Sub *No siempre el URL va a ser el mismo, va a variar dependiendo de donde se encuentre el video, el nombre del video o donde se encuentre ubicado el reproductor.

  22. 8° Programación del Formulario: *Al dar doble clic en la lista se cambia “change” por “activate” •Private Sub UserForm_Activate() CBOLista.AddItem "Gritar" CBOLista.AddItem "color esperanza" CBOLista.AddItem "no basta" End Sub *Si el video o los videos tiene un nombre distinto se cambia el nombre “Gritar, color esperanza o no basta” por el nombre del video que se tenga que agregar al reproductor

  23. Para guardar: • Seleccionar la tecla de guardar o (ctrl+G) • Guardar como tipo: Documento habilitado con macros de Word.

More Related