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

Стр 1 из 3Следующая ⇒

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

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

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

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

ЯЗЫКЕ ПРОГРАММИРОВАНИЯ 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

Введение

Дисциплину Объектно-ориентированное программирование можно рассматривать как продолжение и развитие дисциплины Программирование на ЯВУ. При изучении дисциплины Программирование на ЯВУ студенты 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;

Лабopaторная работа № 3

Графика в Delphi, классы

12 3 Следующая ⇒