مشکل در تنظیمات

[nasim 370]

سلام

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

مشکل از کجاس

این کدهای sett

Sub Process_Globals
	Dim Font As String
	Dim Size As Int

End Sub

Sub Globals

	Dim Color As ColorPickerDialog
	Private FontSize As SeekBar
	Private FontType As Spinner
	Private Label4 As Label
	Private Label5 As Label
	Private btncolor As Button
	Private Label1 As Label
	Private Label2 As Label
	Private Label3 As Label
	Private BtnSave As Button

End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("frm5")
	
	FontType.AddAll(Array As String("wyekan","wtarfic","wroya","byekan"))
	Label4.TextSize=15
	Label1.Typeface=Typeface.LoadFromAssets("wyekan.ttf")
	Label2.Typeface=Typeface.LoadFromAssets("wyekan.ttf")
	Label3.Typeface=Typeface.LoadFromAssets("wyekan.ttf")
	Label4.Typeface=Typeface.LoadFromAssets("wyekan.ttf")
	Label5.Typeface=Typeface.LoadFromAssets("wyekan.ttf")

	Color.RGB= Colors.Black

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)


End Sub

Sub FontType_ItemClick (Position As Int, Value As Object)
	If Position = 0 Then
	Label4.Typeface=Typeface.LoadFromAssets("wyekan.ttf")
	End If 
	If Position = 1 Then
	Label4.Typeface=Typeface.LoadFromAssets("wtrafic.ttf")
	End If 
	If Position = 2 Then
	Label4.Typeface=Typeface.LoadFromAssets("byekan.ttf")
	End If 
	If Position = 3 Then
	Label4.Typeface=Typeface.LoadFromAssets("wroya.ttf")
	End If 
	If Position = 4 Then
	Label4.Typeface=Typeface.LoadFromAssets("wroya.ttf")
	End If 
	
End Sub

Sub FontSize_ValueChanged (Value As Int, UserChanged As Boolean)
	Label4.TextSize=Value
	Label5.Text=Value
End Sub


'Sub btncolor_Click
' Color.Show("کلکسیون رنگ ها","انتخاب","انصراف","",LoadBitmap(File.DirAssets,"000.png"))
' btncolor.Typeface=Typeface.LoadFromAssets("BYEKAN.TTF")
' code.saveData("setting.txt","FontColor",Color.RGB)
' Label4.TextColor=Color.RGB
'' btncolor.TextColor=Color.RGB
'End Sub
Sub BtnSave_Click
	Font=FontType.SelectedItem
	Size=FontSize.Value
	Dim list1 As List
	list1.Initialize
	list1.Add(Font)
	list1.Add(Size)
	File.WriteList(File.DirInternal,"Settings.stg",list1)
	ToastMessageShow("تنظیمات با موفقیت اعمال شد",False)
	StartActivity(menu)
	Activity.Finish
End Sub

این کدهای صفحه ی code

Sub Process_Globals
	

End Sub
Sub saveData(sFilename As String,sKey As String,sValue As String)
Dim m1 As Map
m1.Initialize
If File.Exists(File.DirInternal,sFilename) = True Then
 m1 = File.ReadMap(File.DirInternal,sFilename)
End If
m1.Put(sKey,sValue)
File.WriteMap(File.DirInternal,sFilename,m1)
End Sub


Sub getData(sFilename As String,sKey As String) As String
Dim m1 As Map
m1.Initialize
If File.Exists(File.DirInternal,sFilename) = True Then
  m1 = File.ReadMap(File.DirInternal,sFilename)
Else
  Return ""
End If
If m1.ContainsKey(sKey) = True Then
 Return m1.get(sKey)
Else
 Return ""
End If
End Sub

اینم برای اون اکتیویتی خاص

If File.Exists(File.DirInternal,"Settings.stg")=True Then
	Dim list1 As List
	list1=File.ReadList(File.DirInternal,"Settings.stg")
	Setting1.font=list1.Get(0)
	Setting1.size=list1.Get(1)

	Dim a As String
	a = code.getData("setting1.txt","FontColor")
'	lable1.TextColor = code.getData("setting1.txt","FontColor")
	Else
	Setting1.font="wyekan"
	Setting1.size=20
	End If
	
	lable1.Gravity=Gravity.CENTER
	lable1.TextColor=Colors.Black
	lable1.Typeface=Typeface.LoadFromAssets(Setting1.font &".ttf")

[abbas2142 557]

از دستور try استفاده کن شاید درست شد

Try
کدهای تنظیمات
	Catch
	End Try

[nasim 370]

 

از دستور try استفاده کن شاید درست شد

Try
کدهای تنظیمات
	Catch
	End Try

اینو کجا بذارم ؟توی اکتیویتی متن؟

[abbas2142 557]

اینو کجا بذارم ؟توی اکتیویتی متن؟

آره

همون جا که کدهای تنظیماتت هستش

[nasim 370]

آره

همون جا که کدهای تنظیماتت هستش

نشد

بازم سایز فونت تغییر نمیکنه

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

دوست عزیز شما بعد از اینکه عمل ذخیره کردن رو انجام دادید بیایید همون settings رو همون لحظه فراخوانی کنید و بخونیدش ببینید دقیقا داخلش چی رو ذخیره کرده ؟

عمل ذخیره سازی درست انجام میشه ؟

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

[nasim 370]

دوست عزیز شما بعد از اینکه عمل ذخیره کردن رو انجام دادید بیایید همون settings رو همون لحظه فراخوانی کنید و بخونیدش ببینید دقیقا داخلش چی رو ذخیره کرده ؟

عمل ذخیره سازی درست انجام میشه ؟

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

سلام آقا مدیر

من دقیقا متوجه نشدم چی گفتید

میشه یکم واضحتر(ابتدایی تر) توضیح بدین

ممنون میشم

[alia 51]

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

[nasim 370]

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

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

[alia 51]

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

[nasim 370]

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

آخه تو سورسی که من استفاده کردم قسمت سایز نبود ولی میخوام برای برنامه خودم بذارم ولی ذخیره نمیکنه اصلا سایز فونت عوض نمیشه!!

[alia 51]

این به کارتون میاد

http://answercenter.ir/topic/3063-%D8%B3%D8%A7%D8%AE%D8%AA-%D8%AA%D9%86%D8%B8%DB%8C%D9%85%D8%A7%D8%AA-%D8%A8%D8%B1%D8%A7%DB%8C-%DA%A9%D8%AA%D8%A7%D8%A8%DB%8C-%D8%A8%D8%A7-%D9%88%D8%A8-%D9%88%DB%8C%D9%88-%D9%87%D9%85%D8%B1%D8%A7%D9%87-%D8%B0%D8%AE%DB%8C%D8%B1%D9%87/