سوال راجب ساعت و تاریخ

[ali2016 54]

سلام 

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

یعنی اگه کاربر از ساعت 2 تا 4.30 نبوده در برنامه بگه شما 2.30 در برنامه نبودید.

 

 

 

لطفا کمکم کنید     

 

 

 

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

اول: تو متد activity_pause  اون اکتیویتی که کاربر ارتباطش با برنامت قطع میشه  کارهای زیر رو انجام بده

Sub Activity_Pause (UserClosed As Boolean)
If UserClosed Then
	Dim hour As Int=DateTime.GetHour(DateTime.Now)
	Dim  minut As Int=DateTime.GetMinute(DateTime.Now)
	Dim second As Int=DateTime.GetSecond(DateTime.Now)
	Dim ar As AriaSharedPreferences
	ar.SaveInt("hour",hour)
	ar.SaveInt("minut",minut)
	ar.SaveInt("second",second)
End If
End Sub

اینجا اومدیم ساعت دقیقه و ثانیه فعلی رو سیو کردیم

حالا تو activity_creat اولین اکتیویتی که کاربر با ui برنامت ارتباط برقرار میکنه(اسپلش نه ها) این ها رو بنویس

Sub Activity_Create(FirstTime As Boolean)
	Dim ar As AriaSharedPreferences
Dim hour As Int=DateTime.GetHour(DateTime.Now)-ar.GetInt("hour",0)
	Dim  minut As Int=DateTime.GetMinute(DateTime.Now)-ar.GetInt("minut",0)
	Dim second As Int=DateTime.GetSecond(DateTime.Now)-ar.GetInt("second",0)
Dim msg As String=" شما"&hour&"ساعت و "& minut&"دقیقه و "&second&"ثانیه از برنامه خارج بوده اید"
ToastMessageShow(msg,False)
End Sub

کدها واضحه فک نکنم نیاز به توضیح باشه

فقط دقت کن فرض بر اینه که مدت بیرون بودن از برنامت بیشتر از یه روز نشه اگه بیشتر از یه روز میشه دیگه خودتون روز رو هم به همین شکل اضافه کنید

موفق باشید

[ali2016 54]

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

اینم لینکش

برای رفتن به تایپیک مورد نظر کلیک کنید

 

باز هم ممنونم

[ali2016 54]

ببخشید یه سوال دیگه برام پیش اومد

این کدی که شما دادید

در صورتی کار میکنه که برنامه به طور عادی close بشه

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

میشه کمکم کنید؟؟؟      

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

این به این خاطره که وقتی با دکمه home میره بیرون UserClosed مقدارش false هست بنابر این کدهایی که توی بلوک if هست اجرا نمیشه که با برداشتن if این مشکل هم حل میشه به شکل زیر میشه عزیز

Sub Activity_Pause (UserClosed As Boolean)
	Dim hour As Int=DateTime.GetHour(DateTime.Now)
	Dim  minut As Int=DateTime.GetMinute(DateTime.Now)
	Dim second As Int=DateTime.GetSecond(DateTime.Now)
	Dim ar As AriaSharedPreferences
	ar.SaveInt("hour",hour)
	ar.SaveInt("minut",minut)
	ar.SaveInt("second",second)
End Sub