ست کردن تایمر بر روی 10 دقیقه

[majidbahrami]

سلام دوستان واساتید گرامی..

بچه من میخوام کد ارسال ایمیل رو روی 10 دقیقه تنظیم کنم...تا هر 10 دقیقه ایمیل ارسال بشه و دوباره این
مقدار تنظیم بشه که تکرار کنه...توی انجمن رو گشتم چیزی بد بخور گیرم نیومده ...اگه میشه سورس کدی چیزی بزارید ممنونم

SendMail "dor7@gmail.com", _

         "00304093", _

         "Salam", _

         "dor7@gmail.com", _

         Text1.Text, _

         vbNullString

         Text1.Text = ""

[amin32]

خاصیت interval تایمر رو روی 60000 قرار بدید و از کد زیر استفاده کنید:

Dim Phase As Integer

Private Sub Timer1_Timer()

If Phase = 9 Then

'دستورات مورد نظر

Phase = 0

Else

Phase = Phase + 1

End If

End Sub

 

[majidbahrami]

دوست عزیز کد بالا جواب نداد..میشه یه کد دیگه بزاری و یه توضیح کوتاه هم بدی دربارش

[amin32]

دوست عزیز کد بالا جواب نداد..میشه یه کد دیگه بزاری و یه توضیح کوتاه هم بدی دربارش

من اشتباها Timer1 رو Timer2 نوشته بودم . الان کد رو ویرایش کردم. احتمالا مشکل از همین بود.
کد هم ساده هست. برای توضیح باید بگم که همونطور که میدونید (برای مقدار interval) هر 1000 میلی ثانیه برابر 1 ثانیه هست. در نتیجه 1 دقیقه میشه 60000 .و 10 دقیقه میشه 600000 که نمیتونیم این مقدار رو در Interval قرار بدیم. پس ما مقدار رو روی 60000 قرار میدیم (یعنی هر 1 دقیقه کد تایمر اجرا بشه) . از یک متغیر به نام phase استفاده میکنیم که هر دقیقه یک واحد بهش اضافه میشه. در هربار اجرا , مقدار متغیر چک میشه که اگر مقدارش برابر 9 بود (یعنی 10 بار اجرا شد) کد مورد نظر شما اجرا بشه و متغیر phase دوباره 0 میشه.
البته باید کد مورد نظرتون (ارسال ایمیل) رو در قسمتی که مشخص شده قرار بدید.

[محسن واژدی]

سلام علیکم
تاپیک های زیر را هم بررسی کنید:
https://barnamenevis.org/showthread.p...A7%D9%85%D9%87
https://barnamenevis.org/showthread.p...8C%D9%82%D9%87
https://barnamenevis.org/showthread.p...=1#post1432076


موفق باشید

[majidbahrami]

امین جان ....محسن جان دمه جفتتون گرم.... از هر دو تایپک هاتون استفاده کردم حل شد ..