windows media player

[mononok]

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

[اوبالیت به بو]

پخش صدا:

CommonDialog1.Filter = "Mp3 Files| *.mp3| All Files | *.*|"
CommonDialog1.ShowOpen
WindowsMediaPlayer1.URL = CommonDialog1.FileName

قطع صدا:

WindowsMediaPlayer1.Close

[ali_habibi1384]

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

[SeyedMoosavi]

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

[amini699]

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

[DoctorJay]

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

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

>> د ا نلود (http://www.4shared.com/file/32941126/f84ea952/MMp3Player.html) <<

[SeyedMoosavi]

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


13098

[ali_habibi1384]

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

[mononok]

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

[SeyedMoosavi]

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

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

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

[amini699]

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

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

[mononok]

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

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

[SeyedMoosavi]

خب دوست عزیز مشکل من هم اینه که نمیدونم چطوری بهش بگم اگه اولی تموم شد برو بعدی مگرنه به 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

[mononok]

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

راه اول با استفاده از 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
موفق با شید