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

کندی اجرای برنامه


mom

سوال

با سلام 

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

در بخش designer، مقدار animation duration  رو صفر قرار دادم ولی با کندی اجرای برنامه رو به رو هستم 

حجم تصاویری هم که به کار بردم 50 کیلوبایته به جز تصویر پس زمینه که 200 کیلوبایته

دلیلش چی ها می تونه باشه؟

یه نمونه از اکتیویتی هام میذارم

#Region  Activity Attributes 
	#FullScreen: True
	#IncludeTitle: False
	
#End Region

Sub Process_Globals
	Dim sh As M_Secure_SharedPrefrence

End Sub

Sub Globals
	

	Private Pnl_dakheli As Panel
	Private pnl_poost As Panel
	Private pnl_atfal As Panel
	Private pnl_oro As Panel
	Private pnl_ofu As Panel
	Private pnl_zan As Panel
	Private pnl_ent As Panel
	Private pnl_asab As Panel
	Private pnl_eye As Panel
	Private pnl_ravan As Panel
	Private ScrollView11 As ScrollView
	
	
	
	Dim product_sku As String
	Private rp As RuntimePermissions
	Dim material_toast As KJ_MaterialToast
	Dim samim_font As Typeface
	
End Sub

Sub Activity_Create(FirstTime As Boolean)
	
	Activity.LoadLayout("layout_scrollview")
	ScrollView11.Panel.LoadLayout("lay_order")
	ScrollView11.Panel.Height = 100%y
	
	sh.initialize("sh")
	samim_font = Typeface.LoadFromAssets("Samim.ttf")
	
	If sh.getsecurBoolean("kharidorder",False) = False Then
		material_toast.Initialize2("با یک بار خرید، برای همیشه تمام نسخه ها فعال می شوند",material_toast.LENGTH_LONG,material_toast.TYPE_INFO,samim_font)
		
	End If
	
	
	

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Activity_KeyUp (KeyCode As Int) As Boolean
	If KeyCode=KeyCodes.KEYCODE_BACK Then
		StartActivity(menumodule)
		Activity.Finish
	End If
	
	
End Sub

Sub Pnl_dakheli_Click
	
	If sh.getsecurBoolean("kharidorder",False) = False Then
		
		If rp.Check(rp.PERMISSION_READ_PHONE_STATE)=True Then
			product_sku="hp_5c818" ' کد محصول خود را جایگزین نمایید
			hamrahpay.pay_request(product_sku,Me)
		Else
			rp.CheckAndRequest(rp.PERMISSION_READ_PHONE_STATE)
		End If
		
		
	Else
		StartActivity(dakhelimodule)
		Activity.Finish
	End If
	

	
End Sub

Sub pnl_poost_Click
	
	
	If sh.getsecurBoolean("kharidorder",False) = False Then
		
		If rp.Check(rp.PERMISSION_READ_PHONE_STATE)=True Then
			product_sku="hp_5c18" ' کد محصول خود را جایگزین نمایید
			hamrahpay.pay_request(product_sku,Me)
		Else
			rp.CheckAndRequest(rp.PERMISSION_READ_PHONE_STATE)
		End If
		
		
	Else
		StartActivity(poostmodule)
		Activity.Finish
	End If
	
End Sub

Sub pnl_atfal_Click
	
	If sh.getsecurBoolean("kharidorder",False) = False Then
		
		If rp.Check(rp.PERMISSION_READ_PHONE_STATE)=True Then
			product_sku="hp_5c8" ' کد محصول خود را جایگزین نمایید
			hamrahpay.pay_request(product_sku,Me)
		Else
			rp.CheckAndRequest(rp.PERMISSION_READ_PHONE_STATE)
		End If
		
		
	Else
		StartActivity(atfalmodule)
		Activity.Finish
	End If
	
	
End Sub

Sub pnl_oro_Click
	
	If sh.getsecurBoolean("kharidorder",False) = False Then
		
		If rp.Check(rp.PERMISSION_READ_PHONE_STATE)=True Then
			product_sku="hp_5c" ' کد محصول خود را جایگزین نمایید
			hamrahpay.pay_request(product_sku,Me)
		Else
			rp.CheckAndRequest(rp.PERMISSION_READ_PHONE_STATE)
		End If
		
		
	Else
		StartActivity(oromodule)
		Activity.Finish
	End If
	

End Sub

