متوقف کردن یک اکتیویتی بعد از یک بار اجرا

[viki0028 19]

درود و سلام خدمت همه دوستان و همکاران

 

سوالی داشتم از خدمت اساتید محترم انجمن

 

من یک سورس دارم که درواقع به عنوان فایل راهنما در ابتدای برنامه اجرا میشه.... این راهنما در یک اکتیوتی قرار دارد (MAIN) ......خوب حالا برنامه موقع اجرا اکتیوتی مین را اجرا میکنه که حاوی راهنمای برنامه به سبک تلگرام هستش) و بعدش میره برای اکتیوتی X ..... 

وقتی برنامه رو می بندم و دوباره اجرا میکنم نمیخوام دیگه بخش راهنما اجرا بشه....مستقیم بره برای اکتیویتی X ... 

 

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

sample_StartViewPager.rar

[محمدرضا شاهپیری 5,579]

معلومه دیگه شما اکتیویتی main رو نبستین واسه همینه اون صفحه سیاه 

تا زمانی که اکتیویتی main در حالت puse باشه برنامه از هیچ اکتیوتی دیگه خارج نمیشه به جز main یعنی اول باید به main برگرده و از اونجا خارج بشه 

این کد کامله دیگه

aria.Initialize("aria")
If aria.GetBoolean("firsttime",True) Then
	aria.SaveBoolean("firsttime",False)
	StartActivity(rahnama)
Else
	StartActivity(asli)
End If
Activity.Finish	

 

[viki0028 19]

در در 1395/06/08, 11:14:28، fghdfg گفته است :

دوست عزیز شما یه سرچ میکردید به جواب کامل میرسیدید

از کتابخونه ariashared prefrecne استفاده کنید

Dim aria As AriaSharedPreferences
aria.Initialize("aria")
If aria.GetBoolean("firsttime",False) Then
	aria.SaveBoolean("firsttime",True)
	StartActivity(rahnamaee)
Else
	StartActivity(X)
	End IF

 

مهندس من طبق کاری که گفتید جلو رفتم.......ولی متاسفانه دوتا اتفاق افتاد

1.. وقتی برنامه را اجرا کردم بلافاصله رفت برای اکتیوتی x...... بدون اینکه اکتیوتی rahnama را اجرا کنه

2.... موقع برگشت زدن و خروج از برنامه یک صفحه مشکی نمایش داده میشه که باید مجدد روی برگشت کلیک کرد

 

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

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

rahnama.rar

[محمدرضا شاهپیری 5,579]

ببیخشید هموطن  جای متغیرهای بولین اشتباه شده کدها رو به صورت زیر تغییر بدین

Dim aria As AriaSharedPreferences
aria.Initialize("aria")
If aria.GetBoolean("firsttime",True) Then
	aria.SaveBoolean("firsttime",False)
	StartActivity(rahnamaee)
Else
	StartActivity(X)
	End Sub

 

[viki0028 19]

در 7 ساعت قبل، محمدرضا شاهپیری گفته است :

ببیخشید هموطن  جای متغیرهای بولین اشتباه شده کدها رو به صورت زیر تغییر بدین

Dim aria As AriaSharedPreferences
aria.Initialize("aria")
If aria.GetBoolean("firsttime",True) Then
	aria.SaveBoolean("firsttime",False)
	StartActivity(rahnamaee)
Else
	StartActivity(X)
	End Sub

 

 

مهندس اینبار با تغییر متغییر بولین این مشکل ایجاد شد :

بعد از یکبار اجرا اکتیویتی راهنما اجرا شد و بعد از اون وارد اکتیویتی اصلی شد...اما موقع برگشت زدن دوباره وارد اکتیویتی راهنما شد....

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

 

به نظر شما چیکار میشه کرد؟

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

[viki0028 19]

در 18 دقیقه قبل، محمدرضا شاهپیری گفته است :

معلومه دیگه شما اکتیویتی main رو نبستین واسه همینه اون صفحه سیاه 

تا زمانی که اکتیویتی main در حالت puse باشه برنامه از هیچ اکتیوتی دیگه خارج نمیشه به جز main یعنی اول باید به main برگرده و از اونجا خارج بشه 

این کد کامله دیگه

aria.Initialize("aria")
If aria.GetBoolean("firsttime",True) Then
	aria.SaveBoolean("firsttime",False)
	StartActivity(rahnama)
Else
	StartActivity(asli)
End If
Activity.Finish	

 

 

مهندس کارت حرف نداشت .... مشکل صفحه مشکی کامل حل شد.. سپاسگذارم.

ولی هنوز یه مشکل کوچیک هست.

بعد از اجرای اول وقتی از اکتیویتی راهنما وارد اکتیویتی اصلی میشیم  ، با کلیک بر روی دکمه باز گشت دوباره برمیگرده به اکتیویتی راهنما .....البته فقط برای بار اول این اتفاق میفته .....یعنی یکبار برنامه رو ببندیم و دوباره اجرا کنیم این اتفاق کامل حل شده.....

 

برای بار اول رو چیکار کنیم؟ 

 

[محمدرضا شاهپیری 5,579]

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

StartActivity(asli)
Activity.Finish

 

[viki0028 19]

در 8 دقیقه قبل، محمدرضا شاهپیری گفته است :

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

StartActivity(asli)
Activity.Finish

 

 

دقیقا درست فرمودید.... در قسمت راهنما activity.finish  رو قرار دادم کار درست شد .... خدا خیرت بده مهندس ... 

[مهدی ایزدی 9,203]

درود

به این صورت عمل کنید :

Sub Activity_Create(FirstTime As Boolean)
	If File.Exists(File.DirInternal,"answer.txt") = False Then
		File.WriteString(File.DirInternal,"answer.txt","www.AnswerCenter.ir")
	Else
		StartActivity(x)
	End If
	Activity.LoadLayout("Layout1")

End Sub

[محمدرضا شاهپیری 5,579]

دوست عزیز شما یه سرچ میکردید به جواب کامل میرسیدید

از کتابخونه ariashared prefrecne استفاده کنید

Dim aria As AriaSharedPreferences
aria.Initialize("aria")
If aria.GetBoolean("firsttime",False) Then
	aria.SaveBoolean("firsttime",True)
	StartActivity(rahnamaee)
Else
	StartActivity(X)
	End IF

[viki0028 19]

 

دوست عزیز شما یه سرچ میکردید به جواب کامل میرسیدید

از کتابخونه ariashared prefrecne استفاده کنید

Dim aria As AriaSharedPreferences
aria.Initialize("aria")
If aria.GetBoolean("firsttime",False) Then
	aria.SaveBoolean("firsttime",True)
	StartActivity(rahnamaee)
Else
	StartActivity(X)
	End Sub

 

 

 

مممنونم بابت راهنمایی همه اساتید.... فقط کتابخونه مورد نظر اگر موجود هست پیوست کنید. 

[محمدرضا شاهپیری 5,579]

http://answercenter.ir/topic/9955-%D8%B0%D8%AE%DB%8C%D8%B1%D9%87-%D8%A7%D9%86%D9%88%D8%A7%D8%B9-%D8%A7%D8%B7%D9%84%D8%A7%D8%B9%D8%A7%D8%AA-%D8%A8%D9%87-%D8%B5%D9%88%D8%B1%D8%AA-%D8%A7%D8%B3%D8%AA%D8%A7%D9%86%D8%AF%D8%A7%D8%B1%D8%AF-%D8%AE%D9%88%D8%AF-%D8%A7%D9%86%D8%AF%D8%B1%D9%88/