مشکل با job done

[babi.jonz 60]

سلام

من وقتی اطلاعات رو به دیتابیس انلاین میفرستم وقتی تو جاب دان میگم که if sucses بیا برو اکتیویتی فلان میره اون اکتیویتی و دوباره برمیگرده تو اکتیویتی که همون جاب دان اونجا بود

مشکل از کجاست؟

[babi.jonz 60]

Up

[Ali BBH 27]

نمونه کدتو بفرست

[babi.jonz 60]

کسی نیست به این مشکل برخورده باشه و حلش کرده باشه؟

[مهدی ایزدی 9,203]

در 12 ساعت قبل، babi.jonz گفته است :

کسی نیست به این مشکل برخورده باشه و حلش کرده باشه؟

قربون شکل ماهت برم شما مگه پیام siavash رو ندیدید ؟

بهتون گفته لطفا کدتون رو بزارید تا بررسی کنیم دیگه

نمیشه که توی هوا حدس زد چرا برمیگرده به اکتیویتی قبلی :||:

[mehrabmmp 528]

سلام 

دوست عزیز لطفا کد هاتونو قرار بدید تا بررسی کنیم ما که علم غیب نداریم بفهمیم مشکل از جداست

[babi.jonz 60]

#Region  Activity Attributes 
#FullScreen: False 
#IncludeTitle: True
#End Region

Sub Process_Globals
End Sub

Sub Globals
Dim asp As AriaSharedPreferences
Private Button1 As Button
Dim send As HttpJob
Dim mem As HttpJob
Dim memb As HttpJob
End Sub


Sub Activity_Create(FirstTime As Boolean)
     Activity.LoadLayout("yes")
            memb.Initialize("memb", Me)
	        send.Initialize("send",Me)
            mem.Initialize("mem", Me)
            mem.Download2("http://www.example.ir/example/example.php", _
            Array As String("name", "babak"))


        
    
End Sub

Sub Activity_Resume
	
End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
Dim data As Map
data.Initialize
Dim gen As JSONGenerator
data.Put("new",EditText1.Text)
gen.Initialize(data)
gen.Initialize2(Array As String(EditText1.Text))
send.Download2("http://example.ir/example/1.php",Array As String ("myjson",gen.ToString))
EditText1.Text=""
End Sub

Sub activity_keypress (keycode As Int) As Boolean
If keycode = KeyCodes.KEYCODE_BACK  Then	
memb.Download2("http://www.example.ir/example/example.php", _
Array As String("nam", "babak"))
End If
End Sub

Sub jobDone(job As HttpJob)
	ProgressDialogHide
If job.Success = True Then
     Select job.JobName
			Case "mem"

			Case "memb"
				
                   StartActivity(second)
                  Activity.Finish
                  
			Case "send"

				
					
	End Select
Else
	ToastMessageShow("Error sending request.", True)
	End If
Job.Release
End Sub

 

[amir1999 81]

توی اکتویتی second چی نوشتی؟

[Ali BBH 27]

در در 1395/06/17, 14:05:20، babi.jonz گفته است :

#Region  Activity Attributes 
#FullScreen: False 
#IncludeTitle: True
#End Region

Sub Process_Globals
End Sub

Sub Globals
Dim asp As AriaSharedPreferences
Private Button1 As Button
Dim send As HttpJob
Dim mem As HttpJob
Dim memb As HttpJob
End Sub


Sub Activity_Create(FirstTime As Boolean)
     Activity.LoadLayout("yes")
            memb.Initialize("memb", Me)
	        send.Initialize("send",Me)
            mem.Initialize("mem", Me)
            mem.Download2("http://www.example.ir/example/example.php", _
            Array As String("name", "babak"))


        
    
End Sub

Sub Activity_Resume
	
End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
Dim data As Map
data.Initialize
Dim gen As JSONGenerator
data.Put("new",EditText1.Text)
gen.Initialize(data)
gen.Initialize2(Array As String(EditText1.Text))
send.Download2("http://example.ir/example/1.php",Array As String ("myjson",gen.ToString))
EditText1.Text=""
End Sub

