slide1
Download
Skip this Video
Download Presentation
Manual del reproductor en visual Basic

Loading in 2 Seconds...

play fullscreen
1 / 14

Manual del reproductor en visual Basic - PowerPoint PPT Presentation


  • 127 Views
  • Uploaded on

Manual del reproductor en visual Basic. Josué Alexis Rojas Rojas. 2 0 1 2. 7-14. Inicio Pasos: . #1- Inicio Microsoft Office Word #2- Presionar Alt+F11 #3- Habilitar Contenido #4- Arriba Insertar UserForm #5- A la izquierda ( Name )= FRMReproductor

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 en visual Basic' - raoul


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
slide1

Manual del reproductor en visual Basic

Josué Alexis Rojas Rojas

2

0

1

2

7-14

slide2

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)

slide3

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

slide4

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

slide5

Botones

#1- Barra de herramientas Botón de comando y arrastrar

#2- Cambiar los Name y Picture

slide6

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

slide7

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

slide8

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

slide9

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

slide10

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

slide11

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

slide12

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

slide13

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

slide14

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

ad