Cara Membuat aplikasi pemutar musik sederhana di visual basic

Assalamualaikum wr.wb

Kali iniu saya akan membahas mengenai cara membuat aplikasi pemutar musik .exe yang langsung saja :

Bahan yang anda perlukan adalah :

-         Komputer

-         Aplikasi visual basic 6.0

-         Dan sedikit pemahaman seputar visual basis 

     Serta kopi hangat

 

duduk yang santai sambil dengar lagu JKT48 biar enak (hahahah) saat membuat aplikasi ini menggunakan visual basic (atau yang biasanya disingkat VB) nah buka program visual basicnya (VB) setelah terbuka muncul jendela seperti ini 

Sudah? 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	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	Kategori componen yang diganti	Isi dengan yang ini
Command1	caption	Open/buka
Command2	caption	Exit/keluar
Label1	caption	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 co-pas aja code di bawah ini

Private Sub Command1_Click()

On Error GoTo loncat

MMControl1.Command = "stop"

CommonDialog1.ShowOpen

MMControl1.FileName = CommonDialog1.FileName

MMControl1.Command = "open"

Label2.Caption = CommonDialog1.FileTitle

loncat:

Exit Sub

End 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 

  nah kalau ada kode yang error silahkan corat-coret di komentar

  sekian dari saya wassalamualaikum wr.wb