Лабораторная работа № 12
Решение задачи на линейные алгоритмы в среде Delphi.
Цель работы: Создавать приложения в интегрированной среде Delphi.
Сохранять и запускать приложение.
Теория.
Проект Delphi состоит из форм, модулей, установок параметров проекта, ресурсов и т.д. Вся эта информация размещается в файлах.
Многие из этих файлов автоматически создаются Delphi. Ресурсы, такие, как битовые матрицы, пиктограммы и т.д., находятся в файлах, которые вы получаете из других источников или создаете при помощи многочисленных инструментов и редакторов ресурсов, имеющихся в вашем распоряжении.
Кроме того, компилятор также создает различные файлы.
Поведение объекта определяется тем, какие обработчики и для каких событий он имеет. Создание приложения в Delphi состоит из настройки свойств используемых объектов и создания обработчиков событий.
События – процедуры обработки, создаются в Инспекторе Объектов, во вкладке Events. Для того чтобы создать обработчик события необходимо напротив строки данного события щелкнуть два раза. Появиться процедура обработки в окне кода программы.
Procedure ИмяФормы.ИмякомпонентыИмяСобытия(без ON)(параметры);
Пример: для компоненты Button1 вызывается событие ONClick, размещенной на форме Form1.
procedure TForm1.Button1Click(Sender: TObject);
begin
// тело процедуры
end;
Пример написания программы
Задание: составить программу вычисления для заданных значений x, y, z арифметического выражения
.
Панель диалога программы организовать в виде, представленном на рис.1.2.
Работа с программой происходит следующим образом. Нажмите (щелкните мышью) кнопку “Выполнить”. В окне Memo1 появляется результат. Измените исходные значения x, y, z в окнах Edit и снова нажмите кнопку ”Выполнить” - появится новые результаты. Завершить работу программы можно нажав или ProgramReset в главном меню Run, или кнопку на форме.
Текст программы имеет вид:
unit tema1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Edit3: TEdit;
Label4: TLabel;
Memo1: TMemo;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text:='3,4'; // Начальное значение X
Edit2.Text:='0,74'; // Начальное значение Y
Edit3.Text:='19,43'; // Начальное значение Z
Memo1.Clear; // Очистка окна редактора Memo1
// Вывод строки в многострочный редактор Memo1
Memo1.Lines.Add('Лаб. раб. N1. Ст. гр. 740102 Иванов А.А.');
end;
Label1
Label2
Label3
Edit1
Edit2
Edit3
Memo1
Button1
Выполнение индивидуального задания
Ниже приведено 15 вариантов задач. По указанию преподавателя выберите свое индивидуальное задание. Уточните условие задания, количество, наименование, типы исходных данных. В соответствии с этим установите необходимое количество окон Edit, тексты заголовков на форме, размеры шрифтов, а также типы переменных и функции преобразования при вводе и выводе результатов.
Прочтите в прил.1 описание меню File, Edit, Run, а в прил.2 описание компонентов TEdit, TMemo, TButton. С помощью инспектора объектов измените цвет формы, шрифт выводимых символов.
Индивидуальные задания
Контрольные вопросы :
-
Настройка свойств компонентов ?
-
Создание процедуры обработки событий ?
-
Компоненты вкладки Standard палитры компонентов ?