Sub activity_keypress (keycode As Int) As Boolean
If keycode = KeyCodes.KEYCODE_BACK  Then	
memb.Download2("http://www.example.ir/example/example.php", _
Array As String("nam", "babak"))
End If
End Sub

Sub jobDone(job As HttpJob)
	ProgressDialogHide
If job.Success = True Then
     Select job.JobName
			Case "mem"

			Case "memb"
				
                   StartActivity(second)
                  Activity.Finish
                  
			Case "send"

				
					
	End Select
Else
	ToastMessageShow("Error sending request.", True)
	End If
Job.Release
End Sub

 

/:

[babi.jonz 60]

در ۱ ساعت قبل، siavash گفته است :

خخخخ عزیزه من خب شما اومدی اول اکتیویتی second رواستارت کردی بعد فینیشش کردی حالا میخوای برنگرده به اکتیویتی main?

جای این دوتا رو عوض کنید

وقتی بهتون میگم نمونه کد بدین بخاطر همین میگم گاهی اوقات اشتباهات کوچیک باعث مشکلاتی میشن که فکر میکنیم خیلی بزرگن

تو اصلا   b4a کار کردی؟

گفتم برو اکتیویتی دوم بعد این اکتیویتی رو ببند چه ربطی به اکتیویتی دوم داره ؟

شما اول برو آموزش مبتدی رو یاد بگیر بعد از من کد بخواه که راهنمایی کنی :/

 اون دوست عزیزی هم که سوال کرده بود تو اکتیویتیsecondچی نوشتم 

باید بگم که هیچی ننوشتم خالیه، شاید احساس کنید که تو اکتیویتی کریتش نوشته باشم که که برگرد به اکتیویتی main ولی نه اینجور نیست چون اکتیویتی second فعلا خالیه

[babi.jonz 60]

کد هم که دادم کمک کنید دیگه :|

[مهدی ایزدی 9,203]

من واقعا نتونستم مشکلی توی این کدهاتون پیدا کنم

قانونا باید ActivityFinish بشه و دیگه توی اکتیویتی نیاد مگه اینکه خودمون اون رو دوباره Start کنیم !!!

[abdgod 16]

در در 1395/06/17, 14:05:20، babi.jonz گفته است :

#Region  Activity Attributes 
#FullScreen: False 
#IncludeTitle: True
#End Region

Sub Process_Globals
End Sub

Sub Globals
Dim asp As AriaSharedPreferences
Private Button1 As Button
Dim send As HttpJob
Dim mem As HttpJob
Dim memb As HttpJob
End Sub


Sub Activity_Create(FirstTime As Boolean)
     Activity.LoadLayout("yes")
            memb.Initialize("memb", Me)
	        send.Initialize("send",Me)
            mem.Initialize("mem", Me)
            mem.Download2("http://www.example.ir/example/example.php", _
            Array As String("name", "babak"))


        
    
End Sub

Sub Activity_Resume
	
End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
Dim data As Map
data.Initialize
Dim gen As JSONGenerator
data.Put("new",EditText1.Text)
gen.Initialize(data)
gen.Initialize2(Array As String(EditText1.Text))
send.Download2("http://example.ir/example/1.php",Array As String ("myjson",gen.ToString))
EditText1.Text=""
End Sub

Sub activity_keypress (keycode As Int) As Boolean
If keycode = KeyCodes.KEYCODE_BACK  Then	
memb.Download2("http://www.example.ir/example/example.php", _
Array As String("nam", "babak"))
End If
End Sub

Sub jobDone(job As HttpJob)
	ProgressDialogHide
If job.Success = True Then
     Select job.JobName
			Case "mem"

			Case "memb"
				
                   StartActivity(second)
                  Activity.Finish
                  
			Case "send"

				
					
	End Select
Else
	ToastMessageShow("Error sending request.", True)
	End If
Job.Release
End Sub

 

با این کد سرویس رو ببند

StopService(httputils2service)

این کد رو به آخر رویداد jobDone  به ریز