Welcome to بیسیک فور ایکس

Register now to gain access to all of our features. Once registered and logged in, you will be able to contribute to this site by submitting your own content or replying to existing content. You'll be able to customize your profile, receive reputation points as a reward for submitting content, while also communicating with other members via your own private inbox, plus much more! This message will be removed once you have signed in.

  • 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

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


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

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

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

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

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


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

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

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


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