پخش موزیک در برنامه (موزیک ثابت در تمام اکتیویتی ها)

[cloner01001 38]

سلام ، دوستان 4 تا اکتیویتی(بیشترم ممکنه بشه) دارم با 2 تا لایوت ، میخوام تو اکتیویتی 1 ک با لایوت 1 بالا میاد یه آهنگ پخش بشه واین آهنگ قطع نشه حتی وقتی رفتم تو اکتیوتی 2  (3 یا 4 ) ادامه داشته باشه...   ***اکتیویتی های 2-3-4 و بالاتر با لایوت 2 سِت شدن***

دوستان توجه کنید نمیخوام وقتی کاربر رفت تو اکتیویتی بعدی موزیک از اول اجرا شه بلکه میخوام ادامه موزیکی که تو اکتیویتی قبل در حال اجرا بود شنیده بشه تو برنامه (اجرا بشه) )

 

حالا فرض کنید این مشکل حل شد ، مشکل بعدیم این هست که میخوام همین عمل باشه و یه باتن به برنامه اضافه کنم ک کاربر اگه رو اون کلیک کرد موزیک کلن قطع شه یعنی تو تموم اکتیوتی ها موزیک قطع بمونه ( فرضن اگه تو اکتیویتی 2 بود و از آهنگ خوشش نیومد و رو باتن زد موزیک قطع بشه و وقتی رفت تو اکتیوتی های بعدی هم موزیک قطع بمونه و تا وقتی که دوباره رو همون باتن کلیک نکرده موزیک قطع باشه و اگه دوباره رو همون باتن کلیک کرد موزیک تو تموم اکتیوتی ها اجرا بشه)

لطفن کمک کنید

[محمدرضا شاهپیری 5,579]

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

#Region  Service Attributes 
	#StartAtBoot: False
	#ExcludeFromLibrary: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
Dim m As MediaPlayer
End Sub

Sub Service_Create
	'This is the program entry point.
	'This is a good place to load resources that are not specific to a single activity.

End Sub

Sub Service_Start (StartingIntent As Intent)
m.Initialize
play
End Sub

'Return true to allow the OS default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
	Return True
End Sub
Sub play
	m.Load(File.DirAssets,"music.mp3")
	If m.IsPlaying=False Then
	m.Play
	End If
End Sub
Sub Service_Destroy
If m.IsPlaying Then m.Stop
End Sub

واسه پخش سرویس رو به شکل زیر استارت کن

StartService(Starter)

واسه قطع موزیک هم سرویس رو ببندی قطع میشه

StopService(Starter)

[cloner01001 38]

 

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

#Region  Service Attributes 
	#StartAtBoot: False
	#ExcludeFromLibrary: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
Dim m As MediaPlayer
End Sub

Sub Service_Create
	'This is the program entry point.
	'This is a good place to load resources that are not specific to a single activity.

End Sub

Sub Service_Start (StartingIntent As Intent)
m.Initialize
play
End Sub

'Return true to allow the OS default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
	Return True
End Sub
Sub play
	m.Load(File.DirAssets,"music.mp3")
	If m.IsPlaying=False Then
	m.Play
	End If
End Sub
Sub Service_Destroy
If m.IsPlaying Then m.Stop
End Sub

واسه پخش سرویس رو به شکل زیر استارت کن

StartService(Starter)

واسه قطع موزیک هم سرویس رو ببندی قطع میشه

StopService(Starter)

 

 

این مشکل رو دارم :

دوستان توجه کنید نمیخوام وقتی کاربر رفت تو اکتیویتی بعدی موزیک از اول اجرا شه بلکه میخوام ادامه موزیکی که تو اکتیویتی قبل در حال اجرا بود شنیده بشه تو برنامه (اجرا بشه) )