Kali ini Saya akan menunjukan cara membuat MP3 player Kreasi sendiri!
Tool :
VB6 <<<< Full
VB6 <<<< Portable
langkah 1
Buka VB6 pilih>Standard.exe
buat form sesuka hati kamu
Buka VB6 pilih>Standard.exe
buat form sesuka hati kamu
2.Tambahkan komponen dengan cara tekan CTRL+T
centang "Microsoft Common Dialog Control 6.0" Dan "Microsoft Multimedia Control 6.0"
centang "Microsoft Common Dialog Control 6.0" Dan "Microsoft Multimedia Control 6.0"
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
4.Tambahkan MMcontrol dan Common Dialog ke form
MMcontrol1 beri nama mp3
Common Dialog berinama cd1
5.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
_________________________________________________________________
Build / Tekan F5
_________________________________________________________________
'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
_________________________________________________________________
Build / Tekan F5
0 komentar:
Posting Komentar
Komentar nya Baek-baek aja ya!!! Jangan Omong kasar! ~_~