Bahan yang anda perlukan adalah :- Komputer
- Aplikasi visual basic 6.0 kalau beli di gramedia harga kira-kira sekitar 20.000,-
- Aplikasi winamp
- Dan sedikit pemahaman seputar visual basic
Nah ,duduk yang santai minum kopi dan dengarin musik kalau bisa ya agar anda tidak jenuh saat membuat aplikasi ini menggunakan visual basic (atau yang biasanya disingkat VB) nah buka program visual basicnya (VB) setelah terbuka muncul jendela kayak gini
Sudah?,ditanyak kok diam aja nah kalau sudah muncul jendela kayak gini pilih standard exe dan setelah itu tekan open ,jika sudah langkah selanjutnya adalah menambahkan komponen klik project menu di paling atas disebelah view,sama format ,lalu klik components atau tekan ctrl+t setelah itu muncul jendela menu kayak gini
Nah sekarang tandai componen berikut di jendela tersebut antara lain :
- Microsoft common dialog 6.0 (SP3)
- Microsoft multimedia control 6.0
Dan jika sudah menandai klik ok (perhatian jika tidak bisa ulangi terus sampai ada yang muncul di kiri componennya)
Nah sekarang tambahkan componen berkut ke dalam from
Nama componen dan banyaknya
- mmcontrol : 1
- Command button :2
- Label :2
- Common dialog :1
Perhatian :jika anda mau menambahkan aksesoris lain silahkan saja
Lalu ubah componen berikut ini yang sesuai dengan yang diperintahkan
Nama componen yang diganti
Isi dengan yang ini
- Command1
caption
[Open/buka ]
- Command2
caption
[Exit/keluar]
- Label1
caption
[Terserah Anda]
Nb : tanda [ ] dihapus
Aplikasi pemutar musik atau (nama aplikasi pemutar musik yang anda buat) - Label2
Caption
borderstyle
(kosongkan)
1-fixedsingle
- Commondialog
Cancelerror
filter
TRUE
*MP3
MMcontrol
Eject enable
Eject visible
Pause enable
Pause visible
Play enable
Play visible
Stop enable
Stop visible
Semuanya kasih TRUE
Jika sudah sekarang tinggal kasih code-codenya klik kanan pada suatu komponen yang anda buat lalu klik view code
Nah tanpa otak otik(maksudnya jangan diotak-atik)co-pas aja code di bawah ini
- Private Sub Command1_Click()
- On Error GoTo loncat
- MControl1.Command = "stop"
- CommonDialog1.ShowOpen
- MMControl1.FileName = CommonDialog1.FileName
- MMControl1.Command = "open"
- End sub
- Label2.Caption = CommonDialog1.FileTitleloncat:
- Exit Sub
- Private Sub Form_Resize()
- On Error Resume Next
- Form.Width = Me.ScaleWidth
- Form.Height = Me.ScaleHeight - 1680
- End Sub
- Private Sub Form_Unload(Cancel As Integer)
- MMControl1.Command = "stop"
- End Sub
- Private Sub Command2_Click()
- End
- End Sub
- Nah setelah itu kita kembali ke form1 sekarang kita atur baik-baik ya componenya agar indah dipandang mata kalau saya sarankan seperti saya ini :
nah kalau gitu sekarang kita coba dengan cara klik start/ klik f5 
(Sudah dalam keadaan mulai )
nah nikmati deh nilai guna aplikasi pemutar music buatan anda sendiri