windows media player

من می خواستم بدونم چطور می شه با این کنترل کار کرد:
صدا رو پخش کرد
قطع کرد
و چند صدا رو به صورت خودکار پشت سر هم پخش کرد
البته در مورد آخر می دونم که باید یک play list برای اون ایجاد کرد اما چطور؟

پخش صدا:

CommonDialog1.Filter = "Mp3 Files| *.mp3| All Files | *.*|"

CommonDialog1.ShowOpen

WindowsMediaPlayer1.URL = CommonDialog1.FileName

قطع صدا:

WindowsMediaPlayer1.Close

من فکر می کنم دوستمون منظورش این بود که چطوری یه لیست رو از قبل داشته باشیم نه اینکه با comondialog باز کنیم .
برای کاری که خواستید می تونین بدون استفاده از mediaplayer از playsound استفاده کنید. پسوند فایلهایی که می خواید play بشه چیه؟

اگه پروژه می خوای بگو من برات بزارم.

ممنون اگه یک سورس کامل استفاده از مدیا پلیر رو بزارید

شما کافیه که شیء Windows Media Player رو به فرمتون اضافه کنید , بعد با نوشتن اسم شی و زدن کارکتر "." امکانات تعبیه شده واسه این شی رو ببینید ...

حالا من یه سورس کامل Mp3 Player داشتم , میزارم تا استفاده کنید :لبخندساده:

>> د ا نلود <<

بفرما اینم سورس البته اگه چیز های کاملتری می خوای بگو تا من برات بزارم من که خودم خیلی زحمت کشیدم تا تونستم یاد بگیرم با مدیاپلیر به صورت کامل کار کنم امید وارم که به درت شما بخوره و نخوای زحمت بکشی دوباره میگم سوالی بود بپرس تا جواب بدم


ضمیمه 13098

نقل قول:

---

نوشته شده توسط amini699

ممنون اگه یک سورس کامل استفاده از مدیا پلیر رو بزارید

---

یه نصیحت :
همیشه ماهی گیری یاد بگیر نه ماهی خوردن رو.! منظورمو که می فهمی؟
موفق باشی دوست عزیز

بچه ها از کمکتون خیلی ممنونم...من اون قدر وقت نداشتم که خودم برم دنبالش بگردم و با "." دنبال متدهاو ویژگی هاش باشم...چون باید فردا پروژمو تحویل بدم ...من از سایر امکانات vb مثل sndplaysound و multimedia سعی کردم استفاده کنم ولی چیزی که می خواستم با windows media player به راحتی ممکنه....پسوند فایل های من wav هست ولی من هنوز نفهمیدم چطور چند صدارو پشت سر هم پخش کنم؟!:افسرده:از بابت سورس هاتون هم ممنونم..ولی من جوابمو نگرفتم ... با هر کنترلی شده فقط می خوام بدونم چطور چند صدا پشت سر هم پخش بشه..در ضمن لیست من از قبل تعریف شده است و من از commondialog نمی خواهم استفاده کنم.

سلام
من نمی ونم اسرارت برای Playlist چیه؟
شما می تونی به جای انکار فایل ها رو با عدد نام گزاری کنی مثلا "1 2 3 4" بعد بهش بی اگه اوالی تموم برو بعدی به این صورت

windowsmediaplayer1.URL="d:\sound\"+str(1)+".wav"

بعد بش بگی STR(1) رو هی زیاد کن
آی دی من Sina_69_2000 هست اگه سوالی داشتی می تونی بپرسی
خوش باشی

یه نصیحت :

همیشه ماهی گیری یاد بگیر نه ماهی خوردن رو.! منظورمو که می فهمی؟

موفق باشی دوست عزیز

یک مدیا پلیر خوب با قابلیت بسیار بالا از جمله سیو کردن و لود کردن لیست

نقل قول:

---

شما می تونی به جای انکار فایل ها رو با عدد نام گزاری کنی مثلا "1 2 3 4" بعد بهش بی اگه اوالی تموم برو بعدی

---

خب دوست عزیز مشکل من هم اینه که نمیدونم چطوری بهش بگم اگه اولی تموم شد برو بعدی مگرنه به play list احتیاج نداشتم...:ناراحت:

نقل قول:

---

نوشته شده توسط mononok

خب دوست عزیز مشکل من هم اینه که نمیدونم چطوری بهش بگم اگه اولی تموم شد برو بعدی مگرنه به play list احتیاج نداشتم...:ناراحت:

---

این فکر کنم کمکت کنه

Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)

If WindowsMediaPlayer1.playState = wmppsStopped Then
windowsmediaplayer1.URL="d:\sound\"+str(نام فایل)+".wav"
WindowsMediaPlayer1.Controls.play
end if

End Sub

معما چو حل گشت آسان شود...
چیزی رو که دیروز دنبالش میگشتم امروز پیدا کردم...
خودم جواب سوالمو می زارم تا اگر کسی خواست ازش استفاده کنه...:لبخندساده:

راه اول با استفاده از windows media player:
آرایه ای به نام b با تعداد خانه های n که آدرس صداها در خانه هاش تعریف شده است..

adress = "f:\adress.m3u"

Open adress For Output As #1

For i = 1 To n

Print #1, b(i)

Next

WindowsMediaPlayer1.URL = adress

Close

راه دوم با استفاده از sndplaysound:
بع از این که این دستور API رو در general کپی کردیم

Dim a As Long

For i = 1 To n

a = sndPlaySound(b(i), 1)

a = sndPlaySound(b(i), 0)

Next

وراه سوم با هر چیزی که می خواهیم صدارو پخش کنیم وبعد برای وقفه یه for بی خود و بزرگ البته نه آنقدر که سیستم هنگ کنه میزاریم وبعد کد پخش صدایه بعد

For i = 1 To 17000000

b = b + 1

Next

موفق با شید