لود 10 تا 10 تا از دیتابیس

[bahman 165]

دوستان من با کد

cursur1 = SQL1.ExecQuery("select * FROM asly WHERE id BETWEEN 112 AND 219")

ردیف 112 تا 219 رو توی اکتیویتی مورد نظرم از دیتابیس ستون asly میخونم

ولی سرعت افتضاحه

حالا چطوری میتونم کاری کنم اینا 10 تا 10 تا لود شن ک سرعت نرم افزار بیاد بالا

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

[bahman 165]

.................................

[bahman 165]

ادد کردم استاد

از دوستان خواهشا کسی راهی سورسی چیزی داره

خواهش میکنم یه کمکی کنه خیلی گیر کردم

[Farzad Musavi 576]

دوستان من با کد

cursur1 = SQL1.ExecQuery("select * FROM asly WHERE id BETWEEN 112 AND 219")

ردیف 112 تا 219 رو توی اکتیویتی مورد نظرم از دیتابیس ستون asly میخونم

ولی سرعت افتضاحه

حالا چطوری میتونم کاری کنم اینا 10 تا 10 تا لود شن ک سرعت نرم افزار بیاد بالا

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

یه سورس مجید گذاشته سرچ کن پیدا میکنی

در مورد کند بودن سرعت هم بگو کجا لودشون میکنی شاید تونستم کمکت کنم

[shahab.msb 326]

دوست عزیز این کد رو امتحان کن

dim offset as int

For i = 0 To 8

Dim sms1 As sSMS

sms1.Initialize

Try

sms1 = l1.Get(i)

lnum.Text="("&l1.Size&")"

Catch

Return

End Try

additem(sms1)

Next

offset=9

sub addItem()

Sub additem(sms1 As sSMS)

Dim p As Panel

p.Initialize("")

p.LoadLayout("tmpsms")

cll.Panel.AddView(p,0,st,100%x,100%y)

lmatn.Text = sms1.sBody

lmatn.Height =su.MeasureMultilineTextHeight(lmatn,lmatn.Text)

prnt.Height=lmatn.Height+17%Y

st=st+lmatn.Height+18%Y

cll.Panel.Height=st

end sub

حالا کد اسکرول ویو

Sub cll_ScrollChanged(Position As Int)

If Position + cll.Height >= cll.Panel.Height Then

For i = offset To offset + 9

If i > l1.Size Then

offset = l1.Size

Return

End If

Dim sms1 As sSMS

sms1.Initialize

Try

sms1 = l1.Get(i)

additem(sms1)

Catch

Return

End Try

Next

offset = offset + 10

End If

end sub

[bahman 165]

یه سورس مجید گذاشته سرچ کن پیدا میکنی

در مورد کند بودن سرعت هم بگو کجا لودشون میکنی شاید تونستم کمکت کنم

If SQL1.IsInitialized = False Then
   SQL1.Initialize(File.DirInternal,"smsha6.db",True)
   End If
   cursur1 = SQL1.ExecQuery("select * FROM asly WHERE id BETWEEN 1 AND 112") 

   myfont = Typeface.LoadFromAssets("byekan.ttf")
   Activity.LoadLayout("sv")

   For i=0 To cursur1.RowCount-1
   cursur1.Position=i
   text= cursur1.GetString("payamak") 
   ScrollView1.Panel.Color = Colors.Transparent

   Dim p1 As Panel
   p1.Initialize("")
   p1.LoadLayout("main")
   ScrollView1.Panel.AddView(p1,0,PanelHeight,100%x,100dip)

   btnfav.Tag = i
   btnshare.Tag = i
   btncopy.Tag = i
   btnnumber.text = i + 1
   btnnumber.Typeface=Typeface.LoadFromAssets("byekan.ttf")

   ht=art(text,Label1,myfont,20)
   Label1.TextColor=Colors.Black
   p1.Height=ht+70dip
   PanelHeight=PanelHeight+ht+70dip
   Next
   ScrollView1.Panel.Height=PanelHeight
End Sub

من تو دیتابیسم هزار ردیف دارم ک تو هر اکتیویتی مثلا از یک تا صد و 100 تا 200 و ......

لودشون میکنم و بعد تو هر اکتیویتی تو اسکرول ویو نشون میدم کد هم بالا دادم

کجاس کسی سورس اقا مجیدو داره ؟

چون پیداش نمیکنم

[حمید زارع 331]

سلام فکر کنم با این آموزش که در همین انجمن هست کارد راه بافته ...

http://shop.basic4android.org/?p=2630

[bahman 165]

سلام فکر کنم با این آموزش که در همین انجمن هست کارد راه بافته ...

http://shop.basic4android.org/?p=2630

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

