Mp3 Media Player

Ass,,,
Hay Gan, saya kembali lagi untuk memberikan program Vb.net tentang Mp3 Media Player.
Langsung aja ya, untuk mempersingkat waktu.. hehehe

1. Yang pertama, untuk memunculkan Windows Media Player pada ToolBox, silahkan anda arah kan cursor anda pada sembarang ToolBox,dan clik kanan, pilih Choose Items,kemudian pilih yang Com Components, kemudian contreng atau beri tanda Ceklis yang "Windows Media Player" kemudian pilih OK. setelah itu Windows Media Player akan muncul di ToolBox.
2. Kemudian pilih Windows Media Player, OpenFilleDialog, NotifyIcon, ContextMenuStrip, Timer, kemudian masuk kan A Label dan Button, seperti Design form di bawah ini .

       3. Dan jangan Lupa, disaat di clik menu "ContextMenuStip" anda harus mengisi file menu-menu nya, dimana nama" file nya adalah "Play, Stop, Open"

      4. Setekah itu, ketikkan Listening berikut :

Public Class Form1

    Private Sub Open_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Open.Click
        OpenFileDialog1.Filter = "MP3 Files|*.MP3|Windows Media Audio Files|*.WMA|WaveFiles|*.WAV"
        OpenFileDialog1.ShowDialog()
        WindowsMediaPlayer1.URL = OpenFileDialog1.FileName
        PLay.Enabled = True
        Stop_.Enabled = True
        PLay.Text = "Pause"
        Label1.Text = "Address : " & WindowsMediaPlayer1.URL
        Timer1.Start()
    End Sub

    Private Sub PLay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PLay.Click
        If PLay.Text = "Play" Then
            Stop_.Enabled = True
            WindowsMediaPlayer1.Ctlcontrols.play()
            PlayToolStripMenuItem.Text = "Pause"
            PLay.Text = "Pause"
        Else
            WindowsMediaPlayer1.Ctlcontrols.pause()
            PLay.Text = "Play"
            Stop_.Enabled = False
            PlayToolStripMenuItem.Text = "Play"
        End If
    End Sub

    Private Sub Stop__Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Stop_.Click
        WindowsMediaPlayer1.Ctlcontrols.stop()
        PLay.Text = "Play"
        Stop_.Enabled = False
    End Sub

    Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click
        Open_Click(Nothing, Nothing)
    End Sub

    Private Sub PlayToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlayToolStripMenuItem.Click
        If PLay.Text = "Play" Then
            Stop_.Enabled = True
            WindowsMediaPlayer1.Ctlcontrols.play()
            PlayToolStripMenuItem.Text = "Pause"
            PLay.Text = "Pause"
        Else
            WindowsMediaPlayer1.Ctlcontrols.pause()
            PLay.Text = "Play"
            Stop_.Enabled = False
            PlayToolStripMenuItem.Text = "Play"
        End If
    End Sub

    Private Sub StopToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StopToolStripMenuItem.Click
        WindowsMediaPlayer1.Ctlcontrols.stop()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label1.Text = Microsoft.VisualBasic.Right(Label1.Text, Microsoft.VisualBasic.Len(Label1.Text) - 1) + Microsoft.VisualBasic.Left(Label1.Text, 1)
    End Sub
End Class

     5. Jika sudah selesai, saat di jalankan atau menekan tombol F5 pada keyboard, maka akan tampak hasil seperti di bawah ini : 

     6. Kemudian jika anda ingin menjalakan nya, silahkan pilih "Open" dan akan muncul pilihan dimana Anda menyimpan daftar music yang akan  Anda putar,atau dengarkan .

     7. Tampilan di saat Mp3 Player menjalankan sebuah music akan tampak seperti dibawah ini, dan Anda jugan dapa memilih clik Pause, Stop, ataupun Open .

Sekian !!!!
Itulah yang dapat saya berikan hari ini .
Semoga bermanfaat buat Anda yang ingin mencobanya semoga berhasil.

Wass....

Nama : Lidiawati Simanjuntak
Nmp : 12110299
Kelas : SI-P1202