mom 0 ارسال شده در 24 خرداد، ۱۳۹۸ اشتراک گذاری ارسال شده در 24 خرداد، ۱۳۹۸ با سلام برنامه ای شبیه یک کتاب دارم که دیتابیسی در حدود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 لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
سوال
mom 0
با سلام
برنامه ای شبیه یک کتاب دارم که دیتابیسی در حدود3.5 مگ که متشکل از چند جدول هست، دارد
در بخش designer، مقدار animation duration رو صفر قرار دادم ولی با کندی اجرای برنامه رو به رو هستم
حجم تصاویری هم که به کار بردم 50 کیلوبایته به جز تصویر پس زمینه که 200 کیلوبایته
دلیلش چی ها می تونه باشه؟
یه نمونه از اکتیویتی هام میذارم
لینک ارسال
به اشتراک گذاری در سایت های دیگر
0 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.