Блог им. ghost → Как сделать простой секундомер на языке программирования Basic
Руководство по созданию секундомера в Gambas. Сначала открываем 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
Всё, секундомер готов! Осталось только создать установочный пакет и установить программу!
Данный материал написан для «Первого конкурса русскоязычных статей для ОС Ubuntu 2011 года» (konkurs.ubuntu.ru).
Далее нужно оформить программу. Если у Вас нет Палитры компонентов, нажмите 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
Всё, секундомер готов! Осталось только создать установочный пакет и установить программу!
Данный материал написан для «Первого конкурса русскоязычных статей для ОС Ubuntu 2011 года» (konkurs.ubuntu.ru).
- +3
- ghost
- 05 июля 2011, 12:50
Спасибо за урок! :)
Ну и так далее.
Так что это не только программа мелкомягких.
Статья, я так понимаю, для совсем неопытных… пользователей (программистами их язык не поворачивается назвать). Я не уверен, что они оценят возьню с компилируемым языком. Потом ещё какой-то пакет установки…
То ли дело скрипты — создал текстовый файл, набросал в нём несколько строк — и вуаля, секундомер готов. Можно запускать и пользоваться.
Что-нибудь из раздела «полезный скрипт из десяти строк».
ради сумки и футболкипросто так писал.