خاموشی نور صفحه

[bahman 165]

دوستان فقط یه سوال کدی که پایین زدم میخوام سیو شه

تو اکتیویتی تنظیمات یک دکمه قرار داره ک شامل فونت و سایزو ... هست

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

حالا میخواد مثل اینا تو فایل سیو شه یا هرچی مهم نیس فقط عمل کنه

کد های دکمه تنظیمات - چک باکس

Sub Button1_Click
   File.WriteString(File.DirInternal,"FontType.txt",Spinner1.SelectedItem)
   File.WriteString(File.DirInternal,"FontSize.txt",SeekBar1.Value)
   File.WriteString(File.DirInternal,"lineheight.txt",SeekBar2.Value)
   ToastMessageShow("تنظیمات با موفقیت اعمال شد",False)
End Sub

[mahfelsoft 130]

کدی که گفتید رو زدم اما در بخش checkchanged ازوز میده . این ارور  :

 

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

این کد رو تست کنید :

If File.Exists(File.DirInternal,"chk") Then
	Dim LstData As List
	LstData.Initialize
	LstData = File.ReadList(File.DirInternal,"chk.txt")
	Dim WakeStateMood As String : WakeStateMood = LstData.Get(0)
	If WakeStateMood = "1" Then
	 'Code Marbot Be Roshan Mondan.
	 Else
	 'Code Marbot Be Qeyr Fa'al Bodan.
	End If
End If

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

سلام

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

تغییر بدید به این شکل :

L.Initialize 
 L = File.ReadList(File.DirInternal,"chk.txt")

[bahman 165]

البته چون perfix رو اشتباهی زدم کداشو اینجا میزنم ک از یکی از اساتید ب اسم حسین زد 501 یاد گرفتم

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

Sub Globals  
   Dim q As PhoneWakeState 
End Sub

تو اکتیویتی تنظیمات در قسمت پروسس گلوبال یک متغیر از نوع اینت تعریف کنید

Sub Process_Globals
   Dim e As Int
End Sub

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

و بعد کد زیر رو تو اکتیویتی تنظیمات بنویسید

(Sub CheckBox1_CheckedChange(Checked As Boolean
   If CheckBox1.Checked = True Then
   e = 1
   Else 
   e = 0
   End If
End Sub

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

(If setting.e = 1 Then q.KeepAlive(True

[bahman 165]

دوستان یه کمکی کنید فک کنم دیگه تموم شده خخخ

البته فکر کنم خخخخ

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

درود.

از CheckBox1.Checked استفاده کنید . اگر True بود یعنی Check خورده و اگر False بود یعنی Check نخورده

[bahman 165]

میشه بگین کجا استفاه کنم؟

میخوام فقط سیو شه همین چون برمیگردم عقب انگار انتخاب نکردی ....

کدهارو هم بالا دادم و استفاده کردم

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

میشه بگین کجا استفاه کنم؟

میخوام فقط سیو شه همین چون برمیگردم عقب انگار انتخاب نکردی ....

کدهارو هم بالا دادم و استفاده کردم

ببین عزیز، ذخیره موندن برای برگشتن به عقب یک بحثه . ذخیره موندن برای سری بعد یک بحث دیگه.

شما کدومش رو میخواهید؟

مگه ممکنه یک بار دیگه واضح تر از 0 بگید میخواهید چه عملی رو انجام بدید...

[bahman 165]

ببینید من میخوام تو پروژم تو قسمت تنظیمات یه چک باکسی قرار بدم که کاربر با زدن اون اگر تو اکتیویتی به نام my_matlab بود صفحش روشن بمونه

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

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

[bahman 165]

دوستان یه کمکی کنید

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

شرمنده نت نداشتم...

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

شما بیایید توی رویداد Checked Change اینجوری تعریف کنید:

[color=#000000][color=#0000BB]File[/color][color=#007700].[/color][color=#0000BB]WriteString[/color][color=#007700]([/color][color=#0000BB]File[/color][color=#007700].[/color][color=#0000BB]DirInternal[/color][color=#007700],[/color][color=#DD0000]"Check.txt"[/color][color=#007700],[/color][b]CheckBox1.Checked[/b][color=#0000BB][/color][color=#007700])[/color][/color]

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

اگه مقدار ذخیره شده توی Check.txt مساوی True بود بایید شرط بزارید که اگه وارد Activity My_Matlab بود صفحه گوشی رو روشن نگه داره.

اگه هم False ذخیره شده بود خب روشن نگه نداره *مکار*

[mahfelsoft 130]

کار نکرد همون ارور رو داد .میشه راه دیگه رو بفرمایید

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

راه دیگه استفاده از دیتابیس هستش.

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

[bahman 165]

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

    setting.e (setting,File.readstring(File.DirInternal,"cheeck.txt")

[mahfelsoft 130]

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

ما توی تنظیمات میخوایم یه چک باکس بزاریم برای روشن موندن نور صفحه که مثلا اگر چک خورده باشه نور صفحه توی یه اکتیویتی دیگه روشن بمونه . لطفا دقیق توضیح بدید ممنون میشم

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

سلام

ببینید توی رویداد CheckedChanged  همچین کدی بنویسید :

Dim L As List
If ch.Checked Then
 L.Initialize = File.ReadList(File.DirInternal,"chk.txt")
 L.Set(0,"1")
 File.WriteList(File.DirInternal,"chk.txt",L)
Else
 L.Initialize = File.ReadList(File.DirInternal,"chk.txt")
 L.Set(0,"0")
 File.WriteList(File.DirInternal,"chk.txt",L)
End If

ببینید شما باید از قبل یک فایل به اسم chk.txt بسازید و عدد 0 رو داخلش وارد کنید.(برای دفعه اول)

 

بعد توی کدهای بالا ما اول میاییم محتویات فایل تکست رو میریزیم و بعد آپدیت کردیم ( Set ).

 

خب حالا توی اکتیویتی که میخوایید حالت نور صفحه رو مشخص کنید به این شکل عمل کنید :

Dim LstData As List
LstData.Initialize
LstData = File.ReadList(File.DirInternal,"chk.txt")
Dim WakeStateMood As String : WakeStateMood = LstData.Get(0)
If WakeStateMood = "1" Then
 'Code Marbot Be Roshan Mondan.
 Else
 'Code Marbot Be Qeyr Fa'al Bodan.
End If

[mahfelsoft 130]

آقا مجید متاسفانه کدها ارور میده کلا . میشه لطفا چک کنید ببینید این ارور :

من فایل تکست رو هم توی فایل ها گذاشتم و عدد صفر رو هم توش نوشتم . اگه میشه خودتون امتحان کنید .