13 Сентябрь 2008

Как сделать секундомер?

Timer |  Таги:

Как сделать секундомер?
Можно реализовать несколькими способами:

1. Разность двух дат

Option Explicit
Dim dtmTimeStart As Date
Dim dtmTimeStop As Date
Dim dtmTimeInter As Date

Private Sub Command1_Click()
Timer1.Interval = 1
dtmTimeStart = Time
Label2 = "Начало: " & Time
End Sub

Private Sub Command2_Click()
Timer1.Interval = 0
End Sub

Private Sub Form_Load()
Label1.Caption = ""
Label2.Caption = ""
Label3.Caption = ""
End Sub

Private Sub Timer1_Timer()
dtmTimeStop = Time
Label3.Caption = "Текущее время: " & Time
dtmTimeInter = Format(dtmTimeStop - dtmTimeStart, "hh:mm:ss")
Label1.Caption = "Прошло: " & dtmTimeInter
End Sub



У нас куча комментариев (2) на запись “Как сделать секундомер?”

Почему бы Вам не высказать свое мнение! Позвольте нам узнать, что Вы думаете...

  1. 1 On 15.09.2008, Visual Basic FAQ » Сайты » Word Expert - профессиональная работа с текстом said:

    [...] Как сделать секундомер [...]

  2. 2 On 05.06.2010, Настя said:

    Спасибо огромное за очень полезный сайт!
    При подготовки к экзамену очень пригодился^^

Оставить комментарий

Я не робот.