Cara membuat Mp3 Player dengan visual basic 6
dengan format .mp3|.wav|.mid
jika anda ingin tambahkan format bisa di lihat pada source code dibawah
#NB : jika mengalami eror silahkan comment pada blog kami untuk merevisi data yang lebih baik lagi
1. Text Box
2. MMC (Microssoft Media Control )
3. Drive List
4. Dir List
5. ComboBox
6. Serta ,Satu buah Filed List,
7. 3 CommandButton
Untuk mendapatkan MMC kamu dapat tekan tombol ctrl+t dan centang di microsoft multimedia control 6.0
Pertama kita akan memilih Format
pada combo box , seperti *.Mp3, *.Mid, *.WAV, dll, setelah memilih format ,
kemudian memilih drive mana yang akan di gunakan , missal Drive C pada Drive
List, maka pada Dir list Akan menampilkan Direktori-direktori (folder) ,
sedangkan pada field List akan menmapilkan judul(Field ) Sesuai format yang
telah kita pilih, selanjutnya jika memilih dari salah satu lagu yang kan kita
putar pada field list maka , Text Box akan menunujukan (menampilkan ) Lagu yang
telah dipilih , ketika Tombol play di tekan maka lagu akan segera terdengar …keren
kan?,.
kalau
pingin bagus silahkan anda desaign semaksimal mungkin ,
Untuk name pada
Dir 1, Drive1, Combo1, text1,Fille 1, biarkan default jangan dirubah -rubah biar anda bisa paham
dan mengerti dengan Script yang akan saya buat.
Nah untuk MMC control Pada bagian
Name ubah menjadi= AudioPlayer,
Command1=Play
Command2=Stop
Command3=Exit
dan untuk caption terserah anda karena tidak berpengaruh dengan
script yang akan kita buat.:
Pembuatan script sesuaikan dengan
komponen yang anda makasud Misal kita mau buat di Commbo1 maka klik dua kali
terus tentukan eventnya , baru ketikin scriptnya:
Private Sub Combo1_Change()
‘ Pada bagian ini anda bisa
menambahkan format atau extensi yang lain sesuai kebutuhan anda
If ListIndex = 0 Then
File1.Pattern = (“*.wav”)
ElseIf ListIndex = 1 Then
File1.Pattern = (“*.mid”)
ElseIf ListIndex = 2 Then
File1.Pattern = (“*.mp3″)
Else
Fiel1.Pattern = (“*.*”)
End If
End Sub
Private Sub Dir1_Change()
‘Nah ini Untuk mengubah direktori
yang akan kita pilih , diamana file list akan menunujukan sesuai folder yang
akan dipilih
File1.Path = Dir1.Path
If Combo1.ListIndex = 0 Then
File1.Pattern = (“*.wav”)
ElseIf Combo1.ListIndex = 1 Then
File1.Pattern = (“*.mid”)
ElseIf Combo1.ListIndex = 2 Then
File1.Pattern = (“*.mp3″)
Else
File1.Pattern = (“*.*”)
End If
End Sub
Private Sub Drive1_Change()
‘Merubah dir jika sesuai dengan
drive yang dipilih
Dir1.Path = Drive1.Drive
End Sub
Private Sub Exit_Click()
End
End Sub
Private Sub File1_Click()
‘Memilih lagu yang akan diputar pada
bagian File1 list,
If Combo1.ListIndex = 0 Then
File1.Pattern = (“*.wav”)
ElseIf Combo1.ListIndex = 1 Then
File1.Pattern = (“*.mid”)
ElseIf Combo1.ListIndex = 2 Then
File1.Pattern = (“*.mp3″)
Else
File1.Pattern = (“*.*”)
End If
If Right(File1.Path, 1) <> “\”
Then
FileNam = File1.Path + “\” +
File1.FileName
Else
FileNam = File1.Path + File1.FileName
End If
Text1.Text = FileName
End Sub
Private Sub Form_Load()
‘Memposisikan media player yang kita
buat pada posisi di tengah pada saat pertama kali tampil
Left = (Screen.Width – Width) \ 2
Top = (Screen.Height – Height) \ 2
Combo1.Text = “*.wav”
Combo1.AddItem “*.wav”
Combo1.AddItem “*.mid”
Combo1.AddItem “*.mp3″
Combo1.AddItem “All files”
End Sub
Private Sub
MMControl1_Done(NotifyCode As Integer)
End Sub
Private Sub play_Click()
‘Script ini untuk menjalankan lagu
pada MMC
If Combo1.ListIndex = 0 Then
AudioPlayer.DeviceType = “WaveAudio”
ElseIf Combo1.ListIndex = 1 Then
AudioPlayer.DeviceType = “Sequencer”
ElseIf Combo1.ListIndex = 2 Then
AudioPlayer.DeviceType = “waveAudio”
End If
AudioPlayer.FileName = Text1.Text
AudioPlayer.Command = “Open”
AudioPlayer.Command = “Play”
End Sub
Private Sub stop_Click()
If AudioPlayer.Mode = 524 Then Exit
Sub
If AudioPlayer.Mode <> 525
Then
AudioPlayer.Wait = True
AudioPlayer.Command = “Stop”
End If
AudioPlayer.Wait = True
AudioPlayer.Command = “Close”
End Sub
Thank's for reading the articelCara Membuat Mp3 VB6(Format .mp3.wav.mid) .If You want to copy paste your website please tag my link Cara Membuat Mp3 VB6(Format .mp3.wav.mid) Intro My Website.
0 comments:
Post a Comment