تشخیص ورود به برنامه برای بار چندم!

[fito 45]

سلام، میخوام هر دفعه که کاربر خارج و وارد میشه بفهمه برنامه و بدونه باره چندمه وارد شده.

مثلا اگه دفعه اول بود وارد برنامه میشد یه پیغام بده، اگه دفعه دوم بود یه پیغام دیگه اگه دفعه سوم یه پیغام جدید دیگه و....

حالا چطور میشه به این شکل لطفا با مثال راهنمایی کنید.

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

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

Sub Activity_Create(FirstTime As Boolean)
	'Activity.LoadLayout("Layout1")'
	
	Dim count As Int
	Try
		count=File.ReadString(File.DirInternal,"vorod")
	Catch
		Log(LastException)
	End Try
	
	count=count+1
	File.WriteString(File.DirInternal,"vorod",count)
	
	Msgbox("الآن بار "&count&" است که وارد برنامه می شوید","")
	
End Sub

شرط های مورد نظر هم میتونید روی همون count بذارید. بگید مثلا آگر count=5 بود یک پیغام دیگه نشون بده...

[[email protected] 6]

در 26 دقیقه قبل، پژمان نیکروان گفته است :

Sub Activity_Create(FirstTime As Boolean)
	'Activity.LoadLayout("Layout1")'
	
	Dim count As Int
	Try
		count=File.ReadString(File.DirInternal,"vorod")
	Catch
		Log(LastException)
	End Try
	
	count=count+1
	File.WriteString(File.DirInternal,"vorod",count)
	
	Msgbox("الآن بار "&count&" است که وارد برنامه می شوید","")
	
End Sub

شرط های مورد نظر هم میتونید روی همون count بذارید. بگید مثلا آگر count=5 بود یک پیغام دیگه نشون بده...

ممنون میشه این پیام رو از داخل تکست لود کرد (   

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

)

 

طوری که مثلا ما یه تکس دارم و این تکس 10 خط داره برا هر ورود به ترتیب بیاد خط بعدی و اگر 10 خط تموم شد دوباره باز بیاد از اول تکس با هر ورود خط رو دوباره به ترتیب بیاد  ؟

 

ممنون تکه کدش رو قرار بدید ممنون

[[email protected] 6]

upppppppppppp

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

در ۱ ساعت قبل، [email protected] گفته است :

upppppppppppp

ای وااای دریغ از یه کوچولو تلاش کردن و سرچ کردن.

فایل متنی مورد نظر می بایست به این صورت باشه و در پوشه files ذخیره باشه، برای مثال با نام: matnha

matn 1
22312312
3
4
salam
5
6
7
8
9
10

و بعد:

Sub Activity_Create(FirstTime As Boolean)
	'Activity.LoadLayout("Layout1")'
	
	Dim count As Int
	Try
		count=File.ReadString(File.DirInternal,"vorod")
	Catch
		Log(LastException)
	End Try
	
	count=count+1
	File.WriteString(File.DirInternal,"vorod",count)
	
	Try
		dim l as list
		l.initialize
		l=File.ReadList(File.DirAssets,"matnha")
		Msgbox(l.get(count),"")
	Catch
		Log(LastException)
	End Try
	
	
End Sub

 

[[email protected] 6]

در 19 ساعت قبل، پژمان نیکروان گفته است :

ای وااای دریغ از یه کوچولو تلاش کردن و سرچ کردن.

فایل متنی مورد نظر می بایست به این صورت باشه و در پوشه files ذخیره باشه، برای مثال با نام: matnha

matn 1
22312312
3
4
salam
5
6
7
8
9
10

و بعد:

Sub Activity_Create(FirstTime As Boolean)
	'Activity.LoadLayout("Layout1")'
	
	Dim count As Int
	Try
		count=File.ReadString(File.DirInternal,"vorod")
	Catch
		Log(LastException)
	End Try
	
	count=count+1
	File.WriteString(File.DirInternal,"vorod",count)
	
	Try
		dim l as list
		l.initialize
		l=File.ReadList(File.DirAssets,"matnha")
		Msgbox(l.get(count),"")
	Catch
		Log(LastException)
	End Try
	
	
End Sub

 

 

ممنون داداش ولی کد بالا فقط تو ورود اول نشون میده ها تو ورود های دیگه چیزی نمیاره

 

بعد این خط هم تهش غلط املایی داشت درست کردم

 

        l=File.ReadList(File.DirAssets,"matnha")
 

 

