شمارنده تایم [بایگانی]

swith1996

شنبه 18 خرداد 1392, 13:42 عصر

سلام بر اساتید گرامی
کامپونتی هست که حالت کورنومتر داشته باشد
خیلی لازم دارم جستجو کردم ولی همه تایم بهشون می‌دادی و بر عکس ادامه می داد تا به صفر ثانیه برسد

m.4.r.m

شنبه 18 خرداد 1392, 14:50 عصر

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

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

End Sub