بسته نشدن اکتیویتی

[abbas2142 557]

با سلام

 

من توی برنامه ام که لینکش رو هم در زیر واستون میذارم می خوام یه کاری بکنم که وقتی توی بخش صلوات شمار کاربر تعدادی صلوات می فرسته و از اکتیویتی خارج می شه و میره توی منو های دیگه یا اصلی ( برگشت به اکتیویتی اول ) می خوام محتوایت اکتیویتی صلوات هنوز همون عددی باشه که قبل از خروج از اکتیویتی نشون داده شده بود !!!!

 

http://answercenter.ir/topic/2809-%D8%A7%D8%B0%DA%A9%D8%A7%D8%B1-%D8%B0%DA%A9%D8%B1%D8%B4%D9%85%D8%A7%D8%B1-%DA%86%D9%86%D8%AF%DA%AF%D8%A7%D9%86%D9%87/

 

 

با تشکر

[abbas2142 557]

a=r

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

Sub Globals

	Dim a As Int
	Dim Label1 As Label
	Private Btn1 As Button
	Dim r As String
	
End Sub

Sub Activity_Resume

	Try
	("r=File.ReadString(File.DirInternal,"zakhire.txt
	Catch
	("Log("file hanoz injad nashode
	End Try
	Label1.text=r
	("Label1.Typeface=Typeface.LoadFromAssets("BYekan.ttf
	a=r
End Sub


(Sub Activity_Pause (UserClosed As Boolean
	(File.WriteString(File.DirInternal,"zakhire.txt",Label1.text
End Sub


Sub Btn1_Click
	a = a+1
	Label1.text =a
End Sub

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

مطمئن نیستم اما شما این کد رو داخل activity-Reume خودت قرار بده.

Try
	r=File.ReadString(File.DirInternal,"zakhire.txt")
	a=File.ReadString(File.DirInternal,"zakhire.txt")
	Label1.text=r
	Catch
	("Log("file hanoz injad nashode
	End Try
	("Label1.Typeface=Typeface.LoadFromAssets("BYekan.ttf

ببینیم چی میشه.

[abbas2142 557]

مطمئن نیستم اما شما این کد رو داخل activity-Reume خودت قرار بده.

Try
	r=File.ReadString(File.DirInternal,"zakhire.txt")
	a=File.ReadString(File.DirInternal,"zakhire.txt")
	Label1.text=r
	Catch
	("Log("file hanoz injad nashode
	End Try
	("Label1.Typeface=Typeface.LoadFromAssets("BYekan.ttf

ببینیم چی میشه.

آقا ممنون درست شد خدا خیرت بده

[msajad 501]

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

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

درود.

اگه به فرض تعداد و شمارش توی لیبل نمایش داده میشه.

میتونید تو این رویداد اون رو تو فایل تکست ذخیره کنید:

Sub Activity_Pause (UserClosed As Boolean)
File.WriteString(File.DirInternal,"s.txt",label1.text)
End Sub

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

Sub Activity_Resume
Dim r As String
Try
r=File.ReadString(File.DirInternal,"s.txt")
Catch
Log("file hanoz injad nashode")
End Try
label1.text=r
End Sub

[abbas2142 557]

 

درود.

اگه به فرض تعداد و شمارش توی لیبل نمایش داده میشه.

میتونید تو این رویداد اون رو تو فایل تکست ذخیره کنید:

Sub Activity_Pause (UserClosed As Boolean)
File.WriteString(File.DirInternal,"s.txt",label1.text)
End Sub

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

Sub Activity_Resume
Dim r As String
Try
r=File.ReadString(File.DirInternal,"s.txt")
Catch
Log("file hanoz injad nashode")
End Try
label1.text=r
End Sub

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

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

درواقع روی لیبل عدد 10 رو نشون میده. اما وقتی شمارش شروع میشه از 0 میاد. درسته؟

با چه متغیری شمارش رو انجام میدی و توی لیبل میذاریتش؟ برای مثال فکر کنم اینکارو کردین:

a=a+1
label1.text=a

حالا همونجا کد کد فراخوانی رو دادم و باهاش متنی رو توی لیبل میذارید توی این متغیر هم بذارید اینجوری:

Sub Activity_Resume
Dim r As String
Try
r=File.ReadString(File.DirInternal,"s.txt")
Catch
Log("file hanoz injad nashode")
End Try
label1.text=r

a=r

End Sub