سورس save کردن تیک چک باکس واسه خاموش نشدن صفحه

[ارمین رمضانی دلیجانی 381]

سلام توضیح زیاد نمیدم سادس یکی از دوستان تو یاهو درخواست کرد سورس رو اماده کردم سیو چک باکس هستش یعنی یا true یا false

لینک دانلود

یا حق

[bahman 165]

من بودم درخواست کردم

ممنون از توجهت داداش

[shahab1392 47]

سلام

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

Sub Activity_Create(FirstTime As Boolean)

Activity.LoadLayout("Layout1")
 If File.Exists(File.DirInternal,"save.txt") = True Then
       File.Copy(File.DirAssets,"save.txt",File.DirInternal,"save.txt")
   End If

End Sub

Sub ImageView1_Click
   ImageView1.Visible=False
   ImageView2.Visible=True
       ToastMessageShow("صفحه روشن می ماند",False)

           Keep.KeepAlive(False)
       File.WriteString(File.DirInternal,"save.txt","1")

End Sub
Sub ImageView2_Click
   ImageView1.Visible=True
   ImageView2.Visible=False
       ToastMessageShow("صفحه خاموش می شود",False)

           Keep.KeepAlive(True)
       File.WriteString(File.DirInternal,"save.txt","2")

End Sub

[bahman 165]

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

یعنی فقط بار اولو ج میده

[مجید آرتا 5,875]

این کدتون مشکل داره.دارید میگید اگه وجود داره بیا کپی کن.خب وجود نداره و خلاف شرطه و چیزی نه کپی میشه و نه نوشته میشه.

  [b]If File.Exists(File.DirInternal,"save.txt") = True Then
       File.Copy(File.DirAssets,"save.txt",File.DirInternal,"save.txt")
   End If[/b]

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

یعنی فقط بار اولو ج میده

متوجه نشدم یکم بیشتر توضیح بدید

[bahman 165]

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

تیکش زده میشه عمل میکنه ولی تیکو برمیداریم دیگه انگار تیک داره

یعنی فک کنم ذخیره نمیکنه

[مجید آرتا 5,875]

دوست من پیشنهاد میکنم از دیتابیس استفاده کنید مثل علاقمندی ها میتونید عمل کنید یعنی با تغییر حالت چک باکس میتوینید کوئری UPDATE رو به دیتابیس ارسال کنید و با گرفتن فیلد میتونید KeepAlive رو فعال یا غیر فعال کنید

[bahman 165]

دوست من پیشنهاد میکنم از دیتابیس استفاده کنید مثل علاقمندی ها میتونید عمل کنید یعنی با تغییر حالت چک باکس میتوینید کوئری UPDATE رو به دیتابیس ارسال کنید و با گرفتن فیلد میتونید KeepAlive رو فعال یا غیر فعال کنید

متاسفانه بلد نیستم

[مجید آرتا 5,875]

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

شما فرض کن یک دیتابیس داری حالا اسمش هرچی هست فرقی نداره برای مثال اسمش ( b4a.db ) و یک جدول ساختید با دوتا ستون و اسم جدول هست tbl1 و اسم ستون ها یکی IDو یکی save خب حالا بنده طبق کد میگم چیکار کنید و مقدار 0 رو توی فیلد save به عنوان پیشفرض قرار بده ( توی دیتابیس به وسیله Navicat )

شما بیا توی رویداد CheckedCHange بنویس که اگه چک باکس فعال شد بیا 1 رو وارد کن و در غیر اینصورت بیا 0 رو وارد کن:

[b]Sub CheckBox1_CheckedChange(Checked As Boolean)
   If CheckBox1.Checked = True
    sql1.ExecNonQuery("UPDATE tbl1 set save='1' WHERE ID="&IdNum )
   Else
   sql1.ExecNonQuery("UPDATE tbl1 set save='0' WHERE ID="&IdNum )
   End If
