Требования к выполнению лабораторной работы. Задание 2.Создать проект под Windows для вашего варианта лабораторной 9.

Задание 2. Создать проект под Windows для вашего варианта лабораторной 9.

1. Преобразуйте консольное приложение, разработанное в лабораторной работе №9, в приложение под Windows. Включите в него модули. Для этого создайте новое приложение под Windows и подключите к нему модули из проекта лабораторной 9.

uses

SysUtils, MY_Unit_Def in 'MY_Unit_Def.pas', MY _Unit_ Operation in MY_Unit_Operation.pas;

Примечание. В проект не включен модуль ввода-вывода. Так как ввод-вывод организуется через элементы управления формы.

2. Разработайте проект формы (рис.11) – позволяющей осуществлять ввод данных, отображение данных, выбор выполняемой операции.

 

Рис. 11. Проект формы

 

Модуль формы

unit Lab_prim_91;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,MY_Unit_Def,MY_Unit_Operation;

type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

Button2: TButton;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

Button3: TButton;

Memo1: TMemo;

Button4: TButton;

Button5: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

Massiv:TDar;

sum:Tdroby;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var r:TDroby;

begin

r.a:=strtoint(edit1.Text);

r.b:=strtoint(edit2.Text);

if (r.b=0) or (r.a=0) then ShowMessage('знаменатель= 0')

else

Add_to_Array(Massiv,r);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

edit1.Clear;

edit2.Clear;

end;

procedure TForm1.Button3Click(Sender: TObject);

var

i:integer;

sline:string;

begin

if radiobutton2.checked then

begin

Memo1.lines[0]:='Элементы массива';

for i:=0 to high(Massiv) do

begin

sline:=inttostr(Massiv[i].a)+'/'+inttostr(Massiv[i].b);

Memo1.Lines.Add(sline);

end

end

else

if radiobutton1.checked then

begin

Memo1.lines[0]:='Ñóììà';

sum:=Add_Mass(Massiv);

Memo1.lines[0]:='Сумма=';

Memo1.lines.ADD(' '+inttostr(sum.a)+'/'+ inttostr(sum.b))

end

else

ShowMessage(Операция не выбрана');

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

Memo1.Clear

end;

procedure TForm1.Button5Click(Sender: TObject);

begin close end;

end.

Контрольные вопросы

1. Каково основное назначение формы проекта?

2. Сколько форм может быть в проекте?

3. Что такое событие?

4. Что представляет собой обработчик события?

5. Как установить событие для объекта, включенного в форму?

6. Как изменить значение свойства объекта?

7. Как выполнить форматирование группы элементов формы?

8. Какое событие может организовать перемещение к следующему полю ввода при нажатии клавиши Enter?

9. Какие разделы содержит модуль формы?

10. В каких разделах размещены глобальные имена типов, переменных, обработчики событий?

11. Что определяет имя Tform1?

12. Какие переменные определены в модуле?

13. Что определяет переменная Form1?

 

ЛАБОРАТОРНАЯ РАБОТА №11

 

Объектно-ориентированное программирование