Visual Basic para Aplicaciones - Reproducción Aleatorea

Life is soft - evento anual de software empresarial
 
Vista:

Reproducción Aleatorea

Publicado por Karlos Alberto S.D. (4 intervenciones) el 12/06/2002 00:37:53
Hola que tal, les envio un saludo y que esten pasando un excelente día.

Mi motivo de este mensaje es para la siguiente ayuda, estoy desarrollando un reproductor MP3 para uso personal ya esta terminado ya me

funciona perfectamente solo que tiene un detalle, no puedo generar el código para que me haga una reproducción aleatorea, por el momento

solo me reproduce de una manera continua y lo que quisiera y si es si me pueden ayudar, ¿como hacer para generar la reproducción aleatorea?.

Tengo el siguiente código con el cual me hace una reproducción continua:
utilizo como lista un objeto "List"
valor_inicial = mp3_list.lista.ListIndex <---Toma el primer valor de cero

mp3_list.lista.ListIndex = valor_inicial + 1<---En la segunda vuelta ya vale 1 por que sumo la primer vuelta

mp3_vox.repro.FileName = mp3_list.lista.Text <---Toma el nombre del archivo que se encuentra en ese momento seleccionado

mp3_vox.repro.play<---Reproduce el archivo de la suma ultima del List

Si me pudieran ayudar a generar la reproducción aleatorea se los agradecería mucho.

De antemano muchas gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Reproducción Aleatorea

Publicado por Samus (18 intervenciones) el 13/06/2002 04:24:51
Para producir numeros aleatorios utiliza la funcion Rnd(numero), lo que quieres es producir un numero que esté entre 0 y el numero maximo de la lista
Para producir un entero entre un rango usa la formula:
numero = Int((Límite_superior - límite_inferior + 1) * Rnd + límite_inferior)
Como el limite inferior es 0 y limite superior es list1.listcount (el numero de elementos) con esto te sale el index de la lista aleatoriamente
list1.listindex = numero
etc...
Have Fun!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar