Manual del reproductor visual basic
Download
1 / 23

Manual del reproductor Visual Basic - PowerPoint PPT Presentation


  • 195 Views
  • Uploaded on

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.

loader
I am the owner, or an agent authorized to act on behalf of the owner, of the copyrighted work described.
capcha
Download Presentation

PowerPoint Slideshow about ' Manual del reproductor Visual Basic' - gerek


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.While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server.


- - - - - - - - - - - - - - - - - - - - - - - - - - E N D - - - - - - - - - - - - - - - - - - - - - - - - - -
Presentation Transcript
Manual del reproductor visual basic

Manual del reproductor Visual Basic

Nombre: Leidy Céspedes Acosta

Sección: 7-16

Año: 2012



1 paso
1° paso

  • Acceder a Microsoft Office Word.

  • Pulsar los botones alt+F11

  • Un clic en:

  • Insertar

  • UserForm


Creaci n del reproductor
Creación del reproductor:

  • Clic en:

  • El formulario.

  •  (Name): FRMReproductor


Crear los botones
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)


Nombre de cada bot n
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


3° Stop:

(Name): CMDStop

Caption: STOP

4° Adelantar:

(name): CMDAdelantar

Caption: ADELANTAR

5°Retroceder:

(Name): CMDRetroceder

Caption: RETROCEDER


•Volumen:

6°Mas:

(Name): CMDMas

Caption: +

7°Menos:

(Name): CMDMenos

Caption: -

8°Mute:

(Name): CMDMute

Caption: MUTE


9°Encendido y apagado:

(Name): CMDEncendido

Caption: ON/OF

10° Salir:

(Name): CMDSalir

Caption: Salir


2 paso
2° Paso

  • Clic en:

    •El formulario.

    •Cuadro de herramientas

    •Clic derecho en el cuadro de herramientas.

    Seleccionar:

    • Controles Adicionales.

    •Windows Media Player.

    •Aceptar.


•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.


3 imagen del reproductor
3° Imagen del reproductor Windows Media Player.

  • 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)


4 lista para seleccionar los videos
4° Lista para seleccionar los videos: Windows Media Player.

  • 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”


P rogramaciones
P Windows Media Player.rogramaciones:


5 programaci n de los botones
5° Programación De los Botones: Windows Media Player.

*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


•STOP: Windows Media Player.

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


•MAS: Windows Media Player.

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


•SALIR: Windows Media Player.

Private Sub CMDSalir_Click()

ThisDocument.Application.Visible = True

ThisDocument.Application.Quit

End Sub


Declaraci n de la variable
Declaración de la variable: Windows Media Player.

  • Dim estado As Boolean


6 programaci n del bot n de encendido y apagado
Windows Media Player.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


7 programaci n de la lista
7°Programación de la lista: Windows Media Player.

• 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.


8 programaci n del formulario
8° Programación del Formulario: Windows Media Player.

*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


Para guardar
Para guardar: Windows Media Player.

  • Seleccionar la tecla de guardar o (ctrl+G)

  • Guardar como tipo: Documento habilitado con macros de Word.


ad