اکتیویتی سنگین و ProgressDialog

[reza644 435]

سلام

 

من یه اکتیویتی سنگین دارم میخوام وقتی کاربر دکمه ورود به اکتیوتی رو میزنه 

تا وقتی که اکتیویتی به طور کامل لود میشه ProgressDialog نشون بده

 

اکتیویتی سنگینم یه مولتی پنل صد تایی با عکس داره

 

یکی از اکتیویتی های سنگینم main هست که چند تا دکمه داره 

sql رو initialize میکنه و فایل انکریپت شده رو unpack میکنه

میخوام یه سری هم هنگام ورود به برنامه نشون بده

 

[softir 459]

در هم اکنون، reza644 گفته است :

اینم نشد

بزن در حال انتظار نمایش داده بشه . تا وقتی که صدمین مولتی پنلت لود نشده . پس تو یه تایمر بررسی کن هر وقت صدمین مولتی پنلت اینشیالاز شد ، اون موقع پیام منتظر باشید هم از بین بره

[reza644 435]

در 10 دقیقه قبل، softir گفته است :

بزن در حال انتظار نمایش داده بشه . تا وقتی که صدمین مولتی پنلت لود نشده . پس تو یه تایمر بررسی کن هر وقت صدمین مولتی پنلت اینشیالاز شد ، اون موقع پیام منتظر باشید هم از بین بره

میشه با کد بگید

 

ولی اکتیویتی ماین مولتی پنل نداره

 

اصل کاری ماینه که کدشو گذاشتم

[امین مهدی نژاد 2,142]

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

«موفق باشید.»

[Amral 83]

در 29 دقیقه قبل، reza644 گفته است :

سلام

 

من یه اکتیویتی سنگین دارم میخوام وقتی کاربر دکمه ورود به اکتیوتی رو میزنه 

تا وقتی که اکتیویتی به طور کامل لود میشه ProgressDialog نشون بده

 

اکتیویتی سنگینم یه مولتی پنل صد تایی با عکس داره

 

یکی از اکتیویتی های سنگینم main هست که چند تا دکمه داره 

sql رو initialize میکنه و فایل انکریپت شده رو unpack میکنه

میخوام یه سری هم هنگام ورود به برنامه نشون بده

 

سلام 

فکر کنم شما باید همون اولِ اول ساب Activity_create گزینه

	ProgressDialogShow2("در حال بارگذاری اطلاعات. لطفا شکیبا باشید...",False)

رو اضافه کنید و همچنین آخر activit_create گزینه 

ProgressDialogHide

رو اضافه کنید

[reza644 435]

در 17 دقیقه قبل، amral گفته است :

سلام 

فکر کنم شما باید همون اولِ اول ساب Activity_create گزینه

	ProgressDialogShow2("در حال بارگذاری اطلاعات. لطفا شکیبا باشید...",False)

رو اضافه کنید و همچنین آخر activit_create گزینه 

ProgressDialogHide

رو اضافه کنید

متاسفانه نتیجه ای نداد

[Amral 83]

در 21 دقیقه قبل، reza644 گفته است :

متاسفانه نتیجه ای نداد

دقت کنید که کد اول باید بلافاصله بعد از sub activity_create قرار بگیره و کد دوم باید بلافاصله قبل از end sub قرار بگیره

 

[reza644 435]

در 19 دقیقه قبل، amral گفته است :

دقت کنید که کد اول باید بلافاصله بعد از sub activity_create قرار بگیره و کد دوم باید بلافاصله قبل از end sub قرار بگیره

 

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: false
	#AdditionalRes: ..\res
#End Region

Sub Process_Globals

	Dim net As AriaLib
Dim sql1 As SQL

Dim cur As Cursor


End Sub

Sub Globals
Private Listt As Button

Dim Pushe As Pushe
Private rate As Button
Private sor As Button
Private ex As Button
Private In As Button
Dim en As Encrypt_Files
End Sub

Sub Activity_Create(FirstTime As Boolean)
	
ProgressDialogShow2("در حال بارگذاری اطلاعات. لطفا شکیبا باشید...",False)

	Try
		en.Initialize()
		en.UnpackAsset("cpp","***",True,"لطفا صبر کنید...")

Activity.LoadLayout("main")
		Pushe.initialize()
			

ex.Typeface=Typeface.LoadFromAssets("Far_KoodkBd.ttf")
sor.Typeface=Typeface.LoadFromAssets("Far_KoodkBd.ttf")
Listt.Typeface=Typeface.LoadFromAssets("Far_KoodkBd.ttf")
rate.Typeface=Typeface.LoadFromAssets("Far_KoodkBd.ttf")
In.Typeface=Typeface.LoadFromAssets("Far_KoodkBd.ttf")
Try



	If sql1.IsInitialized = False Then
		sql1.Initialize(en.PrivateAsset,"tasvir4.db",True)
	End If

Catch
	ExitApplication
ToastMessageShow("عدم وجود فضای کافی",True)
	End Try



Catch
	
	Msgbox("در صفحه برنامه در بازار گزارش دهید.","خطای ناشناخته")

	End Try
'	
	ProgressDialogHide
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub ex_Click


 StartActivity(sit)



End Sub
Sub sor_Click
Msgbox("khaleleila.com"&CRLF&"tebyan.net"&CRLF&"beytoote.com"&CRLF&"google.com","منابع")


