۲۲-مرداد-۱۳۸۸, ۱۶:۲۹:۲۴
۲۲-مرداد-۱۳۸۸, ۲۱:۰۴:۰۱
سلام
یه متغیر تعریف کن بعد interval رو روی یک دقیقه تنظیم کن . هر بار یک واحد به متغیر اضافه کن و یک شرط رو تنظیم کن که اگه متغیر به 5 رسید دستور رو اجرا کنه ...
نمونه کد :
موفق باشید
یه متغیر تعریف کن بعد 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موفق باشید
۲۳-مرداد-۱۳۸۸, ۱۵:۵۲:۵۷
(۲۲-مرداد-۱۳۸۸, ۲۱:۰۴:۰۱)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
موفق باشید
سلام.
البته باید interval تایمر رو 65535 قرار بدید تا یک دقیقه حساب بشه !!! بعد هم شرط رو بررسی کنید .
موفق باشید
۲۳-مرداد-۱۳۸۸, ۱۹:۴۴:۰۸
سلام
تا جایی که می دونیم هر یک ثانیه 1000 میلی ثانیه هست پس 1 دقیقه می شه 60 * 1000 در نتیجه interval باید بشه : 60000
موفق باشید
تا جایی که می دونیم هر یک ثانیه 1000 میلی ثانیه هست پس 1 دقیقه می شه 60 * 1000 در نتیجه interval باید بشه : 60000
موفق باشید
۲۳-مرداد-۱۳۸۸, ۲۰:۵۱:۱۵