اجرای اتوماتیک برنامه بعد از یک دقیقه

[hasti_62]

سلام
می تونید راهنمایئم کنید که چطور میشه به یک برنامه زمان بدیم که خودش به طور اتوماتیک برنامه را اجرا کنه مثلا اینکه بعد از یک دقیقه کاری رو انجام بده ممنون میشم اگه کسی بتونه راهنمائی کنه:ناراحت:

[kasmaii61]

دوست عزیز می تونی از Timer استفاده کنی. خاصیت interval رو بر حسب میلی ثانیه تنظیم کن بعد از این مدت رویداد مورد نظرت رو که تو تابع شیء Timer نوشتی رو اجرا میکنه.


Private Sub Form_Load()
Timer1.Interval = 10000 '10sec
End Sub

Private Sub Timer1_Timer()
MsgBox "test"
End Sub


این برنامه بعد از اجرا هر 10 ثانیه یک بار یک MsgBox با متن Test رو نمایش میده

[hasti_62]

ممنون دوست عزیز از راهنمائیتون خیلی خوب بود 80% کار ok شد ولی من حالتی رو می خوام که کاربر بتونه خودش زمان را تعیین کنه شما توی کد هر 10 ثانیه گذاشتین ولی ممکنه زمانش کمتر یا بیشتر باشه شما راهی واسش دارین؟
بازم ممنون


دوست عزیز می تونی از Timer استفاده کنی. خاصیت interval رو بر حسب میلی ثانیه تنظیم کن بعد از این مدت رویداد مورد نظرت رو که تو تابع شیء Timer نوشتی رو اجرا میکنه.


Private Sub Form_Load()
Timer1.Interval = 10000 '10sec
End Sub

Private Sub Timer1_Timer()
MsgBox "test"
End Sub


این برنامه بعد از اجرا هر 10 ثانیه یک بار یک MsgBox با متن Test رو نمایش میده

[Tasiyan]

Private Sub Form_Load()
Text1 = 5000
Timer1.Interval = Text1
End Sub
Private Sub Timer1_Timer()
MsgBox "test"
Timer1.Interval = Text1
End Sub
از Slider واسه دادن زمان استفاده کن

[hossein033]

با سلام خدمت دوستان عزیز

به نظر من که این راه حلی که دوست عزیزمون مطرح کردن عملی نیست چون Timer نمی تونه بیشتر از یک مقدار خاص کار کنه منظور دوستی که این سوال رو مطرح کردن این بوده که هر گاه کاربر به برنامه گفت در این مقطع زمانی کاری رو چون اجرای یک موزیک انجام بده خوب اگه کاربر گفت 1 ساعت دیگه این کار رو انجام بده چی ...( خطا میگیره)

به نظر من که دوست عزیزمون باید از چیزی غیر از این راه حل کار کنند.

[xxxxx_xxxxx]

با سلام خدمت دوستان عزیز

به نظر من که این راه حلی که دوست عزیزمون مطرح کردن عملی نیست چون Timer نمی تونه بیشتر از یک مقدار خاص کار کنه منظور دوستی که این سوال رو مطرح کردن این بوده که هر گاه کاربر به برنامه گفت در این مقطع زمانی کاری رو چون اجرای یک موزیک انجام بده خوب اگه کاربر گفت 1 ساعت دیگه این کار رو انجام بده چی ...( خطا میگیره)

به نظر من که دوست عزیزمون باید از چیزی غیر از این راه حل کار کنند.

اونوقت ميشه اين كارو كرد:


Dim c As Integer

Private Sub Form_Load()
Timer1.Interval = 60000
End Sub

Private Sub Timer1_Timer()
If c Mod 60 = 0 Then
'
'
'
End If
c = c + 1
End Sub

[hasti_62]

از همه دوستای عزیز بابت راهنمائی های خوبشون ممنونم ولی مشکلی که الان هست اینکه همه از INTERVAL استفاده کردن که گفته شد بر حسب میلی ثانیه عمل می کنه من چیزی می خوام که بر حسب دقیقه عمل کنه.ممنون



Private Sub Form_Load()
Text1 = 5000
Timer1.Interval = Text1
End Sub
Private Sub Timer1_Timer()
MsgBox "test"
Timer1.Interval = Text1
End Sub
از Slider واسه دادن زمان استفاده کن

[mmssoft]

دوست عزیز. پیام های خصوصیتون رو چک کنید.

[Tasiyan]

بر حسب میلی ثانیه عمل می کنه
خواب میلی ثانیه رو به دقیقه تبدیل کن

بر حسب دقیقه عمل کنه
تایمر vb محدوده از کامپوننت Long Timer استفاده

[mmssoft]

دانلود کامپوننت Large Timer :

دانلود (http://mbt925.persiangig.ir/ActiveX/LargeTm.rar)

دوست عزیز آقا یا خانوم hasti_62 لطفا پیام های خصوصیتون رو چک کنید.