End Sub
Sub rate_Click
Try
Dim intent1 As Intent
intent1.Initialize(intent1.ACTION_EDIT,"bazaar://details?id=com.kodackan.ebook")
StartActivity(intent1)
Catch
ToastMessageShow("اول بازار رو نصب کن",True)
End Try
End Sub
Sub listt_Click


 StartActivity(list)
End Sub
Sub in_Click


 Msgbox("در صورت نیاز با ایمیلم در تماس باشید:"&CRLF&"[email protected]","رضا زمانی")
End Sub

Sub Activity_KeyPress (KeyCode As Int) As Boolean
	



	
	If KeyCode = KeyCodes.KEYCODE_BACK Then
		Dim r As Int
		r = Msgbox2("خارج میشی؟","خروج","آره","","نه",LoadBitmap(File.DirAssets,"icon.png"))
		If ( r = DialogResponse.POSITIVE) Then


			Activity.Finish
		End If
	

	
	
	
		If ( r = DialogResponse.NEGATIVE) Then
			Return True
		End If
	End If







End Sub

نشد بازم

 

این اکتیویتی اولمه

[Amral 83]

در 10 دقیقه قبل، reza644 گفته است :

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: false
	#AdditionalRes: ..\res
#End Region

Sub Process_Globals

	Dim net As AriaLib
Dim sql1 As SQL

Dim cur As Cursor


End Sub

Sub Globals
Private Listt As Button

Dim Pushe As Pushe
Private rate As Button
Private sor As Button
Private ex As Button
Private In As Button
Dim en As Encrypt_Files
End Sub

Sub Activity_Create(FirstTime As Boolean)
	
ProgressDialogShow2("در حال بارگذاری اطلاعات. لطفا شکیبا باشید...",False)

	Try
		en.Initialize()
		en.UnpackAsset("cpp","***",True,"لطفا صبر کنید...")

Activity.LoadLayout("main")
		Pushe.initialize()
			

ex.Typeface=Typeface.LoadFromAssets("Far_KoodkBd.ttf")
sor.Typeface=Typeface.LoadFromAssets("Far_KoodkBd.ttf")
Listt.Typeface=Typeface.LoadFromAssets("Far_KoodkBd.ttf")
rate.Typeface=Typeface.LoadFromAssets("Far_KoodkBd.ttf")
In.Typeface=Typeface.LoadFromAssets("Far_KoodkBd.ttf")
Try



	If sql1.IsInitialized = False Then
		sql1.Initialize(en.PrivateAsset,"tasvir4.db",True)
	End If

Catch
	ExitApplication
ToastMessageShow("عدم وجود فضای کافی",True)
	End Try



Catch
	
	Msgbox("در صفحه برنامه در بازار گزارش دهید.","خطای ناشناخته")

	End Try
'	
	ProgressDialogHide
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub ex_Click


 StartActivity(sit)



End Sub
Sub sor_Click
Msgbox("khaleleila.com"&CRLF&"tebyan.net"&CRLF&"beytoote.com"&CRLF&"google.com","منابع")


End Sub
Sub rate_Click
Try
Dim intent1 As Intent
intent1.Initialize(intent1.ACTION_EDIT,"bazaar://details?id=com.kodackan.ebook")
StartActivity(intent1)
Catch
ToastMessageShow("اول بازار رو نصب کن",True)
End Try
End Sub
Sub listt_Click


 StartActivity(list)
End Sub
Sub in_Click


 Msgbox("در صورت نیاز با ایمیلم در تماس باشید:"&CRLF&"[email protected]","رضا زمانی")
End Sub

Sub Activity_KeyPress (KeyCode As Int) As Boolean
	



	
	If KeyCode = KeyCodes.KEYCODE_BACK Then
		Dim r As Int
		r = Msgbox2("خارج میشی؟","خروج","آره","","نه",LoadBitmap(File.DirAssets,"icon.png"))
		If ( r = DialogResponse.POSITIVE) Then


			Activity.Finish
		End If
	

	
	
	
		If ( r = DialogResponse.NEGATIVE) Then
			Return True
		End If
	End If







End Sub

نشد بازم

فکر کنم چون شما قبلا چند بار برنامه رو ران کردی دیتابیس داخل برنامه موجوده و کد های مربوط به activity_create به سرعت انجام میشه و شما فکر میکنی اتفاق نیفتاده

پیشنهاد میکنم یک بار از داخل setting گوشی یکبار حافظه برنامه رو پاک کنید و دوباره برنامه رو باز کنید

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

[reza644 435]

در 21 دقیقه قبل، amral گفته است :

فکر کنم چون شما قبلا چند بار برنامه رو ران کردی دیتابیس داخل برنامه موجوده و کد های مربوط به activity_create به سرعت انجام میشه و شما فکر میکنی اتفاق نیفتاده

پیشنهاد میکنم یک بار از داخل setting گوشی یکبار حافظه برنامه رو پاک کنید و دوباره برنامه رو باز کنید

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

نه نشد

[Amral 83]

در 10 دقیقه قبل، reza644 گفته است :

نه نشد

اخرین راهی که به ذهنم میرسه که خط مربوط به نشان دادن دیالوگ رو ببرید درست بالای activity_create

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

[reza644 435]

در 14 دقیقه قبل، amral گفته است :

اخرین راهی که به ذهنم میرسه که خط مربوط به نشان دادن دیالوگ رو ببرید درست بالای activity_create

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

اینم نشد