La Web del Programador: Comunidad de Programadores
 
    Pregunta:  19495 - REPRODUCIR MP3 CON REALPLAYER
Autor:  Gengis Leon Garcia
Saludos

Tengo un modulo disenado para llenar notas de alumnos de secundaria de un colegio y me encomendaron que el programa debe cantar los apellidos y nombres de toda la lista. Yo grabe los apellidos y notas de todos los alumnos en formato MP3.

El problema es que cuando quiero que reproduzca, es decir se escuche primero los apellidos y despues la nota, solo se escucha la nota

Ejemplo:
en un command1 tiene el siguiente codigo

Private sub Command1_click
MediaPlayer1.filename = "file_ape.mp3"
MediaPlayer1.play

MediaPlayer1.filename = "file_nota.mp3"
MediaPlayer1.play
End Sub

Gracias de ante mano aquien solucione mi problemitaaaa

  Respuesta:  Eligio Almuedo
Tu problema es que la segunda instruccion play machaca la primera, escuchandose solo la segunda(o sea la nota). La solucion es intercalar una pausa entre ambas. Una idea es crear esta subfuncion:

Public sub PAUSA(x)

captura = timer
do: loop until (timer - captura) > x

End sub

Para usarla y por ejemplo causar una pausa de 3 segundos escribes:
PAUSA (3)