How can i randomly play files?

[itbank]

I know directory where files are stored, but how to open them randomly?

 

[pluton]

You didn't say what are you playing but i assume a .mp3

One way you can do like this.

I have added some test mp3 with name:

laz_1.mp3
laz_2.mp3
laz_3.mp3
laz_4.mp3

And the code goes like this (I commented it for you)

Sub random_Click

   Dim i As Int
   i = Rnd(1,4) ' random number from 1 to 4
   
   mediaplayer1.Load(File.DirAssets, "laz_"&i&".mp3") ' load our mp3 with random number
   Timer1.Initialize("timer1", 1000)
   MediaPlayer1.Play ' media is playing
   timer1.Enabled = True
   
   ToastMessageShow("Now is playing laz_"&i&".mp3", False) ' just check to see what is playing
   

        
End Sub

 

[Erel]

You can also use File.ListFiles to get a list with the files. You can then randomly choose a file from this list.

 

[itbank]

replyreply

I dont know file names, i use chooser to get Dir, after i want to play all mp3 in this Dir. How can i list files. I tried to toast list but i get exception

 

[Erel]

You can also use File.ListFiles to get a list with the files.

Basic4android Search: File.ListFiles

 

[enrico]

I'd like to get and play a random audio file (or an image) stored in a folder of my website. Is there a way ?
I think File.ListFiles need local folder.

 

[Erel]

There is no standard way to list the files on a web site. You can create a text file with the list of files, download this file and then randomly choose a file.

If you are running a FTP server then you can use FTP features to list the files.

 

[tufanv]

how can we avoid playing the same file 2 times in a row ?

You didn't say what are you playing but i assume a .mp3

One way you can do like this.

I have added some test mp3 with name:

laz_1.mp3
laz_2.mp3
laz_3.mp3
laz_4.mp3

And the code goes like this (I commented it for you)

Sub random_Click

   Dim i As Int
   i = Rnd(1,4) ' random number from 1 to 4
  
   mediaplayer1.Load(File.DirAssets, "laz_"&i&".mp3") ' load our mp3 with random number
   Timer1.Initialize("timer1", 1000)
   MediaPlayer1.Play ' media is playing
   timer1.Enabled = True
  
   ToastMessageShow("Now is playing laz_"&i&".mp3", False) ' just check to see what is playing
  

       
End Sub

 

[Erel]

This is an old thread. Please start a new thread for this question.