هرچند الان کارتی ک رمز دوم داره خالیه باید شارژش کنم اگه اون نبود چون معمولا اکثر اموزشا رو میخرم

[امیرنیوکی 147]

من میگم با شروع اکتیویتی یه تایمر استارت کن با یه حلقه 10 تا 10 تا دیتابیستو لود کن داخل حلقه هم از DoEvent استفاده کن ببین چطور میشه

[bahman 165]

من میگم با شروع اکتیویتی یه تایمر استارت کن با یه حلقه 10 تا 10 تا دیتابیستو لود کن داخل حلقه هم از DoEvent استفاده کن ببین چطور میشه

خب استاد همینو بلد نیستم

یعنی کدی باشه بگه از ردیف مثلا 0 تا 120 رو ده تا 120 تا لود کن

If SQL1.IsInitialized = False Then
   SQL1.Initialize(File.DirInternal,"smsha6.db",True)
   End If
   cursur1 = SQL1.ExecQuery("select * FROM asly WHERE id BETWEEN 1 AND 112") 

   myfont = Typeface.LoadFromAssets("byekan.ttf")
   Activity.LoadLayout("sv")

   For i=0 To cursur1.RowCount-1
   cursur1.Position=i
   text= cursur1.GetString("payamak") 
   ScrollView1.Panel.Color = Colors.Transparent

   Dim p1 As Panel
   p1.Initialize("")
   p1.LoadLayout("main")
   ScrollView1.Panel.AddView(p1,0,PanelHeight,100%x,100dip)

   btnfav.Tag = i
   btnshare.Tag = i
   btncopy.Tag = i
   btnnumber.text = i + 1
   btnnumber.Typeface=Typeface.LoadFromAssets("byekan.ttf")

   ht=art(text,Label1,myfont,20)
   Label1.TextColor=Colors.Black
   p1.Height=ht+70dip
   PanelHeight=PanelHeight+ht+70dip
   Next
   ScrollView1.Panel.Height=PanelHeight
End Sub

[Farzad Musavi 576]

آموزش مجید دقیقا چیزیه که میخوای

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

[bahman 165]

دارم میگردم تو سیستم ببینم کجاس نبود میرم کارتو شارژ کنم بگیرمش

اسکرول ویو طرح و نقش دادم بش تو لیست ویو بلد نیستم زیاد کار کنم باید بشینم از اول ...........

خیلی رو اعصابه

[Farzad Musavi 576]

دارم میگردم تو سیستم ببینم کجاس نبود میرم کارتو شارژ کنم بگیرمش

اسکرول ویو طرح و نقش دادم بش تو لیست ویو بلد نیستم زیاد کار کنم باید بشینم از اول ...........

خیلی رو اعصابه

اگه ابزار نزاشتی روش میشه عکس گذاشت رو آیتم های لیست ویو

[bahman 165]

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

هرکاریم میکنم همون اش و همون کاسه میشه

[bahman 165]

لایک و کپی و شیر و اینجور چیزا هست رو ش

[bahman 165]

اموزش و مجدد خریدم منتها ی مشکل اساسی هست من بخوام واسه همه 30 تا اکتیویتی بگم بیا از 5 برو 10 +5 اش کن

1سال طول میکشه

کسی راهه ساده تری داره که بگه مثلا از ستون 100 تا 120 10تا10 تا برو

بعد تو اکتیویتی های دیگه عدداش عوض میشه راحت تره

[Farzad Musavi 576]

اموزش و مجدد خریدم منتها ی مشکل اساسی هست من بخوام واسه همه 30 تا اکتیویتی بگم بیا از 5 برو 10 +5 اش کن

1سال طول میکشه

کسی راهه ساده تری داره که بگه مثلا از ستون 100 تا 120 10تا10 تا برو

بعد تو اکتیویتی های دیگه عدداش عوض میشه راحت تره

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

[مجید آرتا 5,874]

سلام

*r24*

30 تا اکتیویتی *r24*شما از چه روشی میخوایین .اسه همه اکتیویتی هات کاری رو که میخای انجام بدی که یکسال طول نکشه؟

شما نیازیم نیست واسه همه اکتیویتی ها بنویسیدش میتونید از کلاس ماژول استفاده کنید واسه همه اکتویتی ها.

بنده اگه وقت کنم کتابخونشو میسازم تا کار برنامه نویس راحت تر بشه.*badjens*

[bahman 165]

خیلی طول میکشه؟

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

تو رم 3 هم این تاخیرو باز داره ی جورایی ............

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

حال

[bahman 165]

دیگه دارم نا امید میشم هر روشی تست کردم سرعت همینجوری پایینه

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

اما این .............

[bahman 165]

اینم نشد

امروزم نتونم اکی کنم مجبورم از روش shift+delete استفاده کنم دیگه