End Sub[/b]

بعد میاییم اطلاعات دیتابیس رو میگیریم و چک می کنیم:

[b]Sub LoadData
cursor1 = sql1.ExecQuery("SELECT * FROM tbl1")
   cursor1.Position=0
if cursor1.GetString("save") = "1" Then
CheckBox1.CHecked = True
Else
CheckBox1.CHecked = False
End If[/b]

در ضمن این متغییر رو هم در Globals تعریف کنید:

[b]Dim IdNum As Int = 0[/b]

و کافیه LoadData رو به همین شکل که نوشتم توی رویداد Activity_Create بنویسید

موفق باشید

[bahman 165]

استاد ممنون از توجهتون

فقط یه سوال چرا تو کدهای بالا اسمی از b4a.db برده نشده؟

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

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

استاد ممنون از توجهتون

فقط یه سوال چرا تو کدهای بالا اسمی از b4a.db برده نشده؟

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

Initialize و Copy رو دیگه خودتون بنویسید.

بدون Initialize کردن که نمیشه با db کار کرد.

[امیرنیوکی 147]

شما باید نام دیتابیس خودتونو بزارین و با نام دیتابیس خودتون دیتاها رو بارگذاری کنین جوابی که آقای مجید آرتا دادن فقط یه مثال برای یادگیری بود شما باید متغیرهای و دیتابیس های خودتونو جایگزین متغیرهای بالا کنین

[bahman 165]

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

[امیرنیوکی 147]

اینم بارگذاری دیتابیس

Sub Activity_Create(FirstTime As Boolean)
   'Do not forget to load the layout file created with the visual designer. For example:
   Activity.LoadLayout("main")
       If File.Exists(File.DirInternal,"mydb.db") = False Then
           File.Copy(File.DirAssets,"mydb.db",File.DirInternal,"mydb.db")
       End If
   SQL.Initialize(File.DirInternal,"mydb.db",False)
End Sub

فقط به جای mydb.db نام دیتا بیس خودنو بزار

[bahman 165]

همش ب خطا برخورد میکنم اینو رفع میکنم اون یکی اون یکی رفع میشه اون یکی

[ارمین رمضانی دلیجانی 381]

عکس از خطا بزارید

[shahab1392 47]

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

b4a2.zip

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

دوست من شما یکم به کدتون توجه کنید خوب هیچ توجه هینمیکنید

If CheckBox1.Checked = True Then
sql1.ExecNonQuery("UPDATE tbl1 SET save = 1 WHERE id = "&cursor1.GetInt("id"))
Else
sql1.ExecNonQuery("UPDATE tbl1 SET save = 0 WHERE id = "&cursor1.GetInt("id"))
End If

ببینید شما اومدید تو دیتابیس عدد رو 0 گذاشتید بعد اومدید اینجا گفتید که اگه چکس باکس فعال بو 0 بشه یعنی تیکش برداشته بشه خوب یکم توجه کنید*لال**لال*

کد رو درست کردم

[shahab1392 47]

تشکر عزیز ممنون

پست قبل ویرایش شد

فقط یه سئوال میگم برای خاموش نشدن صفحه موبایل مگه نباید از کتابخانه phone استفاده کرد

یعنی با sql و phone هر دو میشه این کار ها رو انجام داد

[bahman 165]

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

موقع کامپایل خطایی نمیده موقع زدن تیک خطا میده

ضمنا اساتیدی که جوابای تخصصی میدن لطف کنن سردمون نکنن 2 هفته بود دنبال چیزی بودم هرکی گفتم اومد ی چیزی گف ک ادم از دنیاش سیر میشه نمیدونه چیه اصلا

امروز صبح یکی خدا خیرش بده یجوری گفت انگار ب یه پروفسور میگی بنویس اب

ضمنا تو سورس twlight که فکر کنم همین انجمن بود همچین قابلیتی هست باز تو کپیش گیر میکنم