close

Вход

Забыли?

вход по аккаунту

?

9

код для вставкиСкачать
МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РЕСПУБЛИКИ БЕЛАРУСЬ
БЕЛОРУССКИЙ НАЦИОНАЛЬНЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ
Факультет информационных технологий и робототехники (ФИТР)
Кафедра программного обеспечения вычислительной техники
и автоматизированных систем
О Т Ч Е Т
ПО ЛАБОРАТОРНОЙ РАБОТЕ №9
по курсу:
" РАЗРАБОТКА ПРИЛОЖЕНИЙ В ВИЗУАЛЬНЫХ СРЕДАХ "
По теме: "Разработка приложения, состоящего из нескольких форм"
Выполнили:Студенты: Левшунов С.А.
Гр. 107212, бригада №3
Минск - 2013
Цель лабораторной работы: Изучить основные свойства и методы, связанные с созданием и активизацией форм.
Постановка задачи: Взять за основу задание к лабораторной работе №7. Добавить к проекту дополнительную форму, на которой реализовать смешивание цветов. При этом должен быть организован диалог приложения, как показано на рисунке 9.1.
Рисунок 9.1 - Форма приложения
Выбранный цвет необходимо применить к одной из компонент главной формы.
Замечание. Вызов формы смешивания цветов реализовать в модальном и немодальном режимах.
Исходный код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Unit2, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Memo1: TMemo;
Button1: TButton;
RadioGroup1: TRadioGroup;
Button2: TButton;
Button3: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type
func = function(x:extended) : extended;
var
Form1: TForm1;
implementation
uses Unit3;
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text := '0,1';
Edit2.Text := '1';
Edit3.Text := '12';
Memo1.Clear;
Memo1.Lines.Add('ãð. 107212 Ëåâøóíîâ Ñ.À.');
RadioGroup1.ItemIndex:= 0;
end;
procedure Tabl(f: func; xn, xk, h: extended);
var
x, y : extended;
begin
x := xn;
Repeat
y := f(x);
Form1.Memo1.Lines.Add('x=' + FloatToStrF(x,ffFixed, 8, 2) +
' y=' + FloatToStrF(y, ffFixed, 8, 2));
x := x + h;
Until (x > xk);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
xn, xk, h, N : extended;
begin
Memo1.Clear;
xn := StrToFloat(Edit1.Text);
xk := StrToFloat(Edit2.Text);
N := StrToFloat(Edit3.Text);
h:= (xk-xn)/N;
Case RadioGroup1.ItemIndex of
0 : Tabl(yx, xn, xk, h);
1 : Tabl(sx, xn, xk, h);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Form3.Show;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Form3.ShowModal;
end;
end.
__________________________________________________________
unit Unit2;
interface
Function Sx(x:extended):extended;
Function Yx(x:extended):extended;
implementation
Function Sx(x:extended):extended;
var
s,a,p:extended;
k,fact:integer;
begin
s:=1;
fact:= 1;
p:=1;
for k:=1 to 12 do
begin
p:=p*x;
fact:= fact*k;
a:=cos(k*pi/4)*p/fact;
s:= s + a;
end;
Result:= s;
end;
Function Yx(x:extended):extended;
begin
Result:= exp(x*cos(pi/4))*cos(x*sin(pi/4));
end;
end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm3 = class(TForm)
ScrollBar1: TScrollBar;
ScrollBar2: TScrollBar;
ScrollBar3: TScrollBar;
Button1: TButton;
Panel1: TPanel;
RadioGroup1: TRadioGroup;
Panel2: TPanel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
RadioGroup2: TRadioGroup;
procedure FormCreate(Sender: TObject);
procedure ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
procedure ScrollBar2Scroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
procedure ScrollBar3Scroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
procedure Button1Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure CheckBox3Click(Sender: TObject);
procedure RadioGroup2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
red,green,blue: integer;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm3.FormCreate(Sender: TObject);
begin
ScrollBar1.min:=0;
ScrollBar1.max:=255;
ScrollBar2.min:=0;
ScrollBar2.max:=255;
ScrollBar3.min:=0;
ScrollBar3.max:=255;
Label4.Hide;
Label5.Hide;
Label6.Hide;
ScrollBar1.Enabled:= false;
ScrollBar2.Enabled:= false;
ScrollBar3.Enabled:= false;
RadioGroup2.ItemIndex:= 0;
red:= 0;
green:= 0;
blue:= 0;
end;
procedure TForm3.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
begin
red:= ScrollBar1.Position;
Panel1.color:=RGB(red,green,blue);
Label4.font.color:=RGB(red,0,0);
end;
procedure TForm3.ScrollBar2Scroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
begin
green:= ScrollBar2.Position;
Panel1.color:=RGB(red,green,blue);
Label5.font.color:=RGB(0,green,0);
end;
procedure TForm3.ScrollBar3Scroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
begin
blue:= ScrollBar3.Position;
Panel1.color:=RGB(red,green,blue);
Label6.font.color:=RGB(0,0,blue);
end;
procedure TForm3.Button1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0: Form1.color:=RGB(ScrollBar1.Position,ScrollBar2.Position,ScrollBar3.Position);
1: begin
Form1.Edit1.color:=RGB(red,green,blue);
Form1.Edit2.color:=RGB(red,green,blue);
Form1.Edit3.color:=RGB(red,green,blue);
end;
2: Form1.Memo1.color:=RGB(red,green,blue);
3: Form1.RadioGroup1.color:=RGB(red,green,blue);
end;
end;
procedure TForm3.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then
begin
Label4.Show;
ScrollBar1.Enabled:= true;
red:= ScrollBar1.Position;
end
else
begin
Label4.Hide;
ScrollBar1.Enabled:= false;
red:= 0;
end;
Panel1.color:=RGB(red,green,blue);
end;
procedure TForm3.CheckBox2Click(Sender: TObject);
begin
if CheckBox2.Checked then
begin
Label5.Show;
ScrollBar2.Enabled:= true;
green:= ScrollBar2.Position;
end
else
begin
Label5.Hide;
ScrollBar2.Enabled:= false;
green:= 0;
end;
Panel1.color:=RGB(red,green,blue);
end;
procedure TForm3.CheckBox3Click(Sender: TObject);
begin
if CheckBox3.Checked then
begin
Label6.Show;
ScrollBar3.Enabled:= true;
blue:= ScrollBar3.Position;
end
else
begin
Label6.Hide;
ScrollBar3.Enabled:= false;
blue:= 0;
end;
Panel1.color:=RGB(red,green,blue);
end;
procedure TForm3.RadioGroup2Click(Sender: TObject);
begin
if RadioGroup2.ItemIndex = 0 then
Panel2.Show
else
Panel2.Hide;
end;
end.
Скирншоты:
ЛИТЕРАТУРА
Основная литература
1. Фаронов В.В. DELPHI. Программирование на языке высокого уровня: Учебник для вузов. - СПб.: Питер, 2009. - 640 с.
2. Сухарев М. DELPHI. Полное руководство. - СПб.: Питер, 2008. - 1040 с.
3. Архангельский А.Я. Программирование в DELPHI-6. - М.: ЗАО "Издательство БИНОМ", 2002. - 1120 с.
4. Елмакова Н., Трепалин С., Тенцер А. DELPHI 6 и технология COM. - СПб.: Питер, 2002. - 640 с.
5. Понамарев В. COM и ActiveX в DELPHI. - СПб.: БХВ-Петербург, 2001. - 320 с.
Дополнительная литература
6. Фаронов В.В. Программирование баз данных в DELPHI 7. Учебный курс. - СПб.: Питер, 2005. - 459 с.
7. Подольский С.В., Скиба С.А., Кожедуб О.А. Разработка интернет-приложений в DELPHI. - СПб.: БХВ-Петербург. 2002. - 432 с.
8. Краснов М.В. OpenGL. Графика в проектах Delphi. - СПб.: БХВ-Санкт-Петербург, 2000. - 352 с.
9. Краснов М.В. DirectX. Графика в проектах Delphi. - СПб.: БХВ-Петербург, 2003. - 416 с.
10. Марко Кэнту. DELPHI 7: Для профессионалов. - СПб.: Питер, 2004. - 1101 с. 
Документ
Категория
Рефераты
Просмотров
42
Размер файла
80 Кб
Теги
1/--страниц
Пожаловаться на содержимое документа