Teknisi
handal memberi cara membuat pemutar musik menggunakan vb 6
oretan 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.
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
- Siapkan Program Visual Basic 6.0 dalam computer anda, jika belum punya silahkan Download Visual Basic 6.0 Portable disini
- Siapkan Kopi dan Rokok ( bagi yang Suka kedal kedul )
- Jika anda sedang ngantuk silahkan Tidur Dulu, jangan dilanjutkan ( orang ngantuk biasanya sulit untuk memahami sesuatu, karena jelas ingatanya tidak akan berfungsi 100% )
- Jangan memikirka Hal yang jorok ( wajib )
- 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 gambar 1
Sehingga
anda mendapati project baru dengan sebuah Form bernama Form1 lihat gambar 2
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 , lihat gambar 4
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
Lihat gambar 5
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, lihat gambar 5.1
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 lihat gambar 5.2
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 gambar 6
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 gambar 7
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 pada
gambar 8
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
lihat gambar 9
Kembali pada
Form1 dan klik 2 kali tombol Stop
Tepat di
bawah kode Private Sub Command2_Click() ketikkan Kode Berikut :
MediaPlayer1.Stop
Lihat gambar 10
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
Lihat gambar 11
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 )
Lihat gambar 12
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
Lihat gambar 13
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,
lihat gambar 14
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
lihat gambar 15
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
Lihat gambar 16
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
Lihat gambar 17
Sampai
disini kita akan Mencoba Menjalankan Aplikasi yang belum Jadi ini,
Tekan Tombol
F5 pada keyboard dan Coba masukan Sebuah lagu dari computer anda, Putar
lagu tersebut. Jika terjadi Debug, periksa kembali pemberian Kode pada setiap
form yang anda buat, untuk contoh Awal silahkan ambil File yang saya kerjakan disini,
Sign up here with your email
ConversionConversion EmoticonEmoticon