رفتن به مطلب

سیو نموندن علاقمندی


oftadeh66
 اشتراک گذاری

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

سلام دوستان و اساتید

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

کمک کنید ممنون میشم

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

شما برای کپی کردن فایل db
شرط گذاشتید؟؟

اگر نه باید حتما قرار بدید

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

شما برای کپی کردن فایل db

شرط گذاشتید؟؟

اگر نه باید حتما قرار بدید

بله دوسته من شرط گذاشتم میگم از رو اموزش ها هم چند بار چک کردم مثلا همچی اوکیه

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

برادرم سلام

شما لطف کنید کدی ، اروری، چیزی بذارید تا ما هم راحت تر متوجه بشیم

دلیل زیاد میتونه داشته باشه...

کدتون رو ، یا اگه اروری دارید، ارور رو بذارید لطفا :gol:

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

برادرم سلام

شما لطف کنید کدی ، اروری، چیزی بذارید تا ما هم راحت تر متوجه بشیم

دلیل زیاد میتونه داشته باشه...

کدتون رو ، یا اگه اروری دارید، ارور رو بذارید لطفا :gol:

سلام ارور که ندارم اما الان کد میزارم

If File.Exists(File.DirInternal,"book.db") = False Then
File.Copy(File.DirAssets,"book.db",File.DirInternal,"book.db")
End If

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


cur = Main.Sql1.ExecQuery("select * from tbl_song where Fav = 1")

For i = 0 To cur.RowCount-1
cur.Position=i

favlist.AddSingleLine(cur.GetString("Name_song"))
Dim Backlist As BitmapDrawable
Backlist.Initialize(LoadBitmap(File.DirAssets,"btn.png"))
favlist.SingleLineLayout.Background = Backlist
favlist.SingleLineLayout.ItemHeight=14%y
Dim l As Label
l = favlist.SingleLineLayout.Label
l.Gravity = Gravity.CENTER
l.TextColor = Colors.Black
l.Left = l.Left-0.6
l.Top=-1%y
l.TextSize = 20
لینک ارسال
به اشتراک گذاری در سایت های دیگر

خوب

الان مشکل شما اینه که علاقه مندی هارو نشون نمیده؟

لطف کنید کد وارد کردن به علاقه مندی رو هم بذارید...

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

خوب

الان مشکل شما اینه که علاقه مندی هارو نشون نمیده؟

لطف کنید کد وارد کردن به علاقه مندی رو هم بذارید...

  

	Main.cur = Main.sql1.ExecQuery("SELECT * FROM tbl_song")
	Main.cur.Position = 0
	Dim Fav As Int= Main.cur.GetInt("Fav")
	Dim adad As Int=Main.cur.GetInt("Song")
	If Fav = 1 Then	
	Main.sql1.IsInitialized	
		Main.sql1.ExecNonQuery("UPDATE tbl_song SET Fav = 0 WHERE id_song=" & adad)
		
	     Dim b As Bitmap
	     b.Initialize(File.DirAssets,"fave.png")
	     Button1.SetBackgroundImage(b)
		 ToastMessageShow("از علاقه مندی ها حذف شد! !!!",False)
	Else
	Main.sql1.IsInitialized
		Main.sql1.ExecNonQuery("UPDATE tbl_song SET Fav = 1 WHERE id_song=" & adad)
		 Dim b As Bitmap
	     b.Initialize(File.DirAssets,"fave1.png")
	     Button1.SetBackgroundImage(b)
		 ToastMessageShow("به علاقه مندی ها اضافه شد!!!", False)
	End If	
لینک ارسال
به اشتراک گذاری در سایت های دیگر

برادرم

شما باید برای این قسمت، 

Main.cur = Main.sql1.ExecQuery("SELECT * FROM tbl_song")

یه مقداربرای id بذارید

مثلا اگر از لیست ویو استفاده میکنید، از اکتیویتی قبل، Value ایتم کلیک رو بگیرید و انجا قرار بدید

برای مثال به این شکل

Main.cur = Main.sql1.ExecQuery("SELECT * FROM tbl_song WHERE id =" & main.meghdar)

در ضمن، این قسمت رو هم به این شکل اضافه و تست کنید

Main.cur.Position = 0
	Dim Fav As Int= Main.cur.GetInt("Fav")
	Dim adad As Int=Main.cur.GetInt("Song")

به این شکل استفاده کنید

for i = 0 to main.cur.rowcount - 1
main.cur.postion = i
dim fav as int = main.cur.getint("Fav")
dim adad as int = main.cur.getint("song")

بقیه قسمت ها به نظر من بدون مشکه

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

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

برادرم

شما باید برای این قسمت، 

Main.cur = Main.sql1.ExecQuery("SELECT * FROM tbl_song")

یه مقداربرای id بذارید

مثلا اگر از لیست ویو استفاده میکنید، از اکتیویتی قبل، Value ایتم کلیک رو بگیرید و انجا قرار بدید

برای مثال به این شکل

Main.cur = Main.sql1.ExecQuery("SELECT * FROM tbl_song WHERE id =" & main.meghdar)

در ضمن، این قسمت رو هم به این شکل اضافه و تست کنید

Main.cur.Position = 0
	Dim Fav As Int= Main.cur.GetInt("Fav")
	Dim adad As Int=Main.cur.GetInt("Song")

به این شکل استفاده کنید

