1. Buka Program Microsoft Visual Basic yang telah terinstall di Komputer ataupun di Laptop Kalian.
2. Buat sebuah Project baru dengan Memilih Standart Exe.
3. Sebelum melanjutkan pembuatan program Mp3 player menggunakan visual basic, terlebih dahulu tambahkan komponen Multimedia Control dan Common Dialog Control ke ToolBox Vb.
Cara menambahkan Components baru ke Toolbox Visual Basic.Caranya dengan Klik menu Project dan pilih components, atau dengan Mengklik kanan Toolbox dan pilih Components bisa juga dengan menekan tombol Ctrl + T dari Keyboard anda. Selanjutnya akan muncul jendela components dan beri centang pada Microsoft Common Dialog Control 6.0 dan Microsoft Multimedia Control 6.0. Klik Ok.
4. Tambahkan Component seperti 2 Command Button, Multimedia Control, Common Dialog Control dan 2 buah Label . Masin-masing Component satu buah dan atur sedemikian rupa atau kurang lebih tampak seperti gambar berikut ini.
Command2 captionnya Keluar
Command1 captionnya Open Files
Label2 BorderStylenya 1-Fixed Single
1. Untuk Form Load Isikan Script VB seperti ini.
Private Sub Form_Load()
MMControl1.TimeFormat = mciFormatMilliseconds
Label1.Caption = "Sttatus = Frezze"
End Sub
2. untuk Form Unload isikan Script Vb seperti ini
Private Sub Form_Unload(Cancel As Integer)
MMControl1.Command = "Stop"
MMControl1.Command = "Close"
End Sub
3. Klik dua kali Command Button yang bercaption Open Files dan tambahkan Script VB seperti Berikut.
Private Sub Command1_Click()
CommonDialog1.CancelError = True
CommonDialog1.Filter = "MP3 (.Mp3)|*.Mp3|Wav (.Wav)|*.Wav|Mpg (.Mpg)|*.Mpg|Flv (.Flv)|*.Flv|3gp (.3gp)|*.3gp|AVI (.Avi)|*.Avi|Mp4 (.Mp4)|*.Mp4|All Files (*.*)|*.*"
CommonDialog1.FileName = "*.Mp3"
CommonDialog1.DialogTitle = "Open Animation"
On Error GoTo ErrorHardler2
CommonDialog1.ShowOpen
MMControl1.Command = "stop"
On Error GoTo ErrorHardler1
MMControl1.FileName = CommonDialog1.FileName
MMControl1.Command = "Open"
Label2.Caption = CommonDialog1.FileTitle
Exit Sub
ErrorHardler1:
MsgBox "Cannot Play That File.", vbExclamation
ErrorHardler2:
End Sub
4. Selanjutnya pada Jendela Code, untuk Declaration pada Mmcontrol1 pilih StatusUpdate dan tambahakan Script vb seperti berikut
Private Sub MMControl1_StatusUpdate()
Dim strMode As String
strMode = ""
Select Case MMControl1.Mode
Case mciModeReady
strMode = "Ready."
Case mciModeStop
strMode = "Stopped."
Case mciModeSeek
strMode = "Seeking."
Case mciModePlay
strMode = "Playing."
Case mciModeRecord
strMode = "Recording."
Case mciModePause
strMode = "Paused."
End Select
Label1.Caption = "Status = " & strMode
End Sub
5. Selesai
6. Jalankan Program Buatan Anda Hasilnya kurang Lebih seperti Berikut ini
Bisa Juga Memutar Video, Kurang Lebis Seperti ini
Satu
catatan yang mungkin saya berikan adalah kondisi Mmcontrol terkadang
mengalami error atau dalam keadaan frezze tanpa respon. Untuk
menanggulanginya cukup tutup program yang anda buat dan jalankan lagi.
Program Mp3 Player
tersebut terbilang sederhana dan dapat dikembangkan lagi kedepannya
sehingga menjadi program yang lebih baik. Jika anda mau sedikit berkerja
keras, Mungkin anda dapat membuat Program Semacam Winamp atau program
Pemutar Mp3 lainnya.
yang belum jelas Ambil Juga Projectnya di Sini DOWNLOAD
Selamat Mencoba.!!!!
