کنترل تایمر-TIMER

با سلام خدمت سروران گرامی...

در این درس با کنترل تایمر آشنا می شویم:

کنترل تایمر مانند حلقه DO عمل می کند با این تفاوت که بدون شرط است.

ساخت یک زمان سنج:

ابتدا فرمی با سه Labelو یک Timer ایجاد کرده و سپس دستورات زیر را درون سورس برنامه تایپ کنید:


()Private Sub Timer1_Timer
Label1.Caption = Label1.Caption + 1
If Label1.Caption = 59 Then
Label1.Caption = 0
Label2.Caption = Label2.Caption + 1
End If
If Label2.Caption = 59 Then
Label2.Caption = 0
Label3.Caption = Label3.Caption + 1
End If
End Sub

نکته: مقدار خاصیت InterVal تایمر را برابر 10 قرار میدهیم تا به صورت صدم ثانیه محاسبه کند. برای کار کردن تایمر در هر ثانیه از InterVal هزار استفاده کنید.

امیدوارم که یاد گرفته باشید.