Membuat Program Pemutar Musik dengan VB.NET

Pasti agan agan semua kalo lagi mengerjakan sesuatu di laptop/komputer sering menyetel musik favorit  dengan winamp maupun software yang lainnya. Dan sekarang ane mau share ilmu membuat software pemutar musik mengunakan vb 2010 express.Langsung aja , buka software microsoft visual basic 2010 express . pilih File > New Project > windows Forms Application dan beri nama kolom name dibawah dengan nama mp3playerku > OK .

Ø     > Atur Propertirs Form1

BackColor	DimGray
FormBorderStyle	FixedSingel
MaximumBox	False
Text	Mp3PlayerKu

 Ø  Komponen yang digunakan pada program ini yaitu

-          MenuStrip

-          ListBox

-          GroupBox

-          Dan Window Media Player

Untuk menambah komponen Window Media Player klik kanan pada  general > Choose Items seperti gambar dibawah ini :

Pilih Tab  COM Components dan check list Shockwave Flash Object , winsow media Player kemudia OK. Maka componet di dalam General Bertambah . Grag Windows Media Player ke dalam Form1.

Ø   Susun komponen komponen ke dalam Form1 seperti dibawah ini :

-          Di bawah Public Class Form1 masukan code dibawah ini :

Dim openFile As New OpenFileDialog

-          Doubel Click ListBox1 dan Masukan Code di Bawah  ini :

AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem

Ø      Atur Properties GroupBox1

BackColor	DimGray
ForeColor	ControlLightLigh
Text	Mp3 aku

Klik MenuStrip1 dan ubahlah Text di Properties dengan nama “Type Here” dan buat menu seperti gambar dibawah ini :

-          Properties pada Menu item Open

ShortcutKeys

Ctrl + O

Doubel Click Menu Item File > Open dan masukan kode di bawah ini :

openFile.Filter = "Audio Files (*.mp3;*.wma;*.acc;*.wav;*.snd;*.sif;*.midi)|*.mp3;*.wma;*.acc;*.wav;*.snd;*.sif;*.midi"         openFile.Multiselect = True         openFile.FileName = ""         openFile.ShowDialog()         If Windows.Forms.DialogResult.Yes Then             For Each str As String In openFile.FileNames                 ListBox1.Items.Add(str)             Next         End If         Dim i As Integer         i = ListBox1.Items.Count - 1         If i > 0 Then             AxWindowsMediaPlayer1.URL = (ListBox1.Items(0).ToString)         End If

Double Click Menu Item File > Close dan masukan kode di bawah ini :

Application.Exit()

Ø      Tekan Debug > Build mp3playerku untuk mejalankan program dan save ,Dan sekarang agan sudah selesai membuat mp3 player untuk windows di komputer agan . file berada di bin > Release. GBUJ

jika ingin mendapatkan sorce code download disini