Таймер в VB6

Секундомер инструмент, который ... да ладно, я не думаю, что уместно объяснить, что секундомер скорее должны понять, как сделать Visual Basic 6.

Функции очень прост: кнопку Пуск, которые остановят секундомер будет запущен в ближайшее время, считая секунды от времени между тем.

Нажав кнопку еще раз, а его заголовок Стоп, часы перезапустится и остановиться.

Мы создаем новый EXE в нашей копии VB6 и создать форму, добавив, этикетки, команды и таймера:

Назначение этикетки имя, название кнопки управления и присвоить имя таймер времени.

Мы дважды щелкните таймер и добавьте следующий код:

 Private Sub tempo_Timer ()



    



 conta.Caption conta.Caption + 1 =







 End Sub

Просто зайдите на увеличение стоимости метку блока.

Более сложный код применяется к кнопке:

 Private Sub comando_Click ()



    



 Если comando.Caption = "Пуск", затем



        



 tempo.Enabled = True



        



 comando.Caption = "Остановить"



        



 Вызовите tempo_Timer



        



 tempo.Interval = 1000



    



 Еще



        



 tempo.Enabled = False



        



 comando.Caption = "Старт"



        



 tempo.Interval = 0



        



 conta.Caption = 0



    



 End If







 End Sub

Мы сначала проверьте, что его это capition Пуск, в этом случае мы пойдем по порядку:

• Включить таймер для запуска;
• переименовать заголовок кнопку Пуск, чтобы остановить;
• для вызова функции, который увеличивает таймер;
• установить второй (1000) интервальный таймер запущен.

В этот момент часы ушел, и будет выглядеть следующим образом:

Нажмите еще раз для остановки, во время выполнения, программа перейдет остальное условного блока, а также выполнять следующие функции:

• отключения таймера;
• изменение заголовка кнопку Стоп для начала;
• , чтобы остановить интервала;
• Для сброса значения секундомера.