تکرار کد هر 30 ثانیه

[Radius 89]

سلام

ببخشید من یه کد دارم که میخوام هر 30 ثانیه یک بار اجرا بشه

امکانش هست کمک کنید 

[majerajoo 161]

سلام

شما اول یه متغیر از نوع تایمر تعریف کنید توی پراسس گلوبال

Sub Process_Globals

Dim t As Timer

End Sub

 

سپس اون رو توی اکتیوتی کریت فعال سازی کنید با زمان دلخواه که 30000 میلی ثانیه میشه 30 ثانیه

t.Initialize("t",30000)
t.Enabled = True

 

حالا میایم ساب زیر رو توی صقحه میزاریم و دستور مورد نظرمون رو توش مینویسیم 

Sub t_Tick
	
	کدهای مورد نظر

End Sub

 

اونجایی که نوشتم کدهای مورن نظر میتونید کد خودتون رو بنویسید که میخواید هر 30 ثانیه اجرا بشه

تا وقتی هم که توی این ساب کد زیر رو ننویسد این کد همچنان اجرا میشه

t.Enabled = False