for i = 0 to main.cur.rowcount - 1
main.cur.postion = i
dim fav as int = main.cur.getint("Fav")
dim adad as int = main.cur.getint("song")

بقیه قسمت ها به نظر من بدون مشکه

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

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

حلقه فور رو که میذارم دکمه دیگه عمل نمیکنه

نمیزارم به ایدی که گفتین گیر میده

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


Main.cur = Main.sql1.ExecQuery("SELECT * FROM tbl_song where id_song=" & Main.adad)

For i = 0 To Main.cur.rowcount - 1

Main.cur.Position = i

Dim Fav As Int= Main.cur.GetInt("Fav")

Dim adad As Int=Main.cur.GetInt("Song")

If Fav = i Then

Main.sql1.IsInitialized

Main.sql1.ExecNonQuery("UPDATE tbl_song SET Fav = 0 WHERE id_song=" & adad)

Dim b As Bitmap

b.Initialize(File.DirAssets,"fave.png")

Button1.SetBackgroundImage(b)

ToastMessageShow("از علاقه مندی ها حذف شد! !!!",False)

Else

Main.sql1.IsInitialized

Main.sql1.ExecNonQuery("UPDATE tbl_song SET Fav = 1 WHERE id_song=" & adad)

Dim b As Bitmap

b.Initialize(File.DirAssets,"fave1.png")

Button1.SetBackgroundImage(b)

ToastMessageShow("به علاقه مندی ها اضافه شد!!!", False)

End If

Next

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

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

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

شما فقط بعد از اتمام کار که امدید و اون ستون رو آپدیت کردید از کرسور خارج بشید!

Cur.Close

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

شما فقط بعد از اتمام کار که امدید و اون ستون رو آپدیت کردید از کرسور خارج بشید!

Cur.Clos

عمل نکرد همچنان لیست علاقمندی هام پر از کل مطالبم

و دکمه اضافه و حذف هم عمل نمیکنه انگار نه انگار دکمه ای هست

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

Main.cur.Position=0
 
	Dim chek As Int
	
	Main.cur.GetString("Song")
	If chek = 1 Then	
	Main.sql1.IsInitialized	
		Main.sql1.ExecNonQuery("UPDATE tbl_song SET Fav = 0 WHERE song=" & Main.cur.GetInt("Song"))
		
	     Dim b As Bitmap
	     b.Initialize(File.DirAssets,"fave.png")
	     Button1.SetBackgroundImage(b)
		 ToastMessageShow("از علاقه مندی ها حذف شد! !!!",False)
	Else
	
	Main.sql1.IsInitialized
		Main.sql1.ExecNonQuery("UPDATE tbl_song SET Fav = 1 WHERE  song=" & Main.cur.GetInt("Song"))
		 Dim b As Bitmap
	     b.Initialize(File.DirAssets,"fave1.png")
	     Button1.SetBackgroundImage(b)
		 ToastMessageShow("به علاقه مندی ها اضافه شد!!!", False)
	
	End If
   

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

کمک کنید لطفا

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

برادرم

سورست رو میتونی برام بفرستی؟

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

من اگه بتونم براتون ست کنم و توضیح بدم اینجا، تا مشکلتون برطرف شه:gol:

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

برادرم

شما باید برای این قسمت، 

Main.cur = Main.sql1.ExecQuery("SELECT * FROM tbl_song")

یه مقداربرای id بذارید

مثلا اگر از لیست ویو استفاده میکنید، از اکتیویتی قبل، Value ایتم کلیک رو بگیرید و انجا قرار بدید

برای مثال به این شکل

Main.cur = Main.sql1.ExecQuery("SELECT * FROM tbl_song WHERE id =" & main.meghdar)

در ضمن، این قسمت رو هم به این شکل اضافه و تست کنید

Main.cur.Position = 0
	Dim Fav As Int= Main.cur.GetInt("Fav")
	Dim adad As Int=Main.cur.GetInt("Song")

به این شکل استفاده کنید

for i = 0 to main.cur.rowcount - 1
main.cur.postion = i
dim fav as int = main.cur.getint("Fav")
dim adad as int = main.cur.getint("song")

بقیه قسمت ها به نظر من بدون مشکه

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

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

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

برادرم

سورست رو میتونی برام بفرستی؟

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

من اگه بتونم براتون ست کنم و توضیح بدم اینجا، تا مشکلتون برطرف شه :gol:

چطور سورسی

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

به گفتگو بپیوندید

هم اکنون می توانید مطلب خود را ارسال نمایید و بعداً ثبت نام کنید. اگر حساب کاربری دارید، برای ارسال با حساب کاربری خود اکنون وارد شوید .
توجه: مطلب ارسالی شما پس از تایید مدیریت برای همه قابل رویت خواهد بود.

مهمان
ارسال پاسخ به این موضوع ...

×   شما در حال چسباندن محتوایی با قالب بندی هستید.   حذف قالب بندی

  تنها استفاده از 75 اموجی مجاز می باشد.

×   لینک شما به صورت اتوماتیک جای گذاری شد.   نمایش به صورت لینک

×   محتوای قبلی شما بازگردانی شد.   پاک کردن محتوای ویرایشگر

×   شما مستقیما نمی توانید تصویر خود را قرار دهید. یا آن را اینجا بارگذاری کنید یا از یک URL قرار دهید.

 اشتراک گذاری

  • کاربران آنلاین در این صفحه   0 کاربر

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