МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ

РОССИЙСКОЙ ФЕДЕРАЦИИ

Федеральное агенство по образованию

Российский государственный социальный университет

КУРСКИЙ ИНСТИТУТ СОЦИАЛЬНОГО ОБРАЗОВАНИЯ (ФИЛИАЛ) РГСУ

ИНЖЕНЕРНО-ТЕХНИЧЕСКИЙ ФАКУЛЬТЕТ

Кафедра информационных систем

МEТОДИЧЕСКИЕ РЕКОМЕНДАЦИИ

К ВЫПОЛНЕНИЮ ЛАБОРАТОРНЫХ РАБОТ

ПО ДИСЦИПЛИНАМ « ПРОГРАММИРОВАНИЕ НА ЯВУ»

«ОБЪЕКТНО-ОРИЕНТИРОВАННОЕ ПРОГРАММИРОВАНИЕ»

РАЗРАБОТКА ПРИЛОЖЕНИЙ

В ОБЪЕКТНО-ОРИЕНТИРОВАННОМ

ЯЗЫКЕ ПРОГРАММИРОВАНИЯ DELPHI

СПЕЦИАЛЬНОСТИ:

ИНФОРМАЦИОННЫЕ СИСТЕМЫ И ТЕХНОЛОГИИ - 230201

АВТОМАТИЗИРОВАННЫЕ СИСТЕМЫ

ОБРАБОТКИ ИНФОРМАЦИИ И УПРАВЛЕНИЯ - 230102

Курск - 2008

УДК 004.43(07)

ББк 32.973.26 – 018.1я73

м 54

Автор - составитель к. т. н., доцент к. а. тезик

рецензент д. т. н., профессор С. А. Филист

Методические рекомендации по проведению лабораторных работ

«Разработка приложений в объектно-ориентированном языке программирования Delphi » для студентов специальностей

Информационные системы и технологии – 230201

Автоматизированные системы обработки информации и управления - 230102

Составил К. А. Тезик; Курский институт социального образования

(филиал) РГСУ. – Курск, 2008 -32 с.

В методических рекомендациях кратко излагается методика выполнения лабораторных работ «Разработка приложений в объектно-ориентированном языке программирования Delphi »

Учебно-методические материалы утверждены на заседании кафедры информационных систем октября 2008 года.

Текст печатается в авторской редакции

Удк 004.43(07)

ББк 32.973.26 – 018.1я73

© Тезик К. А. , 2008

© Курский институт

социального образования

(филиал) РГСУ, 2008

Введение

Дисциплину Объектно-ориентированное программирование можно рассматривать как продолжение и развитие дисциплины Программирование на ЯВУ. При изучении дисциплины Программирование на ЯВУ студенты 1 курса инженерно-технического факультета РГСУ специальности «Инфор­мационные системы и технологии – 230201» изучили практическое решение задач в среде Delphi по следующим вопросам:

- программирование алгоритмов линейной структуры;

- программирование алгоритмов разветвленной структуры;

- программирование алгоритмов циклической структуры;

- обработка массивов и матриц;

- работа с внешними файлами и таблицей строк (курсовая работа);

- использование компонентов генерации главного меню и диалога от­крытия и сохранения файлов.

В лабораторных работах курса «Объектно-ориентированное програм­мирование» рассматривается новый материал по следующим направлениям:

- графические возможности среды Delphi;

- мультимедийные технологии;

- создание приложений для управления базами данных;

- разработка классов;

- наследование классов;

Данное методическое пособие предназначено для студентов 2 курса ин­женерно-технического факультета РГСУ специальности «Информационные системы и технологии - 230201» Оно рассчитано на 18 часов лабораторно-практических занятий по дисциплине «Объектно-ориентированное програм­мирование». Но также можно считать целесообразным использовать данное пособие для лабораторных работ по дисциплине Программирование на ЯВУ для студентов специальности «Автоматизированные системы управления - 230102» в третьем семестре.

Лабopaторная работа № 1 Построение графиков функций и диаграмм

Цель работы:

Рассмотреть некоторые возможности построения графиков функций и диаграмм в Delphi на примере двух заданий:

1. Построить график функции Y=Sin(k ^. pi/10), k=0,1,2….20, где pi=3,14.

2. Построить круговую диаграмму по заданному набору данных.

Указания к заданию №1

1) Перенесите на форму компонент TChart со страницы Additional. Щелкните правой кнопкой мыши по данному компоненту. С помощью команды Edit Chart вызовите многостраничное окно редактора компонента. Щелкните по кнопке ADD и выберите тип диаграммы Line. После закрытия окна редактора компонент будет содержать диаграмму, реальный вид которой зависит от фактических данных, генерируемых работающей программой.

2) В Object Inspector выберите вкладку Events, по обработчику событий On Activate напишите текст программы:

Procedure TForm1.FormActivate (Sender: TObject);

Var

k:integer;

begin

for k:=0 to 20 do

chart1.SeriesList[0].AddXY(k,sin(k*pi/10),’’,clred);

end;

end.

Указания к заданию №2

Данное задание выполните самостоятельно. Используйте тип диаграммы Pie. Для ввода данных используйте столбец таблицы StringGrid. Используйте метод AddY.

Лабopaторная работа № 2 Графика в Delphi, Окно выбора шрифта.

Цель работы:

Разработать программу, которая с помощью диалога выбора шрифта реализует выбор цвета, стиля и размера шрифта и копирует строку текста из строки ввода в поле вывода (компонент PaintBox) с данными параметрами шрифта.

1. Перенесите на форму компонент PaintBox со страниц System. Назовите его pbOut

2. Поместите на форму стандартное диалоговое окно FontDialog cо страницы Dialogs.

3. В левой нижнем углу формы (см. рис 2) разместите компоненты: строку вывода (назовите ее LbOutput), строку ввода (назовите ее Edinput), строку вывода с именем Label1. В свойстве Caption строки Label1 запишите

Щелкните по кнопке OK.

4. Напротив строки вывода Label1 расположите кнопку и назовите ее bbRun.

5. В правом нижнем углу формы расположите две кнопки с именами bbFont и bbOut. В свойствах Сaption данных кнопок соответственно запишите Шрифт и Вывод.

Рис2. Форма к лабораторной работе №3

6. Напишите обработчики событий OnClick для кнопок bbRun, bbOut, bbFont .

procedure TForm1.bbFontClick(Sender: TObject);

begin

if FontDialog1.Execute then

pbOut.Canvas.Font:=FontDialog1.Font

end;

procedure TForm1.bbRunClick(Sender: TObject);

begin

with pbOut.Canvas, Font do

begin

TextOut(10,10, 'MS Sans Serif, Size=10');

Size:=20;

TextOut(10,30, 'MS Sans Serif, Size=20');

Name:='Courier';

Style:=[fsBold];

Name:='Times New Roman';

Style:=[fsItalic, fsUnderLine,fsBold];

TextOut(10,60, 'Times Nes Roman,курсив, жирный');

end;

edInput.Show;

bbFont.Show;

bbOut.Show;

bbRun.Hide;

Label1.Hide;

lbOutput.Caption:='Выбери шрифт, введи текст, щелкни по кнопке Вывод'

end;

procedure TForm1.bbOutClick(Sender: TObject);

begin

if edInput.Text<>'' then

pbOut.Canvas.TextOut(10, 150, edInput.Text);

edInput.Text:='';

edInput.SetFocus

end;