Cara Membuat Program dan Memainkan File Multi Media di VB6

Cara Membuat Program dan Memainkan File Multi Media di VB6 - Seperti janji Saya 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.

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 dari Multi Media yang ada di VB6.Semoga bermanfaa.

Related Post: Aplikasi sederhana Multi Media