Файл: Лабораторная работа 1 знакомство с объектноориентированной средой программирования delphi цель и задачи работы.doc

Приложение 1

Файл проекта

program Project;

uses

Forms,

Unit1 in 'Unit1.pas' {Form1},

Unit2 in 'Unit2.pas' {Form2};

{$R *.RES}

begin

Application.Initialize;

Application.CreateForm(TForm1, Form1);

Application.CreateForm(TForm2, Form2);

Application.Run;

end.
Файл модуля главной формы (Form1)

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, ToolWin, Menus, StdCtrls, Buttons, ExtCtrls;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

GroupBox2: TGroupBox;

Edit1: TEdit;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

GroupBox3: TGroupBox;

Edit2: TEdit;

Bevel1: TBevel;

Bevel2: TBevel;

procedure N4Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2;

{$R *.DFM}

\\ Открытие формы Form2 (О Программе…), процедура нажатия кнопки MainMenu > N4: TmenuItem «О Программе…» \\

procedure TForm1.N4Click(Sender: TObject);

begin

Form2.ShowModal;

end;

\\ Выход из программы, процедура нажатия кнопки BitBtn3Click «Выход» \\

procedure TForm1. BitBtn3Click (Sender: TObject);

begin

close;

end;

\\ Вычисление значения функции, процедура нажатия кнопки «Вычислить» \\

procedure TForm1.BitBtn1Click(Sender: TObject);

var X,Y: real;

I: integer;

S:string;

begin

val(edit1.text,X,I);

Y:=sqr(X);

str(Y:3:3,S);

Edit2.Text:=S;

end;

\\ Очистка полей и установка курсора, процедура нажатия кнопки «Очистить» \\

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

Edit1.Clear;

Edit2.Clear;

Edit1.SetFocus;

end;

end.
Файл модуля формы «О программе» (Form2)

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls;

type

TForm2 = class(TForm)

Memo1: TMemo;

Bevel1: TBevel;

BitBtn1: TBitBtn;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.DFM}

end.

Приложение 2

№	Функция	№	Функция
1		6
2		7
3		8
4		9
5		10

---

Приложение 3

program Project2;

uses

Forms, windows,

Unit1 in 'Unit1.pas' {Form1},

Unit2 in 'Unit2.pas' {Form2},

Unit3 in 'Unit3.pas' {Form3}; \\ Форма-заставка

{$R *.RES}

begin

Application.Initialize;

Form3:=Tform3.Create(Application);

Form3.Show;

Form3.Update;

sleep(3000);

Application.CreateForm(TForm1, Form1);

Application.CreateForm(TForm2, Form2);

Form3.Hide;

Form3.Free;

Application.Run;

end.

Библиографический список

1. В. Гофман, А. Хомоненко. Delphi 5. СПб.: БХВ-Петербург, 2001.

2. Программирование в среде Delphi. Пер.с англ./Д. Дантеманн, Д. Мишел, Д. Тейлор. К.: НИПФ «ДиаСофт Лтд.», 1995.
СОДЕРЖАНИЕ

1. Цель и задачи работы 1

2. Состав используемых аппаратно-технических средств 1

3. Указания по технике безопасности 1

4. Подготовительное задание 1

5. Теоретические сведения 2

6. Лабораторные задания и методические указания по их выполнению 29

7. Содержание отчета по лабораторной работе 34

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

Приложение 1 36

Приложение 2 36

Приложение 3 39

Библиографический список 40

---