مشکل در Limit دادن به کتاب های چند فصلی

[qasem 249]

سلام دوستان من در مورد Limit دادن به کتاب های چند فصلی مشکل دارم . اگه راهنمایی فرمایید ممنون میشم.

کدها را گذاشتم بفرمایید چجوری باید تغییر داد؟

#Region  Activity Attributes 
	#FullScreen: false
	#IncludeTitle: false
#End Region

Sub Process_Globals
	Dim meghdar2 As String
End Sub

Sub Globals
	Dim cur As Cursor
	Private sv As ScrollView
	Private zironvan As Label
	Private label1 As Label
	Dim font As Typeface
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("matn")
	cur = menu.sql1.ExecQuery("SELECT * FROM tbl_sms WHERE grooh = '" & menu.meghdar & "'")
	Dim size As Int
	size = 0
	For i = 0 To cur.RowCount -1
		cur.Position = i
		Dim p1 As Panel
		p1.Initialize("")
		sv.Panel.AddView(p1,3%x,size,95%x,68dip)
		p1.LoadLayout("formonvan")
		size = size + 70dip
		label1.TextSize = 17
		label1.Text = cur.GetString("onvan")
		zironvan.Text = cur.GetString("grooh")
		label1.TextColor = Colors.Black
		label1.Gravity = Gravity.CENTER
		font = Typeface.LoadFromAssets("arbaeen.ttf")
		label1.Typeface = font
		zironvan.Typeface = font
	Next
	sv.Panel.Height = (cur.RowCount * 70dip) + 2dip 
	sv.Panel.Color = Colors.Transparent
	
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub label1_Click
	ToastMessageShow("در حال بارگذاری ...",False)
	label1 = Sender
	label1.TextColor = Colors.White
	meghdar2 = label1.Text
	StartActivity(matn)
End Sub

اگه نیاز به توضیح بیشتر دادره بفرمایید ، توضیح دهم.

[qasem 249]

سلام استاد شهاب عزیز

کدها را قرار دادم بعد از کامپایل این ارور را میداد :

 

 

علامت مساوی را برداشتم ، مشکل حل شد ولی فقط 5 تا عنوان را نشان میده و اسکرول هم نمیشه

 

[shahab.es 5,429]

درسته من اصن نباید - میذاشتم، کدارو تو محیط بیسیک ننوشتم، شلوغ شده بود

خوب،فقط 5 تا نشون میده؟

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

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

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

اسکرول باید بشه حتما، جالبه..

[qasem 249]

دوستان کسی نیست مشکل منو حل کنه؟

[qasem 249]

والا متوجه نشدم مشکل از کجاست !

 

استاد شهاب عزیز من سورس را برای شما فرستادم اگه زحمتی نیست یه نگاهی بهش بندازید ، امیدوارم حل بشه.

 

باز هم متشکرم از شما.

[qasem 249]

در حال انتظار....

[qasem 249]

دوستان کسی نیست....

[qasem 249]

استاد شهاب عزیز ، من منتظرم...

[qasem 249]

دوستان کسی نیست مشکل منو حل کنه؟

[shahab.es 5,429]

سلام..

 

دوست عزیز، سورستون رو نتونستم تغییر بدم،کمی هم مشغله دارم ، در چند روز اینده اگر بتونم، یه سورس لیمیت شده میذارم دوستان بهره ببنرن

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

روشش رو هم که گفتم بهتون...

[shahab.es 5,429]

سلام

http://answercenter.ir/topic/11411-%D8%B3%D9%88%D8%B1%D8%B3-%D9%84%DB%8C%D9%85%DB%8C%D8%AA-%D8%AF%D8%B1-%D9%85%D9%88%D9%84%D8%AA%DB%8C-%D9%BE%D9%86%D9%84/

[qasem 249]

استاد با سورس شما مشکل من حل نمیشه ، باید با کدهای خودم لیمیت داده بشه

[shahab.es 5,429]

سلام هموطن

کوئری مربوط به چند فصل و یک فصل نیستش دیگه

شما کوئریت رو بنویس...

cur = menu.sql1.ExecQuery("SELECT * FROM tbl_sms WHERE grooh = '" & menu.meghdar & "' LIMIT 10 OFFSET 0")

کد بالا میاد و از ایتم 0، 10 تا ی بعدیرو میاره

میتونید یه متغیر به جای 0 بذارید و مقدارش رو با هر بار پایان اسکرول ویو، 10 تا افزایش بدید که 10 تا 10 تا بره جلو

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

Sub ScrollView1_ScrollChanged(Position As Int)
			If ScrollView1.ScrollPosition + ScrollView1.Height = ScrollView1.Panel.Height Then
			'scrollView tamam shode ast'
		End If
		
End Sub

[shahab.es 5,429]

استاد با سورس شما مشکل من حل نمیشه ، باید با کدهای خودم لیمیت داده بشه

