How Using object Window Media Player Visual Basci 2010 (VB2010)

¨       Buat project baru  degna cara yang sama file –New Project

¨       Pada jendela new project pilih Windows Form Application

¨       Beri nama project sesuai keinginan anda

                Untuk menggunkan Windows Media Player terlebih dahulu memanggile object degan cara

¨        Pada toolbox klik kana Component
Choose Item

¨      

¨       Pada Tab COM Components, Beri conteng pada Windows Media Player

¨       Klik tombol OK

   Buat rancangan form seperti gambar di bawah ini

¨   
Tabel Property Object

        Cara setting  Window Media Player adalah klik kana pada window medial Player  -> pilih propertis

¨

¨       Double klik pada tombol Open, ketikan kode program berikut;

 OpenFileDialog1.ShowDialog()
        OpenFileDialog1.Title = "Open Audio File"

        If OpenFileDialog1.FileName <> "" Then

            AxWMP1.URL = OpenFileDialog1.FileName

        End If

¨       Double klik pada tombol Play, ketikan kode program berikut;

 AxWMP1.Ctlcontrols.play()

        Timer1.Enabled = True

¨       Double klik pada tombol Pause, ketikan kode program berikut;
      
 AxWMP1.Ctlcontrols.pause()

        Timer1.Enabled = False

¨       Double klik pada tombol Stop, ketikan kode program berikut;

 AxWMP1.Ctlcontrols.stop()

        Timer1.Enabled = False

¨       Double klik pada Timer1, ketikan kode program berikut;

 TrackBar1.Maximum = AxWMP1.currentMedia.duration

        TrackBar1.Value = AxWMP1.Ctlcontrols.currentPosition

        LbDuraion.Text = AxWMP1.currentMedia.durationString

        LbPosition.Text = AxWMP1.Ctlcontrols.currentPositionString

¨       Double klik pada HScrollBar, ketikan kode program berikut;

AxWMP1.settings.volume = HScrollBar1.Value

¨       Double klik pada TrackBar, ketikan kode program berikut;

AxWMP1.Ctlcontrols.currentPosition = TrackBar1.Value

            Untuk melihat hasilnya tekan tombol Run/F5 pada keyboard



Download : Sample Project
Download : E-Book tutrial Visual Basic