Kuda Sharing

Kamis, 17 Mei 2012

VB6:tutorial membuat mp3 player

04.19 - Tidak ada komentar

Bosen dengan mp3 yg kalian miliki? tapi ingin membuat sendiri ?
Tenang kukar xp akan memberi tau cara membuat mp3 player sendiri menggunakan VB6
LANGSUNG ke TKP.....

Bagi yg belum punya VB6 bisa pake yg portable download disini
yg full version disini
Ok saat nya BEREXPERIMEN.....

langkah 1
Buka VB6 pilih>Standard.exe
buat form sesuka hati kamu

Langkah 2
Tambahkan komponen dengan cara tekan CTRL+T
centang "Microsoft Common Dialog Control 6.0" Dan "Microsoft Multimedia Control 6.0"

Langkah 3
Tambahkan label sebanyak 4 buah
Lalu berikan nama label tersebut , bukan di "name" tapi di "caption"
Label1 beri nama play
Label2 beri nama pause
Label3 beri nama stop
Label4 beri nama open file

Langkah 4
Tambahkan MMcontrol dan Common Dialog ke form
MMcontrol1 beri nama mp3
Common Dialog berinama cd1

Langkah 4
Isi kan code dibawah ini

_________________________________________________________________

'coding by Fuad Azmi
'http://kukar-xp.blogspot.com

Private Sub Form_Load()
mp3.Visible = False
End Sub

Private Sub Label1_Click()
mp3.Command = "Play"
End Sub

Private Sub Label2_Click()
If Label2.Caption = "Pause" Then
mp3.Command = "pause"
Label2.Caption = "Resume"
Else
mp3.Command = "pause"
Label2.Caption = "Pause"
End If
End Sub

Private Sub Label3_Click()
mp3.Command = "stop"
End Sub

Private Sub Label4_Click()
cd1.Filter = "Audio Files (*.mp3, *.wav) | *.mp3; *.wav"
cd1.ShowOpen
mp3.FileName = cd1.FileName
mp3.Command = "Open"
End Sub
_________________________________________________________________