Пример выполнения работы

Задание: разработать приложение для вычисления функции

,

если a=1.5, b= – 0.5, .

Блок-схема алгоритма вычисления значения функции приведена на рис. 1.

Данный проект будет иметь одну форму, на которой расположены следующие интерфейсные элементы (рис. 2):

• четыре элемента TEdit (однострочное редактируемое текстовое поле): Edit1 и Edit2 – для ввода исходных данных (a и b); Edit3 и Edit4 – для вывода результата (x и y);

• шесть элементов TLabel (надпись на форме);

• элемент TPanel (панель) – для размещения кнопок;

• кнопка TButton (простая кнопка) – для запуска процедуры расчёта;

• кнопка TBitBtn (кнопка с графикой) – для закрытия приложения.

Рис. 1

Рис. 2

Порядок выполнения

1. В среде программирования Delphi cоздать новый проект, выбрав пункт меню File/New Application.

2. Сохранить этот проект в папке "С:\Ваша _группа\Ваша _фамилия\Lab1\Primer" с помощью команды File-Save All. (Unit1.pas под новым именем Main.pas, а Project1.dpr под новым именем Lab1.dpr, где N – номер варианта).

3. Изменить заголовок (Form1) главной формы, выбрав в Инспекторе Объектов (Object Inspector, страница Properties) свойство Caption. Имя формы (Name) изменять не надо.

4. Поместить на форму первый компонент TEdit. Для этого в палитре компонентов открыть страницу Standard, мышью выбрать компонент TEdit и щёлкнуть левой кнопкой. Поместить курсор мыши на форму и щёлкнуть левой кнопкой – объект Edit1 появится на форме.

5. Изменить свойство Text этого компонента. Для этого в Инспекторе Объектов выбрать свойство Text и удалить его содержимое (Edit1).

6. Добавить следующие три компонента Edit2, Edit3, Edit4. Изменить свойство Text этих компонентов (см. п.5).

7. Поместить на форму первый компонент TLabel. Для этого в палитре компонентов открыть страницу Standard, мышью выбрать компонент TLabel и щёлкнуть левой кнопкой. Поместить курсор мыши на форму и щёлкнуть левой кнопкой – объект Label1 появится на форме.

8. Изменить свойство Caption этого компонента. Для этого в Инспекторе Объектов выбрать свойство Caption и в поле справа ввести текст Исходные данные.

9. Добавить следующие четыре компонента Label2, Label3, Label4, Label5, Label6. Изменить свойство Caption этих компонентов в соответствии с рисунком.

10. Поместить на форму компонент TPanel. Изменить свойство Caption этого компонента, удалив название Panel1 из поля справа от имени свойства.

11. Поместить на компонент Panel1 кнопку TButton и изменить значение свойства Caption кнопки.

12. Поместить на компонент Panel1 кнопку TBitBtn. Для этого в палитре компонентов открыть страницу Additional, мышью выбрать компонент TBitBtn и щёлкнуть левой кнопкой. Поместить курсор мыши на панель и щёлкнуть левой кнопкой – объект BitBtn1 появится на панели.

13. Изменить свойство Kind этого компонента. Для этого в Инспекторе Объектов выбрать свойство Kind и задать значение bkClose.

14. Добавить к первому полю Edit1 обработчик события OnKeyPress. Для этого с помощью мыши выделить компонент на форме и на странице событий Events в Инспекторе Объектов выбрать событие OnKeyPress. Выполнить двойной щелчок левой кнопкой мыши в поле справа от имени OnKeyPress – появится редактор кода с программной заготовкой требуемого обработчика событий. Между begin и end необходимо добавить следующий текст:

if not (Key in ['0'..'9','-',',',#8]) then Key:=#0

Этот оператор отсеивает все символы, кроме цифр, знаков “минус” и “запятая” и #8 (BackSpace).

15. Добавить ко второму полю Edit2 обработчик события OnKeyPress. Для этого с помощью мыши выделить компонент на форме и на странице событий Events в Инспекторе Объектов выбрать событие OnKeyPress. Выполнить щелчок левой кнопкой мыши в поле справа от имени события. Нажать на стрелку выпадающего списка и щёлкнуть на имени процедуры Edit1KeyPress.

16. Добавить к полю Edit1 обработчик события OnExit. Для этого с помощью мыши выделить компонент на форме и на странице событий Events в Инспекторе Объектов выбрать событие OnExit. Выполнить двойной щелчок левой кнопкой мыши в поле справа от имени OnExit – появится редактор кода с программной заготовкой требуемого обработчика. Между begin и end следует ввести:

a:=StrToFloat(Edit1.Text);

Текст процедуры:

procedure TForm1.Edit1Exit(Sender: TObject);

begin

a:=StrToFloat(Edit1.Text);

end;

17. Добавить к полю Edit2 обработчик события OnExit (аналогично п. 16).

Текст процедуры:

procedure TForm1.Edit2Exit(Sender: TObject);

begin

b:=StrToFloat(Edit2.Text);

end;

18. Добавить к первой кнопке Button1 обработчик события OnClick. Для этого дважды щёлкнуть по кнопке. В результате в текст модуля формы в раздел implementation будет добавлена программная заготовка требуемого обработчика событий. Перед begin нужно добавить описание переменных в разделе var: