Klik pada form dan lihat pada properties nya rubah bagian Text menjadi Musik Player
masih pada properties rubah bagian ShowIcon menjadi False
Lanjut pada Label1 lihat pada properties nya pada bagian AutoSize rubah menjadi False
masih pada properties Label1 pada bagian Text kosongkan
Masih di properties Label1 pada bagian TextAlign rubah menjadi MiddleCenter
Selanjutnya klik Button1 pada bagian Properties bagian Text ganti menjadi Mulai
Klik Button2 dan rubah pada properties bagian Text nya menjadi Berhenti
Pada button3 di properties Text nya rubah menjadi Buka File
Setelah selesai, klik kembali Label1 dan pada propertiesnya bagian Anchor rubah sesuai gambar di bawah ini,
Setelah itu klik dan seleksi tombol Mulai dan Berhenti dengan cara tekan Ctr+Klik
rubah pada propertiesnya bagian Ancornya menjadi sesuai gambar di bawah ini :
Kembali lagi pada Label1 rubah kembali pada bagian Anchor di propertiesnya
Setelah muncul seperti gambar dibawah pilih Tab Menu COM Components dan Cek list Windows Media Player, kemudian OK
Setelah Tool Windows Media Player ada, tambah ke Form pada bagian Label1 setelah itu klik WMP dan lihat di propertiesnya pada bagian Name rubah menjadi wmp
kemudian rubah juga pada bagian Size menjadi 0;0
Setelah selesai semuanya, masukan Tool Open File Dialog dari ToolBox, dan pada propertiesnya bagian File Name kosongkan
Setelah itu pada bagian Title rubah menjadi Musik Player-Buke File...
pada bagian Filter masukan MP3|*.mp3|WAV|*.wav|Semua File|*.*
Masukan Timer dari ToolBox ke Form, dan pada properties bagian Enabled rubah menjadi True dan Interval menjadi 1000
tampilan setelah di masukan Open File dialog dan Timer
dengan tampilan akhir seperti ini
setelah semuanya selesai saatnya memasukan code :
untuk Button3 atau Buka File masukan code
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
wmp.URL = OpenFileDialog1.FileName
End If
untuk Button1 atau Mulai
wmp.Ctlcontrols.play()
untuk Button2 atau Berhenti
wmp.Ctlcontrols.stop()
Untuk Timer
Try
If wmp.playState = WMPLib.WMPPlayState.wmppsPlaying Then
Label1.Text = "Now Playing: " + wmp.currentMedia.name + Environment.NewLine + "Time: " + wmp.Ctlcontrols.currentPositionString + " / " + wmp.currentMedia.name
Else
Label1.Text = "Not Playing"
End If
Catch ex As Exception
MsgBox("Eroor we" + Environment.NewLine + ex.Message.ToString, MsgBoxStyle.Critical + MsgBoxStyle.MsgBoxSetForeground)
Application.Exit() 'jika eroror'
End Try
tampilan akhir dari aplikasi ini adalah
Selamat Mencoba dan berkreasi...
Tidak ada komentar:
Posting Komentar