Cara Buat Mp3 Video player Via VB6 Portable Atau Juga Visual Basic 6

coretan kali ini akan kami paparkan pembelajaran cara membuat aplikasi MP3 Player menggunakan Visual Basic 6.0, pembelajaran ini akan kita awali dari hal yang paling mendasar, artinya dalam pembuatanya, akan kita lakukan secara bertahap .

tujunannya agar kita benar-benar dapat memahami Fungsi dari setiap perintah Kode yang kita berikan pada aplikasi Pemutar lagu yang akan kita Buat.

Mari kita mulai

Pertama : persiapan

1. Siapkan Program Visual Basic 6.0 dalam computer anda, jika belum punya
2. Siapkan Kopi dan Rokok ( bagi yang Suka kedal kedul )
3. Jika anda sedang ngantuk silahkan Tidur Dulu, jangan dilanjutkan ( orang ngantuk biasanya sulit untuk memahami sesuatu, karena jelas ingatanya tidak akan berfungsi 100% )
4. Jangan memikirka Hal yang jorok ( wajib )
5. Jika anda benar-benar sudah siap, Baca Basmallah untuk memulainya

Kedua : Pembuatan Form Utama MP3 Player

Buka Visual Basic 6.0 – buka menu File pilih New project

Pilih Standard.exe kemudian tekan Tombol Ok lihat 

Sehingga anda mendapati project baru dengan sebuah Form bernama Form1

Sebelum melanjutkan silahkan perhatikan tool-tool yang akan kita Gunakan

• CommandButton
• ListBox
• DriveListBox
• DirListBox
• FileListBox
• MediaPlayer

Lihat Gambar 3

Dari tool-tool diatas yang tidak tampil secara default adalah Mediaplayer, untuk menampilkanya ikuti langkah berikut :

Klik Kanan Pada area ToolBox – pilih Components

Pada jendela Components pilih Tab Control, cari Windows media Player dan berikan Centang – pilih Apply kemudian OK, maka tool media player akan tampil pada area toolbox

Ketiga : Pemasangan Komponen Pada Form Utama

Masukkan beberapa komponen di bawah ini pada Form1

1 buah MediaPlayer

2 Buah ListBox ( List1 dan List2 )

7 Buah CommandButton

Ganti Caption pada CommandButton

• Command1 Ganti Dengan Play
• Command2 ganti dengan Stop
• Command3 ganti dengan Pause
• Command4 ganti dengan Add File
• Command5 ganti dengan Add Folder
• Command6 ganti dengan Add

Untuk mengganti caption dari command button , silahkan klik command yang ingin anda ganti caption-nya kemudian pada kotak properties sebelah kanan cari caption, ganti value-nya seperti yang anda inginkan,

Sekarang kita setting agar command4 dan command5 tidak terlihat saat aplikasi di jalankan, caranya :

Klik Command4 / Add File ,pada kotak properties cari visible, ganti value pada visible menjadi False 

Silahkan anda susun Desaign sesuai keinginan Anda, saran saya letakkan komponen MediaPlayer dan List2 di belakang List1 agar kedua komponen tersebut tidak kelihatan saat aplikasi di jalankan

sebagai contoh , penataan komponen yang saya Buat lihat 

KeEmpat : membuat Form2 ( form untuk Menambahkan File )

Tutup Form1

Buka Menu Project dan Pilih Add Form

Maka anda akan di berikan form baru dengan nama Form2

Berikan komponen berikut pada Form2

1 buah DriveListBox

1 Buah DirListBox

1 Buah FileListBox

2 Buah CommandButton

Ganti Caption pada masing-masing command Button

Command1 ganti dengan Add selected File

Command2 ganti dengan Cancel

Atur sesuai selera Anda atau lihat contoh penataan yang saya Buat pada

Kelima : membuat Form3 untuk menambahkan multifile dari satu Folder

Tutup Form2

Buka Menu Project dan Pilih Add Form

Program akan menampilkan satu form lagi dengan nama Form3

Berikan komponen berikut pada Form3

1 Buah DriveListBox

1 buah DirListBox

2 Buah CommandButton

Ganti caption Pada CommandButton

Command1 ganti dengan Add Selected Folder

Command2 ganti dengan Cancel

Atur penataan letak sesuai keinginan anda, lihat contoh penataan yang saya Buat

