#Region Service Attributes
#StartAtBoot: False
#End Region
Sub Process_Globals
Dim n As Int
End Sub
Sub Service_Create
n=0
End Sub
Sub Service_Start (StartingIntent As Intent)
Service.StopAutomaticForeground 'Call this when the background task completes (if there is one)
n=n+1
StartServiceAt("service1",DateTime.Now+1000,True)
CallSub2(Main,"f1",n)
End Sub
Sub Service_Destroy
End Sub
و این کد های اکتیویتی main :
#Region Project Attributes
#ApplicationLabel: B4A Example
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
End Sub
Sub Globals
Private Button1 As Button
Private Button2 As Button
Private Label1 As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Button2_Click
StopService(service1)
End Sub
Sub Button1_Click
StartService(service1)
End Sub
Public Sub f1 (j As Int)
Label1.Text=j
End Sub
ولی وقتی برنامه رو اجرا میکنم به جایی که بیاد هر یک ثانیه مقدار n رو زیاد کنه هر 5 ثانیه اضافه میکنه لطفا کمک کنید
سوال
Mralihjz 0
سلام من یه سرویس درست کردم به این صورت:
#Region Service Attributes #StartAtBoot: False #End Region Sub Process_Globals Dim n As Int End Sub Sub Service_Create n=0 End Sub Sub Service_Start (StartingIntent As Intent) Service.StopAutomaticForeground 'Call this when the background task completes (if there is one) n=n+1 StartServiceAt("service1",DateTime.Now+1000,True) CallSub2(Main,"f1",n) End Sub Sub Service_Destroy End Sub
و این کد های اکتیویتی main :
#Region Project Attributes #ApplicationLabel: B4A Example #VersionCode: 1 #VersionName: 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: unspecified #CanInstallToExternalStorage: False #End Region #Region Activity Attributes #FullScreen: False #IncludeTitle: True #End Region Sub Process_Globals End Sub Sub Globals Private Button1 As Button Private Button2 As Button Private Label1 As Label End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("1") End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub Button2_Click StopService(service1) End Sub Sub Button1_Click StartService(service1) End Sub Public Sub f1 (j As Int) Label1.Text=j End Sub
ولی وقتی برنامه رو اجرا میکنم به جایی که بیاد هر یک ثانیه مقدار n رو زیاد کنه هر 5 ثانیه اضافه میکنه لطفا کمک کنید
لینک ارسال
به اشتراک گذاری در سایت های دیگر
2 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.