 |
Технология создания программного приложения
|
|
|
|
1.Создадим папку для проекта. Запустим программу Delphi.
2.Откроем новое приложение с помощью команды главного меню File\New Application.
3.На пустой форме разместим следующие компоненты (см. рис.1.): Panel1, Panel2, Label1, StaticText1, StaticText2, Edit1, Edit2, Memo1, Memo2, Button1, Button2, BitBtn1.
Рис.1. Вид формы примера задачи расчета по формулам.
4.Свойству Caption метки Labell зададим значение: «Введите исходные данные – значения А и В». Для того чтобы текст располагался в двух строках и был выровнен по центру, необходимо установить следующие значения свойств:
| Свойство | Значение |
| AutoSize | False |
| WordWrap | True |
| Alignment | TaCenter |
Размеры метки и ее расположение отрегулировать вручную. Для выбора размера шрифта используем свойство Font.
5.Для компонентов StaticText1 и StaticText2 установим в свойстве BorderStyle значение sbsSunken, получим эффект вдавленности рамки компонента. Свойству Caption установим значение, равным «Значение А» и «Значение В» соответственно.
6.В свойство Text компонентов Edit1 и Edit2 помещаем символ «пробел», очищая поля ввода, в которые на этапе выполнения будут вводится исходные данные. Для правильной работы программы строка символов должна содержать только целые числа.
|
8.Для компонента Panell установим значение свойства Caption:
«Вычислить х=a+b*b/а; y=(a-b)*x».
Для расположения компонента в верхней части формы и изменения цвета поля, размера шрифта и цвета шрифта установим значения следующих свойств:
|
|
|
| Align | alTop |
| Color | clBlue |
| Font | size=14 Color=clYellow |
9.Для компонента Panel2 установим свойство Align равным alBottom для расположения панели в нижней части формы
10. Поместим три кнопки Button1, Button2 и BitBtn1 на панель Panel2. Кнопкам Button1 и Button2 установим свойство Caption равным «Вычислить» и «Очистить» соответственно. Для кнопки завершения работы приложения BitBtn1 установим свойство Kind, со стандартным названием Close и рисунком.
11. Двойным щелчком активизируем кнопку «Вычислить» и в окне кода появится шаблон обработчика события, в который запишем следующие строки кода.
procedure TForm1.Button1Click (Sender: TObject);
var а, b: integer; // исходные данные
x, y: integer; // результаты вычислений
Begin
{Формирование числовых значений a и b}
a:=StrToInt (Edit1.Text);
b:= StrToInt (Edit2.Text);
{Вычисление значений х и у}
x:=a+b*b div a;
y:=(a-b)*x;
{Вывод результатов вычислений}
Memo1.Lines.Add (‘Результаты вычислений’);
Memo1.Lines.Add (‘х=’+IntToStr(x));
Memo1.Lines.Add (‘у=’+IntToStr(у));
end;
12. Вернемся на форму, нажав функциональную клавишу F12. Двойным щелчком активизируем кнопку «Очистить» и в обработчик событий OnClick вставим строку: Memo1.Clear; Edit1.Clear; Edit2.Clear; Edit1.SetFocus;
13.Для автоматического перевода курсора из Edit1 в Edit2 после ввода в Edit1 символов и нажатия клавиши Enter создадим обработчик события OnKeyPress для компонента Edit1: выделяем компонент Edit1, в Инспекторе Объектов на странице «События» справа от события OnKeyPress выполняем двойной щелчок ЛКМ. Получив в окне кода шаблон обработчика события OnKeyPress, вставим внего необходимые строки кода. В процедуре используется оператор выбора Case, который имеет следующий формат:
Case <селектор> of
<метка 1>: <оператор>;
<метка 2>: <оператор>;
...................
<метка n>: <оператор>;
else <оператор>;
end;
В качестве селектора может быть целочисленная или символьная константа, либо имя переменной, значение которой определено до входа в оператор Case. В качестве меток внутри оператора Case могут быть целочисленные или символьные константы, не требующие объявления в разделе Const процедуры на языке Object Pascal, содержащей оператор Case. Правило выполнения оператора:
|
|
|
1) Значение селектора сравнивается с метками внутри оператора и при совпадении с одной из меток выполняется оператор, стоящий за этой меткой, после чего осуществляется выход из оператора Case.
2) Если значение селектора не совпадает ни с одной из меток внутри оператора, то выполняется оператор, стоящий после ключевого слова Else, после чего осуществляется выход из оператора Case.
Procedure TFrom1.Edit1 KeyPress (Sender: TObject; var Key: Char);
Begin
{Проверка значения параметра Key, соответствующего нажатой клавиши}
case Key of
‘0’..’9’:; // цифра
#8:; // клавиша Backspace
#13: Edit2.SetFocus; // клавиша Enter
else Key:= Chr (0);
end;
end;
Процедура заменяет недопустимый символ на символ с кодом 0 (пусто), в результате чего этот символ в поле редактирования не появляется.
14. Все компоненты формы, включая и название самой формы Form1, получили свои названия на этапе конструирования формы с использованием свойств компонентов, устанавливаемых в Инспекторе Объектов, т.е. сформированных статически.
В Delphi можно изменять надписи на компонентах на этапе выполнения программы, т.е. динамически. Для этого необходимо создать обработчик события OnCreate, который возникает после создания Windows-окна, но до появления окна на экране. Создадим обработчик события OnCreate для вывода следующего текста в строке заголовка формы: «Задание 1. Вычисление по формуле.»
Для создания обработчика события OnCreate необходимо выделить объект Form1, затем на странице «События» Инспектора Объектов выделить строку OnCreate и выполнить двойной щелчок ЛКМ в правой части строки. В окне кода появится шаблон процедуры, где между Begin и End записываются строки кода:
Procedure TFrom1.FormCreate (Sender: TObgect);
Begin
Form1.Caption:= ‘Задание1. Вычисления по формулам’;
End;
15. Сохраним проект в папке и запустим на выполнение. Для вычисления значений функции X и Y введем значения А и В в поля Edit1 и Edit2 соответственно и щелкнем на кнопке «Вычислить». Для очистки полей ввода – вывода перед повторением вычислений щелкнем на кнопке «Очистить», а для завершения работы приложения щелкнем на кнопке «Close». Запустить приложение на выполнение можно одним из следующих способов:
|
|
|
- 
команда Выполнить (Run) из пункта меню Выполнить (Run);
- пиктограмма «Выполнить» на панели инструментов;
- клавишей F9.
Форма с исходными данными и результатами вычислений представлена на рис.2
Рис. 2. Форма с исходными данными и результатами вычислений
|
|
|
