اجرای آهنگ در مولتی پنل

[phd.khosravi 64]

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

 

تو برنامه از مولتی پنل برای پخش آهنگ های داخل برنامه استفاده کردم ولی مشکل اینکه عمل play / pause رو درست انجام نمیده اونم بدلیل اینکه تو رویداد باتن فایل آهنگ رو لود میکنم تو خارج از رویداد باتن هم که عمل لود آهنگ رو انجام میدم میاد فقط آخرین اهنگی که تو حلقه فور قرار میگیره رو پخش میکنه

اگه کسی بلده لطفا کمک کنه

 

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

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.

	Dim lbl As Label
	Dim pl As Panel
	Dim player As MediaPlayer
	Dim btnplay As Button

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	'Activity.LoadLayout("Layout1")
	
		player.Initialize2("player")
	
	For i = 1 To 4
		lbl.Initialize("")
		pl.Initialize("")
		
		btnplay.Initialize("btnplay")

		pl.AddView(lbl,2%x,1%y,50%x,9%y)
		pl.AddView(btnplay,55%x,1%y,15%x,9%y)

		Activity.AddView(pl,0,i*14%y,100%x,11%y)
		btnplay.Text = "play"
		lbl.TextSize = 15
		lbl.TextColor = Colors.Black
		
		pl.Color = Colors.rgb(176,190,197)
		
		lbl.Text = i&".mp3"
		
		btnplay.Tag = i

		player.Load(File.DirAssets , btnplay.Tag&".mp3")
		
		
	Next
	
	
End Sub

Sub btnplay_Click
	btnplay = Sender

	If player.IsPlaying = True Then
		player.Pause
	Else
		player.Play	
	End If
	

End Sub

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

سلام

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

http://answercenter.ir/topic/5152-%D9%85%D9%88%D9%84%D8%AA%DB%8C-%D9%BE%D9%86%D9%84-%D9%88-%DA%A9%D9%86%D8%AA%D8%B1%D9%84-%D8%A7%D8%A8%D8%B2%D8%A7%D8%B1-%D9%87%D8%A7%DB%8C-%D8%A2%D9%86/

 

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

[alinoori 123]

Sub Globals

'These global variables will be redeclared each time the activity is created.

'These variables can only be accessed from this module.

Dim lbl As Label

Dim pl As Panel

Dim player As MediaPlayer

Dim btnplay As Button

End Sub

Sub Activity_Create(FirstTime As Boolean)

'Do not forget to load the layout file created with the visual designer. For example:

'Activity.LoadLayout("Layout1")

player.Initialize2("player")

For i = 1 To 4

lbl.Initialize("")

pl.Initialize("")

btnplay.Initialize("btnplay")

pl.AddView(lbl,2%x,1%y,50%x,9%y)

pl.AddView(btnplay,55%x,1%y,15%x,9%y)

Activity.AddView(pl,0,i*14%y,100%x,11%y)

btnplay.Text = "play"

lbl.TextSize = 15

lbl.TextColor = Colors.Black

pl.Color = Colors.rgb(176,190,197)

lbl.Text = i&".mp3"

btnplay.Tag = i

Next

End Sub

Sub btnplay_Click

' btnplay = Sender

Dim mm As Button

mm=Sender

player.Load(File.DirAssets , mm.Tag&".mp3")

' If player.IsPlaying=False Then

'

' End If

Log(btnplay.Tag)

If player.IsPlaying = True Then

player.Pause

Else

player.Play

End If

End Sub

[phd.khosravi 64]

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

 

بازم از لطف همه دوستان ممنونم