Cara membuat Aplikasi MP3 Player Dengan Visual Basic

Hallo sobat... Kali ini saya akan coba berbagi tutorial cara membuat aplikasi pemutar MP3 menggunakan Visual Basic. Bagi sobat yang berkecimpung di dunia pemrograman tentunya sudah tidak asing lagi dengan software yang satu ini. Tapi bagi sobat yang masih Newbie gak ada salahnya kita coba belajar membuat aplikasi pemutar MP3 sendiri. Langkah-langkahnya sangat mudah, langsung aja kita mulai ya..
Pertama tama yang perlu kita siapkan adala sbb:

1. Text Box

2. MMC (Microssoft Media Control )

3. Drive List

4. Dir List

5. ComboBox

6. Serta ,Satu buah Filed List,

7. 3 CommandButton

langkah-langkahnya adalah sbb,:

Pertama kita akan memilih Format pada combo box , seperti *.Mp3, *.Mid, *.WAV, dll, setelah memilih format , kemudian memilih drive mana yang akan di gunakan , missal Drive C pada Drive List, maka pada Dir list Akan menampilkan Direktori-direktori (folder) , sedangkan pada field List akan menmapilkan judul(Field ) Sesuai format yang telah kita pilih, selanjutnya jika memilih dari salah satu lagu yang kan kita putar pada field list maka , Text Box akan menunujukan (menampilkan ) Lagu yang telah dipilih , ketika Tombol play di tekan maka lagu akan segera terdengar …keren kan?,.

Untuk name pada

Dir 1, Drive1, Combo1, text1,Fille 1, biarkan default jangan dirubah -rubah biar anda bisa paham dan mengerti dengan Script yang akan saya buat.

Nah untuk MMC control Pada bagian Name ubah menjadi= AudioPlayer, Command1=Play , command2=Stop, Command3=Exit dan untuk caption terserah anda karma enggak ngaruh dengan script yang akan kita buat.:

Pembuatan script sesuaikan dengan komponen yang anda makasud Misal kita mau buat di Commbo1 maka klik dua kali terus tentukan eventnya , baru ketikin scriptnya:

Private Sub Combo1_Change()

‘ Pada bagian ini anda bisa menambahkan format atau extensi yang lain sesuai kebutuhan anda

If ListIndex = 0 Then

File1.Pattern = (“*.wav”)

ElseIf ListIndex = 1 Then

File1.Pattern = (“*.mid”)

ElseIf ListIndex = 2 Then

File1.Pattern = (“*.mp3″)

Else

Fiel1.Pattern = (“*.*”)

End If

End Sub

Private Sub Dir1_Change()

‘Nah ini Untuk mengubah direktori yang akan kita pilih , diamana file list akan menunujukan sesuai folder yang akan dipilih

File1.Path = Dir1.Path

If Combo1.ListIndex = 0 Then

File1.Pattern = (“*.wav”)

ElseIf Combo1.ListIndex = 1 Then

File1.Pattern = (“*.mid”)

ElseIf Combo1.ListIndex = 2 Then

File1.Pattern = (“*.mp3″)

Else

File1.Pattern = (“*.*”)

End If

End Sub

Private Sub Drive1_Change()

‘Merubah dir jika sesuai dengan drive yang dipilih

Dir1.Path = Drive1.Drive

End Sub

Private Sub Exit_Click()

End

End Sub

Private Sub File1_Click()

‘Memilih lagu yang akan diputar pada bagian File1 list,

If Combo1.ListIndex = 0 Then

File1.Pattern = (“*.wav”)

ElseIf Combo1.ListIndex = 1 Then

File1.Pattern = (“*.mid”)

ElseIf Combo1.ListIndex = 2 Then

File1.Pattern = (“*.mp3″)

Else

File1.Pattern = (“*.*”)

End If

If Right(File1.Path, 1) <> “\” Then

FileNam = File1.Path + “\” + File1.FileName

Else

FileNam = File1.Path + File1.FileName

End If

Text1.Text = FileNam

End Sub

Private Sub Form_Load()

‘Memposisikan media player yang kita buat pada posisi di tengah pada saat pertama kali tampil

Left = (Screen.Width – Width) \ 2

Top = (Screen.Height – Height) \ 2

Combo1.Text = “*.wav”

Combo1.AddItem “*.wav”

Combo1.AddItem “*.mid”

Combo1.AddItem “*.mp3″

Combo1.AddItem “All files”

End Sub

Private Sub MMControl1_Done(NotifyCode As Integer)

End Sub

Private Sub play_Click()

‘Script ini untuk menjalankan lagu pada MMC

If Combo1.ListIndex = 0 Then

AudioPlayer.DeviceType = “WaveAudio”

ElseIf Combo1.ListIndex = 1 Then

AudioPlayer.DeviceType = “Sequencer”

ElseIf Combo1.ListIndex = 2 Then

AudioPlayer.DeviceType = “waveAudio”

End If

AudioPlayer.FileName = Text1.Text

AudioPlayer.Command = “Open”

AudioPlayer.Command = “Play”

End Sub

Private Sub stop_Click()

If AudioPlayer.Mode = 524 Then Exit Sub

If AudioPlayer.Mode <> 525 Then

AudioPlayer.Wait = True

AudioPlayer.Command = “Stop”

End If

AudioPlayer.Wait = True

AudioPlayer.Command = “Close”

End Sub

sekarang coba anda jalankan program tersebut lalu , lakukan pemilihan lagu yang anda kehendaki dan dengarkan hasilnya ,mantaaaap...

sekian dulu dech.. semoga bermanfaat..
maaf belum bisa kasih gambar, app buat screen shoot lagi eror hehe..