Лабораторная работа № 2. Создание простой формы

Цель работы Целью работы является практическое ознакомление с технологией визуального проектирования.

Основные сведения.

Создание проекта начинается с разработки интерфейса пользователя. Для этого выбираем нужные объекты, определяем их местоположения и ряд других свойств. Если объект порождает событие, то формируем также и код.

Задание к работе.

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

— Изучить интегрированную среду проектирования DELPHI, этапы создания диалогового окна и структуру простого проекта, состоящего из законченных программных модулей.

Порядок выполнения работы.

1.Разработка Формы приложения.

Работа над новым проектом начинается с создания стартовой формы. Стартовая форма создаётся путём изменения свойств типовой формы Form 1. Свойства формы определяет её внешний вид: размер, положение на экране, текст заголовка, вид рамки. Эти, а также ряд других свойств перечислены на вкладе Properties (свойства) окна Object Inspector. В левой колонке находятся имена свойств, в правой — их значения. Сначала изменим значение свойства caption (заголовок). Заменим на фунты — килограммы. Для этого надо щелкнуть мышью в поле Caption Form1. В результате этого в правой колонке, где находятся текущее значение свойства — текст Form1, появляется курсор. Используя клавишу, надо удалить Form1 и ввести Фунты-килограммы.

Ниже, в таблице, приведены измененные свойства формы разрабатываемого приложения. Остальные свойства формы оставлены без изменения и в таблице не приведены.

2. Компоненты формы

Программа пересчета веса из фунтов в килограммы должна получить от пользователя исходные данные — значения веса в фунтах. В Windows данные с клавиатуры вводятся в поля редактирования EDIT. Поэтому в данную форму надо добавить компонент — поле редактирования.

Чтобы добавить к форме компонент, надо в палитре компонентов щелкнуть на пиктограмме нужного компонента, и затем щелкнуть кнопкой мыши в той точке, где должен находиться правый верхний угол компонента. В результате в форме появляется компонент стандартного размера.

Создать на форме компонент нужного размера можно следующим образом. После щелчка на палитре компонентов нужно поместить курсор мыши в ту точку формы, где должен находится левый верхний угол компонента, нажать кнопку мыши и, удерживая ее нажатой, переместить курсор в точку, где должен быть правый нижний угол компонента, затем отпустить кнопку мыши. В форме появится компонент нужного размера.

Компонент формы, окруженный восемью маркерами, называется выделенным. В окне Object Inspector отображаются свойства выделенного на этот момент компонента. Ниже в таблице приводятся основные свойства компонента, называемого полем редактирования EDIT.

Имя поля. Используется в программе для доступа к содержимому Name

(тексту) поля.

Текст, находящийся в поле ввода — редактирования. Text

Расстояние от левой границы поля до левой границы формы. Left

Расстояние от верхней границы поля до верхней границы формы. Top

Высота поля. Height.

Ширина поля. Width.

Шрифт, используемый для отображения вводимого текста. Font.

Признак наследования свойств шрифта родительской формы. Parent Font

Установим следующие свойства поля редактирования, предназначенного для ввода исходных данных — веса в фунтах:

Name Edit 1

Text

Top 48

Left 24

Height 24

Width 121

Помимо полей редактирования окно формы должно содержать поясняющий текст: краткое информационное сообщение. Текст, находящийся в форме, называется меткой. Добавляется метка формы точно так же, как и поле редактирования. Пиктограмма метки Label (большая буква А) находится в палитре компонентов перед пиктограммой поля редактирования. После того как метка добавлена, можно, используя окно Object Inspector, изменить его свойства.

К форме разрабатываемого приложения надо добавить две метки. Первая метка будет отображать информационное сообщение. Вторая метка предназначена для вывода результата пересчета веса. Ниже в таблице приведены свойства меток Label1 и Label2.

Свойство WordWrap при значении True автоматически переносит на следующую строку слова, которые не помещаются в текущей строке. При этом свойство AutoSize должно иметь значение False.

Cвойство ParentFont метки Label2 имеет значение False, поэтому свойство Font этой метки не наследует значение свойства Font «родителя», в данном случае основной формы. Это дает возможность установить свойства шрифта метки иные, чем у формы. У метки Label1 значения свойства ParentFont оставлено без изменения.

В завершение к форме надо добавить командную кнопку, при щелчке на которой будет выполняться введение в поле ввода веса и его пересчет. Кнопка добавляется в форму точно так же, как и другие компоненты. Пиктограмма командой кнопки Ok находится на палитре стандартных компонентов. После добавления кнопки с помощью диалогового окна Object Inspector надо установить требуемые значения ее свойств, которые представлены ниже в таблице.

