Windows Media Player pada Visual Basic 6.0

Windows Media Player dalm Visula Basic 6.0. Windows Media Player merupakan perangkat lunak pemutar music, video dan gambar(foto)yang dikembangkan oleh Microsoft dan merupakan bagian dari platform Windows Media. Aplikasi ini dapat melakukan operasi playback terhadap berkas multimedia digital berformat Windows Media Format (WMA, WMV, dan ASF), MPEG Audio Layer 3 (MP3), Windows Media Service.

Pembuatan media player membutuhkan komponen khusu yang telah ada dalam aplikasi Visual Basic 6.0 yaitu Microsoft Common Dialog Control 6 dan Windows Media Player. Microsoft Common Dialog Control 6 digunakan untuk  menampilkan dialog-dialog seperti open dialog, save dialog, font dialog dan sebagainya. Sedangkan Windows Media Player digunakan untuk menampilkan tampilan layar, menu stop, play, nect, previous, volume dan durasi.

Tampilan untuk media player

Langkah pembuatan program ini sebagai berikut :

1.    MEMBUAT TAMPILAN FORM MEDIA PLAYER

Sebelum membuat tampilan form, aktifkan komponen Microsoft Common Dialog Control 6 dan Windows Media Playeruntuk menginput bagan di bagian form. Klik CTRL+T atau pilih menu Project lalu klik Components. Akan muncul tampilan seperti ini :

 

 

Centang pilihan sesuai gambar di atas. Setelah selesai klik Apply lalu OK.

Setelah itu buat tampilan form media player:

Dalam desain tersebut, terdapat :

1.    WindowMediaPlayer1         = Sebagai tempat menampilkan foto, audio dan video.

2.    CommonDialog1                  = Sebagai pengontrol media player.

3.    ListBox1                                 = Sebagai tempat menampilkan nama foto, audio dan video yang dinput.

4.    CommandButton1               = Dengan Caption Open File, sebagai tempat menginputan file foto, audio dan video melalui direktori dalam computer.

CommandButton2               = Dengan Caption DELETE, sebagai akses untuk  menghapus file dalam ListBox.

CommandButton3               = Dengan Caption RESUME, sebagai akses untuk melanjutkan file yang berhenti/pause.

CommandButton4               = Dengan Caption STOP, sebagai akses untuk menghentikan file yang sedang terputar.

CommandButton5               = Dengan Caption PLAY, sebagai akses untuk memutar file.

CommandButton6               = Dengan Caption +, sebagai akses untuk menambahkan volume.

CommandButton7               = Dengan Caption -, sebagai akses untuk menurunkan volume.

5.    Label1                                    = Sebagai pemberi nama inputan pada “VOLUME”

Selanjutnya double klik pada command Open File lalu masukkan kode program :

Private Sub Command1_Click()

Dim aFile As String

With CommonDialog1

.DialogTitle = "Open Video"

.Filter = "Format File *.jpg *.jpeg *.mp3 *mp4 *.wmv "

.ShowOpen

aFile = .FileName

WindowsMediaPlayer1.URL = CommonDialog1.FileName

With List1

.AddItem aFile

End With

End With

End Sub

Klik close untuk mengembalikan tampilan pada form. Setelah itu double klik lagi pada command DELETE lalu masukkan kode program :

Private Sub Command2_Click()

a = List1.ListIndex

List1.RemoveItem (List1.ListIndex)

End Sub

Klik close untuk mengembalikan tampilan pada form. Setelah itu double klik lagi pada command RESUME lalu masukkan kode program :

Private Sub Command3_Click()

WindowsMediaPlayer1.Controls.play

End Sub

Klik close untuk mengembalikan tampilan pada form. Setelah itu double klik lagi pada command STOP lalu masukkan kode program :

Private Sub Command4_Click()

WindowsMediaPlayer1.Controls.stop

End Sub

Klik close untuk mengembalikan tampilan pada form. Setelah itu double klik lagi pada command PAUSE lalu masukkan kode program :

Private Sub Command5_Click()

WindowsMediaPlayer1.Controls.pause

End Sub

Klik close untuk mengembalikan tampilan pada form. Setelah itu double klik lagi pada command PLAY lalu masukkan kode program :

Private Sub Command6_Click()

WindowsMediaPlayer1.URL = CommonDialog1.FileName

End Sub

Klik close untuk mengembalikan tampilan pada form. Setelah itu double klik lagi pada command + lalu masukkan kode program :

Private Sub Command7_Click()

WindowsMediaPlayer1.settings.volume = WindowsMediaPlayer1.settings.volume + 10

End Sub

Klik close untuk mengembalikan tampilan pada form. Setelah itu double klik lagi pada command - lalu masukkan kode program :

Private Sub Command8_Click()

WindowsMediaPlayer1.settings.volume = WindowsMediaPlayer1.settings.volume - 10

End Sub

Klik close untuk mengembalikan tampilan pada form. Setelah itu double klik lagi pada command LIST1 lalu masukkan kode program :

Private Sub List1_Click()

WindowsMediaPlayer1.URL = List1

End Sub

PENJELASAN KODE PROGRAM

1.    Dim aFile As String With CommonDialog1

Kode program tersebut berfungsi memberikan akses kepada CommonDialog untuk mengerjakan perintah lain yang diwakili variable aFile bertipe string. Dim untukmendeklarasika variabel yang berjalan dalanm sub program.

2.    .DialogTitle = "Open Video"

Kode program tersebut berfungsi memberikan judul Dialog bernama Open Video.

3.    .Filter = "Format File *.jpg *.jpeg  *.mp3  *mp4; *.wmv |"

Kode program tersebut berfungsi memberikan akses pemutaran file yang berekstensi jpg, jpeg, mp3, mp4, wmv.

4.    .ShowOpen

Kode program tersebut melakukan perintah untuk menampilkan kotak  pengambilan file.

5.    aFile = .FileName WindowsMediaPlayer1.URL = CommonDialog1.FileName With List1 .AddItem aFile

Kode program tersebut berfungsi menambahkan file ke dalam ListBox.

6.    a = List1.ListIndex List1.RemoveItem (List1.ListIndex)

Kode program tersebut berfungsi melakukan delete file yang diklik dalam ListBox.

7.    WindowsMediaPlayer1.Controls.play

Kode program tersebut berfungsi melakukan kontrol play pada WindowsMediaPlayer1.

8.    WindowsMediaPlayer1.Controls.stop

Kode program tersebut berfungsi melakukan kontrol stop pada WindowsMediaPlayer1.

9.    WindowsMediaPlayer1.Controls.pause

Kode program tersebut berfungsi melakukan kontrol pause pada WindowsMediaPlayer1.

10. WindowsMediaPlayer1.URL = CommonDialog1.FileName

Kode program tersebut berfungsi sebagai pemanggilan nama file dari CommonDialog ke WindowsMediaPlayer1. Dengan kata lain mengaktifkan Play untuk memutar file yang diklik.

11. WindowsMediaPlayer1.settings.volume=WindowsMediaPlayer1.settings.voleme + 10

Kode program tersebut sebagai perintah untuk menambahkan volume.

12. WindowsMediaPlayer1.settings.volume=WindowsMediaPlayer1.settings.voleme – 10

Kode program tersebut sebagai perintah untuk mengurangi volume.

13. WindowsMediaPlayer1.URL = List1

Kode program tersebut berfungsi untuk menempatkan data URL dalam List1.

Setelah selesai program akan menampilkan output seperti ini :

Tampilan Media Player saat memberikan akses untuk menampilkan file-file yang berformat seperti gambar yang dilingkari.