Cara Membuat MP3 Player di Visual Basic 6.0

4:37:00 AM    

 
Membuat MP3 Player, kata siapa susah?
Bagi yang berminat membuat MP3 Player (sederhana), coba baca postingan ini.
Mungkin, biasanya Pemutar MP3 sudah ada yang bawaan dari system operasinya, misalkan Windows Media Player yang terdapat di Microsoft Windows, tapi apasalahnya jika anda membuat sendiri?, mungkin jika anda berhasil membuat MP3 Player, anda bisa Berpuas diri memutar Lagu dengan Aplikasi buatan anda sendiri.
dan ini Langkah-Langkahnya :
1. Buka Visual Basic 6.0
2. Pilih Standard EXE
3. dan Tambahkan Komponen (dengan tombol keyboard 'Ctrl+T'), dan tambahkan komponen Microsoft Common Dialog Control (6.0) dan Microsoft Multimedia Control (6.0)

4. Klik Terapkan, dan Ok
5. Atur lebar form, sesuai yang anda inginkan
6. Lalu, buatlah 1 buah Label, 4 buah Command Button,1 buah MMControl dan 1 buah Common Dialog, seperti dibawah ini :
 
7. Aturlah Semua Properties Objek sesuai dibawah ini :
Komponen  Properti  Nilai
Form = Name = Form1
             Caption = Audio Player
Label = Name = lblLagu
              Caption = (kosongkan)
              BackColor = &H00FFFFFF&
Command1 = Name = cmdBuka
                        Caption = &Buka
Command2 = Name = cmdPlay
                        Caption = Play
Command3 = Name = cmdStop
                        Caption = Stop
Command4 = Name = cmdKeluar
                        Caption = Keluar
MMControl = Name = Mmc
                         Visible = False
CommonDialog = Name = BukaFile

8. Gambar dibawah ini adalah tampilan Form setelah selesai dilakukan pengaturan di jendela Properties. (Perhatian : Pada saat program dijalankan MMControl dan CommonDialog tidak akan tampil)

9. Sekarang, tinggal Proses Coding yang berfungsi sebagai perintah agar aplikasi program yang kita buat bisa digunakan. Caranya Klik View > Code .
10. Lalu Ketikan, ataupun Copy-Paste code di bawah ini pada halaman Coding :

Private Sub cmdBuka_Click()
On Error Resume Next
BukaFile.Filter = "MP3|*.mp3|"
BukaFile.ShowOpen
Mmc.FileName = BukaFile.FileName
Mmc.Command = "close"
Mmc.Command = "open"
Label1.Caption = BukaFile.FileTitle
End Sub
Private Sub cmdKeluar_Click()
Unload Me
End Sub
Private Sub cmdPlay_Click()
Mmc.Command = "seek"
Mmc.Command = "play"
End Sub
Private Sub cmdStop_Click()
Mmc.Command = "seek"
Mmc.Command = "stop"
End Sub

11. Setelah memasukan coding diatas, coba anda klik Start, atau bisa dengan menggunakan tombol key F5 untuk menjalankan program
12. Cobalah masukkan lagu dengan cara klik tombol Buka (Perhatian : jenis File yang diterima berformat MP3), setelah lagu masuk, klik tombol Play untuk memainkan/ memutar lagu, jika ingin berhenti klik tombol Stop, jika ingin menutup program klik tombol Keluar. Bagaimana mudah bukan?
13. Sekarang andapun bisa memperindah tampilan aplikasi program Audio Player anda, cobalah berkreasi dengan desain