رفتن به مطلب
فایل های ویژه
PersianRetrofit
RecyclerView
Poolakey B4A
PersianTapsellPlus
PersianStandOut
AriaDatabase
  • 0

لود تعداد بالایی اهنگ و ارور

mohammade79

سوال شده توسط mohammade79,

سوال

mohammade79

mohammade79 127

ارسال شده در
ارسال شده در

سلام دوستان یه اپ ساز دارم توش یحرکتی زدم مولتی تاچ اجرا میکنه ولی فایل و پوشه رو که عوض میکنم اهنگاش عوض بشن یکم داستان میشه و اینکه یکم با برنامه کار میکنی جا های دیگش ارور میده چیکار کنم با ساند پول ارو نمیده ولی پوشه جدید جایگذاری نمیشه میشه یکی کمک کنه لطفا خیلی سواله توی دنیای اندروید این موضوع کسی هم جوابشو نداده هنوز 

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

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

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

پژمان نیکروان

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

ارسال شده در
ارسال شده در

سلام

بنظرم برای لود آهنگ ها برای اینکه هنگ نکنه از thread یا ariaAsyncTask استفاده کنید. یعنی عملیات لود رو داخل اینها انجام بدید.

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

mohammade79 127

ارسال شده در
  • سازنده
ارسال شده در
در 54 دقیقه قبل، پژمان نیکروان گفته است :

سلام

بنظرم برای لود آهنگ ها برای اینکه هنگ نکنه از thread یا ariaAsyncTask استفاده کنید. یعنی عملیات لود رو داخل اینها انجام بدید.

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

Sub Activity_Create(FirstTime As Boolean)
	'	baz.Initialize
	'	If baz.IsInstalledByBazaar(Application.PackageName) Then
	phonewake.KeepAlive(True)
	cach.clearCache
	
	Activity.LoadLayout("1")
	If FirstTime Then
		If ShowSplashScreen = True Then
			Activity.AddView(MyPan, 0, 0, Activity.Width, Activity.Height) :
		End If
		If ShowSplashScreen = True Then
			If FirstTime Then
				MyFade.Initialize(Activity,Me,"splash1.jpg",Gravity.FILL,3000,100,"Left")
				MyPan.Visible = False
			End If
		End If
	End If
	DoEvents
	
	list_TOUCHING.Initialize
	list_TOUCHED.Initialize
	G.SetOnTouchListener(Activity, "GesturesTouch")
	TouchMap.Initialize
		loadsound
	setallpanels
	mc1.Initialize2("mc1")
	mc2.Initialize2("mc2")
	mc3.Initialize2("mc3")
	mc1.Load(File.DirAssets,"chord1.ogg")
	mc2.Load(File.DirAssets,"chord2.ogg")
	mc3.Load(File.DirAssets,"chord3.ogg")
	ImageView3.Visible=False
	Button16.Visible=False
	Button17.Visible=False
	Button18.Visible=False
	
	'	Else
	'	sd.Initialize("Wrong",sd.DIALOG_TYPE_WRONG)
	'	sd.AnimationEnabled = True
	'	sd.MessageText = "این نسخه نرم افزار از کافه بازار خریداری نشده است! برای اجر لطفا نسخه اصلی آن را از کافه بازار خریداری نمایید تا از تمامی امکانات بهمراه آپدیت های آن بهره مند شوید."&CRLF&"Appdroids Team ;)"
	'	sd.TitleText = "WRONG Dialog"
	'	sd.Show
	'	sd.AnimationEnabled=True
	'	sd.TitleLabel.TextColor = Colors.White
	'	sdlabel = sd.MessageLabel
	'	sdlabel.Gravity = Gravity.RIGHT
	'	sd.MessageLabel.Typeface = Typeface.LoadFromAssets("kasif.ttf")
	'	sd.Button.Typeface = Typeface.LoadFromAssets("kasif.ttf")
	'		End If
	End Sub

Sub loadsound
	If piano_mp.IsInitialized = True Then Return
	piano_mp.Initialize(6)
	For i = 0 To pnl_keys.Length-1
		piano_mp.Load(File.DirAssets, "newsound/" & i & ".mp3")
	Next
