افزایش و کاهش عدد+جمع کل

[KMOHAMMAD 10]

سلام

ببخشید مجبور شدم موضوع جدید بزنم

سرچ کردم نتونستم اون چیزی که میخام پیدا کنم 

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

من میخام وقتی کاربر روی + کلیک کرد شمارش  اعداد شروع بشه  و وقتی روی - زد به مقدار کلیک ها  عدد کم بشه

فکر کنم برای دیگه اعضا گروه ساده باشه

من چون اولین بار در برنامه ام از این استفاده میکنم نتونستم پیاده سازی کنم

نیاز به راهنمایی و یا سروس چنین چیز یدارم

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

[mohsen m 155]

باسلام

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

اگه موضوع را بیشتر توضیح میدادی برا کد نویسی بهتر میشد.

یه مثال ساده:

Sub Globals
	Private Button1 As Button
	Private Button2 As Button
	Private Label1 As Label
	Dim n As Int=0
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("l")
	Run
End Sub

Sub Run
	If n<=0 Then
		Button2.Enabled=False
	Else
		Button2.Enabled=True
	End If
	Label1.Text=n
End Sub

Sub Button2_Click
	n=n-1
	Run
End Sub

Sub Button1_Click
	n=n+1
	Run
End Sub
           

برای ذخیره هم میتونید مقدار را تو یه فایل تکست Text ذخیره کنید و هر موقع خواستید دوباره بخونیدش. سرچ کنید حتما پیدا میکنید.

[KMOHAMMAD 10]

در 4 ساعت قبل، mohsen m گفته است :

باسلام

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

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

جستجو کردم ولی نمیدونستم باید دنبال چی بگردم چون اولین بار میخام چنین چیزی را توی برنامه استفاده کنم بخاطر همین هرچی هم پیدا میشد میدیدم اون چیزی که میخام نیست
لذا موضوع زدم 
الان اگر بخام جستجو کنم باید دنبال چی بگردم؟؟؟

از مثالتون هم ممنون

اگه موضوع را بیشتر توضیح میدادی برا کد نویسی بهتر میشد.

یه مثال ساده:

Sub Globals
	Private Button1 As Button
	Private Button2 As Button
	Private Label1 As Label
	Dim n As Int=0
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("l")
	Run
End Sub

Sub Run
	If n<=0 Then
		Button2.Enabled=False
	Else
		Button2.Enabled=True
	End If
	Label1.Text=n
End Sub

Sub Button2_Click
	n=n-1
	Run
End Sub

Sub Button1_Click
	n=n+1
	Run
End Sub
           

برای ذخیره هم میتونید مقدار را تو یه فایل تکست Text ذخیره کنید و هر موقع خواستید دوباره بخونیدش. سرچ کنید حتما پیدا میکنید.

 

[KMOHAMMAD 10]

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

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

 

 

[qmars 38]

به جای File.DirInternal ها از File.DirRootExternal استفاده کنید ببینید درست میشه یا نه

[keramat98 82]

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

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

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

 

 

از Shared Preferences استفاده کن کارت بهتر از آب در میاد . AriaSharedPreferences هم یکی از این کتابخونه هاست که در انجمن موجوده

[KMOHAMMAD 10]

در در 1397/04/19, 20:00:36، qmars گفته است :

به جای File.DirInternal ها از File.DirRootExternal استفاده کنید ببینید درست میشه یا نه

یعنی همه  File.DirInternal    تبدیل به    File.DirRootExternal کنم ؟؟

یا فقط اونهایی که در دکمه ذخیره هست؟؟؟

ممنونمیشم راهنمایی کنید 

تشکر

[KMOHAMMAD 10]

من میخام وقتی دکمه ذخیره سا زی زده میشه آخرین عدد در فایل تکست ذخیره بشه و وقتی برنامه کاملا بسته شد و دوباره کاربر وارد برنامه شد آخرین عددی که ذخیره شده در همون محل خودش نشون داده بشه و با   +  یا   -  اون عدد کم یا زیاد بشه

اون عدد از 0  شروع میشه و تا بی نهایت ادامه داره

[vistamobile 1,700]

در 3 ساعت قبل، KMOHAMMAD گفته است :

من میخام وقتی دکمه ذخیره سا زی زده میشه آخرین عدد در فایل تکست ذخیره بشه و وقتی برنامه کاملا بسته شد و دوباره کاربر وارد برنامه شد آخرین عددی که ذخیره شده در همون محل خودش نشون داده بشه و با   +  یا   -  اون عدد کم یا زیاد بشه

اون عدد از 0  شروع میشه و تا بی نهایت ادامه داره

سلام :

برای ذخیره مقدار طبق دستور عمل زیر پیش برین. من میخوام مقدار سکه1 رو بسازم و ذخیره کنم.

1 - اول یه int میسازم به نام sekke1. میزارمش تو process global  اکتیویتی main تا تو تموم برنامه بهش دسترسی داشته باشم.

2 - بعد اونو تو  activity_create نصبش میکنم رو تکست .

3 - بعد هم تو Activity_Resume با کش و ترای میایم بازخوانی میکنیم تو هر بار باز شدن برنامه :

Sub Process_Globals
	
	Dim sekke1 As Int = 2
 مقداری که میخوایم رو اسم بهش میدیم
End Sub

Sub Globals
	

End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	مقدار رو نصب میکنیم برای فراخوانی
	If File.Exists(File.DirInternal ,"pol1.txt") = False Then
		File.WriteString(File.DirInternal,"pol1.txt",sekke1)
	End If

End Sub

Sub Activity_Resume
مقدار را اینجا فراخوانی میکنیم
	Try
	
		sekke1=File.ReadString(File.DirInternal,"pol1.txt")

	Catch
		Log(LastException)
	End Try
End Sub

 

برای کم و زیاد شدن هم تو اون ساب دکمه ذخیرتون اینجوری بنویسین:

	Main.sekke1 = Main.sekke1 + 4
	File.WriteString(File.DirInternal,"pol1.txt",Main.sekke1)

 

البته تو دستور بالا من اومدم چهارتا به سکه اضافه کردم و ذخیره کردم. شما باید یه جور دیگه انجام بدین : 

اول تو دکمه های + و -- مقادیر رو کم و زیاد کنید بعد تو ساب فقط دستور دوم رو بنویسین. اینجوری:

sub manfi_click
Main.sekke1 = Main.sekke1 -1
end sub

و 

sub mosbat_click
Main.sekke1 = Main.sekke1 + 2
end sub


sub save_click
		File.WriteString(File.DirInternal,"pol1.txt",Main.sekke1)
end sub

 

 

 

 

[KMOHAMMAD 10]

امتحان میکنم خبرتون میدم

تشکر