Hitex_Thread

[hitexroid 105]

مشاهده فایل

Hitex_Thread

---

کتابخونه ای بسیار کاربردی برای اجرای همزمان چند وظیفه بدون فورس کلوز یا افت سرعت

همچنین برای وقفه انداختن بین اجرای کدها (مثلا بگید حلقه هر 1 ثانیه اجرا بشه ...)

_____________________________________________________________________________

ساخته شده توسط صادق نامنی

---

• ارسال کننده
  hitexroid
• ارسال
  جمعه, 1 اردیبهشت 1396
• دسته
  کتابخانه ها

 

[abolfaz.va.matin 24]

با سپاس از پست و کتابخانه حرفه ای شما

 

 ممنون

 

 

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

 

 

#Region  Project Attributes 
	#ApplicationLabel: Hitex_Thread Example
	#VersionCode: 1
	#VersionName: 1.0
	#SupportedOrientations: portrait
	#CanInstallToExternalStorage: False
#End Region

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

Sub Process_Globals
	
End Sub

Sub Globals
	Dim Thread,Thread1 As Hitex_Thread

End Sub

Sub Activity_Create(FirstTime As Boolean)
	Thread.Initialize("Thread").Start(Null)


End Sub




Sub Thread_Run (Value As Object)
	Log(Value)
	
	For i = 0 To 10
		Thread.Sleep(500)
		Log(i)
	Next

	If Thread.IsCompleted Then
			Thread1.Initialize("Thread1").Start(Null)
	End If
	
End Sub



Sub Thread1_Run (Value As Object)
	Log(Value)
	
	For i = 0 To 10
		Thread1.Sleep(500)
		Log(i)
	Next

	If Thread1.IsCompleted Then
		ToastMessageShow("dada", True)
		End If
	
End Sub
Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

 

 

نمیاد توست اول رو بده بعد بره سروقت Thread1 چرا ؟

ویرایش شده در اردیبهشت 96 توسط abolfaz.va.matin

[abolfaz.va.matin 24]

حل شد مشکل از خودم بود ممنون

 

فقط جریان این null بعد از استارت چیه چیزه دیگه ای هم میشه توش نوشت برای چه کاری هست ممنون توضیح مختصری بدید

ویرایش شده در اردیبهشت 96 توسط abolfaz.va.matin

[abolfaz.va.matin 24]

و الان این سورس من 

 

#Region  Project Attributes 
	#ApplicationLabel: Hitex_Thread Example
	#VersionCode: 1
	#VersionName: 1.0
	#SupportedOrientations: portrait
	#CanInstallToExternalStorage: False
#End Region

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

Sub Process_Globals
	
End Sub

Sub Globals
	Dim Thread,Thread1 As Hitex_Thread

End Sub

Sub Activity_Create(FirstTime As Boolean)
	Thread.Initialize("Thread").Start(Null)


End Sub




Sub Thread_Run (Value As Object)
	Log(Value)
	
	For i = 0 To 10
		Thread.Sleep(1)
		Log(i)
	Next

	If Thread.IsCompleted Then
		ToastMessageShow("111", True)
		Thread1.Initialize("Thread1").Start(Null)
	End If
	
End Sub



Sub Thread1_Run (Value As Object)
	Log(Value)
	
	For i = 0 To 10
		Thread1.Sleep(2)
		Log(i)
	Next

	If Thread1.IsCompleted Then
		ToastMessageShow("dada", True)
		Thread.Initialize("Thread").Start(Null)
		End If
	
End Sub
Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

 

 

تو دیباگ کلا Thread ها رو پشت هم اجرا میکنه و لاگ میگیره هر دو رو بدون وقفه 

 

ولی رو ریلیز میزارم  فقط Thread رو لاگ میگیره تا 10 میره و دیگه برنامه لاگ Thread1 رو نمیگیره و همونجا Thread استپ میشه در صورتی که رو دیباگ مشکلی نداره چرا ؟

[hitexroid 105]

سلام خدمت شما ، آرگومان متد Start برای زمانی هست که شما متغیر سراسری ندارید (یعنی متغیر هاشون توی Sub_Globals تعریف نشده (مثل محتویات رویداد onBind در ریسایکلر یا ....))

اونجا میتونید Object مورد نظرتون رو وارد Start کنید و توی رویداد Run دریافتش کنید.