3. Событие и процедура обработки события.

Вид созданной формы подсказывает, как работает приложение. Очевидно, что пользователь должен ввести значения веса в фунтах в поле редактирования, затем щелкнуть на кнопку Пересчет. Щелчок на изображении командной кнопки — это пример того, что в Windows называется событием. Щелчок кнопкой мыши событие onClink, двойной щелчок — событие onDblClick.

В Delphi реакция на событие реализуется как процедура обработки события. Таким образом, задача программиста состоит в написании необходимых процедур обработки событий. Сначала следует маркировать (выделить) объект, для которого создается процедура обработки события, в нашем случае это командная кнопка Пересчет. Затем выбрать вкладку Events (события) окна Object Inspector. В результате на экране появится вкладка со списком событий.

Чтобы создать процедуру обработки событий, надо сделать двойной щелчок в поле имени процедуры обработки события. В результате открывается окно редактора кода с макетом процедуры обработки события.

Delphi автоматически присваивает процедуре обработки события имя. Имя процедуры обработки события состоит из двух частей. Первая часть идентифицирует форму, которой принадлежит объект, для которого создается процедура обработки события.

Вторая часть имени идентифицирует сам объект и события. В нашем случае имя формы это Form1, имя командной кнопки — Button1, а имя события — Click.

В окне редактора кода между begin и end, можно печатать инструкции Object Pascal, реализующие процедуры обработки события.

Ниже приведен текст процедуры для события On Click на кнопке Пересчет.

Procedure TForm1. Button1Click (Sender: TObject);

Var

f: real; {вес в фунтах}

k: real; {вес в килограммах}

begin

f:= StrToFloat (Edit1.Text);

k:= f * 0.4059;

Label2.caption:= Edit1. Text +' фунт (а/oв) это `+

FloatToStrF (k, ffGeneral, 4,2) +

`килограмм (а/ов)';

end;

Исходные данные программа получает из поля редактирования Edit1, обращением к свойству Text. Свойствo Text содержит строку символoв (текст), поэтому, для преобразования изображения цифр в число, в программе используется функция StrToFloatF.

Вывод вычисленного значения программа осуществляет в поле метки Label2, присвоением ее свойству Caption значения — текста сообщения.

4. Сохранения проекта

Чтобы сохранить проект, надо из меню File выбрать команду Save Project As. Если проект еще ни разу не был сохранен, то в ответ на команду сохранения проекта Save Project As Delphi сначала выводит диалоговое окно Save Unit1 As. В этом окне следует выбрать папку, предназначенную для хранения всех проектов Delphi. В папке проектов Delphi следует создать новую, отдельную папку для файлов сохраняемого проекта. Для этого надо щелкнуть на кнопке Создание новой папки.

Рядом с появившемся значком новой папки, в рамке, следует напечатать имя папки проекта, например, Фунты — килограммы, и нажать, после чего двойным щелчком на значке созданной папки раскрыть ее. Затем в поле Имя файла надо ввести имя программного модуля, например, FuntToKg1, и щелкнуть на кнопке Сохранить. Именем файла проекта может быть, например: FuntToKg. Имена программного модуля (имеющего расширение pas) и файла проекта (имеющего расширение dpr) должны различаться.

5. Компиляция.

После ввода текста процедуры обработки события и сохранения проекта можно, выбрать команду Compile из меню Project, откомпилировать приложение. Если в программе нет синтаксических ошибок, то на экране появляется окно Compiling, информирующее о результатах компиляции.

Запуск приложения из среды программирования.

Пробный запуск приложения можно выполнить непосредственно из среды программирования, не завершая работу с Delphi, с помощью команды Run из меню Run.

6. Окончательная настройка приложения.

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

Чтобы назначить приложению название и значок, надо из меню Project выбрать команду Option, затем в открывшемся диалоговом окне Project Option вкладку Application.

В поле Title (заголовок) следует ввести названия приложения и щелкнуть на командной кнопке Load Icon (загрузить значок). Название приложения во время его работы выводится на панель задач Windows рядом со значком, отображающим это приложение. Чтобы назначить приложению значок, отличный от стандартного, надо щелкнуть мышью на кнопке Load Icon. Затем, используя стандартное окно просмотра папок, найти подходящий значок в (значки хранятся в файлах с расширением ico).

ЗАМЕЧАНИЕ

Главный модуль приложения хранится в файле с расширением dpr. Чтобы увидеть его текст, надо из меню View выбрать команду Project Source.

Ниже приводится текст главного модуля разработанной программы.

program FuntToKg;

uses

Forms,

FunToKg1 in `FuntToKg1.pas' {Form1};

