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

[HAMEDDDR 15]

با سلام من یک کتاب طراحی کردم تنظیمات براش نوشتم  ولی این تنظیمات روی متن اعمال نمیشه کاربر تو صفحه تنظیمات میره تنظیمات تغییر میده ولی تو صفحه متن تغییر نمیکنه چکارش باید کنم تغییر کنه?

یک اموزش پسند کردنم تو انجمن بزارید اصلا نیستش:/

[HAMEDDDR 15]

در 6 ساعت قبل، Gray Mind گفته است :

اول این آموزش هارو ببین :

 

اگه کارت حل نشد کدهارو بذار ببینیم چیکار کردی

 

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

کد کامل میزارم داداش ببین مشگلش چی دیگه مخم نمیکشه"(

برای صفحه متن باید جدا فراخون بدم برای تنظیمات؟

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Dim sql1 As SQL
    Dim meghdar As String
    'Dim sharedprefs As ARSharedPreference
    Dim f As Farakhani
    Dim s As String
    Dim c As String
    
End Sub

Sub Globals
    Dim navi As AHNavigationDrawer
    Dim pCantent As Panel
    Dim lbl As Label
    Private Button2 As Button
    Private Button4 As Button
    Private ListView1 As ListView

    Dim cur1 As Cursor
    'Dim fara As Farakhani
    
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'دیگه نیازی به لود لایوت داخل اکتیویتی نیست!!!
    Activity.LoadLayout("main")
    lbl.Initialize("")
    'lbl.Typeface=Typeface.LoadFromAssets(sharedprefs.GetString("typeface","1")&".ttf")
    'lbl.TextColor=sharedprefs.GetInt("textcolor",Colors.Black)
    'lbl.TextSize=sharedprefs.GetInt("textsize",10)
    slide
    
    
    
    If File.Exists(File.DirInternal,"hamed.db")=False Then
        File.Copy(File.DirAssets,"hamed.db",File.DirInternal,"hamed.db")
    End If
    If sql1.IsInitialized=False Then
        sql1.Initialize(File.DirInternal,"hamed.db",True)
    End If
    cur1= sql1.ExecQuery("Select * FROM list ")
    
    For i = 0 To cur1.rowCount-1
        cur1.Position= i
        ListView1.AddSingleLine(cur1.GetString("list"))
    Next
    
    ListView1.SingleLineLayout.Label.Gravity=Gravity.CENTER

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

    'cur1.IsInitialized
    
    f.initialize("setting.db","sitng",True)
    
    s=f.FarakhaniString("id","1","size")
    c=f.FarakhaniString("id","1","color")
    lbl.TextSize= s
    lbl.TextColor= c
    Activity.AddMenuItem("Setting","Setting")
        
    
End Sub

Sub Activity_Resume
    'lbl.Typeface=Typeface.LoadFromAssets(sharedprefs.GetString("typeface","1")&".ttf")
    'lbl.TextColor=sharedprefs.GetInt("textcolor",Colors.Black)
    'lbl.TextSize=sharedprefs.GetInt("textsize",10)
End Sub

 

اینم برای صفحه تنظیمات

#Region  Activity Attributes 
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals
    
    
End Sub

Sub Globals
    
    Private SeekBar1 As SeekBar
Private Spinner1 As Spinner
    
'    

    Private RadioButton2 As RadioButton
    Private RadioButton1 As RadioButton
    Private lbl As Label
    
End Sub

Sub Activity_Create(FirstTime As Boolean)
    
    Activity.LoadLayout("setting")

    
    lbl.Text = "بوق"

    Spinner1.AddAll(Array As String("قرمز","آبی","زرد","مشکی"))

    lbl.TextSize = SeekBar1.Value
    
lbl.TextSize = main1 . s
    lbl. TextColor = main1 . c
    
    Activity.AddMenuItem("Save","Save")
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Save_click
    main1.f.Update1("size",lbl.TextSize,"1")
    main1.f.Update1("color",lbl.TextColor,"1")

    StartActivity(main1)
    Activity.Finish
End Sub

Sub SeekBar1_ValueChanged (Value As Int, UserChanged As Boolean)
    
    
    
    lbl.TextSize = Value
End Sub

Sub Spinner1_ItemClick (Position As Int, Value As Object)
    
    Select Position
        Case 0
            lbl.TextColor = Colors.Red
        Case 1
            lbl.TextColor = Colors.Blue
        Case 2
            lbl.TextColor = Colors.Yellow
        Case 3
            lbl.TextColor = Colors.Black
    End Select
     
    
End Sub

Sub RadioButton2_CheckedChange(Checked As Boolean)
    lbl.TextSize = 15
    SeekBar1.Value = 15
    ToastMessageShow("حالت کوچک",False)
End Sub

Sub RadioButton1_CheckedChange(Checked As Boolean)
    lbl.TextSize = 40
    SeekBar1.Value = 40
    ToastMessageShow("حالت بزرگ",False)
