سوال پخش آهنگ در همه اکتیوتی ها

[ya3in80 26]

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

 

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

 

یه جورایی پس ضمینه کارم باشه

[ya3in80 26]

سلام میشه کسی به من کمک کنه لطفا؟

[مجید آرتا 5,874]

سلام

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

[alimo 138]

برای اجرا اهنگ کا فیه تو هر اکتویتی که هستی کد زیر بزنی.

 

برای پخش اهنگ

startservise (اسم سرویس )

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

StopService(اسم سرویس )
CancelScheduledService(اسم سرویس )

[ya3in80 26]

 

برای اجرا اهنگ کا فیه تو هر اکتویتی که هستی کد زیر بزنی.

 

برای پخش اهنگ

startservise (اسم سرویس )

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

StopService(اسم سرویس )
CancelScheduledService(اسم سرویس )

آقا من خیلی خیلی خیلی از شما مرسی.

 

اما یک مشکل کوچیک هست اون هم اینکه استپوپ کار نمیکنه و حتی وقتی از برنامه خارج میشیم بازم پخش میشه.

 

هر عملی انجام دادم درست نشد استوپش!

[alimo 138]

stop نمیشه ؟؟ مگه داریم مگه میشه؟؟

 

اگه تو اکتویتی کریت یک اکتویتی این کد بزاری اهنگ باید قطع بشه !چون سرویس بستی!!

StopService(اسم سرویس )
CancelScheduledService(اسم سرویس )

برای این که خارج شی  از بزنامه و اهنگ قطع بشه باید با if شرط بزاری که اگه اکتویتی پاس شد سرویس استوپ بشه.

[ya3in80 26]

stop نمیشه ؟؟ مگه داریم مگه میشه؟؟

 

اگه تو اکتویتی کریت یک اکتویتی این کد بزاری اهنگ باید قطع بشه !چون سرویس بستی!!

StopService(اسم سرویس )
CancelScheduledService(اسم سرویس )

برای این که خارج شی  از بزنامه و اهنگ قطع بشه باید با if شرط بزاری که اگه اکتویتی پاس شد سرویس استوپ بشه.

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

 

میخوام وقتی روی دکمه "توقف آهنگ" کلیک کردم موسیقی که در ماژول سرویس اوکی شد حالا ساکت بشه و متوقف بشه

[MH.480 1]

همونطور که بقیه دوستان گفتن برای اینکه بتونی یک کاری رو (در اینجا پخش اهنگ) رو در پس زمینه و در تمام اکتیویتی ها اجرا کنی ، از سرویس ها باید استفاده کنی

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

و بعد

StartService(MyService)

, و برای stop کردن سرویس هم میتونید در هر رویدادی که خواستید این کد رو بنویسید

StopService(MyService)

[ya3in80 26]

 

همونطور که بقیه دوستان گفتن برای اینکه بتونی یک کاری رو (در اینجا پخش اهنگ) رو در پس زمینه و در تمام اکتیویتی ها اجرا کنی ، از سرویس ها باید استفاده کنی

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

و بعد

StartService(MyService)

, و برای stop کردن سرویس هم میتونید در هر رویدادی که خواستید این کد رو بنویسید

StopService(MyService)

دوست عزیز من این کارو انجام دادم ولی اصلا stop نمیشه .

 

من در قسمت start در ماژول سرویس کدم رو نوشتم

 

و در قسمت create فروم اصلیم هم فراخوانیش کردم

 

حالا وقتی روی دکمه توقف موسیقی در فروم اصلی کلیک میکنم که stop بشه با وجود اینکه در داخل اون نوشتم stopsrevise ولی استوپ نمیشه.

 

در جای دیگه دستور استوپ رو نوشتم ولی بازم نشد

 

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

 

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

[porya 959]

سلام اول کتابخونه audio رو فعال کن بعد بیا یه متغییر ازش تو اکتیویتی مثلا main تو قسمت Process_Globals تعریف کن.

Sub Process_Globals

	Dim m As MediaPlayer
	
End Sub

بعد بیا تو Activity_Create اکتیویتی main کد های زیر رو بنویس...

Sub Activity_Create(FirstTime As Boolean)

	Activity.LoadLayout("main")
	
	m.Initialize()
 	m.Load(File.DirAssets,"اسم اهنگ مورد نظر")
	m.Looping = True
	m.Play
			
End Sub

حالا برای اینکه تو اکتیویتی های دیگه هم پخش بشه بیا تو هر اکتیویتی قسمت Activity_Resume کد زیر رو قرار بده...

Sub Activity_Resume
	main.m.play
End Sub

[ya3in80 26]

 

سلام اول کتابخونه audio رو فعال کن بعد بیا یه متغییر ازش تو اکتیویتی مثلا main تو قسمت Process_Globals تعریف کن.

Sub Process_Globals

	Dim m As MediaPlayer
	
End Sub

بعد بیا تو Activity_Create اکتیویتی main کد های زیر رو بنویس...

Sub Activity_Create(FirstTime As Boolean)

	Activity.LoadLayout("main")
	
	m.Initialize()
 	m.Load(File.DirAssets,"اسم اهنگ مورد نظر")
	m.Looping = True
	m.Play
			
