وقفه در دستورات سرویس

[hosseinkarimian 100]

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

 

Sub Sleep(ms As Long)
	Try
Dim now As Long
   If ms > 1000 Then ms =1000   'avoid application not responding error
   now=DateTime.Now
   Do Until (DateTime.Now>now+ms)
     DoEvents
   Loop
   Catch
	Log(LastException)
End Try
End Sub

یعنی من میخواهم در سرویس یک وقفه 10 ثانیه ای ایجاد کنم .چطوریه

[محمدرضا شاهپیری 5,525]

از این متد استفاده کنید عزیز هم توی سرویس و هم توی اکتیویتی وقفه ایجاد میکنه. زمان به ثانیه بدین. مثلا 3 یا 4 

Sub sleap(secound As Int)
   Dim t As Long
   t = DateTime.Now + (secound * 1000)
   Do While DateTime.Now < t
      DoEvents
   Loop
End Sub