jangan khawatir
scriptnya cukup pendek dan saya yakin anda semua pasti bisa , Oke dech kita
mulai aja kali ya nah yang perlu kita siapkan adalah:
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
Skanario yang akan
kita buat adalah sbb,:
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?,.
Naha sekarang coba desaign form layout kayak
gini nih:
Nah, gampang bukan ,
tentunya kalau pengen bagus silahkan anda desaign semaksimal mungkin , kalau
punya saya maklumlah buatnya aja Cuma dua jam , jadi hasilnya juag kurang
maksimal
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 karma enggak ngaruh 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 = FileNam
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
Walau hasilnya tidak sebagus winamp, tapi banggakan kalau
hasil buatan sendiri.