Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
2012_ПОПО_отчет Кукликов.docx
Скачиваний:
0
Добавлен:
01.03.2025
Размер:
767.35 Кб
Скачать

Министерство образования и науки Челябинской области

Государственное бюджетное образовательное учреждение

среднего профессионального образования (ССУЗ)

«Южно-Уральский государственный технический колледж»

ЗАЩИЩЕНО

ОЦЕНКА____________________

Преподаватель

________________ Лукьянова И.Н.

ОТЧЕТЫ

по практическим работам

дисциплины «Предметно-ориентированное прикладное программирование»

(специальность 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

Тема: Создание главного меню программы

Цель работы:

  • изучить приемы работы по созданию главного меню.

Ход работы:

  1. Интерфейс —  конструкция в коде программы, используемая для специфицирования услуг, предоставляемых классом или компонентом, определяющий границу взаимодействия между классами или компонентами,

  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.

Вывод: Научился создавать рабочие проекты с использованием стандартных компонентов.