ذخیره شدن اطلاعات

[mostafa.kasiri 115]

سلام

من یک صلوات شمار درست کردم 

میخوام وقتی از برنامه اومد بیرون دوباره رفت تو برنامه  , عدد ها سیو بشه

تا از ادامه بیاد

من چی کار کنم؟

چه کدی بدم؟

[Mohsen27 199]

Sub Process_Globals
End Sub
Sub Globals
  Private ImageView1 As ImageView
Dim Font As Typeface = Typeface.LoadFromAssets("2DAVAT.ttf")
Dim i As Int
Private Label1 As Label
Private Button1 As Button
Private Button2 As Button
Private Button3 As Button 
Private Button4 As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("L1")
    ImageView1.SetBackgroundImage(LoadBitmap(File.DirAssets,"7.png"))
Label1.Text = i
i = 0
Button1.Typeface = Font
Button2.Typeface = Font
Button3.Typeface = Font 
 
End Sub
Sub Activity_Resume
If File.Exists(File.DirInternal,"adad.txt")=True Then
Dim str As String
str=File.ReadString(File.DirInternal,"adad.txt")
i=str
Label1.Text=str
File.Delete(File.DirInternal,"adad.txt")
Else

End If
End Sub
Sub Activity_Pause (UserClosed As Boolean)
File.WriteString(File.DirInternal,"adad.txt",i)
End Sub
Sub Button1_Click
i = i + 1
Label1.Text = i
If i = 20 Then
Msgbox("التماس دعا","خطا")
End If
 
End Sub
Sub Button2_Click
    If i > 0 Then
i = i - 1
Label1.Text = i
End If
End Sub
Sub Button3_Click
i = i - i
     Label1.Text = i
End Sub
Sub Button4_Click
Dim a As Int
a = Msgbox2 ("میخواهید از برنامه خارج شوید "," خارج شدن","بله ","خیر","",Null)
If a = DialogResponse.POSITIVE Then
ExitApplication
End If
End Sub

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

کپی کن ببین کار میکنه.

موفق باشی

[پژمان نیکروان 6,055]

سلام

اقا من این دو تا لینک رو دیدم اما چیزی متوجه نشدم میشه برا من توضیح بدید

کد اگر بدین خیلی خوبه

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

[mostafa.kasiri 115]

اینم کد ها 

#Region  Project Attributes 
#ApplicationLabel: صلوات شمار
#VersionCode: 1
#VersionName: 
#SupportedOrientations: portrait
#End Region
#Region  Activity Attributes 
#FullScreen: False
#IncludeTitle: true
#End Region
Sub Process_Globals
End Sub
Sub Globals
  Private ImageView1 As ImageView
Dim Font As Typeface = Typeface.LoadFromAssets("2DAVAT.ttf")
Dim i As Int
Private Label1 As Label
Private Button1 As Button
Private Button2 As Button
Private Button3 As Button 
Private Button4 As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("L1")
    ImageView1.SetBackgroundImage(LoadBitmap(File.DirAssets,"7.png"))
Label1.Text = i
i = 0
Button1.Typeface = Font
Button2.Typeface = Font
Button3.Typeface = Font 
 
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Button1_Click
i = i + 1
Label1.Text = i
If i = 20 Then
Msgbox("التماس دعا","خطا")
End If
 
End Sub
Sub Button2_Click
    If i > 0 Then
i = i - 1
Label1.Text = i
End If
End Sub
Sub Button3_Click
i = i - i
     Label1.Text = i
End Sub
Sub Button4_Click
Dim a As Int
a = Msgbox2 ("میخواهید از برنامه خارج شوید "," خارج شدن","بله ","خیر","",Null)
If a = DialogResponse.POSITIVE Then
ExitApplication
End If
End Sub

[Mohsen27 199]

کاری نداره که دوست عزیز توی Sub Activity_Resume

مینویسی که label.text=i

یا میتونی از اینتی که تعریف کردی یه فایل تکست ایجاد کنی و اونجا فراخوانی کنی .

موفق باشی

[mostafa.kasiri 115]

با کد

label1.text = i

چیزی نشد

میشه با کد های که گفتم بگید؟

چه کار کنم

[پژمان نیکروان 6,055]

http://answercenter.ir/topic/1797-%D8%B5%D9%84%D9%88%D8%A7%D8%AA-%D8%B4%D9%85%D8%A7%D8%B1-%D8%A8%D8%A7-%D8%B0%D8%AE%DB%8C%D8%B1%D9%87-%D9%88-%D8%A8%D8%A7%D8%B2%DB%8C%D8%A7%D8%A8%DB%8C/

 

http://answercenter.ir/topic/1788-%D9%85%D8%B4%DA%A9%D9%84-%D8%A8%D8%A7-%D8%B4%D9%85%D8%A7%D8%B1%D8%B4%DA%AF%D8%B1/

[mostafa.kasiri 115]

سلام

اقا من این دو تا لینک رو دیدم اما چیزی متوجه نشدم میشه برا من توضیح بدید

کد اگر بدین خیلی خوبه

اینم کد هام

 
#Region  Project Attributes 
#ApplicationLabel: صلوات شمار
#VersionCode: 1
#VersionName: 
#SupportedOrientations: portrait
#End Region
#Region  Activity Attributes 
#FullScreen: False
#IncludeTitle: true
#End Region
Sub Process_Globals
End Sub
Sub Globals
  Private ImageView1 As ImageView
Dim Font As Typeface = Typeface.LoadFromAssets("2DAVAT.ttf")
Dim i As Int
Private Label1 As Label
Private Button1 As Button
Private Button2 As Button
Private Button3 As Button 
Private Button4 As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("L1")
    ImageView1.SetBackgroundImage(LoadBitmap(File.DirAssets,"7.png"))
Label1.Text = i
i = 0
Button1.Typeface = Font
Button2.Typeface = Font
Button3.Typeface = Font 
 
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Button1_Click
i = i + 1
Label1.Text = i
If i = 20 Then
Msgbox("التماس دعا","خطا")
End If
 
End Sub
Sub Button2_Click
    If i > 0 Then
i = i - 1
Label1.Text = i
End If
End Sub
Sub Button3_Click
i = i - i
     Label1.Text = i
End Sub
Sub Button4_Click
Dim a As Int
a = Msgbox2 ("میخواهید از برنامه خارج شوید "," خارج شدن","بله ","خیر","",Null)
If a = DialogResponse.POSITIVE Then
ExitApplication
End If
End Sub