Ke Enam : Pemberian Kode Pada Aplikasi MP3 Player

Tutup Form3 dan Buka Form1

Pada Form 1 klik 2 kali pada tombol Play, pada jendela coding yang tampil, tepat di bawah kode Private Sub Command1_Click() ketikkan perintah berikut :

MediaPlayer1.Open List2

Kembali pada Form1 dan klik 2 kali tombol Stop

Tepat di bawah kode  Private Sub Command2_Click() ketikkan Kode Berikut :

MediaPlayer1.Stop

Kembali lagi ke form1 dan klik tombol Pause

Tepat di bawah kode Private Sub Command3_Click() ketikkan Kode berikut :

If MediaPlayer1.IsDurationValid = False Then Exit Sub

If Command3.Caption = "Pause" Then

MediaPlayer1.Pause

Command3.Caption = "Resume"

Else

MediaPlayer1.Play

Command3.Caption = "Pause"

End If

Buka kembali form1 dan klik 2 kali tombol add File

Tepat di bawah kode Private Sub Command4_Click() ketikkan kode berikut

Form2.show ( untuk membuka Form2 )

Kembali ke Form1 Klik 2 kali tombol add Folder

Tepat di bawah kode Private Sub Command5_Click() ketikkan perintah :

Form3.show ( untuk membuka Form3 )

Buka lagi Form1 dan klik 2 kali Tombol Add

Tepat di bawah kode Private Sub Command6_Click() ketikkan kode perintah berikut

If Command6.Caption = "ADD" Then

Command4.Visible = True

Command5.Visible = True

Command6.Caption = "Hide"

Else

Command4.Visible = False

Command5.Visible = False

Command6.Caption = "ADD"

End If

Buka Form1 dan klik 2 kali List1

Tepat di Bawah Kode Private Sub List1_Click() ketikkan Kode Berikut :

List2.ListIndex = List1.ListIndex

artinya jika kita melakukan select sebuah lagu pada List1 maka aplikasi akan menunjuk lokasi file yang terekam pada List2,

sekarang kita ganti operation untuk List1 dari Click Menjadi DblClick

tepat dibawah kode Private Sub List1_DblClick() ketikkan Kode Berikut :

Command1_Click

Perintah ini bertujuan supaya menjalankan perintah Pada Command1 / Play saat kita men-Double Klik sebuah lagu didalam List1

Sekarang kita beralih ke Form2

Tutup Form1 dan tutup juga Area kode untuk Form1

Buka Form2

Klik 2 kali Command1 / Add selected File sehingga keluar Area kode untuk Form2

Tepat di bawah kode Private Sub Command1_Click() ketikkan kode berikut :

Form1.List1.AddItem File1

Form1.List2.AddItem Dir1.Path & "\" & File1

Perintah pertama akan menambahkan Nama File yang dipilih kedalam List1 pada Form1

Perintah kedua akan merekam Lokasi File yang terpilih dan di catat pada List2 Form1

Kembali ke Form2

Klik 2 kali command2 / cancel

Tepat di bawah kode Private Sub Command2_Click() ketikkan Perintah berikut

Unload Me

Perintah ini untuk menutup Form yang sedang Aktif

Buka lagi Form2 dan klik 2 kali Dir1 tepat di bawah kode Private Sub Dir1_change() ketikkan perintah berikut :

File1.Path = Dir1.Path

Tujuan perintah ini untuk menampilkan setiap isi dari Folder yang di pilih pada kotak Dir dan di tampilkan pada kotak File1

Buka form2 dan klik 2 kali Drive1, tepat di bawah kode Private Sub Drive1_change() ketikkan kode berikut :

Dir1.Path = Drive1

Perintah ini akan menampilkan isi dari sebuah Drive yang dipilih, dan di letakkan pada kotak Dir1

Kembali ke Form2 klik 2 kali File1, ganti operation dari Click menjadi DblClick

Tepat di bawah kode Private Sub File1_DblClick() ketikkan perintah :

Form1.List1.AddItem File1

Form1.List2.AddItem Dir1.Path & "\" & File1

Sekarang Buka kembali Form2 klik pada Kotak File1, pada kotak properties cari Pattern, ganti value dari pattern menjadi *.mp3

Tujuannya agar yang di tampilkan pada kotak File hanya file-file lagu dengan extensi .MP3

Bila tidak Bisa Cari Saja Di google