End Sub

Sub am
	If piano_mp.IsInitialized = True Then Return
	piano_mp.Initialize(6)
	For i = 0 To pnl_keys.Length-1
		piano_mp.Load(File.DirAssets,"am/" & i & ".mp3")
	Next	
End Sub

Sub bm
	If piano_mp.IsInitialized = True Then Return
	piano_mp.Initialize(6)
	For i = 0 To pnl_keys.Length-1
		piano_mp.Load(File.DirAssets,"bm/" & i & ".mp3")
	Next
End Sub

Sub g1
	If piano_mp.IsInitialized = True Then Return
	piano_mp.Initialize(6)
	For i = 0 To pnl_keys.Length-1
		piano_mp.Load(File.DirAssets,"g/" & i & ".mp3")
	Next
End Sub
Sub a
	If piano_mp.IsInitialized = True Then Return
	piano_mp.Initialize(6)
	For i = 0 To pnl_keys.Length-1
		piano_mp.Load(File.DirAssets,"a/" & i & ".mp3")
	Next
End Sub

Sub e
	If piano_mp.IsInitialized = True Then Return
	piano_mp.Initialize(6)
	For i = 0 To pnl_keys.Length-1
		piano_mp.Load(File.DirAssets,"e/" & i & ".mp3")
	Next
End Sub

Sub fm
	If piano_mp.IsInitialized = True Then Return
	piano_mp.Initialize(6)
	For i = 0 To pnl_keys.Length-1
		piano_mp.Load(File.DirAssets,"fm/" & i & ".mp3")
	Next
End Sub

Sub f
	If piano_mp.IsInitialized = True Then Return
	piano_mp.Initialize(6)
	For i = 0 To pnl_keys.Length-1
		piano_mp.Load(File.DirAssets,"f/" & i & ".mp3")
	Next
End Sub

Sub d
	If piano_mp.IsInitialized = True Then Return
	piano_mp.Initialize(6)
	For i = 0 To pnl_keys.Length-1
		piano_mp.Load(File.DirAssets,"d/" & i & ".mp3")
	Next
End Sub

Sub c
	If piano_mp.IsInitialized = True Then Return
	piano_mp.Initialize(6)
	For i = 0 To pnl_keys.Length-1
		piano_mp.Load(File.DirAssets,"c/" & i & ".mp3")
	Next
End Sub

Sub em
	If piano_mp.IsInitialized = True Then Return
	piano_mp.Initialize(6)
	For i = 0 To pnl_keys.Length-1
		piano_mp.Load(File.DirAssets,"em/" & i & ".mp3")
	Next
End Sub

Sub setallpanels
	pnl_keys(0) = key1
	pnl_keys(1) = key2
	pnl_keys(2) = key3
	pnl_keys(3) = key4
	pnl_keys(4) = key5
	pnl_keys(5) = key6
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)
	setallkeystofalse
End Sub

Sub setallkeystofalse
	list_TOUCHING.Clear
	list_TOUCHING.Clear
	TouchMap.Clear
	resetcolors
End Sub

Sub resetcolors

