سلام دوستان عزیز . آقا یه وقفه 10 دقیقه ای یا بیشتر می خوام تو برنامه بزارم. به نظرتون چه طوری بزارم؟.یعنی یه سری کد اجرا شده حالا می خوام 10 دقیقه وایسم بعد دوباره شروع کنم. هرکی نظر خود رو بگه.
سلام
یه کامپونت تایمر هست که میتونی راحت ازش استفاده کنی
راه های دیگه هست من ocx timer را بهت پیشنهاد میکنم.
تو گوگل یه سرچی بزن پیداش میکنی
واضحتر بگو حاج محمد !!
اینطوری که من فهمیدم همون تایمر خودمون کار راه اندازه دیگه مشکلت کجاست؟
تو میکرو ما چنین دستوری می ذاریم واسه تاخیر ده دقیقه ای ! ( منظورم بسکامه )
نمی دونم چی ربطی داشت ولی گفتم در جریان باشه کار با میکرو هم راحته !!!
مهدی جان . مشگل حل شد . یه تایمر رو گذاشتم.توش یه if و یه ایندکس که وقتی 10 شد کارو انجام بده.از راهنمایی همه ممنون . علی جان اسپم نفرست.(خنده). 10 درصد اخطار به علی تریپ به دلیل ارسال اسپم.(خنده).
مهدی جان تایمر vb زمان بزرگ نداره . یعنی بالای 1 دقیقه تایمر tik نداره. یا شاید داره من بلد نیستم. من interval رو بزرگ میدم error میده. که حالا با این if حل شد . رفت پی کارش.
از دستور sleep هم بدون نیاز به تایمر می تونید استفاده کنید.
(۰۷-خرداد-۱۳۸۹, ۰۰:۲۱:۳۳)PEA نوشته است: [ -> ]از دستور sleep هم بدون نیاز به تایمر می تونید استفاده کنید.
گفتم شاید بعضی ها متوجه منظورم نشده باشند،
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Me.Caption = "Your system will sleep 5 sec."
Sleep 5000
Me.Caption = ""
End Sub
Private Sub Form_Load()
Me.Caption = ""
Command1.Caption = "Sleep ..."
End Sub
نه sleep کل برنامه رو می بره تو خلسه.من دنبال راهی بودم که برنامه به event های دیگه رسیدگی کنه نه اینکه کلا وایسه. یعنی کار های دیگش رو انجام بده و این تایمر 10 دقیقه صبر کنه بعد انجام بده دوباره 10 دقیقه صبر کنه دوباره انجام بده. به همین شکل. بازم ممنون
سلام
بيا يه تابع واست نوشتم كه اينكار رو انجام بده !
هر كجا كه خواستي وقفه بندازي يه مقدار بهش بده و صداش بزن
کد:
Sub delay(X As Single)
dt = Timer
Do While Timer - dt < X
DoEvents
Loop
End Sub
موفق باشيد