یه سئوال

[iman_yakoza]

تایمر تا تقریبا دو دقیق بیشتر Interval نمیگیره چه جوری میشه تا 5 دقیقه بهش Interval داد

[arashrj]

سلام
یه متغیر تعریف کن بعد interval رو روی یک دقیقه تنظیم کن . هر بار یک واحد به متغیر اضافه کن و یک شرط رو تنظیم کن که اگه متغیر به 5 رسید دستور رو اجرا کنه ...

نمونه کد :

کد:

Dim IRJ As Integer

Private Sub Timer1_Timer()
    IRJ = IRJ + 1
    If IRJ = 5 Then
        IRJ = 0
        'Dastorati ke bayad baz az 5 min ejra beshe
        MsgBox ""
    End If
End Sub

موفق باشید

[dreamvbfox]

سلام
یه متغیر تعریف کن بعد interval رو روی یک دقیقه تنظیم کن . هر بار یک واحد به متغیر اضافه کن و یک شرط رو تنظیم کن که اگه متغیر به 5 رسید دستور رو اجرا کنه ...

نمونه کد :

کد:

Dim IRJ As Integer

Private Sub Timer1_Timer()
IRJ = IRJ + 1
If IRJ = 5 Then
IRJ = 0
'Dastorati ke bayad baz az 5 min ejra beshe
MsgBox ""
End If
End Sub

موفق باشید

سلام.
البته باید interval تایمر رو 65535 قرار بدید تا یک دقیقه حساب بشه !!! بعد هم شرط رو بررسی کنید .

موفق باشید

[arashrj]

سلام
تا جایی که می دونیم هر یک ثانیه 1000 میلی ثانیه هست پس 1 دقیقه می شه 60 * 1000 در نتیجه interval باید بشه : 60000

موفق باشید

[hamed_Arfaee]

سلام
این لینک کمکتون میکنه