Tutorial Membuat Program Aplikasi Multi Media Menggunakan VB 6.0

Artikel Terkait Tutorial VB6
Cara Membuat Program dan Memainkan File Multi Media di VB6 - Seperti janji kami sebelumnya yang telah membahas tentang objek Multi Media, kali ini tip dan trik visual basic akan melanjutkan postingan yang kita sudah bahas sebelumnya yaitu tentang Windows Media Player dan Multi Media MCI yang merupakan bagian dari Multi Media di VB6 yang saya terangkan dengan berbagai macam properti dan kegunaannya pada postingan sebelumnya.

Source Code & Tutorial Membuat Aplikasi Multi Media di VB6

Dalam postingan kali ini tip dan trik akan mengulas tuntas contoh membuat program Windows Media Player dan Multi Media MCI. Berikut adalah dibawah ini cara-cara membuat atau memainkan file Windows Media Player :


A. Windows Media Player

  • Buatlah sebuah project baru, tambahkan Windows Media Player kedalam toolBox
  • Tambahkan CommonDialog kedalam ToolBox
  • Tanamkan Windows Media Player, CommonDialog dan 2 buah CommandButton.
  • Desainlah Form seperti gambar dibawah ini :
  • Kemudian atur properti masing-masing berikut:

Objek                                Properti               Nilai

Form                                BorderStyle            0-None
CommonDialog1             Name                     cdg_satu
CommandButton1           Name                     cmd_open
                                        Caption                   &Open
CommandButton2          Name                      cmd_close
                                        Caption                   &Close
MediaPlayer1                  Name                     wmp_satu

  • Buka jendela kode program, lalu tulis kode program berikut dibawah ini:
Private Sub cmd_Close_Click()
End
End Sub

Private Sub cmd_open_Click()
cdg_satu.ShowOpen
wmp_satu.FileName = cdg_satu.FileName
cmd_open.Enabled = False
End Sub
  • Kemudian Anda jalankan program dengan F5, apabila program sudah berjalan dengan benar silahkan simpan Project Anda


B. Multi Media MCI

Berikut sekarang kita kan membuat program atau memainkan file Multi Media MCI. Untuk memainkan Multi Media MCI kta bagi menjadi 3 jenis file yaitu File Audio, Video dan File dari CDROM.Untuk membuatnya perhatikan langkah berikut dibawah ini:


1. Memainkan File Audio dengan MCI
  • Buatlah sebuah project baru, tambahkan Multi Media MCI dan CommonDialog kedalam toolBox
  • Tanamkan Multi Media MCI, CommonDialog dan 2 buah CommandButton kedalam form.
Multi Media MCI

  • Atur properti masing berikut seperti dibawah ini :
Objek                       Properti               Nilai

Form                          Caption                Latihan Multi Media MCI
CommonDialog1       Name                   cdg_satu
CommandButton1     Name                   cmd_wav
                                  Caption                File &Wav
CommandButton2     Name                   cmd_mid
                                  Caption                File &MIDI
MMControl1             Name                   mmc_satu

  • Buka jendela kode program, lalu ketik kode program dibawah ini :
Private Sub cmd_mid_Click()
mmc_satu.Notify = False
mmc_satu.Wait = True
mmc_satu.Shareable = False
mmc_satu.DeviceType = "sequencer"
cdg_satu.Filter = "File Wave (*.midi) |*.mid"
cdg_satu.ShowOpen
mmc_satu.FileName = cdg_satu.FileName
mmc_satu.Command = "Open"
mmc_satu.Command = "Play"
cmd_Wav.Enabled = False
End Sub

Private Sub cmd_wav_Click()

mmc_satu.DeviceType = "WaveAudio"
mmc_satu.Notify = False
mmc_satu.Wait = True
mmc_satu.Shareable = False
cdg_satu.Filter = "File Wave (*.wav) |*.wav"
cdg_satu.ShowOpen
mmc_satu.FileName = cdg_satu.FileName
mmc_satu.Command = "Open"
mmc_satu.Command = "Play"
cmd_mid.Enabled = False
End Sub

Private Sub mmc_satu_Done(NotifyCode As Integer)
cmd_wav.Enable = True
cmd_mid.Enabled =True
mmc_satu.Command = "Stop"
mmc_satu.Command = "Close"
End Sub

Private Sub mmc_satu_StopClick(Cancel  As Integer)
cmd_wav.Enable = True
cmd_mid.Enabled =True
mmc_satu.Command = "Stop"
mmc_satu.Command = "Close"
End Sub

  • Kemudian jalankan program dengan F5 atau tombol Star, jika berjalan dengan benar simpan project Anda



