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
Tidak ada komentar:
Posting Komentar