400 likes | 577 Views
Первый проект. Borland Delphi 7 Lazarus. Проект. Разрабатываемое приложение до его окончательной компиляции. Задача:. Составить программу, которая по введенным данным о длине дистанции и времени вычисляет среднюю скорость спортсмена.
E N D
Первый проект Borland Delphi 7 Lazarus
Проект Разрабатываемое приложение до его окончательной компиляции
Задача: Составить программу, которая по введенным данным о длине дистанции и времени вычисляет среднюю скорость спортсмена.
Формой на этапе разработки программы называют любое диалоговое окно.
Изменение свойств формы: Caption Form1 Скорость спортсмена
Сложные свойства: +BorderIcon biMinimize BorderIcon.biMinimize
Свойства формы: • NameScorost • Caption Скорость спортсмена • Width 400 • Hight 300
Свойства формы: • Top 320 • Left 440 • BorderStyle bsSingle
Свойства формы: • BorderIcon.biMinimizeFalse • BorderIcon.biMaximizeFalse • Font.Size10
Внимание! До первого запуска программы необходимо сохранить проект с тем именем, которое планируется дать исполняемому файлу программы (Pr_scorost). Файл модуля (.pas) необходимо сохранить под другим именем. Для проекта рекомендуется создавать отдельный каталог.
Сохранение проекта: ФайлСохранить как…
Запуск проекта: • Из меню RunRun, • Клавиша Ctrl+F9, • Зеленый треугольник на Панели инструментов.
Поле редактирования Edit Используется для ввода и вывода данных. Может редактироваться пользователем, если это разрешено в программе
Поле вывода текста (метка) Label Служит для вывода текста в форму. Недоступна для редактирования пользователем.
Командная кнопка Button Выполнение действий, управление программой
Код программы Borland Delphi 7 Lazarus
Процедура обработки события Подпрограмма, программный код, используемый для обработки события
Переключение Форма/редактор кода • Toggle Form/Unit • F12
Кнопка «Завершить» Событие TScorost.Button2Click Метод Scorost.Close
Кнопка «Завершить» Дважды щелкните по кнопке «Завершить». В открывшемся шаблоне напишите Scorost.Close
Кнопка «Завершить» • Scorost — название нашего проекта (программы). • Close — исполь-зуемый метод.
Кнопка «Вычислить» Var Scorost: TScorost; dist,vrem,skor:real;
Кнопка «Вычислить» TScorost.Button1Click
StrToFloat () Преобразует текстовые данные поля Editв вещественное число.
Кнопка «Вычислить» vrem := StrToFloat (eVrem.Text); dist := StrToFloat (eDist.Text); skor:= dist/vrem;
FloatToStr() Преобразует данные вещественного типа в текстовые.
Кнопка «Вычислить» vrem := StrToFloat (eVrem.Text); dist := StrToFloat (eDist.Text); skor:= dist/vrem; eSkor.Text:= FloatToStr(skor);
Домашнее задание 1.Конспект: - Свойства компонентов формы. - Обработка событий, события. - Преобразование текста в вещественное число и наоборот.