Среда визуального программирования Delphi

Размещено на http://www.allbest.ru/

Колледж Экономики, Бизнеса и Права

Карагандинского Экономического Университета Казпотребсоюза

Тема: «Среда визуального программирования Delphi»

Выполнил

учащийся, группы ИС-33

Коврига Юрий

Караганда-2010г.

Практическая работа №1

Среда визуального программирования Delphi

Программирование как область деятельности бурно развивается. Если несколько лет назад о создании своих собственных программ под Windows рядовому программисту оставалось только мечтать, так как практически единственным инструментом разработки ориентированных на работу в Windows программ был Borland C++ for Windows, явно предназначенный для профессионалов, то сейчас, благодаря появлению Delphi, возможность создания программ под Windows стала реальностью.

Delphi -- это среда разработки программ, ориентированных на работу в Windows. В качестве языка программирования в Delphi используется объектно-ориентированный язык Object Pascal, который можно рассматривать как дальнейшее развитие Turbo Pascal 7.0.

В основе идеологии Delphi лежат технологии визуального проектирования и событийного программировании, применение которых позволяет существенно сократить время разработки и облегчить процесс создания приложений -- программ, работающих в среде Windows.

В первой практической работе для демонстрации возможностей Delphi и технологии визуального проектирования займемся разработкой программы решения квадратного уравнения.

Форма приложения

Стартовая форма создается путем изменения свойств (характеристик) формы Forml. Свойства формы определяют ее внешний вид: размер, положение на экране, текст заголовка, вид рамки. Они перечислены на вкладке (странице) Properties (Свойств) окна Object Inspector. В левой колонке перечислены имена свойств, в правой -- их значения.

Сначала надо изменить значение свойства Caption (Заголовок) -- заменить текст «Forml» на текст «Решение квадратного уравнения». Для этого нужно щелкнуть на поле Caption. В результате этого в правой колонке, где находится текущее значение свойства -- текст «Forml», появляется курсор (Рисунок-3).

Используя клавишу <Backspace>, надо удалить текст «Form1» и ввести текст «Решение квадратного уравнения».

Аналогичным образом можно установить значения свойств Height (Высота) и Width (Ширина), которые определяют высоту и ширину формы. Размер формы, а также ее положение на экране задается в пикселях.

При выборе некоторых свойств, например Color (Цвет), которое определяет цвет фона формы, после значения свойства выводится кнопка раскрывающегося списка. В результате щелчка на ней появляется список доступных значений свойства, из которого можно выбрать нужное значение (Рисунок-4).

Помимо обычных свойств у объектов, в том числе и у формы, могут быть вложенные свойства. Перед именем вложенного свойства стоит значок «плюс». При двойном щелчке на имени вложенного свойства раскрывается список уточняющих свойств (Рисунок-5), а значок «плюс» меняется на «минус».

В поле значения свойства Font (Шрифт) после значения расположена кнопка с тремя точками, при нажатии которой появляется стандартное диалоговое окно Windows выбора шрифта и его характеристик.

Большинство свойств определяют внешний вид формы. Свойство Name (Имя) определяет имя формы, оно используется в программе для управления формой.

Компоненты формы

Программа решения квадратного уравнения должна получить от пользователя исходные данные -- значения коэффициентов уравнения. В Windows данные вводятся в поля редактирования с клавиатуры. Поэтому в нашу форму надо добавить три компонента -- три поля редактирования.

В Delphi поля редактирования, командные кнопки, поля статического текста и прочие элементы управления, находящиеся в форме, называются компонентами (компоненты формы). В программе форма и компоненты рассматриваются как объекты. Этим можно объяснить то, что окно, в котором находятся свойства компонентов, называется Object Inspector (Инспектор объектов).

Чтобы добавить к форме компонент, надо на палитре компонентов щелкнуть на кнопке с нужной пиктограммой, затем в той точке формы, где должен находиться правый верхний угол компонента. В результате на форме появляется компонент стандартного размера.

Добавить к форме компонент нужного размера можно следующим образом. После щелчка на палитре компонентов нужно поместить курсор мыши в ту точку формы, где должен находиться левый верхний угол компонента, нажать кнопку мыши и, удерживая ее нажатой, переместить курсор в точку, где должен быть правый нижний угол компонента, затем отпустить кнопку мыши. В форме появится компонент нужною размера.

