رفتن به مطلب
  • 0

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


KMOHAMMAD

سوال

سلام

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

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

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

Presentation1.jpg

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

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

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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

9 پاسخ به این سوال تاکنون داده شده است

ارسال‌های توصیه شده

باسلام

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

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

یه مثال ساده:

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 ذخیره کنید و هر موقع خواستید دوباره بخونیدش. سرچ کنید حتما پیدا میکنید.

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

باسلام

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

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

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

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

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

یه مثال ساده:


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 ذخیره کنید و هر موقع خواستید دوباره بخونیدش. سرچ کنید حتما پیدا میکنید.

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

1.JPG

 

Capture.JPG

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

1.JPG

 

Capture.JPG

 

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

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

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

تشکر

لینک ارسال
به اشتراک گذاری در سایت های دیگر

Presentation1.jpg

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

Presentation1.jpg

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

اون عدد از 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

 

 

 

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...