Автор работы: Пользователь скрыл имя, 21 Января 2014 в 13:09, лабораторная работа
Цель работы:
Познакомиться с интегрированной средой разработки (ИСР)“Delphi 7”
Научиться создавать интерфейс приложения
Создать приложение обеспечивающее сложение двух чисел
ИСР “Delphi 7” запускается путем выбора иконки “Delphi 7” либо на рабочем столе, либо в меню “ПУСК” подменю “Программы”. После запуска на экране обычно появляются такие окна:
Конструктор стартовой формы представляет собой пустое окно, готовое к превращению в окно приложения Windows. Это окно - основа для создания интерфейса будущего приложения.
Главное окно ИСР “Delphi 7” является управляющим центром ИСР “Delphi”. В этом окне находится главное меню, панели инструментов и палитра компонентов.
Окно просмотра дерева объектов, которое имеет заголовок Object Tree View, отображается перечень компонент формы в виде дерева. Окно помогает быстро перейти к нужному компоненту или другому элементу проекта, в тех случаях, когда проект имеет сложную структуру.
Окно Object Inspector – окно редактора свойств объектов предназначено для изменения свойств компонентов, или установления связей между событиями компонентов и процедурами их обработки. Это окно может быть активизировано функцией главного меню View-> Object Inspector или клавишей F11.
Окно редактора кода предназначено для редактирования текстов программных модулей (Unit) или файла проекта. Это окно обычно полностью или почти закрыто окном конструктора стартовой формы. Для того, чтобы его активизировать, можно воспользоваться клавишей F12, которая позволяет пользователю переходить от формы к коду и обратно.
Компонент |
Свойство |
Значение свойства |
Form1 |
Caption |
Простейший калькулятор |
Label1 |
Font ->Size |
16 |
Caption |
+ | |
Label2 |
Font ->Size |
16 |
Caption |
= | |
Edit3 |
ReadOnly |
True |
Button1 |
Caption |
+ |
Font ->Size |
16 | |
Name |
btnPlus |
Рисунок 1.1 – Интерфейс приложения
unit UnitCalculator1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
btnPlus: TButton;
procedure FormCreate(Sender: TObject);
procedure btnPlusClick(Sender: TObject);
procedure EditChange(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject); //Очищаем ячейки
begin
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
end;
procedure TForm1.btnPlusClick(Sender: TObject);//Вычисляем сумму
begin
try
Edit3.Text:=FloatToStr(
StrToFloat(Edit1.Text)+
except
showMessage('Ошибка в исходных данных ');
end;
end;
procedure TForm1.EditChange(Sender: TObject);//Очищаем ячейку 3
begin
Edit3.Text:='';
end;
end.
Данные 1 |
Данные 2 |
Результат |
2 |
6 |
8 |
- 5 |
9 |
4 |
0,5 |
0,007 |
0,507 |
-0,95 |
5 |
4,05 |
100 |
рт |
Ошибка в исходных данных |
В процессе работы познакомились с интегрированной средой разработки (ИСР)“Delphi 7”.Научились создавать интерфейс простейшего приложения.Создали работоспособное приложение позволяющее складывает целые, дробные, положительные и отрицательные числа.
ИСР “Delphi 7” позволяет решать многие прикладные задачи.