ست کردن تایمر بر روی 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 میشه.
البته باید کد مورد نظرتون (ارسال ایمیل) رو در قسمتی که مشخص شده قرار بدید.

[محسن واژدی]

سلام علیکم
تاپیک های زیر را هم بررسی کنید:
http://barnamenevis.org/showthread.php?294416-%D8%B2%D9%85%D8%A7%D9%86-%DA%AF%D8%B0%D8%A7%D8%B1%D9%8A-%D8%A8%D8%B1%D8%A7%D9%8A-%D8%B4%D8%A6-%D9%87%D8%A7%D9%8A-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87
http://barnamenevis.org/showthread.php?296382-%DA%A9%D8%A7%D8%B1-%D8%A8%D8%A7-%D8%AA%D8%A7%DB%8C%D9%85-%D9%87%D8%A7%DB%8C-%D8%A8%D8%A7%D9%84%D8%A7%DB%8C-%DA%86%D9%86%D8%AF-%D8%AF%D9%82%DB%8C%D9%82%D9%87
http://barnamenevis.org/showthread.php?325767-%DA%86%DA%AF%D9%88%D9%86%D9%87-%D8%B2%D9%85%D8%A7%D9%86-%D9%8A%D9%83-%D8%AA%D8%A7%D9%8A%D9%85%D8%B1-%D8%B1%D8%A7-%D8%A8%D9%87-%D9%8A%D9%83-%D8%B3%D8%A7%D9%87%D8%AA-%D9%8A%D8%A7-%D8%AF%D9%88-%D8%B3%D8%A7%D8%B9%D8%AA-%D8%AA%D8%BA%D9%8A%D9%8A%D8%B1-%D8%AF%D9%87%D9%8A%D9%85&p=1432076&viewfull=1#post1432076


موفق باشید

[majidbahrami]

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