PLaying a CD

[Thuged_Out_G]

playing a cd in Visual basic is actually quite easy

first off, you'll need to start by going to the project menu, and selecting the components option. find and select Microsoft MultiMedia Control 6.0

and then you will have it on the toolbar to your left.
you then add that component to the form, and for this tutorial, we will set its visible property to "false", which will enable us to use our own buttons.

now for the form_load() procedure.

it should look something like this

Quote:

Private Sub Form_Load()
MMControl1.Notify = False
MMControl1.Wait = True
MMControl1.Shareable = False
MMControl1.DeviceType = "CDAudio"
MMControl1.Command = "Open"
End Sub

when the notify property is set to true, it generates a Done event after the next command is concluded.
The wait property decides if the MultiMedia control will wait for the next command to finish before giving control back to the program(True=will wait, false=will not wait)
the Shareable property determines the restriction status of media devices by other procedures or programs.
The DeviceType property is used to specify the type of MCI device(CDAudio for example)
the command="open" property opens the Cd(not actually open)

other commands that can be used with the command property are, play, open, close, pause, seek, stop, back, step, prev, next, record, eject, sound,save, track.

now, a most basic player(included here) will have a play button, stop, pause, next, and prev. so you will either need to make a button, or include a picture for each button(method described here)

so for your play button, it would simply be this

Quote:

Private Sub PlayPic_Click()
MMControl1.Command = "Play"
End Sub

the rest is pretty much self-explanatory ...for your stop button

Quote:

Private Sub StopPic_Click()
MMControl1.Command = "Stop"
End Sub

now for the form unload procedure

Quote:

Private Sub Form_Unload(Cancel As Integer)
MMControl1.Command = "Stop" 'stops any music playing
MMControl1.Command = "Close" 'closes the cd
End Sub

there is also the track command, which you can use to figure out the current track number playing...like this

Quote:

Text1.Text=MMControl1.Command="Track"

that will put the track number in the text box Text1(must first be created)

now, the full code for a simple media player(INCLUDE YOUR OWN IMAGES)

Quote:

Private Sub Form_Load()
MMControl1.Notify = False
MMControl1.Wait = True
MMControl1.Shareable = False
MMControl1.DeviceType = "CDAudio"
MMControl1.Command = "Open"
End Sub


Private Sub Image1_Click()
MMControl1.Command = "Next"
End Sub


Private Sub Image2_Click()
MMControl1.Command = "Pause"
End Sub

Private Sub Image3_Click()
MMControl1.Command = "Play"
End Sub

Private Sub Image4_Click()
MMControl1.Command = "Prev"
End Sub

Private Sub Image5_Click()
MMControl1.Command = "Stop"
End Sub

Private Sub Form_Unload(Cancel As Integer)
MMControl1.Command = "Close"
MMControl1.Command = "Stop"
End Sub

thats everything you need for a simple Cd player