سلام و درود
حتما آموزش کار با کتابخونه رو ببینید
اول یه سرویس که باید بسازید برای اجرای آلارم به نام 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