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

Приложение 1Файлпроектаprogram Project;usesForms,Unit1 in 'Unit1.pas' {Form1},Unit2 in 'Unit2.pas' {Form2};{$R *.RES}beginApplication.Initialize;Application.CreateForm(TForm1, Form1);Application.CreateForm(TForm2, Form2);Application.Run;end.Файл модуля главной формы (Form1)unit Unit1;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, ToolWin, Menus, StdCtrls, Buttons, ExtCtrls;typeTForm1 = 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;varForm1: TForm1;implementationuses Unit2;{$R *.DFM}\\ Открытие формы Form2 (О Программе…), процедура нажатия кнопки MainMenu > N4: TmenuItem «О Программе…» \\procedure TForm1.N4Click(Sender: TObject);beginForm2.ShowModal;end;\\ Выход из программы, процедура нажатия кнопки BitBtn3Click «Выход» \\procedure TForm1. BitBtn3Click (Sender: TObject);beginclose;end;\\ Вычисление значения функции, процедура нажатия кнопки «Вычислить» \\procedure TForm1.BitBtn1Click(Sender: TObject);var X,Y: real;I: integer;S:string;beginval(edit1.text,X,I);Y:=sqr(X);str(Y:3:3,S);Edit2.Text:=S;end;\\ Очистка полей и установка курсора, процедура нажатия кнопки «Очистить» \\procedure TForm1.BitBtn2Click(Sender: TObject);beginEdit1.Clear;Edit2.Clear;Edit1.SetFocus;end;end.Файл модуля формы «О программе» (Form2)unit Unit2;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls;typeTForm2 = class(TForm)Memo1: TMemo;Bevel1: TBevel;BitBtn1: TBitBtn;private{ Private declarations }public{ Public declarations }end;varForm2: TForm2;implementation{$R *.DFM}end.Приложение 2

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

---

Приложение 3program Project2;usesForms, windows,Unit1 in 'Unit1.pas' {Form1},Unit2 in 'Unit2.pas' {Form2},Unit3 in 'Unit3.pas' {Form3}; \\ Форма-заставка{$R *.RES}beginApplication.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. Цель и задачи работы 12. Состав используемых аппаратно-технических средств 13. Указания по технике безопасности 14. Подготовительное задание 15. Теоретические сведения 26. Лабораторные задания и методические указания по их выполнению 297. Содержание отчета по лабораторной работе 348. Контрольные вопросы 34Приложение 1 36Приложение 2 36Приложение 3 39Библиографический список 40

---