Министерство образования и науки Челябинской области
Государственное бюджетное образовательное учреждение
среднего профессионального образования (ССУЗ)
«Южно-Уральский государственный технический колледж»
ЗАЩИЩЕНО
ОЦЕНКА____________________
Преподаватель
________________ Лукьянова И.Н.
ОТЧЕТЫ
по практическим работам
дисциплины «Предметно-ориентированное прикладное программирование»
(специальность 230701 (080802) «Прикладная информатика (по отраслям)»)
|
|
Разработал Студент группы ПИ-346/б
_____________Супроненко Михаил |
Челябинск, 2013
Практическая работа № 1
Тема: Создание рабочих приложений
Цель работы:
изучить приемы работы по созданию приложений;
освоить приемы работы по созданию объектов в режиме Run-Time и Design-time.
Х
од
работы:
ed: TEdit; Текстовое поле
lab,lab1:TLabel; Метка
kn:TButton; Кнопки
Код задачи №3:
var
lab: array[1..5] of TLabel;
i:integer;
Form1: TForm1;
s:string;
procedure TForm1.dlina(Sender: TObject);
begin
showmessage(inttostr(length(TLabel(sender).Caption)));
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
s:='';
For i:=1 to 5 do begin
lab[i]:=TLabel.Create(form1);
lab[i].Parent:=form1;
lab[i].left:=10;
lab[i].Top:=10+i*20;
s:=s+inttostr(i);
lab[i].Caption:=s;
lab[i].OnClick :=dlina;
end;
end;
end.
Вывод: освоил приемы работы по созданию объектов в режиме Run-Time и Design-time.
Практическая работа № 2
Тема: Создание главного меню программы
Цель работы:
изучить приемы работы по созданию главного меню.
Ход работы:
Интерфейс — конструкция в коде программы, используемая для специфицирования услуг, предоставляемых классом или компонентом, определяющий границу взаимодействия между классами или компонентами,
Главное меню - это элемент управления, предназначенный для быстрого доступа к программам документам, средствам настройки и поиска, избранным папкам и объектам.
Код создания 10 меток:
var
lab:array[1..10] of TLabel;
i:integer;
s:string;
procedure TForm1.Button1Click(Sender: TObject);
begin
For i:= 1 to 10 do begin
lab[i]:=Tlabel.Create(Form1);
lab[i].Parent:=form1;
lab[i].left:=30;
lab[i].Top:=30+i*20;
lab[i].Color:=rgb(random(255),random(255),random(255));
lab[i].AutoSize :=false;
lab[i].Width:=80;
lab[i].OnClick:=click;
end;
end;
procedure TForm1.click(Sender: TObject);
begin
lab[i](sender).Caption:='Привет!'
end;
end.
Вывод: изучил приемы работы по созданию главного меню.
Практическая работа № 3
Тема: Создание рабочих окон
Цель работы:
создавать рабочие окна проектов.
Ход работы:
Код создания массива 10 флажков:
var
fl:array[1..10] of TCheckbox;
i:integer;
procedure TForm1.N51Click(Sender: TObject);
begin
For i:= 1 to 10 do begin
fl[i]:=TEdit.create(form1);
fl[i].parent:=form1;
fl[i].left:=30;
fl[i].top:=10+i*20;
end;
end.
Вывод: Научился создавать рабочие окна проектов.
Практическая работа № 4
Тема: Редактор коды
Цель работы:
создавать рабочие проекты, редактировать программный код.
Ход работы:
Вывод: Научился создавать рабочие проекты, редактировать программный код.
Практическая работа № 5
Тема: Основные приемы кодинга
Цель работы:
создавать рабочие проекты, редактировать программный код.
Ход работы
Код создания массива 8 графических изображений:
var
mass:array[1..8] of TImage;
i:integer;
procedure TForm1.FormCreate(Sender: TObject);
begin
For i:=1 to 8 do begin
mass[i]:=TImage.Create(form1);
mass[i].Parent:=form1;
mass[i].left:=-50+i*80;
mass[i].Top:=10;
mass[i].Width:= 60;
mass[i].Height:=70;
mass[i].Picture.LoadFromFile(Inttostr(i)+'.jpg') ;
mass[i].Stretch :=true;
mass[i].OnClick :=image;
mass[i].OnDblClick :=image1;
end;
end;
procedure TForm1.image(Sender: TObject);
begin
timage(sender).left:=10;
timage(sender).Top:=100;
timage(sender).Width:= 700;
timage(sender).Height:=700;
end;
procedure TForm1.image1(Sender: TObject);
begin
For i:=1 to 8 do begin
mass[i]:=TImage.Create(form1);
mass[i].Parent:=form1;
mass[i].left:=-50+i*80;
mass[i].Top:=10;
mass[i].Width:= 60;
mass[i].Height:=70;
mass[i].Picture.LoadFromFile(Inttostr(i)+'.jpg') ;
mass[i].Stretch :=true;
timage(sender).visible:=false;
mass[i].OnClick :=image;
mass[i].OnDblClick :=image1;
end;
end;
Вывод: Научился создавать рабочие проекты, редактировать программный код.
Практическая работа № 6
Тема: Палитра компонентов Standard
Цель работы:
создавать рабочие проекты с использованием стандартных компонентов.
Ход работы:
Run-Time – выполняется составление проекта только с помощью кода.
Design-time – выполняется составление проекта с помощью кода и программного интерфейса.
Код задачи «Заказ в кафе»:
var
sum:integer;
sum1:array[1..10] of Integer;
lab:array[1..10] of TLabel;
lab1:array[1..10] of TLabel;
ch:array[1..10] of TCheckbox;
ed:array[1..10] of TEdit;
e:integer;
k:integer;
j:integer;
i:integer;
l:integer;
Form1: TForm1;
s:string;
procedure TForm1.Button1Click(Sender: TObject);
begin
For i:=1 to 10 do begin
If ch[i].Checked =true then begin
sum1[i]:=strtoint(lab1[i].caption)*strtoint(ed[i].Text);
s:=s+ lab[i].caption+ ' '+lab1[i].caption+' * '+ ed[i].text+ ' = '+inttostr(sum1[i])+#13;
end;
end;
Showmessage(s);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
sum:=0;
For i:=1 to 10 do begin
If ch[i].Checked =true then
sum:=sum+strtoint(lab1[i].caption)*strtoint(ed[i].text);
end;
Label1.caption:=floattostrf(sum,ffCurrency,5,2 );
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
For i:=1 to 10 do begin
lab[i]:=TLabel.Create(form1);
lab[i].Parent:=form1;
lab[i].left:=10;
lab[i].Top:=10+i*20;
lab[1].caption:='Пирожок';
lab[2].caption:='Пирожное';
lab[3].caption:='Мороженое';
lab[4].caption:='Салат';
lab[5].caption:='Суп';
lab[6].caption:='Каша';
lab[7].caption:='Пельмени';
lab[8].caption:='Кофе';
lab[9].caption:='Чебурек';
lab[10].caption:='Чай';
end;
For j:=1 to 10 do begin
randomize;
lab1[j]:=TLabel.Create(form1);
lab1[j].Parent:=form1;
lab1[j].left:=120;
lab1[j].Top:=10+j*20;
lab1[j].caption:=inttostr(random(100));
end;
For k:=1 to 10 do begin
ch[k]:=TCheckbox.Create(form1);
ch[k].Parent:=form1;
ch[k].left:=190;
ch[k].Top:=10+k*20;
end;
For e:=1 to 10 do begin
ed[e]:=TEdit.Create(form1);
ed[e].Parent:=form1;
ed[e].left:=210;
ed[e].Top:=10+e*20;
end;
end.
Вывод: Научился создавать рабочие проекты с использованием стандартных компонентов.