• 0
taha1371

مسیج باکس

سوال

سلام من کدزیر کذاشتم برا مسیج باکس و میخوام بعد از این که 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 

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


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

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

  • 0

 

سلام من کدزیر کذاشتم برا مسیج باکس و میخوام بعد از این که 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 

Sub Process_Globals
Dim show As String
Dim i As Int
End Sub
Sub Globals
	Dim dialog As CustomDialog
	Dim check As CheckBox
End Sub

Sub Activity_Create(FirstTime As Boolean)

    i=i+1
    Dim list1 As List
    list1.Initialize
    list1.Add(show)
    File.WriteList(File.DirInternal,"settings.stg",list1)
    Activity.LoadLayout("ss1")
    If i = 5 Then
    check.Initialize("")
    check.Text = "دیگه نمایش نده"
    dialog.AddView(check,5%x,5%y,70%x,15%y)
    dialog.Show("نظر دهی","نظر میدم","","نمیدم",Null)
    Else
    End If

End Sub
 

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

H@mid.RS و Sina پسند شده است

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


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

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

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

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !


ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید


ورود به حساب کاربری