مسیج باکس

[taha1371 84]

سلام من کدزیر کذاشتم برا مسیج باکس و میخوام بعد از این که 5 بار برنامه باز شد بعد برای کاربر نمایش داده بشه  نه همون بار اول و بعد که نمایش داد هنکامی که روی نظر میدم کلیک کرد بره تو اکتیوی  nazr باید چه کد هایو اضاف کنم واگه میشه در بارش توضیح بدین

Sub Globals
	Dim dialog As CustomDialog
	Dim check As CheckBox
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Main")
	
	check.Initialize("")
	check.Text = "دیگه نمایش نده"
	dialog.AddView(check,5%x,5%y,70%x,15%y)
	If File.Exists(File.DirInternal,"Show.txt") = False Then
		dialog.Show("نظر دهی","نظر میدم","","نمیدم",Null)
		If check.Checked = True Then
			File.WriteString(File.DirInternal,"Show.txt","not")
		End If
	Else
		
	End If
	
End Sub 

[امین شاهدی 5,771]

Sub Activity_Create(FirstTime As Boolean)

Dim asp As AriaSharedPreferences

asp.Initialize("")

Dim count As Int = asp.GetInt("activity_create",0) + 1

asp.SaveInt("activity_create",count)

If count=5 Then

	Dim msgbtn As Int = Msgbox2("nazar","","ok","","",Null)

	If msgbtn = DialogResponse.POSITIVE Then

		Dim AM As AriaMarkets

		AM.Cafebazaar_SafheNazar(Application.PackageName)

	End If		

End If

End Sub

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

از هر دو روش استاد آرتا و استاد شاهدی عزیز میتونید استفاده کنید فقط یه چیزی رو فراموش نکن حتما FirstTime رو چک کن که true باشه

مثلا به شکل زیر بنویس

If FirstTime Then
		Dim ar As AriaSharedPreferences
		ar.Initialize("ar")
		ar.SaveInt(ar.GetInt("show",0)+1)
		If ar.GetInt("show",0)>5 Then
			ToastMessageShow("yourmsage",False)
			End If
	End If

[taha1371 84]

Sub Activity_Create(FirstTime As Boolean)
	
Dim asp As AriaSharedPreferences
asp.Initialize("")
Dim count As Int = asp.GetInt("activity_create",0) + 1
asp.SaveInt("activity_create",count)
If count=5 Then
	Dim msgbtn As Int = Msgbox2("nazar","","ok","","",Null)
	If msgbtn = DialogResponse.POSITIVE Then
		Dim AM As AriaMarkets
		AM.Cafebazaar_SafheNazar(Application.PackageName)
	End If		
End If


End Sub

میگم کتابخونه خاصی هم بایت تیک بزنم و یه مشکل دیکه اکتویتی nazar  داخل خود برنامم هست نه بازار

[taha1371 84]

سلام

یه متغییر از نوع لیست داخل Global  تعریف کن

فرض می کنیم یه فایل تکست به اسم "status.txt"  داریم که باید مقدار 0 رو داخلش قرار بدید و داخل پوشه Files  بزارید و داخل حافظه کپی کنید

Private status As List

خب کد بعدی رو داخل رویداد Create  بنویسید »

If File.Exists(File.DirInternal,"status.txt") Then
  status.Initialize
  Status = File.ReadList(File.DirInternal,"status.txt")
 Else
  File.Copy(File.DirAssets,"status.txt",File.DirInternal,"status.txt")
End If

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

if IsNumber(status.Get(0)) and Then
  Private num As Int = status.Get(0)
  If num < 5 Then
    num = num + 1
    status.Set(0,num)
    File.WriteList(File.DirInternal,"status.txt",status)
  Else
    Declare Your Comment Activity.
End If

اینجا هم میگم متن فایل تکست اگر از نوع عددی بود بیا بریز داخل متغییر اینتجر و بعد چک کن کوچیکتر از 5 بود یکی بهش اضافه کن و فایل تکستی که داخل حافظس اپدیتش کن با مقدار جدید

و اگر کوچیکتر نبود که میاد کار مورد نظر شمارو انجام میده که شما میخوایید اکتویتی رو باز کنه یا به نظرت منتقل بشه.

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

[مجید آرتا 5,874]

سلام

یه متغییر از نوع لیست داخل Global  تعریف کن

فرض می کنیم یه فایل تکست به اسم "status.txt"  داریم که باید مقدار 0 رو داخلش قرار بدید و داخل پوشه Files  بزارید و داخل حافظه کپی کنید

Private status As List

خب کد بعدی رو داخل رویداد Create  بنویسید »

If File.Exists(File.DirInternal,"status.txt") Then
  status.Initialize
  Status = File.ReadList(File.DirInternal,"status.txt")
 Else
  File.Copy(File.DirAssets,"status.txt",File.DirInternal,"status.txt")
End If

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

if IsNumber(status.Get(0)) and Then
  Private num As Int = status.Get(0)
  If num < 5 Then
    num = num + 1
    status.Set(0,num)
    File.WriteList(File.DirInternal,"status.txt",status)
  Else
    Declare Your Comment Activity.
End If

اینجا هم میگم متن فایل تکست اگر از نوع عددی بود بیا بریز داخل متغییر اینتجر و بعد چک کن کوچیکتر از 5 بود یکی بهش اضافه کن و فایل تکستی که داخل حافظس اپدیتش کن با مقدار جدید

و اگر کوچیکتر نبود که میاد کار مورد نظر شمارو انجام میده که شما میخوایید اکتویتی رو باز کنه یا به نظرت منتقل بشه.