شرمنده
کد تنظیم هشدار
Dim prmodel As PersianAlarmModel
prmodel.initialize(AlarmService)
prmodel.putStringExtra("keytime1",dif_time2)
pralarm.setRepeating(prmodel,pralarm.AlarmManager_RTC_WAKEUP,pralarm.FLAG_UPDATE_CURRENT,1,pralarm.TimeUnit_SECONDS,20,20)
کد سرویس هم این هستش
#Region Service Attributes
#StartAtBoot: False
#End Region
Sub Process_Globals
End Sub
Sub Service_Create
End Sub
Sub Service_Start (StartingIntent As Intent)
Service.StopAutomaticForeground
Dim alarmmdl As PersianAlarmModel
Dim almid As String=StartingIntent.GetExtra("keytime1")
alarmmdl.initialize(Null)
Dim n As Notification
CreateNotificationChannel(n.IMPORTANCE_HIGH)
n.Initialize2(n.IMPORTANCE_HIGH)
n.Icon="icon"
n.Sound=True
n.SetInfo("یادآوری","تعداد پیامک های امروز " &almid ,Main)
n.Notify(alarmmdl.GenerateUniqId)
End Sub
Sub CreateNotificationChannel(ImportanceLevel As Int)
Dim p As Phone
If p.SdkVersion>=26 Then
Dim ctxt As JavaObject
ctxt.InitializeContext
Dim channelId As String = "channel_" & ImportanceLevel
Dim channel As JavaObject
channel.InitializeNewInstance("android.app.NotificationChannel",Array(channelId,Application.LabelName,ImportanceLevel))
channel.RunMethod("setShowBad",Array(False))
Dim manager As JavaObject = ctxt.RunMethod("getSystemService",Array("notification"))
manager.RunMethod("createNotificationChannel",Array(channel))
End If
End Sub
Sub Service_Destroy
End Sub
ولی وقتی اجرا می کنم این خطا میاد
java.lang.RuntimeException: Object should first be initialized (PersianAlarmModel).