تغییرات نسخه اخیر در msgbox فقط یکبار

[basicofdata 99]

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

 

 

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

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

ببینید دوست عزیز همیشه قبل از اینکه کاری رو انجام بدین اول اون کارو درک و هضم کنید اینجوری خیلی ساده میشه    

دوتا کتابخونه phone و ariasheardprefrence رو تیک بزنید و کارهای زیر رو انجام بدین تو ی activity_create انجام بدین

Dim ph As PackageManager
Dim ah As AriaSharedPreferences
Dim ver As Int=ah.GetInt("version",0)
	If ph.GetVersionCode("yourpakagename")>ver Then
	ToastMessageShow("تغییرات نسخه جدید",False)
	End If
	ah.SaveInt("version",ph.GetVersionCode("yourpakagename"))

به جای yourpakagename نام پکیج برنامه تون رو بنویسید فقط دقت دقت کنید که اینجا ما از versioncode استفاده کردیم که خیلی بهتره چون تو هرورژن قطعا باید بیشتر بشه

[basicofdata 99]

نچ

 

هرچی هست مشکل اینه " "

با سلام من بعد از این ارور هیچ تغییری بهش ندادم و فقط گزاشتم روی  حالت دیباگ و اجرا که کردمش نه اروری داد نه پیام یعنی الان ورژنو ببرم بالا پیام داده میشه ؟

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

بله هموطن من چندین بار تستش کردم اوکیه

[basicofdata 99]

بله هموطن من چندین بار تستش کردم اوکیه

ممنونم ازتون که کمکم کردید

[basicofdata 99]

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

	dim verxen as int
        If verxen = 2 Then 'هر دفعه برای اپدیت این ورژن تغییر میکند
		
	Else
		Msgbox("اضافه شدن تبلیغات عدد","تغیرات نسخه اخیر")
		verxen = 2
	End If

[basicofdata 99]

سلام

همونطور که اقای شاهپیری گفتن عمل کنید

فقط برای سیو اطلاعات که بعدا چک کنید ، از شیر پرفرنس یا فایل متنی استفاده کنید

شیپرفرنس رو میتونید از ariaSharedPrefrence استفاده کنید

برای فایل متنی هم به شکل زیر کار کنید...

فقط، توی این مثال، متن مسیج باکس متغیر s1 هست

ورژن برنامه توی متغیر int1....

 

برای بار اول این مقادیر رو بعد از نمایش تغییرات ذخیره میکنی

dim int1 as int'version
dim s1 as string ' matne msg

dim verJadid as int' versioni ke daryaf mikoni az server...

int1 = file.readstring(file.dirinternal,"test.txt")


if int1 < verJadid then
file.writestring(file.dirinternal,"test.txt",verJadid)
msgbox(s1,"تغییرات نسخه جدید")
else
msgbox("نسخه ی جدیدی موجود نیست","تغییرات نسخه جدید")
end if

این کد میاد و چک میکنه که اگه عدد موجود توی فایل test.txt کوچیکتر از ورژنی که از سرور گرفتی بود(یعنی ورژن جدید برنامه بیشتر و اپدیت داشتی) میاد و تغییراتی که داشتی رو نمایش میده و ورژن جدید رو برای چک بعدی میریزه توی این فایل

اگرم نه که هیچ...

فکر کنم ماله شما بهتره 

فقط یک چیز اونجا میشه نوشت

Dim s1 As String = "اضافه شدن ....."
Dim verJadid As Int = 2

و بعد از هر اپدیت اینو ببرم بالا؟

 

 

در ضمن با کتابخانه ariaSharedPrefrence چجوی کار کنم کد می خواد

[shahab.es 5,429]

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

[basicofdata 99]

پس این ارور چیه

[basicofdata 99]

نچ

 

هرچی هست مشکل اینه " "

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

کدهایی که تو عکسه هیچ مشکلی نداره من خودم تست کردم و خیلی عالی کار میکنه فقط دقت کنید package نیمتون رو اشتباه وارد نکنید

مشکل از جای دیگه اس تو عکس ارور مربوط به NumberFormatException هستش که کاملا واضحه چیه شما از اعداد درست استفاده نکردین یعنی به جای هم استفاده کردین

رو حالت debug بزارین ببینین دقیقا رو چه خطی ارور میده

[basicofdata 99]

فعلا داره ارور temp.ap_ میده بعدا چک میکنم

[basicofdata 99]

در حالت دیباگ اجرا کردم نه اروری داد نه پیام داد

[basicofdata 99]

در حالت ریلیز هم اجرا کردم نه اروری داد نه پیام داد

هیچ تغیری حالا خوبه بهش نداده بودم

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

کاری نداره که

دوتا متغیر احتیاج داری یکی ورژن برنامه رو بگیره  و ذخیره کنه یکی هم واسه نمایش مسیج باکس برای یک باره که ازنوع بولینه

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

[shahab.es 5,429]

سلام

همونطور که اقای شاهپیری گفتن عمل کنید

فقط برای سیو اطلاعات که بعدا چک کنید ، از شیر پرفرنس یا فایل متنی استفاده کنید

شیپرفرنس رو میتونید از ariaSharedPrefrence استفاده کنید

برای فایل متنی هم به شکل زیر کار کنید...

فقط، توی این مثال، متن مسیج باکس متغیر s1 هست

ورژن برنامه توی متغیر int1....

 

برای بار اول این مقادیر رو بعد از نمایش تغییرات ذخیره میکنی

dim int1 as int'version
dim s1 as string ' matne msg

dim verJadid as int' versioni ke daryaf mikoni az server...

int1 = file.readstring(file.dirinternal,"test.txt")


if int1 < verJadid then
file.writestring(file.dirinternal,"test.txt",verJadid)
msgbox(s1,"تغییرات نسخه جدید")
else
msgbox("نسخه ی جدیدی موجود نیست","تغییرات نسخه جدید")
end if

این کد میاد و چک میکنه که اگه عدد موجود توی فایل test.txt کوچیکتر از ورژنی که از سرور گرفتی بود(یعنی ورژن جدید برنامه بیشتر و اپدیت داشتی) میاد و تغییراتی که داشتی رو نمایش میده و ورژن جدید رو برای چک بعدی میریزه توی این فایل

اگرم نه که هیچ...