لیست علاقه مندی

[omid18 13]

سلام دوستان دقیقا یک هفتس دارم رو ساخت لیست علاقه مندی کار میکنم  که واقعا دیگه کلافه شدم کل اموزش های انجمن رو هم دیدم الان من لیست علاقه مندیم به این صورت است که یا همه ایتم ها به لیست علاقه مندی اضافه میشوند یا همه از لیست علاقه مندی حذف  خواهشا به کمک دوستان نیاز دارم خیلی مهمهههه اینم کد مربوط به دکمه علاقه مندی

Sub btnlove_Click
cur = Main.sql1.ExecQuery("SELECT * FROM hafez ")
 For i=0 To cur.rowcount-1
    	cur.position=i
	Dim fav As Int = cur.GetInt("fav")

	If fav = 1 Then
    Main.sql1.ExecNonQuery("UPDATE hafez SET fav = 0 WHERE id = "&cur.GetInt("id"))
	
	ToastMessageShow("از لیست علاقه مندی ها حذف شد",False)

    Else
	
   Main.sql1.ExecNonQuery("UPDATE hafez SET fav = 1 WHERE id = "&cur.GetInt("id"))
	ToastMessageShow("به لیست علاقه مندی ها اضافه شد",False)
    End If
	Next
End Sub

اینم کد مربوط به اکتویتی علاقه مندی

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("love")	
Panel1.SetLayout(0%x,0%y,100%x,100%y)
ListView1.SetLayout(25%x,39%y,50%x,48%y)

If File.Exists(File.DirInternal,"ashar.db")=False Then

File.Copy(File.DirAssets,"ashar.db",File.DirInternal,"ashar.db")
End If

If Main.sql1.IsInitialized=False Then
Main.sql1.Initialize(File.DirInternal,"ashar.db",False)
End If

cur=Main.sql1.ExecQuery("Select * FROM hafez where fav=1")


 ListView1.SingleLineLayout.Label.Gravity=Gravity.CENTER
	  Dim bd As BitmapDrawable
    bd.Initialize(LoadBitmap(File.DirAssets,"hashye .png"))
    ListView1.SingleLineLayout.Background=bd
    ListView1.SingleLineLayout.Label.TextColor=Colors.Black
	
    ListView1.SingleLineLayout.ItemHeight=6%y
	
	Dim a As  Typeface
	a= Typeface.LoadFromAssets("B Yas.ttf")
	ListView1.SingleLineLayout.Label.Typeface=a
	Dim l As Label
				l = ListView1.SingleLineLayout.Label
		        l.Gravity = Gravity.CENTER
				l.TextSize = 30

	For i=0 To cur.RowCount-1
cur.Position=i
ListView1.AddSingleLine(cur.GetString("zirfasl"))
Next
End Sub

[omid18 13]

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

[mamalliii 214]

شما کدت مشکل داره

دوتا سوال:

این کد برای اکتیوتی خواندن هست؟ یا اکتیوتی فهرست؟

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

اگه با عنوان گرفتید باید  کدِ اپدیت رو عوض کنین و عنوان رو بزارید به جاش

کد درست:

    Main.sql1.ExecNonQuery("UPDATE hafez SET fav = 0 WHERE id = ' "& cur.GetInt("id") & " ' ")

در ضمن کد هایی مثل select , Where رو با حروف بزگ بنویسد

[omid18 13]

شما کدت مشکل داره

دوتا سوال:

این کد برای اکتیوتی خواندن هست؟ یا اکتیوتی فهرست؟

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

اگه با عنوان گرفتید باید  کدِ اپدیت رو عوض کنین و عنوان رو بزارید به جاش

کد درست:

    Main.sql1.ExecNonQuery("UPDATE hafez SET fav = 0 WHERE id = ' "& cur.GetInt("id") & " ' ")

در ضمن کد هایی مثل select , Where رو با حروف بزگ بنویسد

 

 

ممنون از جوابتون در جواب سوال هاتون بله مربوط به اکتویتی خواندن هستش ودرجواب سوال دیگرتون بله  با عنوان گرفتم وهمین  کد روهم جایگزاری کردم اما بازهم نشد اگر میتونید من سورس روبه شما میدم خودتون ببینید میتونید اصلاح کنید ممنون میشم خیلی لازمه  درضمن چون حجم برنامم خیلی بالاس  پوشه فایلشو خالی کردم واینکه نمیتونید اجراش کنیدفقط میتونید کدشو بنویسید اینم سورس  http://s7.picofile.com/file/8245694876/projectandroid.rar.html

[مهدی ایزدی 9,203]

یا خداااااااا    چرا واسه یک کتاب ساده اینقدر Activity ساختید 

یک کتاب ساده رو راحت میشه با 3 تا Activity و حداکثر حداکثر حداکثر با 6-7 تا Layout ساخت 

 

از این کد الگو برداری کنید برای خودتون :

Sub Fav_Click
Dim id As Int

id= Main.cur1.GetString("id")
 If Favv=0 Then

  Main.cur1.Position=0
  Main.sql1.ExecNonQuery("UPDATE tbl1 SET Fav = 1 where id ='" & id & "'")
 
 ToastMessageShow("مطلب مورد نظر با موفقیت به لیست علاقه مندی ها اضافه شد",False)
Fav.SetBackgroundImage(LoadBitmap(File.DirAssets,"f1.png"))
 Else 
  Main.sql1.ExecNonQuery("UPDATE tbl1 SET Fav = 0 where id ='" & id & "'")
  Main.cur1.Position=0
 ToastMessageShow( "مطلب مورد نظر از لیست علاقه مندی ها خارج شد",False) 
Fav.SetBackgroundImage(LoadBitmap(File.DirAssets,"f0.png"))
 End If
  Main.cur1= Main.sql1.ExecQuery("SELECT * FROM tbl1  where id ='" & id & "'")
  Main.cur1.Position=0
  Favv= Main.cur1.GetString("fav")
End Sub

ExecQuery رو هم توی Activity Create هم انجام بدید کافیه :

 Main.cur1 = Main.sql1.ExecQuery("SELECT * FROM tbl1")

×××××××××××××××××××××××××××

 

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

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

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