End Sub
Sub GesturesTouch(View As Object, PointerID As Int, Action As Int, X As Float, Y As Float) As Boolean
	Dim p As Point
	Select Action
		Case G.ACTION_DOWN, G.ACTION_POINTER_DOWN
			p.Id = PointerID
			TouchMap.Put(PointerID, p)
		Case G.ACTION_POINTER_UP
			TouchMap.Remove(PointerID)
		Case G.ACTION_UP
			setallkeystofalse	
	End Select

	list_TOUCHING.Clear 'reset touching list
	For i = 0 To TouchMap.Size - 1
		Dim px, py As Int
		p = TouchMap.GetValueAt(i)
		px = G.GetX(p.id)
		py = G.GetY(p.id)
		For Each pnl As Panel In pnl_keys
			If px > pnl.Left And px < pnl.Left + pnl.Width Then 
				If py > pnl.Top And py < pnl.Top + pnl.Height Then 
					If pnl.Tag > 4 Then 
						If list_TOUCHED.IndexOf("0") > -1 Or list_TOUCHED.IndexOf("1") > -1 Or  list_TOUCHED.IndexOf("2") > -1 Or list_TOUCHED.IndexOf("3") > -1 Or list_TOUCHED.IndexOf("4") > -1 Then 
							If py < pnl_keys(0).Height Then
								If pnl.Tag = "5" Or pnl.Tag = "6" Then 'right side
								 	If px > (pnl.Left + pnl.Width) - (pnl_keys(0).Width / 2) Then Continue
								else if pnl.Tag = "6" Or pnl.Tag = "11" Then 'left side
									If px < pnl.Left + (pnl_keys(0).Width / 2) Then Continue
								else if pnl.tag = "6" Then 
									'do nithing - full white key
								Else 
									 If px > (pnl.Left + pnl.Width) - (pnl_keys(0).Width / 2) Or px < pnl.Left + (pnl_keys(0).Width / 2) Then Continue
								End If	
							End If	
						End If
					End If
					
					list_TOUCHING.Add(pnl.Tag)
					If list_TOUCHED.IndexOf(pnl.Tag) = -1 Then 
						list_TOUCHED.Add(pnl.Tag)
						piano_mp.Play(pnl.Tag+1,1,1,1,0,1)
						
					End If	
				End If	
			End If
		Next
	Next	

	resetcolors
	For i = 0 To list_TOUCHING.Size - 1
		Dim index As String = list_TOUCHING.Get(i)
		If index =0 Then 
				ic.ScaleFromCenterToTopBottomBack("ic",250)
				ic.StartAnim(key1)
		End If
		If index =1 Then 
				ic.ScaleFromCenterToTopBottomBack("ic",250)
				ic.StartAnim(key2)
		End If
		If index =2 Then 
				ic.ScaleFromCenterToTopBottomBack("ic",250)
				ic.StartAnim(key3)
		End If
		If index =3 Then 
				ic.ScaleFromCenterToTopBottomBack("ic",250)
				ic.StartAnim(key4)
		End If
		If index =4 Then 
				ic.ScaleFromCenterToTopBottomBack("ic",250)
				ic.StartAnim(key5)
		End If
		If index =5 Then 
				ic.ScaleFromCenterToTopBottomBack("ic",250)
				ic.StartAnim(key6)
		End If
	Next
	For i = (list_TOUCHED.Size-1) To 0 Step -1
		If list_TOUCHING.IndexOf(list_TOUCHED.Get(i)) = -1 Then list_TOUCHED.RemoveAt(i)
	Next
	Return True
End Sub

 

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

مجید آرتا 5,874

ارسال شده در
ارسال شده در

سلام

هیچ کد کپی کردن فایلی بنده ندیدم!

مشکلتون رو میتونم حدس بزنم چیه ( البته حدسه!).شما اسامی فایل هارو به صورت عدد قرار دادید، و میایید به وسیله حلقه فور این فایل هارو میگیرید که کاملا اشتباه هستش و با کوچیکترین تغییر که خودتون گفتید برنامتون از کار میوفته برادر.

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

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

لینکی رو بهتون میدم، توی اون سورس ببینید که اسامی فایل رو به صورتی میگیریم که ست میشه با UI  مون. راحت تر می تونید هندل کنید.

 

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

mohammade79 127

ارسال شده در
  • سازنده
ارسال شده در
در 14 ساعت قبل، مجید آرتا گفته است :

سلام

هیچ کد کپی کردن فایلی بنده ندیدم!

مشکلتون رو میتونم حدس بزنم چیه ( البته حدسه!).شما اسامی فایل هارو به صورت عدد قرار دادید، و میایید به وسیله حلقه فور این فایل هارو میگیرید که کاملا اشتباه هستش و با کوچیکترین تغییر که خودتون گفتید برنامتون از کار میوفته برادر.

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

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

لینکی رو بهتون میدم، توی اون سورس ببینید که اسامی فایل رو به صورتی میگیریم که ست میشه با UI  مون. راحت تر می تونید هندل کنید.

 

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

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

بایگانی شده

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

رفتن به لیست سوال ها

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

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