تا کدها رو داخل سرویس می نویسم درست کامپایل میشه.اما تا سرویس اجرا میشه برنامه خطا میده.
اینم کد:
#Region Service Attributes
#StartAtBoot: true
#StartCommandReturnValue: android.app.Service.START_STICKY
#End Region
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim Counter As Int
Dim N As Notification
End Sub
Sub Service_Create
n.Initialize
n.Icon = "icon"
n.Sound = False
n.Vibrate = False
n.Light = False
n.OnGoingEvent=True
n.SetInfo("Start","ControlBluetooth", Main)
n.Notify(1)
End Sub
Sub Service_Start (StartingIntent As Intent)
Counter = Counter+1
n.SetInfo("Android",Counter, Main)
If Counter = 20 Then
Dim time() As String = Regex.Split(":",DateTime.time(DateTime.Now))
Msgbox("Saat:" & time(0) & ", Daqiqe:" & time(1),"Time:")
StopService("ServiceM")
End If
StartServiceAt("", DateTime.Now + 60000*5,True)
n.Notify(1)
StartServiceAt("",DateTime.Now+DateTime.TicksPerSecond,True)
End Sub
Sub Service_Destroy
n.Cancel(1)
StartService("")
End Sub
سوال
Mostafanet 21
سلام به اساتید گرامی.
یه برنامه دارم مینویسم که سرویس سرکاردارد.
تا کدها رو داخل سرویس می نویسم درست کامپایل میشه.اما تا سرویس اجرا میشه برنامه خطا میده.
اینم کد:
#Region Service Attributes #StartAtBoot: true #StartCommandReturnValue: android.app.Service.START_STICKY #End Region Sub Process_Globals 'These global variables will be declared once when the application starts. 'These variables can be accessed from all modules. Dim Counter As Int Dim N As Notification End Sub Sub Service_Create n.Initialize n.Icon = "icon" n.Sound = False n.Vibrate = False n.Light = False n.OnGoingEvent=True n.SetInfo("Start","ControlBluetooth", Main) n.Notify(1) End Sub Sub Service_Start (StartingIntent As Intent) Counter = Counter+1 n.SetInfo("Android",Counter, Main) If Counter = 20 Then Dim time() As String = Regex.Split(":",DateTime.time(DateTime.Now)) Msgbox("Saat:" & time(0) & ", Daqiqe:" & time(1),"Time:") StopService("ServiceM") End If StartServiceAt("", DateTime.Now + 60000*5,True) n.Notify(1) StartServiceAt("",DateTime.Now+DateTime.TicksPerSecond,True) End Sub Sub Service_Destroy n.Cancel(1) StartService("") End Sub///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
لطفا کمک کنید.
لینک ارسال
به اشتراک گذاری در سایت های دیگر
9 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.