{$R*.RES}

begin

Application.Initialize;

Application.Title:='Фунты->Килограммы;

Application.CreateForm (Tform1,Form1);

Aplication.Run;

end.

Начинается главный модуль словом program, за которым следует имя программы, совпадающие с именем проекта. Имя программы задается программистом в момент сохранения файла проекта, и оно определяет имя создаваемого компилятором исполняемого файла программы. Далее, за словом uses, следуют имена используемых модулей: библиотечного модуля Forms и модуля формы FunToKg1. Похожая на комментарий директива {$R*.RES} указывает компилятору, что нужно использовать файл ресурсов, который содержит описания ресурсов приложения, например, пиктограммы. Звездочка показывает, что имя файла ресурсов такое же, как и у файла проекта, но с расширением res.

ЗАМЕЧАНИЕ Файл ресурсов не является текстовым файлом и просмотреть его с помощью редактора текста нельзя. Для работы с файлами ресурсов можно использовать входящую в состав Delphi утилиту Image Editor, доступ к которой можно получить, выбрав команду Image Editor из меню Tools.

Выполняемая часть главного модуля находится между инструкциями begin и end. Инструкции исполняемой части обеспечивают инициализацию приложения и вывод на экран стартового окна. Помимо главного модуля каждая программа включает в себя как минимум один модуль формы, который содержит описание стартовой формы приложения и поддерживающих ее работу процедур. В Delphi каждой форме соответствует свой модуль. Ниже приведен текст модуля формы программы пересчета веса из фунтов в килограммы.

Unit FuntToKg1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics,

Controls, Forms, Dialogs, StdCtrls;

type

Tform1=class (TForm)

Label1: Tlabel;

Edit1: TEdit;

Button1: TButton;

Label2: TLabel;

procedure Button1Click (Sender: TObject);

private

{Private declarations }

public

{Public declarations }

end;

var

Form1: Tform1;

implementation

{$R*.DFM}

procedure TForm1. Button1Click (Sender: TObject);

var

f: real; {вес в фунтах}

k: real; {вес в килограммах}

begin

f:=StrToFloat (Edit1.Text); {ввод исходных данных}

k:=f*0.4095; {вычисление}

Label2.caption:=Edit1.text+'фунт (а/ов)это'+ FloatToStrF (k, ffGeneral, 4,2)+

` килограмм (а/ов)'; {вывод результата}

end;

end.

Следует отметить, что значительное количество инструкций модуля формируются самим Delphi. Например, Delphi, анализируя действия программиста по созданию формы, формирует описание класса формы.

Перечень заданий к работе для самостоятельного выполнения.

• 1. Спроектировать приложение, которое даст возможность определить объем помещения Вашей лаборатории.
• 2. Написать программу и выполнить проект с помощью которого можно определить диаметр провода по заданной площади его поперечного сечения.
• 3. Найти необходимое количество асфальта для покрытия заданной площади, если известно что на один квадратный метр расходуется 130 кг асфальта при толщине укладываемого слоя 5 см. Задачу оформить в виде диалогового окна.
• 4. Спроектировать интерфейс пользователя для решения следующей задачи: определить время кипения воды объемом 1.5 литра в электрическом чайнике мощностью 1 квт.
• 5. Выполнить приложение с помощью, которого можно будет определить время падения предмета сброшенного с третьего этажа здания. Трудно ли решить обратную задачу — определить высоту третьего этажа, если известно время падения предмета?
• 6. Определить вес арбуза по его объему, если его плотность принять равным 0.98 г/см. куб. Попробуйте произвести расчеты при другом значении плотности, например, 1.1 г/ см. куб.
• 7. Составьте программу перевода сомони в доллары, взяв курс доллара на день составления данной программы. Работу оформить как приложение Windows.
• 8. Составьте программу перевода углов из градусов в радианы. Задачу оформить как Windows приложение.
• 9. Напишите программу перевода температуры из градусов по шкале Цельсия © в градусы шкалы Фаренгейта (F). Перевод осуществить по формуле F=1.8*C + 32.
• 10. Напишите программу определения размера месячной заработной платы рабочего, если его часовая ставка составляет 25 дирамов. Оформите работу в виде проекта в среде Delphi.
• 11. Оформите законченное Windows приложение для перевода дюймов в сантиметры
• 12. Какое количество хлопка можно собрать с площади 234 га, если известно, что урожайность с этого поля, предположительно, составляет 25 ц/ га. Задачу оформить в виде законченного программного продукта.