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.
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,
Pembelajaran akan kita lanjutkan pada pemberian Tombol repeate untuk mengulang Proses pemutaran lagu, serta memberikan animasi saat lagu sedang berjalan, selalu Update informasi dan ikuti terus perkembangan Blog ini
