استفاده از تایمر برای انجام یک دستور

[sajjadrad]

سلام.
من میخوام از یه تایمر استفاده کنم بطوری که بعد از 10 ثانیه یه کاری بکنه...
مثلا با زدن یه دکمه شروع بشه و بعد از 10 ثانیه یه پیغام بده!!!
یکی من آماتور رو کمک کنه ممنون میشم:لبخند:

[M.T.P]

Dim Counter As Integer
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
If Counter =10 Then
MsgBox "Hello"
End If
Counter = Counter + 1
End Sub

[sajjadrad]

داداش ممنون...مشکل اینجاست که کار نمیکنه

نمیدونم چرا ببین من کد

Dim Counter As Integer
Timer1.Interval = 1000
Counter = 1
رو گذاشتم تو کاماند_کلیک
بعد تو تایمر هم گذاشتم:

If Counter = 3 Then
Label4.Caption = "Time Out"
End If
Counter = Counter + 1

اما کار نمیکنه:گریه:

[sajjadrad]

یکی بدادم برسه...تا اونجا که چک کردم مشکل اینجاست که کانتر از 1 بیشتر نمیشه...پس تایمر بطور مکرر اجرا نمیشه

[M.T.P]

کدی که تو پست 2 نوشتم واسه فرم بدون کامند بود
و اما...

تعریف در General



Dim Counter As Integer



کد کامند:



Timer1.Interval = 1000




کد تایمر:



If Counter =10 Then
MsgBox "Hello"
End If
Counter = Counter + 1

[sajjadrad]

دیگه کم کم دارم روانی میشم....:عصبانی++:
تایمر کار میکنه اما کانتر زیاد نمی شه!:لبخند:

[M.T.P]

:عصبانی++::عصبانی++::عصبانی++:

[sajjadrad]

شرمنده من تا حالا با تایمر کار نکرده بودم:خجالت::خجالت:


در ضمن شما این کد رو نداده بودی:

Timer1.Enabled = True

خیلی خیلی ممنون:قلب::قلب::بوس::بوس::بوس:

[M.T.P]

شرمنده من تا حالا با تایمر کار نکرده بودم:خجالت::خجالت:


در ضمن شما این کد رو نداده بودی:

Timer1.Enabled = True

خیلی خیلی ممنون:قلب::قلب::بوس::بوس::بوس:

پست 5 هم مشکلی نداره اینم برنامش ، برنامه رو اجرا کن رو کامند کلیک کن و 10 ثانیه صبر کن:
کد هاش رو هم با کد پست 5 مقایسه کن