پخش موسیقی در ویژوال

[novinmehran]

سلام من یک نرم افزار قرعه کشی درست کردم تی ویژوال میخوام با بازشدن پنجره موسیقی پخش بشه و با زدن دکمه نیز موسیقی دیگر
لطفا بگید باید چیکار کنم و چه کد هایی لازم هست
ممنون
مهران نوین

[hsgpro]

سلام
الان ویژوال استودیو در دسترس ندارم همینطوری حفظی میگم.

ببینید اگر فایل های موسیقی شما فقط با فرمت wav. هستن براحتی با کلاس System.Media.SoundPlayer می تونید پخشش کنید اما اگر فایل های موسیقی شما سایر فرمت ها مثل mp3. هستن باید اولاً نسخه Net. پروژه شما حداقل 3.5 به بالا باشه سپس روی اسم پروژه راست کلیک کنید و گزینه Add Reference رو بزنید سپس رفرنس Presentation Core رو به پروژه تون اضافه کنید بعدش براحتی با کلاس System.Windows.Media.MediaPlayer می تونید اکثر فرمت های موسیقی رو پخش کنید.

کلاس System.Windows.Media.MediaPlayer برای WPF است اما با اضافه کردن رفرنس Presentation Core در Windows Form هم قابل استفاده است.

منابع:
https://msdn.microsoft.com/en-us/library/system.media.soundplayer%28v=vs.80%29.aspx
https://msdn.microsoft.com/en-us/library/system.windows.media.mediaplayer%28v=vs.110%29.asp x

[novinmehran]

با تشکر از راهنمایی های شما
من الان کد System.Media.SoundPlayer() در قسمت load یک فرم گذاشتم حالا ادرس اهنگ مورد نظر رو کجای اون قرار بدم یا باید یه طور دیگه عمل کنم و ادرس نمی خوام فایل رو هم تبدیل به فرمت wav کردم

[gilsoft]

سلام دوست عزیز

ابتدا رفرنس Windows Media Player رو از تب COM پنجره Add References به پروژه‌ات اضافه کن

اینم کد مربوطه:
Imports WMPLib

Public Class Form1
Public Player As WindowsMediaPlayer = New WindowsMediaPlayer


Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.Button1.Text = "Play"
Me.Button2.Text = "Stop"
Me.Button3.Text = "Next"
Me.Button4.Text = "Prev"


Player.URL = "D:\MP3\Track1.mp3"
End Sub


Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Select Case Me.Button1.Text
Case "Play"
Player.controls.play()
Me.Button1.Text = "Pause"
Exit Select
Case "Pause"
Player.controls.pause()
Me.Button1.Text = "Play"
Exit Select
End Select
End Sub


Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Player.controls.stop()
End Sub


Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
Player.controls.next()
End Sub


Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
Player.controls.previous()
End Sub
End Class




موفق باشید .....

[hsgpro]

با تشکر از راهنمایی های شما
من الان کد System.Media.SoundPlayer() در قسمت load یک فرم گذاشتم حالا ادرس اهنگ مورد نظر رو کجای اون قرار بدم یا باید یه طور دیگه عمل کنم و ادرس نمی خوام فایل رو هم تبدیل به فرمت wav کردم

الان ویژوال استودیو ندارم اما فکر کنم باید از این کلاس یه new بگیرید و اون جا آدرس فایل wav رو بدید.