[Help]Save music on a music Player

[Web-Designer]

(I searched 3 times, didn't find anything.)


Okay you add the music you want, it plays it. . .then you restart it and you have to add the music again. . .How would you do it so you don't have to?

Then when you pull it up you have to click one of the songs first. How would I get it to auto-play on start up. (But if theres no music it doesn't do anything.)


(Off topic: I'm also trying to find out how to make the right-click pop-up window. . .)

Thank you. (+1 Thanks & +Rep)

[Invidus]

Well idk about saving the song, but to auto play on start up have like a checkbox somewhere. Then double click it, should bring up Check_Changed event. Then create a new setting , caleld whatever you want and set it to Boolean, False.

In the check_changed event, put in this code:

[php]If CheckBox1.Checked = True Then
My.Settings.(Yoursettingnamehere) = True
Else
My.Settings.(Yoursettingnamehere) = False
End If[/php]

On your Form_Load have this code:

[php]If My.Settings.(settingnamehere) = True Then
'Put your music play code here
End If[/php]

That shuld work xD

[Jason]

Are you adding each song to a listbox? If so then these two subs will save/load them respectively.

[php]
Private Sub SaveSongs()

Using sWrite As New IO.StreamWriter(Application.StartupPath & "\SongList.dat", False)

For Each s As String In ListBox1.Items
sWrite.WriteLine(s)
Next

End Using

End Sub

Private Sub LoadSongs()

Using sRead As New IO.StreamReader(Application.StartupPath & "\SongList.dat")

Do Until sRead.EndOfStream
ListBox1.Items.Add(sRead.ReadLine)
Loop

End Using

End Sub
[/php]

The saved song list will be stored in a .dat file in the application startup path called "SongList"

Whenever you want to save the songs simply do

[php]
SaveSongs()
[/php]

and to load them again

[php]
LoadSongs()
[/php]

Okay now you can save/load them you just need the autoplay option correct?

Add this on form_load event.

[php]

Dim myRand as New Random()
Dim i as Integer = myRand.Next(0, listbox1.Items.count)

AxWindowsMediaPlayer1.URL = ListBox1.Items(i)
AxWindowsMediaPlayer1.Ctlcontrols.play()

[/php]

This will randomly select a song from your list and start it playing. If you just want it to play the first song on the list, just remove the myRand and i variables completely and change this around.

[php]
AxWindowsMediaPlayer1.URL = ListBox1.Items(i) 'change this line to the line below!
AxWindowsMediaPlayer1.URL = ListBox1.Items(0) 'This will play the first song in the list.
[/php]


Anything I missed?

[Invidus]

Aw you just complicated that xD
Why do people use so complicated code like that xD
Not saying its bad, just gives me a headache ^^
Nice job.

[Jason]

Aw you just complicated that xD
Why do people use so complicated code like that xD
Not saying its bad, just gives me a headache ^^
Nice job.

There isn't anything complicated about it lol, it's pretty straightforward as it is. If code like that gives you a headache you should probably consider a different hobby All I did was choose a song from the list on form_load and execute the play command for the windows media player. Oh yeah and two 4 line sub-procedures, what's difficult?

[Invidus]

Nah i'm just over-exaggerating.
But just some of your code is out of my area lol.
Its just not code i've encountered before xD

[Jason]

Nah i'm just over-exaggerating.
But just some of your code is out of my area lol.
Its just not code i've encountered before xD

Examples pl0x? I'll explain them, as it's all simple stuff anyway

[Invidus]

Okay then =P

This bit

Dim myRand as New Random()
Dim i as Integer = myRand.Next(0, listbox1.Items.count)

Whats a random?

And this bit..

Do Until sRead.EndOfStream

Whats the use of Do Until?

[Jason]

Okay then =P

This bit

Dim myRand as New Random()
Dim i as Integer = myRand.Next(0, listbox1.Items.count)

Whats a random?

And this bit..

Do Until sRead.EndOfStream

Whats the use of Do Until?

Okay a random is a Random expression, when I use it with

[php]
Dim i as Integer = myRand.Next(0, listbox1.items.count)
[/php]

Essentially what it does is give the variable "i" a random integer value between 0 and ListBox1.Items.Count

After we've got this "random" integer we use it to get a random listbox item

[php]
ListBox1.Items(i)
[/php]

ListBox items are indexed from 0 to however many items there is minus one and you can obtain a specific item by passing its index. In this case I just made it pick a random item from the listbox by using our "random" index.

Hope I did a good enough job explaining that, now on to "Do until"

Basically, by saying

[php]
Do Until sRead.EndOfStream
[/php]

I'm telling it to loop the following statements until we reach the end of the stream (in this case, the stream is the text stored in the .dat file I'm reading) This is easier than doing

[php]
Do
If not sRead.Readline = "" then
ListBox1.Items.Add()
Else
Exit Do
End if
Loop
[/php]

Where we have to check whether each line is empty or not to determine whether we are at the end of the text file. The "until" statement gives an easy exit to the "Do-Loop" block.

Anything else?

[Invidus]

Nope, thanks a lot

[Jason]

Nope, thanks a lot

No problemo, glad I could help.

[Invidus]

/Thanked.
I'ma go play around wit mah Visual Studio now =P

[Lolland]

This looks solved to me.

[Web-Designer]

Okay well none of that helped. . .So. . .I came up with:

made a text box, when clicked it opens a dialog you add whatever folder and all the mp3, wma, and mp4 files are added to the song list

Now I jsut gotta find the bits of code to put it together lol

[Lolland]

None helped?

Unsolved then.