Membuat Applikasi Mp3Player dengn Vb 6.0

Halo sobat muda semua , kalai ini saya akan mencoba menjelaskan bagaiman caranya membuat sebuahapplikasi untuk memutar lagu yang berformat Mp3, tentunya bisa saja kita mennambahkan format lain sesuai kebutuhan kita .

Kalau selama ini kita merasa bosan dengan media player yang itu-itu aja, nah sekarang saatnya kita berkreasi sesuai imajinasi kita he….he….he…,.

Dan jangan khawatir scriptnya cukup pendek dan saya yakin anda semua pasti bisa , Oke dech kita mulai aja kali ya nah yang perlu kita siapkan adalah:

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

Skanario yang akan kita buat 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?,.

Naha sekarang coba desaign form layout kayak gini nih:

Nah, gampang bukan , tentunya kalau pengen bagus silahkan anda desaign semaksimal mungkin , kalau punya saya maklumlah buatnya aja Cuma dua jam , jadi hasilnya juag kurang maksimal

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

Nah sekarang anda jalankan program tersebut terus , lakukan pemilihan lagu yang anda kehendaki dan dengarkan hasilnya , Wow.. J, keren euy ……………………,

Kalau berhasil jangan lupa kasih tahu temen-temenya terus  nyombong dech….he…..he..(becanda bos) , sombong boleh asal kalau ada temannya mau Tanya dan pengen belajar di kasih tahu ya.. L, ya udah   kayaknya saya cukupin dulu kali ya , pokoknya Good look aja ya……

By : jombi_par