End Sub

حالا برای اینکه تو اکتیویتی های دیگه هم پخش بشه بیا تو هر اکتیویتی قسمت Activity_Resume کد زیر رو قرار بده...

Sub Activity_Resume
	main.m.play
End Sub

من تمام کارهایی که گفته بودید رو انجام دادم متاسفانه جواب نگرفتم و آهنگ بعد از رفتن به اکتیویتی main2 متوقف میشود و ادامه پیدا نمیکند!!!

[alimo 138]

اصلا امکان نداره وقتی یه سرویس استوپ می کنی دیگه کلا کد های اون سرویس غیر فعال میشه!!

 

یدون سورس برات ساختم و موقعی که اکتویتی پاس میشه صدا هم خط میشه(با بستن برنامه)

 

لینک=

http://s6.picofile.com/file/8240033626/test.rar.html

[porya 959]

دوست عزیز کدها تست شده اگه به نتیجه نرسید کدهاتون رو قرار بدید تا بررسی کنیم...

[ya3in80 26]

اصلا امکان نداره وقتی یه سرویس استوپ می کنی دیگه کلا کد های اون سرویس غیر فعال میشه!!

یدون سورس برات ساختم و موقعی که اکتویتی پاس میشه صدا هم خط میشه(با بستن برنامه)

لینک=

http://s6.picofile.com/file/8240033626/test.rar.html

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

من میخوام روی دکمه ک کلیک بشه صدا قطع بشه

[alimo 138]

اون کد رو تست بزن 99%کار میکنه ولی اگر کار نکرد می تونی کد بخش اهنگ تو یه سرویس بزاری

[ya3in80 26]

اون کد رو تست بزن 99%کار میکنه ولی اگر کار نکرد می تونی کد بخش اهنگ تو یه سرویس بزاری

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

[Nemesis 1,846]

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

 

اکتیویتی

Sub Globals
	Dim btn As Button
	Dim btn2 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
	btn.Initialize("btnplay")
	btn2.Initialize("btnpause")
	btn.Text = "Play"
	btn2.Text = "Pause"
	Activity.AddView(btn,0,0,100%x,20%y)
	Activity.AddView(btn2,0,40%y,100%x,20%y)
StartService(s)
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)
StopService(s)
CancelScheduledService(s)
End Sub

Sub btnplay_Click
	CallSub(s,"playplayer")
End Sub

Sub btnpause_Click
	CallSub(s,"stopplayer")
End Sub

سرویس

Sub Service_Create
d.Initialize2("d")
d.Load(File.DirAssets,"win7winvista.mp3")
d.Looping=True
d.Play
End Sub

Sub Service_Start (StartingIntent As Intent)

End Sub

Sub Service_Destroy

End Sub

Sub stopplayer
	d.Pause
End Sub

Sub playplayer
	d.Play
End Sub

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

[مجید آرتا 5,874]

سلام دوستم

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

شما وقتی درون یک اکتویتی هستید و طول عمر این اکتویتی تا زمانی هستش که شما این اکتویتی رو Finish  نکردید و ازش خارج نشدید.

شما باید از ماژول سرویس استفاده کنید.این ماژول رویداد های Create  و Start  و Destroy  داره که اولین رویداد زمانی که سرویس ساخته میشه.یعنی یکبار اتفاق میفته و تا زمانی که Destroy  رخ نداده باشه دیگه create  صورت نمیگیره

Start  هم شما قصد دارید یک عملی رو پیوسته انجام بدید و میایید توی این رویداد قرار میدید

[ya3in80 26]

سلام دوستم

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

شما وقتی درون یک اکتویتی هستید و طول عمر این اکتویتی تا زمانی هستش که شما این اکتویتی رو Finish  نکردید و ازش خارج نشدید.

شما باید از ماژول سرویس استفاده کنید.این ماژول رویداد های Create  و Start  و Destroy  داره که اولین رویداد زمانی که سرویس ساخته میشه.یعنی یکبار اتفاق میفته و تا زمانی که Destroy  رخ نداده باشه دیگه create  صورت نمیگیره

Start  هم شما قصد دارید یک عملی رو پیوسته انجام بدید و میایید توی این رویداد قرار میدید

سپاس گزارم میشه بیشتر توضیح بدید یا آموزشی چیزی باشه من بفهمم؟ مرسی

[مجید آرتا 5,874]

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

این تاپیک روهم ببینید :

http://answercenter.ir/topic/5756-%D9%82%D8%B7%D8%B9-%D9%86%D8%B4%D8%AF%D9%86-%D9%BE%D8%AE%D8%B4-%D8%A2%D9%87%D9%86%DA%AF/

[mohammade79 127]

دوست عزیز نیازی به اون کار هایی که کردید نیست سعی کنید برای ایجور کار ها از شی گرایی استفاده کنید 

Sub Process_Globals
Dim m1 As MediaPlayer
End Sub

Sub playQuran
m1.Initialize2("")
m1.Load(File.DirAssets,"ghoran.mp3")
m1.Play
End Sub

اینو داخل کد ماژول بزن برای فراخوانیشم 

libraryes.playQuran

اسم اهنگ رو من قران گذاشتم شما تغییر بده