اجرای کاری در زمان مشخص و توقف آن

[Mr Programer 0]

سلام.من با کتابخونه PersianAlarmManager آقای شاهپیری میخواهم هر 15 دقیقه  در پس زمینه بمدت 5 دقیقه صدا ضبط کنم و بعد دوباره 15 دقیقه بگذرد و دوباره شروع به ضبط کند

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

سلام و درود

حتما آموزش کار با کتابخونه رو ببینید

اول یه سرویس که باید بسازید برای اجرای آلارم به نام AlarmService و متد زیر رو اجرا کنید.

 

Sub setAlarm
	Dim prmodel As PersianAlarmModel
	prmodel.initialize(AlarmService)
	Dim prtime As PersianTimeUtils
	prtime.initialize
	Dim time As Long=prtime.GetTimeInMillis+15*60*1000
	pralarm.setExact(prmodel,pralarm.AlarmManager_RTC_WAKEUP,pralarm.FLAG_UPDATE_CURRENT,1,pralarm.TimeUnit_MILLISECONDS,time)
End Sub

 

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

#Region  Service Attributes 
	#StartAtBoot: False
#End Region

Sub Process_Globals

End Sub

Sub Service_Create

End Sub

Sub Service_Start (StartingIntent As Intent)
' اول 5 دقیقه رکورد کن
' حالا دوباره آلارم رو تنظیم کن
setAlarm
End Sub

Sub Service_Destroy

End Sub

 

[Mr Programer 0]

چطوری بزارم پنج دقیقه ضبط کنه من با این مشکل دارم.