رفتن به مطلب
  • 0

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


phd.khosravi

سوال

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

 

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

3 پاسخ به این سوال تاکنون داده شده است

ارسال‌های توصیه شده

سلام

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

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/

 

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر


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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

 

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...