
Структура модуля программного кода
Проект Delphi представляет собой набор программных единиц – модулей. Главный модуль содержит инструкции, с которых начинается выполнение программы. Главный модуль приложения формирует Delphi. Главный модуль хранится в файле с разрешением *.dpr.
Начинается главный модуль словом program, за которым следует имя программы, совпадающее с именем проекта. Имя программы задается программистом в момент сохранения файла проекта и оно определяет имя исполняемого файла программы.
Далее за словом uses следуют имена используемых модулей: библиотечного модуля forms и модуля формыFuntToKg1.
Выполняемая часть главного модуля находится между инструкциями begin и end
В Delphi каждой форме соответствует свой модуль. Начинается модуль со слова unit за которым следует имя модуля. Состоит модуль из трех разделов: интерфейса, реализации и инициализации.
Раздел интерфейса (начинается со слова interface). Здесь перечислены используемые модулем другие библиотечные модули и находится сформированное Delphi описание формы (типа), которое следует за словом Type.
Раздел реализации (начинается со слова implementation) содержит объявление локальных переменных, процедур и функций.
Раздел инициализации позволяет выполнить инициализацию переменных модуля. Инструкции раздела инициализации располагаются после раздела реализации между begin и end. Если раздел инициализации не содержит инструкций, то слово begin не указывается.
Порядок выполнения работы
Загружаем среду программирования Delphi. Пуск ПрограммыBorland DelphiDelphi 7.
Создадим форму вычисления квадрата числа
На стартовой форме установим следующие свойства стартовой формы
|
Свойство |
Значение |
|
Свойство |
Значение |
1 |
Caption |
frmФамилия |
Width |
330 |
|
2 |
Name |
Задание1 |
4 |
BorderStyle |
bsSingle |
3 |
Height |
250 |
5 |
Font Size |
12 |
Поместите на форму указанные на рисунке компоненты.
Установите следующие свойства для этих компонентов
Свойство |
Компонент; |
|||||
MyButton1 |
MyButton2 |
MyButton3 |
MyButton4 |
Edit1 |
Edit2 |
|
Caption |
Нажми меня |
Считать |
Сброс |
Закрыть |
|
|
Top |
16 |
192 |
336 |
80 |
152 |
296 |
Left |
200 |
232 |
240 |
528 |
136 |
136 |
Height |
49 |
41 |
41 |
41 |
21 |
21 |
Width |
177 |
145 |
145 |
145 |
81 |
81 |
Font |
Arial жирный размер-14 цвет - черный |
Свойство |
Компонент; |
||
LblPrim1 |
LblPrim2 |
LblPrim3 |
|
Caption |
|
Число |
Ответ |
Top |
80 |
152 |
296 |
Left |
56 |
48 |
64 |
Height |
13 |
24 |
24 |
Width |
3 |
66 |
59 |
Font |
Arial жирный размер-14 цвет - черный |
После оформления внешнего вида формы приступим к созданию исходного кода. Создайте обработчик события OnClick для кнопки
Выберите кнопку btnMyButton1 в раскрывающемся списке в верхней части окна инспектора объектов
Откройте инспектор объектов вкладку Events (События)
Выделите событие OnClick, введите в поле справа от имени события btnMyButtton и нажмите клавишу Enter или дважды щелкните мышкой. При этом становится активным окно редактора кода и Delphi автоматически создает ОБРАБОТЧИК СОБЫТИЯ – процедуру выполняющуюся при нажатии кнопки.
Чтобы нажатие кнопки приводило к каким-либо действиям, необходимо изменить содержимое обработчика события. Задайте изменение текста при нажатии кнопки. Для этого в окне редактора кода между Begin и End введите:
lblPrim1.Caption:='Лабораторная 2. Задание1'
Аналогично программируем остальные кнопки
btnMyButton2 – код
var
a,S:real;
begin
a:= StrToFloat(Edit1.Text);
S:=sqr(a);
Edit2.Text:=FloatToStr(S);
end;
btnMyButton3 – код
Edit1.Text:= ‘ ’;
Edit2.Text:= ‘ ’;
btnMyButton3 – код
Close
Еще рез запустить программу на выполнение.
Сохраните проект под именем Задание1PR1
Показать работу учителю
Создайте форму для вычисления выражения
Выполните задания своего варианта
Вариант |
Задание1 |
Задание2 |
|
1 |
|
|
a≠0 b≠0 |
2 |
|
|
a≠0 b≠0 |
3 |
|
|
a≠0 b≠0 |
4 |
|
|
a≠0 b≠0 |
5 |
|
|
a≠0 b≠0 |
6 |
|
|
a≠0 b≠0 |
7 |
|
|
a≠0 b≠0 |
8 |
|
|
a≠0 b≠0 |
9 |
|
|
a≠0 b≠0 |
10 |
|
|
a≠0 b≠0 |
11 |
|
|
a≠0 b≠0 |
12 |
|
|
a≠0 b≠0 |
13 |
|
|
a≠0 b≠0 |
Выполнение задания сохраните в свою сетевую папку по именами Задание2PR2 и Задание3PR3
Проверьте работу всех объектов
Покажите работу преподавателю
Закройте программу и выйдите из визуальной среды
Оформите отчет о лабораторной работе (в отчете должно быть: тема, цель, блок схема программы, листинг программы)