رفتن به مطلب
برای استفاده از انجمن و عضـویت کلیک کنید.

AnswerCenter

مرکز پاسخگویی به سوالات برنامه نویسی

  • مرجع پاسخگویی
  • تولید آموزش
  • سفارش پروژه

درخواست سفارش پروژه

اطلاعیه

کاربر گرامی

به انجمن برنامه نویسی AnswerCenter.ir خوش آمدید

 برای استفاده از تمامی امکانات سایت لطفا در انجمن عضو شوید


mom

کاربر عادی
  • تعداد ارسال ها

    4
  • تاریخ عضویت

  • آخرین بازدید

اعتبار در سایت

0 متوسط

درباره mom

  • درجه
    کاربر تازه وارد

آخرین بازدید کنندگان نمایه

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

  1. با سلام برنامه ای شبیه یک کتاب دارم که دیتابیسی در حدود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
  2. سلام لطفا یه سورس کد درباره جست و جو در دیتابیس و اینکه وقتی روش کلیک میکنی داخل صفحه مورد نظر بره رو بذارید من این نمونه رو نوشتم و همش ارور میده به عبارتی عمل سرچ به خوبی انجام میشه ولی وقتی روی عنوان کلیک میکنم کار نمی کنه #Region Activity Attributes #FullScreen: False #IncludeTitle: True #End Region Sub Process_Globals 'These global variables will be declared once when the application starts. 'These variables can be accessed from all modules. Dim s As SQL Dim idonvan As String End Sub Sub Globals 'These global variables will be redeclared each time the activity is created. 'These variables can only be accessed from this module. ' Private ListView1 As ListView Private EditText1 As EditText Private Button1 As Button Private Panel_onvan As Panel Private Label_onvan As Label Private ScrollView1 As ScrollView End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("layout_search") afrazlab.DatabesCopy(s,"jsonn.db",True) ' Dim lbl As Label ' lbl=ListView1.SingleLineLayout.Label ' lbl.Gravity=Gravity.LEFT ' lbl.Left=lbl.Left+5dip End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub onvanMatnha(scroollneme As ScrollView) afrazlab.DatabesCopy(s,"jsonn.db",True) 'ListView1.Clear Dim cur As Cursor cur=s.ExecQuery("SELECT * FROM ddx WHERE onvan LIKE '%"&EditText1.Text&"%'") Dim h As Int=1%y For i =0 To cur.RowCount-1 cur.Position=i Dim p1 As Panel p1.Initialize("p1") p1.LoadLayout("l_Panel_onvan") p1.Color=0xFF007236 Label_onvan.Text=cur.GetString("onvan") Label_onvan.TextColor=Colors.Black Label_onvan.TextSize=20 Label_onvan.Gravity=Bit.Or(Gravity.CENTER,Gravity.RIGHT) Label_onvan.Tag=cur.GetString("id") scroollneme.Panel.AddView(p1,0,h,100%x,100%y) h=h+14%y Next scroollneme.Panel.Height=h+5%y End Sub Sub Button1_Click onvanMatnha(ScrollView1) End Sub Sub Label_onvan_Click Dim l As Label l=Sender idonvan=l.Tag StartActivity(matn_ddx) End Sub
  3. mom

    اسکرول چند متن

    دوتا متن ها از دیتابیس اطلاعات میگیرند و مقدار متن هاشون فرق میکنه برای هر ایتم
  4. باسلام توی تالار که میگشتم فقط نمونه کدهایی درباره اسکرول کردن یک لیبل که دارای متن طولانی بود، رو دیدم مشکل من اینه که میخوام وقتی اسکرول یه متن طولانی تمام شد یه لیبل ساده بعدش بیاد و دوباره یه متن طولانی دیگه پشت سرش بیاد مثل تصویری که میذارم
×
×
  • جدید...