Задание1_Калькулятор (Лабораторная работа №1)
Описание файла
Файл "Задание1_Калькулятор" внутри архива находится в следующих папках: Лабораторная работа №1, 1. Документ из архива "Лабораторная работа №1", который расположен в категории "". Всё это находится в предмете "вычислительный практикум" из 3 семестр, которые можно найти в файловом архиве МГТУ им. Н.Э.Баумана. Не смотря на прямую связь этого архива с МГТУ им. Н.Э.Баумана, его также можно найти и в других разделах. Архив можно найти в разделе "лабораторные работы", в предмете "вычислительный практикум" в общих файлах.
Онлайн просмотр документа "Задание1_Калькулятор"
Текст из документа "Задание1_Калькулятор"
13
Задание 1
Основы программирования в среде Delphi
1.Введение.
Интегрированная среда программирования Turbo Delphi 4.0 предназначена для создания 32х разрядных приложений WINDOWS. В данной среде используется так называемое “визуальное программирование пользовательского интерфейса”, когда разработчику предоставляется возможность прямо на экране формировать интерфейс разрабатываемого программного продукта, используя стандартные элементы пользовательского интерфейса.
Языком программирования для среды Turbo Delphi является язык Delphi, представляющий дальнейшее развитие Object Pascal 9.0.
1.1.Типы файлов, используемые Delphi.
Среда Delphi предназначена для создания больших программ, элементы которых размещаются в разных файлах. Основной частью программы является проект. Файл программы, содержащий проект имеет расширение .dpr. Как правило, эта часть программы формируется самой средой Delphi, но при необходимости разработчик может ее изменить.
Помимо проекта программа может включать различные модули (Unit), которые содержатся в файлах с расширением .pas. Часть модулей, как обычно, стандартны и содержат процедуры и функции, выполняющие операции ввода-вывода и т.п., а остальные - добавляются разработчиком при написании программы. Среди добавляемых модулей принято различать модули, содержащие информацию о формах, и модули, содержащие процедуры и функции, непосредственно связанные с решением задачи.
Кроме указанных компонент программа может использовать динамические библиотеки DLL, файлы которых имеют расширение .dll.
При создании программы используется также библиотека стандартных компонент DCL (файлы которых имеют расширение .dcl), содержащая особым образом подготовленные классы.
Delphi позволяет создавать проекты, модули форм, модули разработчика, библиотеки DLL, а также текстовые файлы.
После успешной компиляции программы создается исполняемый файл с именем, совпадающим с именем проекта, и расширением .exe, и файлы скомпилированных модулей с расширением .dcu.
Помимо указанных файлов при работе в Delphi формируются, при необходимости, файлы ресурсов с расширением .res для проекта и с расширением .dfm для модулей форм. В эти файлы помещаются параметры проекта и его компонент, графические изображения, заданные в результате визуального программирования.
1.2.Основные принципы событийного программирования.
Событийным называется программирование, при котором программа представляет собой набор обработчиков некоторых событий. В качестве событий при этом могут интерпретироваться как нажатие какой-либо “кнопки” в окне программы, так и некоторые ситуации в самой программе (например, вызов формы). Таким образом, основной цикл работы программы представляет собой ожидание какого-либо события,
вызов соответствующего обработчика для обработки этого события, после чего вновь следует ожидание события, и цикл повторяется.
Такая программа не имеет алгоритма в традиционном смысле, так как связь между отдельными частями не задана жестко, а зависит от последовательности наступления тех или иных событий.
Задача разработчика в этом случае - определить множество событий для программируемой задачи и написать соответствующие обработчики. Причем Delphi предоставляет как стандартные обработчики некоторых событий, так и заготовки для добавляемых обработчиков.
2.Среда программирования Delphi.
При вызове интегрированной среды Delphi на экране появляется окно, вид которого представлен на рис. 1.
Основными элементами данного окна являются:
-
главное меню;
-
панель быстрого доступа;
-
палитра компонент;
-
инспектор объектов (Object Inspector);
-
чистое окно формы (Form1) и под ним чистое окно программы (Unit1).
Примечание. Одновременно Delphi может работать только с одним проектом.
Последовательность действий при создании программы проще всего показать на конкретном примере.
Задание. Разработать программу - калькулятор, выполняющий основные арифметические действия.
-
Создание программы начинается с задания имени проекта и первого модуля. При определении имени первого модуля следует сначала щелкнуть либо по первой форме (Form1), либо по странице (Unit1) текстового редактора, а затем определить новое имя через меню File\Save As... В появившемся окне создайте новую папку и введите имя модуля - C_unit.pas. Имя проекта определяется через меню File\Save Project As... (сохраните его в той же папке с именем Culc.dpr).
-
Измените заголовок формы Form1 на заголовок Калькулятор. Для этого, предварительно выделив щелчком форму, на странице Propeties инспектора объектов щелчком выделите свойство Caption (Заголовок) и введите имя Калькулятор.
-
Разместите на форме окно ввода чисел. Для этого на странице Standart палитры компонент найдите кнопку Edit, щелкните на ней левой кнопкой мыши. Затем щелкните левой кнопкой мыши на нужном месте формы (см. Рис. 2). После этого измените размер компонента (тащите за черные квадратики в нужную сторону). Теперь удалите текст из окна компонента. Для этого на странице Propeties инспектора объектов выделите свойство Text и удалите информацию из этого поля.
-
Разместите кнопки операций на форме. Для этого на странице Standart палитры компонент найдите кнопку Button. Для того, чтобы не перетаскивать каждый компонент отдельно, перед выбором мышкой компонента нажмите клавишу Shift. Теперь щелкая мышью в нужных местах можно установить сразу все 7 кнопок. Для отмены работы с кнопкой щелкните мышью по стрелке под словом Standart палитры компонент. Затем, последовательно щелкая мышью по установленным кнопкам, измените заголовки кнопок (свойство Caption на странице Propeties инспектора объектов) соответственно на С, =, +, -, х, / и Quit (см. рис.2 и рис. 3).
Одновременно с построением формы Delphi строит новый класс с именем Tform1 (потомок класса стандартного класса Tform) и создает объект данного класса с именем Form1(на рисунке его не видно).
Компиляцию проекта выполняют, используя либо Ctrl-F9, либо меню Project\Compile.
Рекомендации. Чаще сохраняйте создаваемый проект. Для более быстрого отыскания ошибок регулярно выполняйте компиляцию
5. Добавьте в модуль после служебного слова implementation объявление переменных, которые будут использоваться для создания проекта:
var
Sum:real;
operation:char='@';
6. Создадим процедуру Operate, которая непосредственно выполняет вычисления:
Рис.2. Форма “Калькулятор”.
Рис.3. Фрагмент текста модуля.
procedure operate;
var s:string;
code:integer;
n:real;
begin
s:=Form1.Edit1.text; { читаем сроку из параметра text Edit1}
Form1.Edit1.clear; { очищаем Edit1}
val(s,n,code); { преобразуем строку в число}
case operation of { выполняем операцию}
'@': sum:=n;
'+': sum:=sum+n;
'-': sum:=sum-n;
'*': sum:=sum*n;
'/': sum:=sum/n;
end;
end;
7. Теперь “научите” форму обрабатывать нажатия на кнопки. Для этого щелкните мышью по кнопке С и перейдите на страницу Events инспектора объектов. На этой странице приведены все события, на которые может реагировать компонент Button. Щелкнув по строке OnClick, выберете событие “щелчок мыши по компоненту”. Двойным щелчком по той же строке вызовете заготовку обработчика данного события:
procedure TForm1.Button1Click(Sender: TObject);
begin
end;
Между begin и end необходимо ввести текст процедуры:
Edit1.Clear; { очистить окно компонента Edit1}
operation:='@'; { установить состояние “первая операция “}
Edit1.setfocus; { установить активным окно компонента Edit1}
Аналогично введите процедуры обработки нажатий на другие клавиши:
Для кнопки = (Button2):
procedure TForm1.Button2Click(Sender: TObject);
var s:string;
begin
operate; { выполнить предыдущую операцию}
str(sum:6:3,s); { преобразовать результат в строку}
Edit1.text:=s; { вывести строку в окно компонента Edit1}
operation:='@';
Edit1.setfocus; { установить курсор на кнопку Button1}
end;
Для кнопки + (Button3):
procedure TForm1.Button3Click(Sender: TObject);
begin
operate; { выполнить предыдущую операцию}
operation:='+'; { установить состояние "операция +"}
Edit1.setfocus; { установить активным окно компонента Edit1}
end;
Для кнопки - (Button4):
procedure TForm1.Button4Click(Sender: TObject);
begin
operate; { выполнить предыдущую операцию}
operation:='-'; { установить состояние "операция +"}
Edit1.setfocus; { установить активным окно компонента Edit1}
end;
Для кнопки * (Button5):
procedure TForm1.Button5Click(Sender: TObject);
operate;
operation:='*';
Edit1.setfocus;
end;
Для кнопки / (Button6):
procedure TForm1.Button6Click(Sender: TObject);
begin
operate;
operation:='/';
Edit1.setfocus;
end;
Для кнопки Выход (Button7):
procedure TForm1.Button7Click(Sender: TObject);
begin
Close; { Завершение работы приложения}
end;
8. Запустите программу на выполнение, используя либо F9, либо меню Run/Run, либо кнопку Run на панели быстрого доступа.
Примечание. Обратите внимание, что основные интерфейсные элементы, связанные с окном программы (такие как кнопки вызова системного меню, свертывания, развертывания, завершения программы и т.д.), при использовании среды Delphi программируются автоматически.
3. Структура программы.
Созданная в предыдущем разделе программа состоит из следующих элементов:
1. Проект программы. Он был создан средой автоматически. Для просмотра (а при необходимости и изменения ) проекта необходимо использовать меню Project / View Source:
program Culc;
uses { используемые модули}
Forms,
C_unit in 'C_unit.PAS' {Form1};
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1); { создание формы}
Application.Run; { основной цикл программы }
end.
2. Модуль C_unit.PAS:
unit Culc;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;