manual del reproductor visual basic
Download
Skip this Video
Download Presentation
Manual del reproductor Visual Basic

Loading in 2 Seconds...

play fullscreen
1 / 23

Manual del reproductor Visual Basic - PowerPoint PPT Presentation


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

slide7

3° Stop:

(Name): CMDStop

Caption: STOP

4° Adelantar:

(name): CMDAdelantar

Caption: ADELANTAR

5°Retroceder:

(Name): CMDRetroceder

Caption: RETROCEDER

slide8

•Volumen:

6°Mas:

(Name): CMDMas

Caption: +

7°Menos:

(Name): CMDMenos

Caption: -

8°Mute:

(Name): CMDMute

Caption: MUTE

slide9

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.

slide11

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

5 programaci n de los botones
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

slide16

•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

slide17

•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

slide18

•SALIR:

Private Sub CMDSalir_Click()

ThisDocument.Application.Visible = True

ThisDocument.Application.Quit

End Sub

declaraci n de la variable
Declaración de la variable:
  • Dim estado As Boolean
6 programaci n del bot n de encendido y apagado
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

7 programaci n de la lista
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.

8 programaci n del formulario
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

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