2. Memainkan File Video dengan MCI

  • Buatlah sebuah project baru, tambahkan Multi Media MCI dan CommonDialog kedalam toolBox
  • Tanamkan Multi Media MCI, CommonDialog dan 3 buah CommandButton kedalam form.
  • Atur properti masing berikut seperti dibawah ini :


Objek                         Properti               Nilai

Form                           Caption                Latihan Multi Media MCI
CommonDialog1        Name                    cdg_satu
CommandButton1      Name                    cmd_wav
                                   Caption                  File &Wav
CommandButton2      Name                    cmd_mid
                                   Caption                 File &MIDI
CommandButton3     Name                    cmd_avi
                                  Caption                  File Video &AVI
MMControl1             Name                     mmc_satu

  • Buka jendela kode program, lalu ketik kode program dibawah ini :

Private Sub cmd_mid_Click()
mmc_satu.Notify = False
mmc_satu.Wait = True
mmc_satu.Shareable = False
mmc_satu.DeviceType = "sequencer"
cdg_satu.Filter = "File Wave (*.midi) |*.mid"
cdg_satu.ShowOpen
mmc_satu.FileName = cdg_satu.FileName
mmc_satu.Command = "Open"
mmc_satu.Command = "Play"
cmd_Wav.Enabled = False
End Sub

Private Sub cmd_wav_Click()

mmc_satu.DeviceType = "WaveAudio"
mmc_satu.Notify = False
mmc_satu.Wait = True
mmc_satu.Shareable = False
cdg_satu.Filter = "File Wave (*.wav) |*.wav"
cdg_satu.ShowOpen
mmc_satu.FileName = cdg_satu.FileName
mmc_satu.Command = "Open"
mmc_satu.Command = "Play"
cmd_mid.Enabled = False
End Sub

Private Sub mmc_satu_Done(NotifyCode As Integer)
cmd_wav.Enable = True
cmd_mid.Enabled =True
mmc_satu.Command = "Stop"
mmc_satu.Command = "Close"
End Sub

Private Sub mmc_satu_StopClick(Cancel  As Integer)
cmd_wav.Enable = True
cmd_mid.Enabled =True
mmc_satu.Command = "Stop"
mmc_satu.Command = "Close"
End Sub

Private Sub cmd_avi_Click()
mmc_satu.Notify = False
mmc_satu.Wait = True
mmc_satu.Shareable = False
mmc_satu.DeviceType = "AVIVideo"
cdg_satu.Filter = "File video (*.avi) |*.avi"
cdg_satu.ShowOpen
mmc_satu.FileName = cdg_satu.FileName
mmc_satu.Command = "Open"
mmc_satu.Command = "Play"
cmd_Wav.Enabled = False
End Sub

  • Kemudian jalankan program dengan F5 atau tombol Star, jika berjalan dengan benar simpan project Anda

Catatan :
Program yang dibuat No.1 sama dengan No.2, bedanya hanya di tambahkan command cmd_avi di No.2 (lihat kode program yang berwarna merah)


3. Memainkan File dari CDROM dengan MCI
Untuk membuat program pada No.3 ini programnya sama denga No.2 Anda tinggal menambahkan kode program cmd_cdrom.Berikut kode yang haeus ditambahkan :

Private Sub cmd_mid_Click()
mmc_satu.Notify = False
mmc_satu.Wait = True
mmc_satu.Shareable = False
mmc_satu.DeviceType = "CDAudio"
cdg_satu.ShowOpen
mmc_satu.FileName = cdg_satu.FileName
mmc_satu.Command = "Open"
mmc_satu.Command = "Play"
cmd_Wav.Enabled = False
End Sub

Kemudian jalankan program dengan F5 atau tombol Star, jika berjalan dengan benar simpan project Anda.


Itulah bebebrapa contoh program Multi Media di VB6 dan Tutorial Membuat Program Aplikasi Multi Media di VB6. Semoga bermanfaat.


Selain Sebagai Penyedia Panduan Belajar Database dan Tutorial Pemrograman, Kami Juga Membagikan Kumpulan Source Code Program Aplikasi dan Ebook Pemrograman Terlengkap yang Bisa Anda Dapatkan Secara Gratis di Halaman :


Rekomendasi Web Hosting
  1. 20rb perbulan. Diskon hingga 40% kode kupon: MCP Daftar disini (apache).
  2. 10rb perbulan. Diskon hingga 75% kode kupon: MCP Daftar disini (litespeed).
  3. 10rb perbulan. Diskon hingga 70% kode kupon: aff-MCP Daftar disini (apache).