به این صورت باز م فقط تو ورود اول نمایش میده

 

        l=File.ReadList(File.DirAssets,"qw.txt")

[محمد رشوند 1,208]

در در 1396/01/20, 23:43:49، fito گفته است :

سلام، میخوام هر دفعه که کاربر خارج و وارد میشه بفهمه برنامه و بدونه باره چندمه وارد شده.

مثلا اگه دفعه اول بود وارد برنامه میشد یه پیغام بده، اگه دفعه دوم بود یه پیغام دیگه اگه دفعه سوم یه پیغام جدید دیگه و....

حالا چطور میشه به این شکل لطفا با مثال راهنمایی کنید.

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

مشکل شما با این کتابخونه حل میشه

 

[[email protected] 6]

در 15 دقیقه قبل، محمد رشوند گفته است :

مشکل شما با این کتابخونه حل میشه

 

نه اصلا به این ربطی نداره لقمه دور سر نمیخوام بچرخونم که

[fito 45]

در ۱ ساعت قبل، محمد رشوند گفته است :

مشکل شما با این کتابخونه حل میشه

 

من همون اول جوابم رو گرفتم ممنون

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

در 4 ساعت قبل، [email protected] گفته است :

ممنون داداش ولی کد بالا فقط تو ورود اول نشون میده ها تو ورود های دیگه چیزی نمیاره

درسته مشکلی نداره داداش گل.

پیغام اولیه.rar

[mohammad3250 206]

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

[محمد رشوند 1,208]

در 18 ساعت قبل، [email protected] گفته است :

نه اصلا به این ربطی نداره لقمه دور سر نمیخوام بچرخونم که

لقمه دور سر چرخوندن نداره که عزیز

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

هر بار اون عدد رو چک میکنید که دفعه چندم هست برنامه باز شده برای هر دفعه کد جدا مینویسید کلاً 15 دقیقه هم فکر نکنم وقت بگیره

ولی باز صلاح مملکت خویش خسروان دانند.

موفق باشید.

 

[[email protected] 6]

در 19 ساعت قبل، پژمان نیکروان گفته است :

درسته مشکلی نداره داداش گل.

پیغام اولیه.rar

کارت مثل همیشه 20 * 20 داداش 

 

فقط یه سوال آهرم مونده اینکه این 10 تا رو نشون داد با ورود 11 هم بیاد لیست رو از نو از سر بگیره و این چرخه ادامه پیدا کنه چه کدی بهش اضافه کنیم .

 

ممنون خیر ببینی 

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

در 8 ساعت قبل، محمد رشوند گفته است :

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

سلام محمد جون ایشون برنامه خودشون رو میخوان هروقت باز شد کاری انجام بشه در Activity_Create، بخاطر همین گفتن نمیخوام لقمه رو بپیچونم.

 

در 4 ساعت قبل، [email protected] گفته است :

فقط یه سوال آهرم مونده اینکه این 10 تا رو نشون داد با ورود 11 هم بیاد لیست رو از نو از سر بگیره و این چرخه ادامه پیدا کنه چه کدی بهش اضافه کنیم .

بجای این کد در سورس:

File.WriteString(File.DirInternal,"vorod",count)

اینو بنویسید:

	If count>=11 Then
		File.WriteString(File.DirInternal,"vorod",0)
	Else
		File.WriteString(File.DirInternal,"vorod",count)
	End If

 

[[email protected] 6]

در ۱ ساعت قبل، پژمان نیکروان گفته است :

سلام محمد جون ایشون برنامه خودشون رو میخوان هروقت باز شد کاری انجام بشه در Activity_Create، بخاطر همین گفتن نمیخوام لقمه رو بپیچونم.

 

بجای این کد در سورس:

File.WriteString(File.DirInternal,"vorod",count)

اینو بنویسید:

	If count>=11 Then
		File.WriteString(File.DirInternal,"vorod",0)
	Else
		File.WriteString(File.DirInternal,"vorod",count)
	End If

 

ولی پژمان عزیز برادر گلم من 11 رو نمیخوام بزارم چون شما فکر کن تعداد داخل تکست رو ما نمیدونیم آنلاین چنج میشه

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

در 13 ساعت قبل، [email protected] گفته است :

ولی پژمان عزیز برادر گلم من 11 رو نمیخوام بزارم چون شما فکر کن تعداد داخل تکست رو ما نمیدونیم آنلاین چنج میشه

بجای 11 بذارید l.size یا l.size-1