نمایش پیغام فقط برای 1 بار

[mehrabmmp 528]

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

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

درود

به این صورت میتونید کاری کنید که فقط یک بار پیغام به برنامه خوش آمدید رو به کاربر نشون بده

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Layout1")
	If File.Exists(File.DirInternal,"check.b4a") = False Then
		File.WriteString(File.DirInternal,"check.b4a","www.AnswerCenter.ir")
		Msgbox("به برنامه خوش آمدید","پیغام")
	End If
End Sub

از طریق بررسی وجود فایل و ایجاد اون فایل اومدیم همچین کاری رو انجام دادیم 

[shahab.es 5,429]

سلام

برای سوال اولت که یه فایل .txt خالی رو بذار توی پوشه files

کد زیر رو بنویس...

if file.exist(file.dirInternal,"shahab.txt") = false then
file.copy(file.dirAssets,"shahab.txt",file.dirinternal,"shahab.txt")
end if
dim str as string = file.readstring(file.dirinternal,"shahab.txt")
if str = "" then
'bare avvale'
file.writestring(file.dirinternal,"shahab.txt","done")
else 
'bare avval nist'
end if

برای سوال دومت هم باز یه فایل .txt قرار بده

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

file.writestring(file.dirinternal,"shahab.txt",edittext1.text)

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

lbl.text = file.readstring(file.dirinternal,"shahab.txt")

---

تداخل پاسخی پیش اومد

[amir mahdizadeh 109]

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

سلام دوست عزیز شما باید یه فایل txt توی گوشی ذخیره کنی بعدش هر بار چک کنی اگه فایل txt وجود نداشت پیغام نمایش داده بشه در غیر این صورت پیغام نمایش داده نمیشود

با کد زیر میتونی یه فایل txt بسازی و دخیره کنی

File.WriteString(File.DirRootExternal,"first.txt,"")

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

If File.Exists(File.DirRootExternal,"first.txt") = False Then
	ToastMessageShow("نمایش پیغام مورد نظر برای بار اول")
End If

دوست خوبم موفق باشی

[mehrabmmp 528]

درود

به این صورت میتونید کاری کنید که فقط یک بار پیغام به برنامه خوش آمدید رو به کاربر نشون بده

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Layout1")
	If File.Exists(File.DirInternal,"check.b4a") = False Then
		File.WriteString(File.DirInternal,"check.b4a","www.AnswerCenter.ir")
		Msgbox("به برنامه خوش آمدید","پیغام")
	End If
End Sub

از طریق بررسی وجود فایل و ایجاد اون فایل اومدیم همچین کاری رو انجام دادیم 

درود

مرسی

[mehrabmmp 528]

سلام

برای سوال اولت که یه فایل .txt خالی رو بذار توی پوشه files

کد زیر رو بنویس...

if file.exist(file.dirInternal,"shahab.txt") = false then
file.copy(file.dirAssets,"shahab.txt",file.dirinternal,"shahab.txt")
end if
dim str as string = file.readstring(file.dirinternal,"shahab.txt")
if str = "" then
'bare avvale'
file.writestring(file.dirinternal,"shahab.txt","done")
else 
'bare avval nist'
end if

برای سوال دومت هم باز یه فایل .txt قرار بده

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

file.writestring(file.dirinternal,"shahab.txt",edittext1.text)

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

lbl.text = file.readstring(file.dirinternal,"shahab.txt")

---

تداخل پاسخی پیش اومد

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

[shahab.es 5,429]

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

خط اولش میاد و وقتی بار اول هست، متن ادیت تکست رو مثلا میریزه توی یه فایلی(متنی که کاربر میده)

کد دوم هم هر بار میاد(اجراهای بعدی) متن فایل رو (که در اجرای اول دادیم) میده به لیبل

[mehrabmmp 528]

سلام دوست عزیز شما باید یه فایل txt توی گوشی ذخیره کنی بعدش هر بار چک کنی اگه فایل txt وجود نداشت پیغام نمایش داده بشه در غیر این صورت پیغام نمایش داده نمیشود

با کد زیر میتونی یه فایل txt بسازی و دخیره کنی

File.WriteString(File.DirRootExternal,"first.txt,"")

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

If File.Exists(File.DirRootExternal,"first.txt") = False Then
	ToastMessageShow("نمایش پیغام مورد نظر برای بار اول")
End If

دوست خوبم موفق باشی

خیلی ممنون

[mehrabmmp 528]

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

خط اولش میاد و وقتی بار اول هست، متن ادیت تکست رو مثلا میریزه توی یه فایلی(متنی که کاربر میده)

کد دوم هم هر بار میاد(اجراهای بعدی) متن فایل رو (که در اجرای اول دادیم) میده به لیبل

اهان بله متوجه شدم