اجرای اتوماتیک یک روال در ساعت مشخص؟

[dastiary]

سلام
میخوام با استفاده از ساعت سیستم یک یا چند روال از برنامه ام بطور اتوماتیک در زمان تعین شده اجرا بشن.در این مورد هیچی نمیدونم لطفا راهنمایی کنید.متشکرم

[delphi.net8]

ساعت سیستم رو که با تابع timeمیتونی بدست بیاری
خب تو یه تایمر بنویس if timetostr(time ) =edit1.text then که راه های بهتری هم وجود داره که اینم یکیشه

[Payman62]

این نمونه کدی که میخواستی. راس ساعت 2 بعد از ظهر ماشین حساب باز میشه.
اگه در حالت design یعنی قبل ران کردن برنامه اینترول تایمرت رو ست کنی میتونی خط دوم فرم لود رو حذف کنی.
اگه میخوای برنامه دقیقا راس ساعت 2 کاری انجام بده همین اینترول 1000 مناسبه. هر 1 ثانیه چک میکنه. ولی اگه ساعت دو 2:01 هم بشه مهم نباشه میتونی اینترول 60000 بذاری که هر در هر دقیقه 1 بار چک کنه. این جوری بهتره چون کار کمتری از CPU کشیده میشه. هر چند اجرای 1 خط کد در هر ثانیه فشاری به CPU نمیاره. ولی من اگه باشم 60000 میذارم.

Dim dteTimeOfRun As Date
Private Sub Form_Load()
dteTimeOfRun = "2:00:00 PM"
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
If dteTimeOfRun <= Time Then
RunCalc
Timer1.Interval = 0
End If
End Sub
Private Sub RunCalc()
Shell "Calc.exe"
End Sub

[dastiary]

سلام دوست عزیز.
واقعا شما رو به زحمت انداختم.ازت بی نهایت ممنونم

مشکل تایمر حل شد.

حالا اگه بجای صدا زدن یک پروسدور بخوایم یک ایونت اجرا بشه چکار باید کرد؟

[Payman62]

خوب رویداد رو بذار جای فراخوانی تابع دیگه.

[mahdi_farhani]

Command1_Click فقط همینو (یا هرچیز رویداد دیگه رو که خواستی) صدا بزن

[مجتبی فخاری]

:خجالت: [quote=dastiary;221868]سلام دوست عزیز.
واقعا شما رو به زحمت انداختم.ازت بی نهایت ممنونم
میخواهم یک برنامه درباره جام جهانی که اطلاعات جام جهانی را به من بدهد
می شه کمک به من بکنید من برای ÷روپه می خواهم

[Payman62]

:خجالت: [quote=dastiary;221868]سلام دوست عزیز.
واقعا شما رو به زحمت انداختم.ازت بی نهایت ممنونم
میخواهم یک برنامه درباره جام جهانی که اطلاعات جام جهانی را به من بدهد
می شه کمک به من بکنید من برای ÷روپه می خواهم
سلام.
اینم از اون پستا بودا.
تو یه تاپیک بی ربط یه سوال نامفهوم. یعنی چی اطلاعات جام جهانی رو بده؟