اجراي اتوماتيك يك روال در ساعت مشخص؟

[nazlo]

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

[Payman62]

يه تايمربذار. يه متغير نوع date هم تعريف كن و تاريخ و ساعت مورد نظرتو بريز توش. بعد تو تايمر چك كن اگه متغيرت كوچكتر يا مساوي با now شده تابع اجرا بشه. now تاريخ و ساعت كنوني رو بهت ميده.

[Iron_Fist]

اصلا بگو که چقدر وی بی بلدی ؟
توضیحات آقا پیمان درسته ولی برای افرادی که یکم کار کردند !

[nazlo]

از جواب آقا پيمان وiron_fist ممنونم.لطف كنيد بيشتر و جزيي تر توضيح بدين.

[Iron_Fist]

من فکر می کنم شما سورس می خوای ! نه ؟
چون از این واضح تر نمی شد !
اگه واقعآ در حد ابتدایی بلدی و متوجه نمی شه من برات
می نویسم !

[nazlo]

دقيقا نه.
فقط تو ساخت تايمر مشكل دارم
با اينحال هرجوري ميتوني كمك كن

[Iron_Fist]

ببین اینترول تایمرت رو هرچی می خوای بزار ( به عنوان مدت زمان چک کردن )
بعد هر کدی که می خوای توش بزار تا طبق اون مدت چک کنه

نکته ای که گفتنش بد نیست اینه که اگه می خوای به مقدار متغیری تو تایمر
اضافه کنی تو خود تایمر متغیر رو تعریف نکن چون با هر بار اجرای تایمر متغیر
دوباره تعریف می شه و مقدار قبلی نمی مونه !

من نمی دونم مشکل شما دقیقآ چیه ؟ اگه بیشتر توضیح بدی بهتر می تونم
کمک کنم !

[nazlo]

ببينيد!

من ميخوام سيستم چك كنه كه هر روز، مثلا راس ساعت2 ، يك روال از برنامه اجرا بشه.

[hamed_Arfaee]

دوست من سلام
تو جعبه ابزار وی بی یک شی هست که شکلش شبیه یک کورنومتر هست و کاری که می کنه اینه که بر اساس زمانی که دادی بهش دستوراتش رو اجرا می کنه  وبرای تنظیم سرعتش هم می تونی خاصیت Interval که در سمت راست در جعبه خصوصیات هست تنظیم کنی که بصورت میلی ثانیه هست یعنی اگر بنویسی 1000 بعمنی یک ثانیه خواهد بود و شما با دابل کلیک برروی همون شمایل کورنومتر که بر روی فرم اضافه شده می تونی هر کدی که دلت می خواهد رو براش بنویسی و در ضمن برای اینکه کاری انجام بدی باید برنامت همیشه در حال اجرا باشه باز هم اگه مشکلی بود بگو

[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

[nazlo]

اين نمونه كدي كه ميخواستي.

سلام دوست عزيز.
خيلي ممنونم مشكل تايمر حل شد.

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