Timer

[raika17metal]

من میخوام وقتی فرم لود شد CAption لیبل برابر 00:00:00 باشه و زمانی که روی دکمه کلیک می کنم شروع به محاسبه زمان (ثانیه به ثانیه کنه). لطفا کدهاش رو برام بذارید

[Pr0grammer]

باید یک Timer روی فرم قرار بدید و Interval اش رو 1000 و Enable اش رو هم False قرار بدید...

درون Timer این کد رو بنویسید :


Me.Caption = TimeValue(now)
و یک دکمه روی فرم قرار داده و این کد رو توش بنویسید :


Timer1.Enable = True

[raika17metal]

دوست عزیز من میخوام وقتی فرم لود شد LBL.Caption برابر بشه با 00:00:00 یعنی زمان صفر و وقتی که روی CMD کلیک کردم شروع بشه یکی یک به ثانیه افزوده شدن مثل یک کورنومتر
این کاری که شما گفتید با کلیک زمان جاری رو می اندازه روی Lbl

[vahid_d_0101]

تو میتونی کارتو با سه تا لیبل راحت تر انجام بدی اگه میتونی بگو من برات برنامه اش رو بنویسم اگر هم نمیتونی باید صبر کنی تا برات برنامه اش رو بنویسم

[r0ot$harp]

دوست عزیز من میخوام وقتی فرم لود شد LBL.Caption برابر بشه با 00:00:00 یعنی زمان صفر و وقتی که روی CMD کلیک کردم شروع بشه یکی یک به ثانیه افزوده شدن مثل یک کورنومتر
این کاری که شما گفتید با کلیک زمان جاری رو می اندازه روی Lbl

دوست عزیز امید وارم منظور شما رو درست متوجه شده باشم .


Dim M As Long

Dim S As String

Dim H As String

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
lbl.Caption = "00:00:00"
M = 0: S = 0: H = 0
End Sub

Private Sub Timer1_Timer()

S = S + 1

If S = 60 Then
M = M + 1
S = 0
End If

If M = 60 Then
H = H + 1
M = 0
End If

lbl.Caption = H & ":" & M & ":" & S

End Sub


باتشکر احسان

[vahid_d_0101]

اینم سورس البته با تشکر از اقای sanaz13x