Sub pnl_ofu_Click
	
	If sh.getsecurBoolean("kharidorder",False) = False Then
		
		If rp.Check(rp.PERMISSION_READ_PHONE_STATE)=True Then
			product_sku="hp_5c" ' کد محصول خود را جایگزین نمایید
			hamrahpay.pay_request(product_sku,Me)
		Else
			rp.CheckAndRequest(rp.PERMISSION_READ_PHONE_STATE)
		End If
		
		
	Else
		StartActivity(ofumodule)
		Activity.Finish
	End If
	
	
End Sub

Sub pnl_zan_Click
	
	If sh.getsecurBoolean("kharidorder",False) = False Then
		
		If rp.Check(rp.PERMISSION_READ_PHONE_STATE)=True Then
			product_sku="hp_5c" ' کد محصول خود را جایگزین نمایید
			hamrahpay.pay_request(product_sku,Me)
		Else
			rp.CheckAndRequest(rp.PERMISSION_READ_PHONE_STATE)
		End If
		
		
	Else
		StartActivity(zananmodule)
		Activity.Finish
	End If
	

End Sub

Sub pnl_ent_Click
	
	If sh.getsecurBoolean("kharidorder",False) = False Then
		
		If rp.Check(rp.PERMISSION_READ_PHONE_STATE)=True Then
			product_sku="hp_5c" ' کد محصول خود را جایگزین نمایید
			hamrahpay.pay_request(product_sku,Me)
		Else
			rp.CheckAndRequest(rp.PERMISSION_READ_PHONE_STATE)
		End If
		
		
	Else
		StartActivity(entmodule)
		Activity.Finish
	End If
	
	
End Sub

Sub pnl_asab_Click
	
	If sh.getsecurBoolean("kharidorder",False) = False Then
		
		If rp.Check(rp.PERMISSION_READ_PHONE_STATE)=True Then
			product_sku="hp_5cf" ' کد محصول خود را جایگزین نمایید
			hamrahpay.pay_request(product_sku,Me)
		Else
			rp.CheckAndRequest(rp.PERMISSION_READ_PHONE_STATE)
		End If
		
		
	Else
		StartActivity(asabmodule)
		Activity.Finish
	End If
	

End Sub

Sub pnl_eye_Click
	
	If sh.getsecurBoolean("kharidorder",False) = False Then
		
		If rp.Check(rp.PERMISSION_READ_PHONE_STATE)=True Then
			product_sku="hp_5" ' کد محصول خود را جایگزین نمایید
			hamrahpay.pay_request(product_sku,Me)
		Else
			rp.CheckAndRequest(rp.PERMISSION_READ_PHONE_STATE)
		End If
		
		
	Else
		StartActivity(eyemodule)
		Activity.Finish
	End If

End Sub

Sub pnl_ravan_Click
	
	If sh.getsecurBoolean("kharidorder",False) = False Then
		
		If rp.Check(rp.PERMISSION_READ_PHONE_STATE)=True Then
			product_sku="hp_" ' کد محصول خود را جایگزین نمایید
			hamrahpay.pay_request(product_sku,Me)
		Else
			rp.CheckAndRequest(rp.PERMISSION_READ_PHONE_STATE)
		End If
		
		
	Else
		StartActivity(ravanmodule)
		Activity.Finish
	End If
	

End Sub

Sub Activity_PermissionResult (Permission As String, Result As Boolean)
	If Permission = rp.PERMISSION_READ_PHONE_STATE And Result=True Then
		hamrahpay.pay_request(product_sku,Me)
	Else if Permission=rp.PERMISSION_READ_PHONE_STATE And Result=False Then
		ToastMessageShow("لطفا برای ادامه ی کار سطح دسترسی لازم را به برنامه بدهید",True)
	End If
End Sub
Sub LastPurchaseData(lastPurchase As LastPurchaseInfo)
	If lastPurchase.error=False Then
		Dim daysAgo As Int =  lastPurchase.DaysAgo
		Dim purchaseDate As String = lastPurchase.date
		Dim current_date As String =lastPurchase.CurrentDate
		Dim purchaseUnixTimeStamp As String = lastPurchase.unixTimestamp
		Dim reserve_id As String = lastPurchase.ReserveID
		ToastMessageShow("Days Ago: "&daysAgo&" Reserve ID: "&reserve_id,True)
	Else
		ToastMessageShow(lastPurchase.message,True)
	End If
End Sub
' ----------------------------------------------------------------------
Sub JobDone (Job As HttpJob)
	hamrahpay.JobDone(Job)
	If Job.Success And Job.JobName="Last_Purchase" Then
		LastPurchaseData(hamrahpay.getlastPurchase())
	End If
End Sub

 

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

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

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

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

بایگانی شده

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

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

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