نیازی نیست هر دفه PersianAlarmManager تعریف کنید. هیچ دلیلی نداره که درست کار نکنه یا قاطی کنه به قول شما مگر اینکه اشتباه کانفیگ کرده باشید. ساب زیر رو برای ست کردن آلارم میتونید استفاده کنید
Private Sub addAlarm(pr As PersianAlarmManager, Alarm As Object,request As Int,interval As Int)
Dim alarmmodel As PersianAlarmModel
alarmmodel.initialize(Alarm)
pr.setRepeating(alarmmodel,pr.AlarmManager_RTC_WAKEUP,pr.FLAG_UPDATE_CURRENT,request,pr.TimeUnit_MINUTES,0,interval)
End Sub
به این شکل هم میتونید الارم ست کنید.
Dim pr As PersianAlarmManager
addAlarm(pr,alarm1,12,10)
addAlarm(pr,alarm2,13,15)