شما میتونید سورسی که به شخصه فقط برای مشکل شما نوشتم رو ببینید و توی سورستون پیاده کنید

توی فروشگاه هم هست یه اموزش فکر میکنم....

موفق باشید

[qasem 249]

من سورس شما را دانلود کردم ، آموزش را هم از فروشگاه قبلا خریدم این آموزش مربوط به کتاب های تک فصلی است.

[qasem 249]

اگه لطف کرده و کدها را بصورت کامل قرار دهید متشکرم

[shahab.es 5,429]

این کدهای منه

خدمت شما

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

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

Sub showlim (sqlstatment As String)


	Main.cur = Main.sql1.ExecQuery(sqlstatment)
	For i = 0 To Main.cur.RowCount - 1
		Main.cur.Position = i
		Dim p As Panel
		p.Initialize("p")
		ScrollView1.Panel.AddView(p,0,s,96%x,100%y)
		s = s + 25%y
		p.LoadLayout("nh_lay")
		lb_name.Text = Main.cur.GetString("name")&CRLF&Main.cur.GetString("name_maddah")
		bt_set.Tag = Main.cur.GetInt("id")
		Dim faveroiteast As Int
		faveroiteast = Main.cur.GetInt("fave")
mg_view.Tag = Main.cur.GetString("id")
mg_view.SetBackgroundImage(LoadBitmapSample(File.DirAssets,"not_fave.png",25%x,25%x))
Dim an1 As Animation
an1.InitializeScaleCenter("",0,0,1,1,p)
an1.Duration=1500
an1.RepeatCount = 0
an1.Start(p)
		If faveroiteast = 1 Then
mg_view.SetBackgroundImage(LoadBitmapSample(File.DirAssets,"fave_ic.png",25%x,25%x))
		End If
		ScrollView1.Panel.Height = s
	Next


End Sub

هر بار هم که اسکرول ویو به پایان میرسید، 5 تا به مقدار متغیر افست که در گلوبال هست، اضافه میکردم و با افست جدید، تابع رو لود میکردم، در نتیجه، نتایج،زیر نتایج فعلی قرار میگرفتن...

Sub ScrollView1_ScrollChanged(Position As Int)
			If ScrollView1.ScrollPosition + ScrollView1.Height = ScrollView1.Panel.Height Then
			offset = offset + 5
			showlim("SELECT * FROM tbl ORDER BY id DESC limit 5 OFFSET "&offset&"")
		End If
		
End Sub

[qasem 249]

دوستان کسی نیست این مشکل را حل کنه؟

[qasem 249]

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

کدهایی که در پست اول هست.

[shahab.es 5,429]

من تست نزدم، تست بفرمایید، اگر اروری چیزی بود، تصویر قرار بدید، اگر بتونم براتون برطرف میکنم...

#Region  Activity Attributes 
	#FullScreen: false
	#IncludeTitle: false
#End Region
Sub Process_Globals
	Dim meghdar2 As String
End Sub
Sub Globals
	Dim cur As Cursor
	Private sv As ScrollView
	Private zironvan As Label
	Private label1 As Label
	Dim font As Typeface
	Dim size As Int = 0
Dim MyOffset As Int = 0
End Sub
Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("matn")
mylimitEdList("SELECT * FROM tbl_sms WHERE grooh = '" & menu.meghdar & "' LIMIT 5 OFFSET = "&MyOffset&"")
End Sub
Sub Activity_Resume

End Sub
Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub label1_Click
	ToastMessageShow("در حال بارگذاری ...",False)
	label1 = Sender
	label1.TextColor = Colors.White
	meghdar2 = label1.Text
	StartActivity(matn)
End Sub
Sub sv_ScrollChanged(Position As Int)
			If sv.ScrollPosition + sv.Height = sv.Panel.Height Then
			MyOffset = MyOffset + 5
			mylimitEdList("SELECT * FROM tbl_sms WHERE grooh = '" & menu.meghdar & "' LIMIT 5 OFFSET = "&MyOffset&"")
		End If
End Sub
Sub mylimitEdList(query As String)
cur = menu.sql1.ExecQuery(query)
	For i = 0 To cur.RowCount -1
		cur.Position = i
		Dim p1 As Panel
		p1.Initialize("")
		sv.Panel.AddView(p1,3%x,size,95%x,68dip)
		p1.LoadLayout("formonvan")
		size = size + 70dip
		label1.TextSize = 17
		label1.Text = cur.GetString("onvan")
		zironvan.Text = cur.GetString("grooh")
		label1.TextColor = Colors.Black
		label1.Gravity = Gravity.CENTER
		font = Typeface.LoadFromAssets("arbaeen.ttf")
		label1.Typeface = font
		zironvan.Typeface = font
	Next
	sv.Panel.Height = (cur.RowCount * 70dip) + 2dip 
	sv.Panel.Color = Colors.Transparent
End Sub