Один компонент формы окружен восемью маленькими квадратиками (маркерами выделения). Он называется выделенным (маркированным). Свойства маркированного компонента отображаются в окне Object Inspector. Ниже в таблице перечислены основные свойства компонента «Поле редактирования».

Delphi позволяет легко изменить положение и размер компонента. Чтобы изменить положение компонента, надо установить курсор мыши на изображение компонента, нажать левую кнопку мыши и, удерживая ее нажатой, переместить изображение границы компонента в нужную точку формы; затем отпустить кнопку мыши.

Чтобы изменить размер компонента, надо его выделить (щелкнуть на изображении компонента), спозиционировать курсор мыши на одном из маркеров компонента, нажать левую кнопку мыши и, удерживая ее нажатой, изменить положение границы компонента; затем отпустить кнопку мыши.

Так же как свойства формы, свойства компонента можно изменить в окне Object Inspector. Чтобы свойства нужного компонента появились в окне Object Inspector, надо выделить нужный компонент или выбрать его имя из раскрывающегося списка объектов, кнопка раскрытия которого находится в верхней части окна Object Inspector

Помимо полей редактирования окно формы должно содержать поясняющий текст: краткое информационное сообщение и пояснение рядом с каждым полем редактирования-- для ввода какого коэффициента это поле предназначено.

Текст, находящийся непосредственно в форме, -- это метка. Добавляется метка к форме точно так же, как и поле редактирования. Кнопка с пиктограммой метки (большой буквой А) находится в палитре компонентов перед кнопкой поля редактирования. После того кик метка добавлена, можно, используя Object Inspector, изменить свойства метки.

К форме разрабатываемого приложения надо добавить пять меток: одна (Label2) будет представлять собой информационное сообщение, три (Libel3, Label4, Label5) -- тексты, поясняющие назначение полей редактирования, и одна (Label1) будет использоваться для вывода значений корней уравнения.

Свойство ParentFont метки Label2 имеет значение False, поэтому свойство Font этой метки не наследует значения свойства Font «родителя», в данном случае -- свойства основной формы. Это дает возможность установить свойства шрифта, метки иные, чем у формы. У других меток значение свойства ParentFont оставлено без изменения.

Если свойство AutoSize (автоматический подгон размера) имеет значение True, то Delphi автоматически устанавливает размеры метки в зависимости от количества символов текста метки, используемого шрифта и его размера. Если надо, чтобы метка представляла собой текст из нескольких строк, то свойству AutoSize надо присвоить значение False и вручную установить значения свойств, определяющих ее размер. Ниже приведены свойства меток Label3, Label4 и Label5.

В заключение к форме надо добавить командные кнопки. Кнопка добавляется в форму точно так же, как и другие компоненты. Пиктограмма командной кнопки (на ней изображена кнопка ОК) находится на палитре стандартных компонентов. После добавления кнопок с помощью Object Inspector надо установить требуемые значения свойств.

Листинг программы

unit Root_u;

interface

uses

SysUtils, WinTypes, WinProcs, Windows, Messages, Variants,

Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Button2: TButton;

Button3: TButton;

Procedure EditKeyPress (Sender: TObject; var Key: Char);

procedure Button2Click(Sender:TObject);

procedure Button3Click(Sender:TObject);

