پخش موزیک هنگام باز شدن برنامه

[محمدی 95]

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

[ebham 232]

برادر بیا واست سورس نوشتم چیزی که میخوای 

 

شروع برنامه اهنگ پخش میشه و اگر تموم شد تکرار میشه 

 

یه باتن که اهنگ رو قطع و وصل میکنه 

 

واسه اشانتیون روی باتن عکس هم گذاشتم که نشون بده صدا وصل هست یا قطع 

 

امید وارم مشکلت حل بشه 

 

 

لین دانلود از پیکو 

[محمدی 95]

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

اگه بخوایم موزیک پخش شد بعدش که تموم شد به طور خودکار دوباره همونو بخونه باید چیکار کرد?

[asvar 41]

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

اگه بخوایم موزیک پخش شد بعدش که تموم شد به طور خودکار دوباره همونو بخونه باید چیکار کرد?

Sub EventName_Complete
   code play
End Sub 

باید از نوع Initialize2 استفاده کنی

[nabeghe 61]

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

اگه بخوایم موزیک پخش شد بعدش که تموم شد به طور خودکار دوباره همونو بخونه باید چیکار کرد?

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

a.Looping = True

[محمدی 95]

ببخشید متوجه نشدم مختصر تر توضیح میدید?

[asvar 41]

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

a.Looping = True

اصن یادم نبود . این بهتره .

[پژمان نیکروان 6,055]

آقای محمدی یعنی شما همین کاری رو که برای پخش موزیک انجام میدی:

dim m as mediaplayer
m.initialze
m.load(file.dirassets,"m.mp3")
m.play

به جای intialze کردن تو خط اول از intialze2 استفاده کن. یعنی به جای خط اول اینو بذار:

m.Initialize2("m")

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

Sub m_Complete
   m.play
End Sub

[reza2001 587]

سلام به همه دوستان

 

من از این کد استفاده کردم :

 Dim m As MediaPlayer
    m.Initialize2("m")
    m.load(File.dirassets,"m.mp3")
    m.play

کار می کنه و خیلی هم خوبه اما دو مشکل وجود داره :

 

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

 

دوم هم اینکه می خوام این موزیک در کل برنامه ام پخش بشه ، یعنی در هر اکتیویتی که میرم موزیک ادامه داشته باشه ، اما اینطوری باید این کد رو توی تمام اکتیویتی هام بنویسم و از اون بد تر اینکه هر اکتیویتی جدید که اجرا میشه موزیک از اول پخش میشه

 

 

لطفا راهنمایی کنید

[پژمان نیکروان 6,055]

سلام.

میخواین تکرار شدن رو اضافه کنید کداتون رو اینجوری بنویسید:

Dim m As MediaPlayer
    m.Initialize2("m")
m.Looping=true
    m.load(File.dirassets,"m.mp3")
    m.play

و اگه میخواین آهنگ همه جا پخش بشه ، تو همون اکتیویتی که این کداتو رو نوشتید بمونید و نبندین. یعنی وقتی اکتیویتی دیگه ای رو استارت کردین قبلی رو استوپ نکنید.

[reza2001 587]

ممنون از همه دوستان

 

خیلی کمک کرد مخصوصا سورس آقا ebham

 

[ehsankhan 256]

برادر بیا واست سورس نوشتم چیزی که میخوای

شروع برنامه اهنگ پخش میشه و اگر تموم شد تکرار میشه

یه باتن که اهنگ رو قطع و وصل میکنه

واسه اشانتیون روی باتن عکس هم گذاشتم که نشون بده صدا وصل هست یا قطع

امید وارم مشکلت حل بشه

لین دانلود از پیکو

اگه بخوام موزیک در یک زمان معین اجرا بشه چی کار کنیم

[Mohsen27 199]

تو اکتیوتی کریت بنویس

dim m as mediaplayer
m.initialze
m.load(file.dirassets,"m.mp3")
m.play

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

sub button1_click
m.pause
end sub