علیرضا.ا
جمعه 10 آبان 1392, 16:38 عصر
سلام
چجوری میتونم بین دو تا دستور یه وقفه ی زمانی ایجاد کنم؟
از تایمر نمیخام استفاده کنم
تابع sleep هم باعث تو هنگ بودن برنامه میشه و اصلا هیچی پیدا نیست و ادامه پیدا نمیکنه!
از این تابع استفاده میکنم:
Sub Delay(ByVal dblSecs As Double)
Const OneSec As Double = 1.0# / (1440.0# * 60.0#)
Dim dbldelayTil As Date
Now.AddSeconds(OneSec)
dbldelayTil = Now.AddSeconds(OneSec).AddSeconds(dblSecs)
Do Until Now > dbldelayTil
Application.DoEvents()
Loop
End Sub
ولی به شدت CPU مصرف میکنه ( حدود 50% )
تابع مشابهی هست/؟
چجوری میتونم بین دو تا دستور یه وقفه ی زمانی ایجاد کنم؟
از تایمر نمیخام استفاده کنم
تابع sleep هم باعث تو هنگ بودن برنامه میشه و اصلا هیچی پیدا نیست و ادامه پیدا نمیکنه!
از این تابع استفاده میکنم:
Sub Delay(ByVal dblSecs As Double)
Const OneSec As Double = 1.0# / (1440.0# * 60.0#)
Dim dbldelayTil As Date
Now.AddSeconds(OneSec)
dbldelayTil = Now.AddSeconds(OneSec).AddSeconds(dblSecs)
Do Until Now > dbldelayTil
Application.DoEvents()
Loop
End Sub
ولی به شدت CPU مصرف میکنه ( حدود 50% )
تابع مشابهی هست/؟