تنظیم تایمر برای چند دقیقه یک بار

[ir-security]

سلام میخوام یه تایمر کار بندازم که هر ده (10) دقیقه یکبار یه کد رو اجرا کنه چطور میتونم به ده دقیقه تنظیمش کنم؟

[isaac23]

سلام نیازی به توضیح نداره سورسش رو هم پیوست میکنم برات
Private Sub Command1_Click()
Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()
Static tim As Integer
tim = tim + 1
Label1 = tim

If Label1.Caption = Val(Text1) * 60 Then
MsgBox ("Salam")
tim = 0
End If
End Sub

[isaac23]

سورس برنامه تایمر

[parsadsa]

هر 1000 واحد از تایمر 1 ثانیه میشه ( میلی ثانیه )
حالا بر حسب ثانیه یعنی تقسیمبر 1000
بر حسب دقیقه تقسیم بر 60000 ( 60 ثانیه * 1000)
لذ حسب ساعت تقسیم بر 3600000 ( 60 ثانیه * 60 دقیقه )
بر حسب روز 86400000 ( 60 ثانیه * 1000 * 60 دقیقه * 24 ساعت)
بر حسب ماه ......
بگم بازم ... :گریه:

[isaac23]

مگه اون سورسی که گذاشتم بدردت نخورد ؟:ناراحت:

[ir-security]

هر 1000 واحد از تایمر 1 ثانیه میشه ( میلی ثانیه )
حالا بر حسب ثانیه یعنی تقسیمبر 1000
بر حسب دقیقه تقسیم بر 60000 ( 60 ثانیه * 1000)
لذ حسب ساعت تقسیم بر 3600000 ( 60 ثانیه * 60 دقیقه )
بر حسب روز 86400000 ( 60 ثانیه * 1000 * 60 دقیقه * 24 ساعت)
بر حسب ماه ......
بگم بازم ... :گریه:


timer1.interval=9999
تا این حد میشه عدد گذاشت من میخوام بیشترش کنم از چه فرمول و کجا بنویسم

[ir-security]

مگه اون سورسی که گذاشتم بدردت نخورد ؟:ناراحت:


چرا اتفاقا خیلی عالی بود ممنونم ازتون

[parsadsa]

timer1.interval=9999
تا این حد میشه عدد گذاشت من میخوام بیشترش کنم از چه فرمول و کجا بنویسم

من نگفنم که در خود شی تایمر عدد بزرگ بزار
میزان تایمر 1000 بزار (یک ثانیه)
بعد توی رویداد تایمر با یک حلقه شرطی میزان تایمر بررسی بشه
دوست عزیز isaac23 نمونه خوبی گذاشه
بررسی شرط بعد از مقدار textBox

If Label1.Caption = Val(Text1) * 60 Then
دستورات در صورت درست بودن شرط
tim = 0
End If

[ir-security]

اره متوجه شدم کارش عالیه خیلی بجا و بموقع بود کارش