بررسی کد---ممنون میشم اگه بررسی کنید

[bahman2012 13]

سلام دوستان این کدی هست که برای هم صفحه فهرست اصلی برنامم و هم صفحه علاقه مندی ها یه جا نوشتم

اگه زحمتی نیست بررسی کنید ببینید اصول کد نویسی و فراخوانی اطلاعات و لیست سفارشی که براش در نظر گرفتم درسته؟ آخه قبلا با ایکلیپش کد مینوشتم و اولین باره با ایکلیپش میخوام برنامه بسازم

این کد کار میکنه اما مشکلش اینه که وقتی 5 دفعه فهرست رو وا میکنه گوشی هنگ میکنه میپره از برنامه بیرون انگار در هر دفعه یه ظرفیت از حافظه رو میگیره و در دفعه بعد بازم ظرفیتش دیگش

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

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


Sub Process_Globals
Dim onvan As String
End Sub


Sub Globals
Dim sq As SQL,c1 As Cursor
Dim db,table As String
db ="sabzeh"      '  نام فایل دیتابیس
table ="sabzehdb"  '  نام جدول دیتابیس
Dim h As Int = 0   
Dim pa As Panel,name As String,fav As String,image As String
Private sv_feh1 As ScrollView,pa_row As Panel,lbl_fehrest1 As Label,btn_row_fav As Button,lbl_row_name As Label,img_row As ImageView  ' این عناصر لیست سفارشی منه حاوی عکس عنوان و دکمه محبوبسازی
End Sub


Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("fehrest1")
If File.Exists(File.DirInternal,db) = False Then
File.Copy(File.DirAssets,db,File.DirInternal,db)
End If
If sq.IsInitialized  = False Then
sq.Initialize(File.DirInternal,db,False)
End If


fehrest


End Sub


Sub fehrest
If main_asli.fav_btn = "fav" Then 
	c1 = sq.ExecQuery("SELECT * FROM "&table&" WHERE star = 1")
		If c1.RowCount = 0 Then
			Activity.Finish
			Activity.LoadLayout("main_asli")
			ToastMessageShow("لیست علاقه مندی هات که خالیه !",True)
		End If
Else
	c1 = sq.ExecQuery("SELECT * FROM "&table&"")
End If
lbl_fehrest1.Typeface = Typeface.LoadFromAssets("titr.ttf")
If main_asli.fav_btn = "fav" Then 
	lbl_fehrest1.Text = "فهرست علاقه مندی ها"
Else
	lbl_fehrest1.Text = "فهرست آموزش ها"
End If



For i = 0 To c1.RowCount-1
c1.Position = i
pa.Initialize("")
sv_feh1.Panel.AddView(pa,0,h,97%x,83dip) ' اسکرول بار
h = h+83dip
pa.LoadLayout("row_fehrest")


	name = c1.GetString("name")
	image = c1.GetString("image")
	fav = c1.GetString("star")
	btn_row_fav.Tag =name 
	pa_row.Tag = name
    lbl_row_name.Typeface = Typeface.LoadFromAssets("koodak.ttf")
	lbl_row_name.Text = name
	img_row.SetBackgroundImage(LoadBitmap (File.DirAssets ,image))
	If main_asli.fav_btn = "fav" Then 
		btn_row_fav.SetBackgroundImage(LoadBitmap (File.DirAssets ,"star_del.png"))
	Else
		If fav = "1" Then
			btn_row_fav.SetBackgroundImage(LoadBitmap (File.DirAssets ,"star_on.png"))
		Else 
			btn_row_fav.SetBackgroundImage(LoadBitmap (File.DirAssets ,"star_of.png"))
		End If
	End If
Next
sv_feh1.Panel.Height =h   ' ارتفاع اسکرول
c1.Close
End Sub


Sub pa_row_Click
StartActivity("matn")
pa_row = Sender
onvan  = pa_row.Tag
Log(onvan)


End Sub


Sub btn_row_fav_Click
Dim aa As String
btn_row_fav=Sender
aa  = btn_row_fav.Tag
If main_asli.fav_btn = "fav" Then 
 BHAP.AnimationView(btn_row_fav,0.4,0.4,1,1,100)
sq.ExecNonQuery("UPDATE "&table&" SET star = 0 WHERE name = '"&aa&"'")
'	pa_row.Top = pa_row.Top - 83dip

pa_row.Visible=False     
Else
c1 = sq.ExecQuery("SELECT * FROM "&table&" WHERE name = '"&aa&"'")
c1.Position=0


If c1.GetString("star")  = 1 Then
	BHAP.AnimationView(btn_row_fav,0.8,0.8,1,1,100)	
	fav = 0
	sq.ExecNonQuery("UPDATE "&table&" SET star = 0 WHERE name = '"&aa&"'")
	btn_row_fav.SetBackgroundImage(LoadBitmap (File.DirAssets ,"star_of.png"))
Else
	BHAP.AnimationView(btn_row_fav,0.8,0.8,1,1,100)
	sq.ExecNonQuery("UPDATE "&table&" SET star = 1 WHERE name = '"&aa&"'")	
	fav = 1
	btn_row_fav.SetBackgroundImage(LoadBitmap (File.DirAssets ,"star_on.png"))
End If
End If


End Sub


Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event
If KeyCode = KeyCodes.KEYCODE_BACK Then
 Activity.Finish
 StartActivity("main_asli")
 Return True
End If
End Sub


Sub Activity_Resume


End Sub


Sub Activity_Pause (UserClosed As Boolean)


End Sub
Sub sv_feh1_ScrollChanged(Position As Int)
Log(Position)
End Sub

[vistamobile 1,700]

سلام. میشه خود سورس رو بزارین؟

[bahman2012 13]

مگه کدش با سورسش چه فذرقی داره خوب اگه برنامه نویس باشید که براتون خیلی راحته فهمیدن چارچوب دستورات

[نیما قبادی 246]

نمیدونم چرا اسم دیتابیس رو بدون پسوندش قرار دادین یه احتما میزنم که اونم شاید باشه شاید نباشه

شما بیا پسوندشو بده ببین بازم تکرار میشه

درضمن کد نویسیتون انقد شلخته هست که آدم حوصلش نمیشه نگاهش کنه(البته ببخشید)*همینه**قلب*