Estudiante: Òscar Alberto Alvarado Rodríguez Sección : 7-16.
-
Upload
martita-perea -
Category
Documents
-
view
12 -
download
0
Transcript of Estudiante: Òscar Alberto Alvarado Rodríguez Sección : 7-16.
Estudiante: Òscar Alberto Alvarado
Rodríguez Sección : 7-16
Entramos a Microsoft Word estrimos alt y F11 al mismo tipo empezamos hacer el reproductor
PlayPauseStopMuteMas MenosAdelantarAtrasarSalir, on/off la barra de elegir video
Play: es para reproducir la canción.Programación: WMPpantalla.Controls.play
Pause: para pausar la canción. Programación: WMPpantalla.Controls.pause
Stop: devuelve la canción al inicio.Programación: WMPpantalla.Controls.stop
Mute: para poner la canción en silencio pero el video sigue en movimientoprogramación :If WMPpantalla.settings.mute = True ThenWMPpantalla.settings.mute = FalseElseWMPpantalla.settings.mute = TrueEnd If
Mas: para subir el volumen de la canción.Programación: WMPpantalla.settings.volume = WMPpantalla.settings.volume + 10
Menos: para bajar el volumen de la canción.Programación: WMPpantalla.settings.volume = WMPpantalla.settings.volume – 10
Adelantar: para pasar la canción mas rápido Asia delante.Programación: WMPpantalla.Controls.fastForward
Atrasar: para atrasar mas rápido el video Asia atrás.Programación: WMPpantalla.Controls.fastReverse
Salir: para salir de todo el programa Programación:ThisDocument.Application.Visible = TrueThisDocument.Application.Quit
On/off : para quitar los botones y para volverlos a poner.Programación:If estado = False ThenCMDplay.Enabled = TrueCMDpause.Enabled = TrueCMDstop.Enabled = TrueCMDadelantar.Enabled = TrueCMDatrasar.Enabled = TrueCMDmute.Enabled = TrueCMDmas.Enabled = TrueCMDmenos.Enabled = TrueCMDExit.Enabled = TrueCBOlista.Enabled = TrueCBOlista.Enabled = Trueestado = TrueElse
CBOlista.Enabled = Trueestado = TrueElseCMDplay.Enabled = FalseCMDpause.Enabled = FalseCMDstop.Enabled = FalseCBOlista.Enabled = FalseCMDadelantar.Enabled = FalseCMDatrasar.Enabled = FalseCMDmas.Enabled = FalseCMDmenos.Enabled = FalseCMDmute.Enabled = FalseCMDExit.Enabled = Falseestado = FalseEnd If
Barra para elegir el video: sirve para escoger el video que deseamos.Programacion: Select Case CBOlista.ListIndexCase 0WMPpantalla.URL = ActiveDocument.Path & ("/Videos/basta de violencia.WMV")Case 1WMPpantalla.URL = ActiveDocument.Path & ("/Videos/EL Embarazo.WMV")Case 2WMPpantalla.URL = ActiveDocumet.Path & ("/Videos/Baile Del Robot.WMV")End Select