End Sub

 

 

[Gray Mind 913]

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

این مقادیر به صورت متغیر ذخیره میشن با نام خاصی

همونطور که میدونید یا نه شیرد پرفرنس یه مقدار پیشفرض هم داره

میای و توی اکتیویتی مقدار شیردپرفرنس رو میگیری و میذاری توی تایپ فیس یا همون فونت متن و سایز و میگیری و میذاری رو سایز متن و...

 

موفق باشی در ضمن توی آموزش تصویری یا متنی یه آموزش در این رابطه بود اگه اشتباه نکنم

[softir 459]

در هم اکنون، HAMEDDDR گفته است :

با سلام من یک کتاب طراحی کردم تنظیمات براش نوشتم  ولی این تنظیمات روی متن اعمال نمیشه کاربر تو صفحه تنظیمات میره تنظیمات تغییر میده ولی تو صفحه متن تغییر نمیکنه چکارش باید کنم تغییر کنه?

یک اموزش پسند کردنم تو انجمن بزارید اصلا نیستش:/

سلام برو تو این سایت . قسمت 24 و 25 از فصل یک رو دان کن .

توش یاد داده کتاب بسازی + تنظیمات

دانلود فیلم آموزش فارسی برنامه نویسی اندروید با Basic4Android سافت آی آر

[HAMEDDDR 15]

در 23 ساعت قبل، Gray Mind گفته است :

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

این مقادیر به صورت متغیر ذخیره میشن با نام خاصی

همونطور که میدونید یا نه شیرد پرفرنس یه مقدار پیشفرض هم داره

میای و توی اکتیویتی مقدار شیردپرفرنس رو میگیری و میذاری توی تایپ فیس یا همون فونت متن و سایز و میگیری و میذاری رو سایز متن و...

 

موفق باشی در ضمن توی آموزش تصویری یا متنی یه آموزش در این رابطه بود اگه اشتباه نکنم

با سلام اتفاقن با sharedpreferenceکار کردم و مقادیر دادم بهش ولی بازم اعمال نمیشه بزارم کدشو یک نکاهی کنید?

[Gray Mind 913]

اول این آموزش هارو ببین :

 

اگه کارت حل نشد کدهارو بذار ببینیم چیکار کردی

[HAMEDDDR 15]

در 4 ساعت قبل، Gray Mind گفته است :

اول این آموزش هارو ببین :

 

اگه کارت حل نشد کدهارو بذار ببینیم چیکار کردی

با سلام 

اولی که سیو نمیکنه 

دومی دیتابیسه من انجام این ارور میده

[HAMEDDDR 15]

در 5 ساعت قبل، Gray Mind گفته است :

اول این آموزش هارو ببین :

 

اگه کارت حل نشد کدهارو بذار ببینیم چیکار کردی

مشگل حل شد داداشم ولی الان مشگل اینه 

 

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

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Dim sql1 As SQL
    Dim meghdar As String
    'Dim sharedprefs As ARSharedPreference
    Dim f As Farakhani
    Dim s As String
    Dim c As String
    
End Sub

Sub Globals
    Dim navi As AHNavigationDrawer
    Dim pCantent As Panel
    Dim lbl As Label
    Private Button2 As Button
    Private Button4 As Button
    Private ListView1 As ListView

    Dim cur1 As Cursor
    'Dim fara As Farakhani
    
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'دیگه نیازی به لود لایوت داخل اکتیویتی نیست!!!
    Activity.LoadLayout("main")
    lbl.Initialize("")
    'lbl.Typeface=Typeface.LoadFromAssets(sharedprefs.GetString("typeface","1")&".ttf")
    'lbl.TextColor=sharedprefs.GetInt("textcolor",Colors.Black)
    'lbl.TextSize=sharedprefs.GetInt("textsize",10)
    slide
    If File.Exists(File.DirInternal,"setting.db")= False Then
        
        File.Copy(File.DirAssets,"setting.db",File.DirInternal,"setting.db")
    End If

    cur1.IsInitialized
    
    f.initialize("setting.db","sitng",True)
    
    s=f.FarakhaniString("id","1","size")
    c=f.FarakhaniString("id","1","color")
    lbl.TextSize= s
    lbl.TextColor= c
    Activity.AddMenuItem("Button4","Button4")
    
    
    
    If File.Exists(File.DirInternal,"hamed.db")=False Then
        File.Copy(File.DirAssets,"hamed.db",File.DirInternal,"hamed.db")
    End If
    If sql1.IsInitialized=False Then
        sql1.Initialize(File.DirInternal,"hamed.db",True)
    End If
    cur1= sql1.ExecQuery("Select * FROM list ")
    
    For i = 0 To cur1.rowCount-1
        cur1.Position= i
        ListView1.AddSingleLine(cur1.GetString("list"))
    Next
    
    ListView1.SingleLineLayout.Label.Gravity=Gravity.CENTER

    
        
    
End Sub