Как сделать простой секундомер на языке программирования Basic

Как сделать простой секундомер на языке программирования Basic?

Сначала открываем Gambas, нажимаем «Новый проект», затем жмём «Далее», выбираем папку для проекта и вводим название (я выбирал «Stopwatch»). Затем вводим заголовок окна (можно оставить пустым). Можно удалить форму FMain и создать новую форму (не забудьте присвоить ей стартовый класс). Я присвоил форме имя frmMain.

Далее нужно оформить программу. Если у Вас нет Палитры компонентов, нажмите F6. Создаём четыре кнопки. Присваиваем имена: btnExit, btnStart, btnPause, btnReset. В свойстве Text пишем: «Выход», «Старт», «Пауза» и «Сброс» (без кавычек) соответственно. Затем нужно создать элементы Timer и Label. Имя таймера: Timer, имя этикетки: lblTime. В свойстве Text элемента Label надо написать «0», а в свойстве Delay элемента Timer написать «100».

Переходим к программному коду. Ниже будет указан весь код.

PUBLIC SUB Timer_Timer()

lblTime.Caption = lblTime.Caption + 0.1

END

PUBLIC SUB btnStart_Click()

Timer.Enabled = TRUE

END

PUBLIC SUB btnPause_Click()

Timer.Enabled = FALSE

END

PUBLIC SUB btnReset_Click()

Timer.Enabled = FALSE

lblTime.Caption = 0

END

PUBLIC SUB btnExit_Click()

frmMain.Close

END

Всё, секундомер готов! Осталось только создать установочный пакет и протестировать программу!