Sarana berbagi dengan banyak orang melalui tulisan sederhana... diambil dari keseharian hidup.

MEMBUAT MP3 PLAYER BUATAN SENDIRI

Mungkin
hampir setiap hari qt mendengarkan musik biar ga stress atau Cuma pengen denger artis idolanya nyanyi, mp3 player merupakan softwere yang sangat disukai masyarakat. Pada umumnya biasanya dalam sebuah pc, tidak hanya ada satu player music saja, melaikan 2, atau bahkan lebih dari 2 yaa. Hal ini dikarenakan softwere ini sangat dibutuhkan sekali. Tidak hanya medengarkan musik, dapat juga memutar video kesayangan anda.
Pada pertemuan kali ini komptstart akan membahas dan belajar, Mengenai cara membuat sebuah mp3 player dengan menggunakan vb 6.0 pastinya.. oke ikuti langkah demi langkah berikut ini !!
1>buka program visual basic 6.0 terlebih dahulu
2>buatlah sebuah project dengan nama mp3player.vbp

gambar saat anda harus memilih salah satu form

Gambar 1. Tampilan startup vb 6.0


3>pilih StandardEXE, lalu klik ok
tampilan awal form

Gambar 2. Tampilan form standard


4>langkah selanjutnya, tambahkan komponen dengan cara (Tekan CTRL + T)
Proses penambahan komponen vb 6.0

Gambar 3. penambahan komponen


5>Cari Microsoft Common dialog control 6.0 dan Microsoft Multimedia Control 6.0, jika sudah klik ok
gambar panah menunjukan komponen common dialog


Gambar 4. Komponen commondialog dan juga Microsoft multimedia


6>Masukan komponen commondialog1 dan juga mmcontrol1, label. Sehingga terlihat seperti gambar berikut :
langkah menambahkan beberapa komponen mp3 di vb 6.0

Gambar 5. Tampilan form1


7>tambahkan commanbutton 2 buah, pada form1
gambar command button

Gambar 6. Penambahan commandbutton pada form1


8>setingan properties seperti berikut
proses mengubah setingan pada properti

Gambar 7. setingan properties


9> Ketikan sintak dibawah ini :

Private Sub Command1_Click()
On Error GoTo ok
CommonDialog1.ShowOpen
Label1.caption= CommonDialog1.filename
Mmcontrol1.command=”open”
ok:
Exit Sub
End Sub

!!!!! Keterangan Sintak diatas :
@On error goto Ok jika terjadi kesalahan maka eksekusi akan dihendle
@ Label1.caption= CommonDialog1.filename, menampilkan nama judul/title pada label1

10>ketikan sintak berikut
Private Sub Command2_Click()
Unload Me
End Sub

!!!!keterangan sintak diatas
@bila tombol (close dengan nama Command2) diklik maka program akan keluar

Untuk meyakinkan tidak ada kesalahan dalam pembuatan komponen program lihat gambar berikut:
gambar sebelum dirunnig

Gambar 8. Tampilan lengkap program


Tampilan setelah pengkodean dan penambahan komponen

Gambar 9. Program yang berhasil dibuat


Jangan pernah takut untuk mencoba!! Silahkan unduh programnya disini
Salam komptstart
Share:

0 komentar:

Statistik Pengunjung

BTemplates.com