رفتن به مطلب
  • 0

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


omid18

سوال

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

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
لینک ارسال
به اشتراک گذاری در سایت های دیگر

4 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

دوتا سوال:

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

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

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

کد درست:

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

دوتا سوال:

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

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

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

کد درست:

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

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

 

 

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

 

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

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")

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

 

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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...