manual del reproductor

UNIVERSIDAD GERARDO  BARRIOS

FACULTAD: CIENCIA Y TECNOLOGIA

MATERIA: PROGRAMACION 1

DOCENTE: LIC. NOELIA GOMEZ

INTEGRANTES:

RUDYS ALEXANDER DIAZ MEZA

JOSUE FERNANDO BERCIAN RUIZ

GRUPO: A

MANUAL PARA LA CREACION DE UN REPRODUCTOR MULTIMEDIA UTILIZANDO CONTROLES ESTANDAR DE VISUAL STUDIO 2013

MANUAL DE CREACION DE REPRODUCTOR MULTIMEDIA

VISUAL BASIC 2013

PROYECTO FINALIZADO

COMENZAREMOS AGREGANDO EL COMPLEMENTO “COM”

LLAMADO WINDOWS MEDIA PLAYER

CLIC DERECHO SOBRE EL CUADRO DE HERRAMIENTAS Y UBICAMOS LA OPCION ELEGIR COMPLEMENTOS LUEGO SE NOS MUESTRA UNA VENTANA EN DONDE SELECCIONAREMOS COMPONENTES COM Y BUSCAMOS EL COMPLEMENTO WINDOWS MEDIA PLAYER LO SELECCIONAMOS Y AGREGAMOS AL CUADRO DE HERRAMIENTAS PREDEFINIDO DE VISUAL STUDIO

AL AGREGARLO VEREMOS LA INTERFAZ DEL REPRODUCTOR ESTÁNDAR DE WINDOWS

AGREGAREMOS UN PANEL CUBRIENDO LOS CONTROLES ESTÁNDAR DEL REPRODUCTOR Y DENTRO DE EL CONFIGURAREMOS NUESTROS PROPIOS CONTROLES DE REPRODUCCION

PARA ELLO AGREGAREMOS 4 BOTONES 1 PARA EL CONTROL ATRÁS OTRO PARA EL CONTROL SIGUIENTE, OTRO PARA EL CONTROL PAUSAR Y EL ULTIMO PARA EL CONTROL REPRODUCIR

TAMBIEN AGREGAREMOS 2 LABEL Y 1 TIMER PARA CONTROLAR EL TIEMPO DE DURACION Y RECORRIDO DE LA PISTA

CODIGO DEL BOTON PLAY

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

AxWindowsMediaPlayer1.Ctlcontrols.play()

Timer1.Start()

End Sub

CODIGO DEL BOTON PAUSE

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

        AxWindowsMediaPlayer1.Ctlcontrols.pause()

        Timer1.Stop()

    End Sub

CODIGO DEL BOTON ATRÁS

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        AxWindowsMediaPlayer1.Ctlcontrols.previous()

    End Sub

CODIGO DEL BOTON SIGUIENTE

  Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

        AxWindowsMediaPlayer1.Ctlcontrols.next()

    End Sub

CONFIGURANDO LOS TIMERS

PARA ELLO UBICAREMOS EL CODIGO DE LOS BOTONES E IREMOS AGREGANDO LA FUNCION RESPECTO AL TIMER

PARA INICIAR EL TIEMPO AGREGAMOS AL CODIGO DEL BOTON DE PLAY LO MARCADO EN ROJO

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

        AxWindowsMediaPlayer1.Ctlcontrols.play()

        Timer1.Start()

    End Sub

PARA DETENER EL TIEMPO

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

        AxWindowsMediaPlayer1.Ctlcontrols.pause()

        Timer1.Stop()

    End Sub

PARA CONTROLAR EL TIEMPO DE DURACION Y RECORRIDO

PARA LABEL 1 Y LABEL 2

EL LABEL 1 MOSTRARA EL TIEMPO TRANSCURRIDO DESDE EL INICIO DE LA REPRODUCCION

EL LABEL 2 MOSTRARA LA DURACION TOTAL DE LA  PISTA

CODIGO

PARA AGREGAR ESTE CODIGO DA DOBLE CLIC SOBRE EL CONTROL TIMER UBICADO EN LA PARTE INFERIOR DE LA INTERFAZ

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        Dim crono As Integer

        crono = AxWindowsMediaPlayer1.currentMedia.duration

        Try

            Label2.Text = AxWindowsMediaPlayer1.currentMedia.durationString

            Label3.Text = AxWindowsMediaPlayer1.Ctlcontrols.currentPositionString

        Catch ex As Exception

        End Try

        End Sub

CONTROLANDO EL VOLUMEN DEL REPRODUCTOR

(PARA ESTA FUNCION USAREMOS UN TRACKBAR)

DOBLE CLIC SOBRE ESTE CONTROL E INSERTA EL SIGUIENTE CODIGO

Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.Scroll

        AxWindowsMediaPlayer1.settings.volume = TrackBar1.Value

    End Sub

AGREGANDO UNA LISTA DE REPRODUCCION

(USAREMOS UN LIST BOX)

IGUALMENTE DOBLE  CLIC SOBRE EL CONTROL E INSERTAR EL SIGUIENTE CODIGO

    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged

        AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem()

        Timer1.Start()

    End Sub

SI TE MARCA ALGUN ERROR ES PORQUE AUN NO HEMOS AGREGADO EL OPENFILEDIALOG

AGREGANDO EL CONTROL OPEN FILE DIALOG

(DIALOGO DE APERTURA DE ARCHIVOS)

DOBLE  CLIC SOBRE EL CONTROL E INSERTAR EL SIGUIENTE CODIGO

Private Sub OpenFileDialog1_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk

        For Each track As String In OpenFileDialog1.FileNames

            ListBox1.Items.Add(track)

        Next

    End Sub

LUEGO CREAREMOS EL BOTON IMPORTAR Y DENTRO DE EL INSERTAREMOS ESTE CODIGO

        OpenFileDialog1.ShowDialog()   

YA CON ESTO PODEMOS DAR POR TERMINADO NUESTRO PROYECTO SOLO QUEDARIA CONFIGURAR UN BOTON PARA SALIR DE LA APLICACIÓN Y DISEÑAR LA INTERFAZ A SU GUSTO

                                                                          mailto:Spirit@Developtment.net