- •Визуальное программирование в среде delphi Методические указания к лабораторным работам Пенза
- •Содержание
- •Разработка модульных паскаль - программ
- •1. Требование к программе
- •2. Порядок выполнения работы
- •3. Рекомендации по разработке программ с использованием модулей типа unit.
- •4. Процесс создания загрузочных программ с использованием модулей типа unit.
- •5. Содержание отчета.
- •6 Варианты заданий.
- •Лабораторная работа №2.
- •1. Основные сведения.
- •1.1 Основы визуального программирования.
- •1.2 Среда визуальной разработки.
- •Компоненты
- •1.3 Проектирование простого приложения.
- •2. Контрольные вопросы.
- •3. Задание к выполнению лабораторной работы.
- •4. Варианты заданий.
- •5. Приложение. Некоторые стандартные функции для работы со строками.
- •Изучение средств управления проектом в среде Delphi
- •Основные сведения.
- •1.1 Структура проекта в Delphi.
- •1.1.1 Файлы описания форм.
- •1.1.2 Файлы программных модулей.
- •Private
- •1.1.3 Главный файл проекта.
- •1.2 Создание, сохранение и открытие проекта.
- •1.3 Настройка параметров проекта в окне Project Options.
- •1.4. Создание программы
- •2. Контрольные вопросы.
- •3. Задание к выполнению лабораторной работы.
- •4. Варианты заданий.
- •Изучение свойств и событий форм приложения в среде delphi
- •1.Основные сведения.
- •1.1. Понятие форм.
- •1.2 Основные свойства формы.
- •1.2.1 Имя и заголовок формы.
- •1.2.2 Стиль формы.
- •1.2.3 Размеры и положение формы на экране.
- •1.2.3 Рамка формы.
- •1.2.4 Значок формы.
- •1.3 Событие формы.
- •1.4 Создание в проекте новой формы.
- •1.4.2 Переключение между формами во время проектирования.
- •1.4.3 Выбор главной-формы приложения.
- •1.4.4 Отображение второстепенных форм во время работы приложения.
- •2. Контрольные вопросы.
- •3. Задание к выполнению лабораторной работы.
- •4. Варианты заданий.
1.3 Проектирование простого приложения.
Реализуем программу по сценарию, отображённому на рис. 2.1. Начнём с кнопок. Переместите курсор мыши в Палитру компонентов и щёлкните на пиктограмме Button.
Затем переместите курсор в нужное место формы и щёлкните ещё раз. Заготовка кнопки с надписью Button1 окажется на форме.
С помощью мыши откорректируйте её местоположение. После этого посмотрите на Инспектор объектов. Там вы увидите список свойств компонента Button. В нём нас интересует свойство Caption, так как именно оно определяет содержимое надписи. Заменим в Caption значение по умолчанию Button1 на ОК.
Обратите внимание, что Delphi сама присвоила кнопкам имена (свойство Name) Button1.
Теперь установим переключатели и компонент RadioGroup. Для этого перейдём к Палитре компонентов. Найдите на странице Standard компонент RadioGroup, щёлкните на нём мышью, переместите курсор в нужное место формы и щёлкните ещё раз. На форме появится панель, содержащая текст RadioGroup1.
Придайте ему нужные размеры и откорректируйте местоположение. Теперь вернёмся в Инспектор объектов, и заменить в свойстве Caption значение по умолчанию на Выбор процессора(рис. 2.6).
Рис. 2.6
Добавьте по два переключателя типа CheckBox и RadioButton и настройте их названия в свойстве Caption.
Далее надо поместить надпись «Стоимость». Для этого найдите компонент Label в Палитре компонентов и с помощью мыши поместите его на форму. Первоначально он содержит надпись Label1. Cвойство Caption измените на требуемое.
Точно так же поместите второй пустой компонент Label;
В результате получилась основа для будущей программы (рис. 2.6), которая пока ничего не вычисляет, т.к. для кнопок не написаны процедуры обработки событий (обработчики событий).
Приступим к созданию обработчиков событий. Начнем с кнопки «ОК». Прежде всего активизируйте кнопку и перейдите на страницу событий (Events) Инспектора объектов. На ней есть список всех возможных событий для активного компонента. Нас интересует событие OnClick, возникающее при нажатии кнопки. Чтобы создать обработчик этого события, сделайте двойной щелчок мыши в поле значения события OnClick. В ответ появиться окно Редактора кода с заготовкой обработчика событий (рис 2.8)
Для реализации алгоритма вычисления достаточно вставить следующий код процедуры;
procedure TLab1.OKbtnClick(Sender: TObject);
var Price:Longint;
begin
Price:=0;
if RadioButton1.Checked then
Price:=Price+Const1
else
if RadioButton2.Checked then
Price:=Price+Const2;
if CheckBox1.Checked then
Price:=Price+Const3;
if CheckBox2.Checked then
Price:=Price+Const4;
Label2.Caption:=IntToStr(Price);
end;
Рис 2.8
Где Const1, Const2, Const3, Const4-константы, помещённые в разделе описания констант:
Const Const1=1000;
Const2=500;
Const3=300;
Const4=200;
Результат суммирования есть целое число, которое может быть выведено в окно Label2 только после обратного преобразования типов данных из целого в текст - с помощью стандартной функции IntToStr. Имя обработчику события ButtonClick система присвоила сама.