procedure Button1Click(Sender:TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure SqRoot(edit1,edit2,edit3:TEdit; label2:tLabel);

var

a,b,c:real; {коэффициенты уравнения}

d:real; {дискриминант}

x1,x2:real; {корни уравнения}

code:integer;

st1,st2:string[10];

begin

val(edit1.text,a,code);

val(edit2.text,b,code);

val(edit3.text,c,code);

if a=0

then begin

label2.font.color:=clRed;

label2.caption:=

'Коэффициент при второй степени'

+chr(13)+'неизвестного равен нулю';

end

else begin {решение уравнения}

d:=b*b-4*a*c;

if d<0 then begin

label2.font.color:=clRed;

label2.caption:=

'Дискриминант равен нулю.'+chr(13)+

'Уравнение не имеет корней.';

end

else begin

x1:=(b+sqrt(d))/(2*a);

x2:=(-b+sqrt(d))/(2*a);

str(x1:10:5,st1);

str(x2:10:5,st2);

label2.font.color:=clBlack;

label2.сaption:='Корни уравнения:'

+chr(13)+'x1='+st1

+chr(13)+'x2='+st2;

end;

end;

end;

procedure TForm1.EditKeyPress(Sender :Tobject; var key:Char);

begin

case key of

'0'.. '9', '-',chr(8):;

'.': if pos('.', edit1.text)<>0

then key:=chr(0);

chr(13): if Sender=Edit1

then Edit2.SetFocus

else if Sender=Edit2

then Edit3.SetFocus

else begin

button1.SetFocus;

SqRoot(edit1,edit2,edit3,label1);

end;

else key:=chr(0);

end;

end;

procedure TForm1.Button2Click(Sender:TObject);

begin

edit1.text:= '';

edit2.text:= '';

edit3.text:= '';

label1.font.color:= clBlack;

label1.caption:= '';

edit1.SetFocus;

end;

procedure TForm1.Button3Click(Sender:Tobject);

begin

Close;

end;

procedure TForm1.Button1Click(Sender:Tobject);

begin

SqRoot(Edit1,Edit2,Edit3,Label1);

end;

end.

Практическая работа №2

Разработка проекта

Постановка задачи:

Создать программу, выполняющие действия. После запуска программы по щелчку мышью на кнопке «Приветствие» появляется сообщение «Первые успехи!». Для выхода из программы необходимо щелкнуть мышью на кнопке «Выход».

Листинг

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Button1: TButton;

Button2: TButton;

Label2: TLabel;

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);

begin

close;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Label1. Caption:='Первые успехи!';

end;

end.

Результат

Практическая работа №3

Разработка проекта «Диалог»

Постановка задачи: Создать программу, выполняющую следующие действия. После запуска программы пользователь вводит свое имя, например Актоты, в прямоугольник с мигающим текстовым курсором и нажимает клавишу Enter.

Появляется вопрос: «Актоты, ты любишь читать?». Если пользователь щелкает на кнопке «Да», то появляется реплика «Молодец!», если на кнопке Heт то реплика «Почему же? Надо читать». Для выхода из программы необходимо щелкнуть на кнопке выход.

Листинг

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons;

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Button1: TButton;

Button2: TButton;

Label3: TLabel;

BitBtn1: TBitBtn;

Edit1: TEdit;

Label4: TLabel;

procedure Edit1KeyPress(Sender: TObject; var Key: Char);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Edit1Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

If key=#13 then

Begin

Label2.Caption:=Edit1.Text+', ты любишь читать?';

End;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Label3. Caption:='Молодец!';

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Label3. Caption:='Почему же? Надо читать.';

end;

procedure TForm1.Edit1Change(Sender: TObject);

begin

Button1.Enabled:=true;

Button2.Enabled:=true;

end;

end.

программа язык pascal windows

Результат

Практическая работа № 4

Разработка проекта «Справочник»

Постановка задачи: Создать программу, выполняющую следующие действия: После запуска программы пользователь выбирает с помощью мыши или стрелок название цвета и нажимает клавишу Enter. На экране появляется название цвета на русском языке и код цвета в формате RGB. Программа заканчивает свою работу по нажатию клавиши Выход.

Листинг

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons;

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

BitBtn1: TBitBtn;

ListBox1: TListBox;

Label4: TLabel;

procedure ListBox1KeyPress(Sender: TObject; var Key: Char);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ListBox1KeyPress(Sender: TObject; var Key: Char);

begin

If key=#13 then

Case ListBox1.ItemIndex of

0: Label3.Caption:='черный 000000';

1: Label3.Caption:='белый ffffff';

2: Label3.Caption:='красный ff0000';

3: Label3.Caption:='зеленый 00ff00';

4: Label3.Caption:='бирюзовый 00ffff';

5: Label3.Caption:='синий 0000ff';

6: Label3.Caption:='фиолетовый ff00ff';

7: Label3.Caption:='желтый ffff00';

8: Label3.Caption:='коричневый 996633';

9: Label3.Caption:='оранжевый ff8000';

10: Label3.Caption:='лиловый 8000ff';

11: Label3.Caption:='серый A0A0A0';

End;

end;

end.

Результат

Размещено на Allbest.ru

...