ورود

View Full Version : دستور برای ایجاد تاخیر چند ثانیه ای ؟؟



goldpower
جمعه 11 فروردین 1391, 00:26 صبح
دوستان دستوری وجود داره که بشه با اون در برنامه تاخیر چند ثانیه ای ایجاد کرد ؟

Veteran
جمعه 11 فروردین 1391, 00:35 صبح
بله دستور sleep هست (api) اما خب برنامه هنگ میکنه
بهتره برای وقفه از یک تایمر استفاده کنین
یک تایمر رو فعال کنین بعد مثلا گذشت 3 ثانیه کد اجرا بشه
بعد تایمر از کار بیفته

البته شاید دستوری برای اینکار باشه.

MohammadGh2011
جمعه 11 فروردین 1391, 00:43 صبح
دوستان دستوری وجود داره که بشه با اون در برنامه تاخیر چند ثانیه ای ایجاد کرد ؟
سلام عليکم
منظورتون رو درست متوجه نشدم،منظورتون اينه که برنامه رو که اجرا کرديم بعد از چند ثانيه اجرابشه؟

goldpower
جمعه 11 فروردین 1391, 00:45 صبح
بله دستور sleep هست (api) اما خب برنامه هنگ میکنه
بهتره برای وقفه از یک تایمر استفاده کنین
یک تایمر رو فعال کنین بعد مثلا گذشت 3 ثانیه کد اجرا بشه
بعد تایمر از کار بیفته

البته شاید دستوری برای اینکار باشه.

می شه یه نمونه بزارید

goldpower
جمعه 11 فروردین 1391, 00:47 صبح
سلام عليکم
منظورتون رو درست متوجه نشدم،منظورتون اينه که برنامه رو که اجرا کرديم بعد از چند ثانيه اجرابشه؟


می خوام که هر موقع یه دکمه خاص رو فشار دادم نتیجشو 5 ثانیه بعد تو برنامه نشون بده

MohammadGh2011
جمعه 11 فروردین 1391, 00:56 صبح
شما به همون روشي که جناب Veteran فرمودند عمل کنيد که بهترين روش براي اينکار ميتونه باشه.


موفق باشيد

butterfly8528
جمعه 11 فروردین 1391, 02:55 صبح
سلام دوست عزیز .
Public Sub Pause(interval)
Dim X
X = Timer

Do While Timer - X < Val(interval)
DoEvents
Loop

End Sub


Private Sub Form_Load()
Call Pause(3)
MsgBox "arshamsoft.com"
End Sub

موفق باشید .

محسن واژدی
جمعه 11 فروردین 1391, 10:44 صبح
سلام
همچنین میتوانید کدها را در یک تایمر با Interval=5000ms و وضعیت Enabled=False قرار دهید، سپس با فشرد کلید وضعیت Enabled تایمر را True کنید تا پس از 5ثانیه دستورات روال تایمر اجرا شوند

موفق باشید