Разработка обучающей программы по дисциплине "Компьютерная графика (CorelDRAW для начинающих)"

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

Пояснительная записка к курсовой работе

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

Тема: Разработка обучающей программы по дисциплине «Компьютерная графика (CorelDRAW для начинающих)»

Оглавление

Введение

1. Теоретические основы разработки программных продуктов

1.1 Этапы разработки программного продукта

1.2 Методы программирования

1.2.1 Структурное программирование

1.2.2 Объектно - ориентированное программирование

1.2.3 Визуальное программирование

1.3 Описание выбранного средства разработки

2. Разработка программы «CorelDRAW для начинающих»

2.1 Постановка задачи и разработка спецификации на задачу

2.2 Структура программы

2.3 Разработка программы

2.4 Отладка программы

2.5 Документирование

Заключение

Список литературы

Листинг

Введение

В современном цивилизованном обществе этапа информатизации все его члены, не зависимо от их общественного положения, используют информацию и знания в своей деятельности, решая непрерывно возникающие перед ними задачи. Так как ценность информации в жизни современного общества резко возросла, то это даёт основания говорить о том, что немаловажную роль в процессе информатизации играют специалисты, занимающиеся собственно разработкой новых программ для пользователей в той или иной области профессий. Этих людей называют программистами.

Разработка новых программ ведется программистом в определённой системе программирования. Система программирования -- это система для разработки новых программ ?на конкретном языке программирования. Язык программирования -- формальная знаковая система, предназначенная для записи программ. Программа обычно представляет собой некоторый алгоритм в форме, понятной для исполнителя (например, компьютера). Язык программирования определяет набор лексических, синтаксических и семантических правил, используемых при составлении компьютерной программы. Он позволяет программисту точно определить то, на какие события будет реагировать компьютер, как будут храниться и передаваться данные, а также какие именно действия следует выполнять над этими данными при различных обстоятельствах.

Ни для кого не секрет, что некоторые из современных программ не всегда понятны в использовании. Возникает противоречие между необходимостью использования того или иного программного продукта и понятностью его использования. Чтобы разрешить данное противоречие, создаются обучающие программы. На сегодняшний день создаётся всё больше в программ для пользователей, как обучающих, так и помогающих в работе в определённой области.

Немаловажную роль в современном обществе играет компьютерная графика. Мы видим её практически повсюду: на рекламных афишах, плакатах, обложках учебников, тетрадей и т.д. Благодаря компьютерной графике окружающий мир становится ярче, красочнее, эффектнее.

Кроме того, общепризнано, что графическая информация - наиболее удобна и эффективна для восприятия. Любые объемы информации воспринимаются человеком лучше, когда информация поступает через канал зрения, будучи представленной, в виде графиков и диаграмм. Поэтому доля графических данных в любой профессиональной деятельности возрастает. Следовательно, требуются и средства для работы с изображениями, и специалисты, умеющие работать с этими средствами. Этим объясняется актуальность разработки обучающих программ по компьютерной графике. Главным результатом обучающих программ в целом является то, что пользователи обучаются на практике применять компьютер для поиска новой информации или использовать какие-либо программные продукты.

Объектом данной работы являются современные методы разработки программного обеспечения, предмет работы - разработка приложений в среде программирования Borland Delphi 7.0.

Цель данной курсовой работы - разработка обучающей программы для освоения программного продукта Corel DRAW.

Чтобы реализовать данную цель, необходимо:

1. Изучить литературу по данной теме.

2. Определить функции будущей программы.

3. Подобрать теоретический материал.

4. Изучить и выбрать методы программирования.

5. Создать модель программы.

6. Написать программный код.

7. Тестировать и документировать обучающую программу «Corel DRAW для начинающих».

1. Теоретические основы разработки программных продуктов

1.1 Этапы разработки программного продукта

В наше время разработка программного продукта включает в себя следующие этапы:

Подготовительная работа - выбор модели жизненного цикла, стандартов, методов и средств разработки, а также составление плана работ;

анализ требований к системе - определение ее функциональных возможностей, пользовательских требований, требований к надежности и безопасности, требований к внешним интерфейсам и т. д.;

проектирование архитектуры системы - определение состава необходимого оборудования, программного обеспечения и операций, выполняемых обслуживающим персоналом;

анализ требований к программному обеспечению - определение функциональных возможностей, включая характеристики производительности, среды функционирования компонентов, внешних интерфейсов, спецификаций надежности и безопасности, эргономических требований, требований к используемым данным, установке, приемке, пользовательской документации, эксплуатации и сопровождению;

проектирование архитектуры программного обеспечения - определение структуры программного обеспечения, документирование интерфейсов его компонентов, разработка предварительной версии пользовательской документации, а также требований к тестам и плана интеграции;

детальное проектирование программного обеспечения - подробное описание компонентов программного обеспечения и интерфейсов между ними, обновление пользовательской документации, разработка и документирование требований к тестам и плана тестирования компонентов программного обеспечения, обновление плана интеграции компонентов;

кодирование и тестирование программного обеспечения - разработка и документирование каждого компонента, а также совокупности тестовых процедур и данных для их тестирования, тестирование компонентов, обновление пользовательской документации, обновление плана интеграции программного обеспечения;

интеграция программного обеспечения - сборка программных компонентов в соответствии с планом интеграции и тестирование программного обеспечения на соответствие квалификационным требованиям, представляющих собой набор критериев или условий, которые необходимо выполнить, чтобы квалифицировать программный продукт, как соответствующий своим спецификациям и готовый к использованию в заданных условиях эксплуатации;

квалификационное тестирование программного обеспечения - тестирование программного обеспечения в присутствии заказчика для демонстрации его соответствия требованиям и готовности к эксплуатации; при этом проверяется также готовность и полнота технической и пользовательской документации;

интеграция системы - сборка всех компонентов системы, включая программное обеспечение и оборудование;

квалификационное тестирование системы - тестирование системы на соответствие требованиям к ней и проверка оформления и полноты документации;

установка программного обеспечения - установка программного обеспечения на оборудовании заказчика и проверку его работоспособности;

приемка программного обеспечения - оценка результатов квалификационного тестирования программного обеспечения и системы в целом и документирование результатов оценки совместно с заказчиком, окончательную передачу программного обеспечения заказчику.

Указанные действия можно сгруппировать, условно выделив следующие основные этапы разработки программного обеспечения (в скобках указаны соответствующие стадии разработки по ГОСТ 19.102-77 "Стадии разработки"):

· постановка задачи (стадия "Техническое задание");

· анализ требований и разработка спецификаций (стадия "Эскизный проект");

· проектирование (стадия "Технический проект");

· реализация (стадия "Рабочий проект").

Традиционно разработка также включала этап сопровождения (началу этого этапа соответствует стадия "Внедрение" по ГОСТ). Однако по международному стандарту в соответствии с изменениями, произошедшими в индустрии разработки программного обеспечения, этот процесс теперь рассматривается отдельно. Условность выделения этапов связана с тем, что на любом этапе возможно принятие решений, которые потребуют пересмотра решений, принятых ранее.

1.2 Методы программирования

1.2.1 Структурное программирование

Для создания "хорошей" программы появляется необходимость придерживаться определенных принципов или определенной дисциплины программирования. Значительный прогресс в области программирования достигается с использованием так называемого структурного программирования.

Появление новой технологии, или, как еще говорят, дисциплины программирования, основанной на структурном подходе, связано с именем известного голландского ученого Э.Дейкстры (1965 г.). В своих работах он высказал предположение, что оператор GOTO может быть исключен из языков программирования и что квалификация программиста обратно пропорциональна числу операторов GOTO в его программах. Такая дисциплина программирования упрощает и структуризирует программу.

Основной целью структурного программирования является уменьшение трудностей тестирования и доказательства правильности программы. Это особенно важно при разработке больших программных систем. Опыт применения методов структурного программирования при разработке ряда сложных операционных систем показывает, что правильность логической структуры системы поддается доказательству, а сама программа допускает достаточно полное тестирование. В результате в готовой программе встречаются только тривиальные ошибки кодирования, которые легко исправляются.

Структурное программирование улучшает ясность и читабельность программ. Программы, которые написаны с использованием традиционных методов, особенно те, которые перегружены операторами GOTO, имеют хаотичную структуру. Структурированные программы имеют последовательную организацию, поэтому возможно читать такую программу сверху донизу без перерыва.

Наконец, структурное программирование призвано улучшить эффективность программ.

К основным методам структурного программирования относится, прежде всего, отказ от бессистемного употребления оператора GOTO и преимущественное использование других структурированных операторов, методы нисходящего проектирования разработки программы, идеи пошаговой детализации и некоторые другие соглашения, касающиесся дисциплины программирования.

Всякая программа, в соответствии с структурным подходом к программированию, может быть построена только с использованием трех основных типов блоков.

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

2. Условная конструкция. Этот блок включает проверку некоторого логического условия (P), в зависимости от которого выполняется либо один (S1), либо другой (S2) операторы:

На языке TP:

if <условие> then <оператор1> else <оператор2>;

3. Блок обобщенного цикла. Этот блок обеспечивает многократное повторение выполнения оператора S пока выполнено логическое условие P:

На языке TP циклы реализуются 2 способами. Цикл с параметром:

for <параметр> := <нач.значение> to <кон.значение>;

. . begin

<оператор1>

. . <оператор2>

. . ...

. end;

Цикл с предусловием:

. while <условие>

. .begin

<оператор1>

. . <оператор2>

. . ...

. end;

При конструировании программы с использованием рассмотренных типов блоков эти блоки образуют линейную цепочку так, что выход одного блока подсоединяется ко входу следующего. Таким образом, программа имеет линейную структуру, причем порядок следования блоков соответствует порядку, в котором они выполняются.

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

При проектировании и написании программы нужно выполнить обратное преобразование, то есть этот блок разбить на последовательность подблоков, затем каждый подблок разбить на последовательность более мелких блоков до тех пор, пока не будут получены "атомарные" блоки, рассмотренных выше типов. Такой метод конструирования программы принято называть нисходящим ("сверху вниз").

При нисходящем методе конструирования алгоритма и программы первоначально рассматривается вся задача в целом. На каждом последующем этапе задача разбивается на более мелкие подзадачи, каждая подзадача, в конечном итоге на еще более мелкие подзадачи и так до тех пор, пока не будут получены такие подзадачи, которые легко кодируются на выбранном языке программирования. При этом на каждом шаге уточняются все новые и новые детали ("пошаговая детализация").

В процессе нисходящего проектирования сохраняется строгая дисциплина программирования, то есть разбиение на подзадачи осуществляется путем применения только рассмотренных типов конструкций (функциональный блок, условная конструкция, обобщенный цикл), поэтому, в конечном итоге, получается хорошо структурированная программа.

В настоящее время в помощь структурному подходу к прораммированию появилось новое направление - объектное программирование , не отменяющее, а дополняющее принципы структурного подхода, позволяющее разрабатывать и модернизировать программный код с меньшими затратами времени, распределять задачу программирования между большим количеством программистов.

Основные принципы структурного програмирования

1. Принцип абстракции. Этот принцип предполагает рассмотрение всей программной систем, как многоуровневые системы. Каждый уровень является детализацией предыдущих.

2. Принцип формальностей. Каждая программа должна реализовывать некоторый алгоритм, который построен на определенной математической модели решения задач. Математическая модель содержит математические зависимости и формы, а также ограничения , накладываемые на исходные данные. При этом формулы предназначаются для преобразования исходных данных в результат.

3. Принцип "разделяй и властвуй". Определяет способ решения трудных задач путем разделения этой задачи на множество мелких, легко решаемых. Этот принцип реализуется путем создания подпрограмм.

4. Принцип модульности. Определяет способ создания больших программ, у которых возникают проблемы с оперативной памятью, в следствии их большого объема или большого объема обрабатываемых ими данных. Принцип модульности ускоряет создание больших программ за счет использования ранее созданных описаний.

5. Принцип открытости. Программы должны быть открытыми для быстрых модификаций, поэтому они должны быть понятны и хорошо откомментированы. Использование структурной методологии позволило повысить надежность и эффективность программ, а также сократить сроки создания и сопровождения программ.

Широко используемым примером структурной технологии является технология проектирования "сверху вниз". Ее суть заключается в постепенной, пошаговой детализации , выполняемой программы, при этом на каждом этапе детализации должны быть рассмотрены альтернативные варианты решения и выбранные наилучшие.

1.2.2 Объектно - ориентированное программирование

Объектно-ориентированное программирование-технология программирования, при которой программа рассматривается как набор дискретных объектов, содержащих, в свою очередь, наборы структур данных и процедур, взаимодействующих с другими объектами.

Объекты имеют свойства и методы. Свойства объекта - это значения, которые устанавливаются для определения его вида и поведения. Методы объекта - это программные процедуры, обеспечивающие выполнение им определенных действий. Совокупность объектов, имеющих общий набор свойств и характеризующихся одинаковым поведением, называется классом. Классы могут строится по иерархическому принципу, когда один класс может быть подклассом другого класса. Из определения класса следует, что каждый объект является экземпляром одного определенного класса.

Основными принципами объектно-ориентированного программирования являются наследование, инкапсуляция и полиморфизм.

Принцип, в соответствии с которым знание о более общей категории разрешается применять для более узкой категории, называется наследованием. Наследование тесно связано с иерархией классов. При этом, если некоторый родительский класс обладает фиксированным набором свойств и поведением, то производный от него класс должен содержать этот же набор свойств и обладать таким же поведением, а также дополнительными свойствами и видами поведения, которые будут определять уникальность созданного таким образом класса.

Принцип инкапсуляции характеризует сокрытие деталей внутреннего устройства классов от внешних по отношению к нему объектов или пользователей. То есть, взаимодействующему с классом объекту или пользователю не нужно знать, каким образом реализован тот или иной метод класса, чтобы им воспользоваться.

Полиморфизм в объектно-ориентированном программировании означает, что действия, выполняемые одноименными методами, могут отличаться в зависимости от того, какому из классов они относятся.

1.2.3 Визуальное программирование

Визуальное программирование -- способ создания приложений путём манипулирования графическими объектами вместо написания программных кодов в текстовом виде.

Языки визуального программирования могут быть дополнительно классифицированы в зависимости от типа и степени визуального выражения, на следующие типы:

· языки на основе объектов, когда визуальная среда программирования предоставляет графические или символьные элементы, которыми можно манипулировать интерактивным образом в соответствии с некоторыми правилами;

· языки на основе форм, когда программирование осуществляется помещением на специальные формы объектов и настройкой их свойств и поведения. Примеры: Delphi и C++ Builder фирмы Borland.

· языки схем, основанные на идее «фигур и линий», где фигуры (прямоугольники, овалы и т. п.) рассматриваются как субъекты и соединяются линиями (стрелками, дугами и др.), которые представляют собой отношения. Пример: UML.

Визуально-преобразованные языки являются невизуальными языками с наложенным визуальным представлением (например, среда Visual C++ для языка C++). Естественно-визуальные языки имеют неотъемлемое визуальное выражение, для которого нет очевидного текстового эквивалента (например, графический язык G в среде LabVIEW).

1.3 Описание средства разработки

Delphi -- это средства разработки в программировании, которые имеют место быть в рамках приложений Microsoft Windows. Delphi представляет собой актуальную и легкую в использовании программу, которая необходима для генерации автономных программ графического интерфейса или 32-битовых консольных приложений -- программ, которые существуют вне рамок GUI, вместо этого, в соответствии с так называемым «DOS box».

Delphi является первым языком программирования, который обеспечивает уничтожение барьера между приложениями комплексного и упрощенного характера в использовании и низкоуровневыми битовыми программными средствами.

Создавая GUI-приложения с помощью Delphi, транслируемый язык программирования существует в рамках RAD-среды (язык Паскаль). Delphi включает в себя такие компоненты, как основные элементы графического интерфейса пользователя системы Windows, которые представлены в виде экранного бланка, кнопок и др. Это означает, что пользователю не нужно организовывать написание кодировки в случае присоединения этих элементов к определенному приложению. Пользователь просто разрабатывает их в программе рисования. Возможно также использование управляющих элементов ActiveX с целью создания таких специальных программ, как веб-браузеры. Delphi позволяет пользователю разрабатывать весь интерфейс визуально, а также быстро составлять код события с помощью простой компьютерной мышки.

Описание Delphi

Delphi существует во множестве конфигураций, которые используются как в ведомственных, так и в производственных учреждениях. С помощью Delphi пользователь может написать программу в рамках Windows на много быстрее и проще, чем это когда-либо было возможно.

В основе Delphi-среды лежит язык программирования Паскаль. Delphi имеет возможность использования множества баз данных. Примерами могут быть локальные базы данных - Paradox, Dbase, сетевые серверные базы данных SQL -- InterBase, SysBase.

Несмотря на то, что написание компьютерной программы с помощью Delpi представляется облегченным мероприятием, не стоит забывать, что подобное программное средство требует уверенных знаний системы Windows.

Delphi разработан на основе высокоуровнего языка программирования общего назначения;

Язык Delphi можно отнести к категории объективно-ориентированных;

Delphi поддерживает главные средства программного обеспечения;

Delphi имеет редактор графического отладчика;

Delphi является функциональным приложением Turbo Pascal;

Многие виды программирования предполагают наличие специальной библиотеки объектов;

Элементы VCL-библиотеки позволяют создавать усовершенствованный графический интерфейс;

Осуществление визуального проектирования интерфейса;

Borland занимается разработкой системы управления жизненным циклом приложений;

Delphi предназначен для программистов, которые занимаются созданием новых комплексных программных продуктов для сложных приложений;

элементы Delphi -- основа языка программирования С#;

Использование Delphi при разработке различных компонентов программного обеспечения;

На сегодняшний день, последней, 12 версией программного средства является Delphi 2009.

2. Разработка обучающей программы по теме «Компьютерная графика (CorelDRAW для начинающих)»

2.1 Постановка задачи и разработка спецификации на задачу

С помощью разрабатываемого программного средства мы даем пользователю возможность самостоятельно изучить программу CorelDRAW.

Проект должен иметь оригинальное имя, пиктограмму для отображения в строке задач, пиктограмму на форме. На основной форме должно иметься главное меню. Формы проекта должны быть оформлены в едином стиле. На форме должна быть размещена краткая инструкция пользователю о его возможных действиях.

Второе информационное окно: «Об авторе», где должна находиться краткая информация об авторе проекта. Основной функцией разработанной программы является прочтение теоретического материала, выполнение практических заданий и проверка усвоенного по прохождении теста.

Спецификация

Название
Требования к компьютеру	Процессор Intel Pentium IV 2.0 Ghz, 1024Mb RAM
Описание	Теоретический блок, практический блок, тестирующий блок
Требования к интерфейсу программного продукта	На главной форме расположено главное меню с пунктами «Обучение», «Помощь», «Выход»
Входные данные	HTML-страницы, информация из файла вопросов
Выходные данные	Информация об ученике и оценке
Ошибки	Возникают при удалении (некорректном заполнении) текстовых файлов, удалении HTML-файлов.

2.2 Структура программы

2.3 Разработка программы

При запуске исполняемого файла появляется главная форма программы. Данная программа была написана с целью обучения пользователей простейшим навыкам работы в CorelDRAW. Программа включает в себя электронный учебник для изучения теоретического материала, практический блок и тест для проверки полученных знаний.

Главное окно программы

Кнопки главного меню:

· Обучение

o Теоретическая часть - вывод окна учебника

o Практическая часть - вывод окна практических заданий

o Тестирование - вывод окна регистрации учащегося.

· Помощь

o Об авторе - вывод окна информации об авторе программы.

o Справка - вывод окна справки.

Окно учебника

Окно регистрации

· Имя - введите имя

· Фамилия - введите фамилию

· Записать - записать информацию и начать тестирование

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

По прохождению тестирования выдается информация о проценте правильных ответов и оценке. Эта информация записывается в текстовый файл с информацией об ученике.

Окно практики

2.4 Отладка программы

Таблица 1. Протокол ошибок

№	Код ошибки	Сообщение об ошибке	Меры по исправлению
1	43		Отсутствует (неправильно назван) текстовый файл с информацией об ученике. Исправлено.
2	13	Unknown identifier	Не объявлены переменные. Исправлено.

Таблица 2. Функциональное тестирование программы

№ теста	Тест-действия	Ожидаемый результат	Фактический результат
1	Проверка работы главного меню	Корректное открытие пунктов меню и подменю	Открытие происходит успешно
2	Корректное отображение текста в программе	Текст должен отображаться без ошибок.	Текст отображается корректно.
3	Корректное отображение графических файлов	Графические изображения отображаются корректно	Графические изображения отображаются корректно
4	Корректное отображение HTML-страниц	HTML-страницы отображаются без ошибок	HTML-страницы отображаются без ошибок

Таблица 3. Тестирование приложения

№ теста	Тест-действия	Ожидаемый результат	Фактический результат
1	Запуск программы	Отображение главной формы	Главная форма отображается
2	Запуск теоретического блока	Корректная работа теоретического блока	Корректная работа теоретического блока
3	Запуск практического блока	Корректная работа практического блока	Корректная работа практического блока
4	Запуск тестирующего блока	Безошибочная работа тестирующей подпрограммы	Программа работает без ошибок

Таблица 4. Жесткое тестирование программы

№ теста	Тест-действие	Ожидаемый результат	Фактический результат
1	Удаление текстового файла	Ошибка: файл удален	Ошибка: файл удален
2	Удаление HTML-файлов	HTML-страницы не отображаются	HTML-страницы не отображаются

программный coreldraw визуальный

2.5 Документирование

Описание применения

Назначение программы состоит в обучении пользователя базовым навыкам работы в CorelDRAW.

Условия применения:

Процессор - Pentium 2000 Mhz

ОЗУ-1024Mb

ОС - Windows 95/NT/XP

Монитор SVGA

Манипулятор мышь

Свободное пространство на жестком диске 2 Гб.

Руководство программиста (по ГОСТ 19.504-79)

В состав программы входит функциональная часть и файлы, необходимые для удачной компиляции и создания проекта.

Условиями, необходимыми для выполнения программы служат:

1. Минимально возможная конфигурация компьютера для установки и запуска:

. процессор Pentium 2000 Mhz;

. оперативная память 1024 Мб;

. свободное пространство на жестком диске 2 Гб;

. манипулятор мышь;

. графический адаптер SVGA с видеопамятью 512 Мб

(поддерживающий

разрешение не ниже 800*600*256 цветов);

. цветной монитор SVGA.

. операционная система Windows XP.

2. Характеристики компьютера, рекомендуемые для эффективной
работы:

. процессор Pentium 2500 и выше;

. оперативная память 2048 Мб;

. свободное пространство на жестком диске 5 Гб;

. графический адаптер SVGA с видеопамятью 512 Мб или более

(поддерживающий разрешение 800*600, High Color);

. цветной монитор SVGA с размером диагонали экрана 15^м и более.

. операционная система Windows 98/XP

Характеристики программы: отклик программы осуществляется сразу после загрузки основной формы. Режим работы программы постоянен. Средствами контроля правильности работы программы служат сообщения об ошибках, которых в процессе выполнения работы не должно возникнуть.

Установка программы: необходимо скопировать на жесткий диск папки с HTML-файлами , текстовые файлы, exe-файл «CorelDRAW для начинающих».

Обращение к программе: выбрав в папке с программой файл «CorelDRAW для начинающих» необходимо нажать по нему двойным щелчком мыши.

Заключение

В ходе курсового проектирования были изучены основные принципы проектирования программного обеспечения и этапы разработки программ, рассмотрены преимущества объектно-ориентированной модели проектирования программного обеспечения и изучены возможности разработки программ в среде Delphi 7.0. Исходя из этого можно сделать вывод, что среда разработки Borland Delphi 7.0 наиболее удобна для разработки приложений, так как:

o Среда Delphi имеет огромный выбор компонентов, как визуальных, так и невизуальных;

o Среда имеет интуитивно понятный интерфейс;

o Неоспоримым преимуществом Delphi является ориентирование программиста на выстраивание компонентов, а не на написание сложного программного кода.

В среде Borland Delphi 7.0 был разработан новый программный продукт - обучающая программа по дисциплине «Компьютерная графика (CorelDRAW для начинающих)», позволяющая пользователю изучить теоретический материал по теме, приобрести практические навыки и проверить полученные знания в ходе тестирования. Программа имеет понятный интерфейс, ориентированный на неподготовленного пользователя и встроенную справочную систему. Все функции программы доступны из главного меню.

Также было выполнено описание (документирование) разработанного программного продукта.

Данный продукт может быть использован как для аудиторных занятий, так и для самостоятельного обучения и ориентирован не только на новичков, но и для пользователей, уже имеющих некоторый опыт работы в графическом редакторе CorelDRAW.

В дальнейшем программа может быть усовершенствована: могут быть добавлены дополнительный учебный материал или практические работы, а так же видеоуроки по работе с графическим редактором CorelDRAW.

В силу всего вышеизложенного цели курсового проекта можно признать достигнутыми, а задачи - выполненными.

Список литературы

1. Архангельский А.Я. «Язык Pascal и основы программирования в Delphi»-Учебное пособие. - М.: «Бином», 2014.

2. Дантеманн Дж., Мишел Д., Тэйлор Д. Программирование в среде Delphi.- К.: НИПФ-'Diasoft-Ltd.',2012. - 608с

3. Иан Грэхем. Объектно-ориентированные методы. Принципы и практика = Object-Oriented Methods: Principles & Practice. -- 3-е изд. -- М.: «Вильямс», 2004.

4. Культин Н.Б. «Программирование в Turbo Pascal и Delphi».- СПб.: БХВ - Санкт-Петербург, 2010.

5. Нил Дж. Рубенкинг Язык программирования Delphi для "чайников". Введение в Borland Delphi 2006 = Delphi for Dummies. -- М.: «Диалектика», 2007. -- С. 336.

6. Семакин И.Г. , Шестаков А.П. Основы программирования: Учебник.-М.:Мастерство, 2002.

7. Симонович С.В. Евсеев Г.А., Алексеев А.Г. Специальная информатика: Учебное пособие для средней школы. Универсальный курс.-М.: АСТ-ПРЕСС: ИнфоркомПресс, 2011. с.223

8. Сурков К.А., Сурков Д.А., Вальвачев А.Н. Программирование в среде DELPHI 2.0. - Минск: ООО "Попурри", 1997. - 640с

9. Хавьер Пашеку Программирование в Borland Delphi 2006 для профессионалов = Delphi for .NET Developer's Guide. -- М.: «Вильямс», 2012.

10. Э.Дейкстра. Заметки по структурному программированию. - М.: Мир, 1975.

Приложение

Листинг программы

Главная форма

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Menus, OleServer, WordXP, jpeg, ExtCtrls, StdCtrls;

type

TMain = class(TForm)

MainMenu: TMainMenu;

N1: TMenuItem;

N4: TMenuItem;

Image1: TImage;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N2: TMenuItem;

Image2: TImage;

Label1: TLabel;

Label2: TLabel;

procedure N4Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Main: TMain;

implementation

uses Unit3, Unit4, Unit6, Unit2, Unit8;

{$R *.dfm}

procedure TMain.N4Click(Sender: TObject);

begin

AboutBox.Showmodal;

end;

procedure TMain.N2Click(Sender: TObject);

begin

Spravka.Showmodal;

end;

procedure TMain.N5Click(Sender: TObject);

begin

close;

end;

procedure TMain.N6Click(Sender: TObject);

begin

WebForm.showmodal;

end;

procedure TMain.N7Click(Sender: TObject);

begin

PractForm.showmodal;

end;

procedure TMain.N8Click(Sender: TObject);

begin

TestForm.Showmodal;

end;

end.

Теоретическая часть

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, OleCtrls, SHDocVw, StdCtrls, ExtCtrls;

type

TWebForm = class(TForm)

RadioGroup1: TRadioGroup;

WebBrowser1: TWebBrowser;

Panel1: TPanel;

procedure RadioGroup1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

WebForm: TWebForm;

implementation

uses Unit7;

{$R *.dfm}

procedure TWebForm.RadioGroup1Click(Sender: TObject);

begin

if radiogroup1.ItemIndex=0 then

WebForm.webBrowser1.Navigate(extractfilepath(paramstr(0))+'book/chapter1.htm');

if radiogroup1.ItemIndex=1 then

WebForm.webBrowser1.Navigate(extractfilepath(paramstr(0))+'book/chapter2.htm');

if radiogroup1.ItemIndex=2 then

WebForm.webBrowser1.Navigate(extractfilepath(paramstr(0))+'book/chapter3.htm');

if radiogroup1.ItemIndex=3 then

WebForm.webBrowser1.Navigate(extractfilepath(paramstr(0))+'book/chapter4.htm');

if radiogroup1.ItemIndex=4 then

WebForm.webBrowser1.Navigate(extractfilepath(paramstr(0))+'book/chapter5.htm');

if radiogroup1.ItemIndex=5 then

WebForm.webBrowser1.Navigate(extractfilepath(paramstr(0))+'book/chapter6.htm');

if radiogroup1.ItemIndex=6 then

WebForm.webBrowser1.Navigate(extractfilepath(paramstr(0))+'book/chapter7.htm');

if radiogroup1.ItemIndex=7 then

WebForm.webBrowser1.Navigate(extractfilepath(paramstr(0))+'book/chapter8.htm');

if radiogroup1.ItemIndex=8 then

WebForm.webBrowser1.Navigate(extractfilepath(paramstr(0))+'book/chapter9.htm');

if radiogroup1.ItemIndex=9 then

WebForm.webBrowser1.Navigate(extractfilepath(paramstr(0))+'book/chapter10.htm');

if radiogroup1.ItemIndex=10 then

WebForm.webBrowser1.Navigate(extractfilepath(paramstr(0))+'book/chapter11.htm');

if radiogroup1.ItemIndex=11 then

WebForm.webBrowser1.Navigate(extractfilepath(paramstr(0))+'book/chapter12.htm');

if radiogroup1.ItemIndex=12 then

WebForm.webBrowser1.Navigate(extractfilepath(paramstr(0))+'book/chapter13.htm');

if radiogroup1.ItemIndex=13 then

WebForm.webBrowser1.Navigate(extractfilepath(paramstr(0))+'book/chapter14.htm');

if radiogroup1.ItemIndex=14 then

WebForm.webBrowser1.Navigate(extractfilepath(paramstr(0))+'book/chapter15.htm');

if radiogroup1.ItemIndex=15 then

WebForm.webBrowser1.Navigate(extractfilepath(paramstr(0))+'book/chapter16.htm');

if radiogroup1.ItemIndex=16 then

WebForm.webBrowser1.Navigate(extractfilepath(paramstr(0))+'book/chapter17.htm');

if radiogroup1.ItemIndex=17 then

WebForm.webBrowser1.Navigate(extractfilepath(paramstr(0))+'book/chapter18.htm');

if radiogroup1.ItemIndex=18 then

WebForm.webBrowser1.Navigate(extractfilepath(paramstr(0))+'book/chapter19.htm');

if radiogroup1.ItemIndex=19 then

WebForm.webBrowser1.Navigate(extractfilepath(paramstr(0))+'book/chapter20.htm');

end;

end.

Форма «Об авторе»

unit Unit3;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

Buttons, ExtCtrls, jpeg;

type

TAboutBox = class(TForm)

OKButton: TButton;

ProductName: TLabel;

Version: TLabel;

Copyright: TLabel;

Comments: TLabel;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Image: TImage;

private

{ Private declarations }

public

{ Public declarations }

end;

var

AboutBox: TAboutBox;

implementation

{$R *.dfm}

end.

Форма регистрации

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, jpeg;

type

TTestForm = class(TForm)

Label1: TLabel;

LabeledEdit1: TLabeledEdit;

LabeledEdit2: TLabeledEdit;

Button1: TButton;

Image1: TImage;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

TestForm: TTestForm;

f:textfile;

implementation

uses Unit5;

{$R *.dfm}

procedure TTestForm.Button1Click(Sender: TObject);

begin

if (LabeledEdit1.Text='') or (LabeledEdit2.Text='') then

begin

with application do

messagebox('Необходимо ввести данные', 'Ошибка!');

end

else

begin

assignfile(f,'uchenik.txt');

append(f);

write(f,'имя: ');

writeln(f,LabeledEdit1.Text);

write(f,'Фамилия: ');

writeln(f,LabeledEdit2.text);

closefile(f);

LabeledEdit1.Text:='';

LabeledEdit2.Text:='';

TestForm2.Memo1.Lines.Add('Здравствуйте! Предлагаем Вам пройти несложный тест.');

TestForm2.Memo1.Lines.Add('Нажмите "Начать" для начала тестирования.');

TestForm2.Showmodal;

TestForm.Close;

end;

end;

end.

Форма тестирования

unit Unit5;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, jpeg;

type

TTestForm2 = class(TForm)

Memo1: TMemo;

RadioGroup1: TRadioGroup;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Image1: TImage;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

TestForm2: TTestForm2;

f,f1:textfile;

vern,nom,k,i,answ,otm:integer;

s,answ1,otm2:string;

proc,answ2:extended;

implementation

uses Unit1, Unit4;

{$R *.dfm}

procedure TTestForm2.Button1Click(Sender: TObject);

begin

Memo1.Lines.Clear;

answ:=0;

button1.Enabled:=false;

Button2.Enabled:=true;

assignfile(f,'vopr.txt');

assignfile(f1,'uchenik.txt');

reset(f);

reset(f1);

readln(f,k);

readln(f,nom,vern);

readln(f,s);

memo1.Lines.Add(s);

while s<>'' do

begin

readln(f,s);

radiogroup1.Items.Add(s);

radiogroup1.Items[i]:=s;

if radiogroup1.Items[i]='' then radiogroup1.Items.Delete(i);

inc(i);

end;

end;

procedure TTestForm2.Button2Click(Sender: TObject);

begin

if Button2.Caption<>'Результаты' then

begin

if radiogroup1.ItemIndex=vern-1 then answ:=answ+1;

memo1.Lines.Clear;

radiogroup1.Items.Clear;

i:=0;

readln(f,nom,vern);

readln(f,s);

memo1.Lines.add(s);

while s<>'' do

begin

readln(f,s);

radiogroup1.Items.Add(s);

radiogroup1.Items[i]:=s;

if radiogroup1.Items[i]='' then radiogroup1.Items.Delete(i);

inc(i);

end;

if eof(f)=true then

begin

Button2.Caption:='Результаты';

memo1.Lines.Add('Прекрасно! Нажмите "Результаты", чтобы узнать Вашу оценку.');

end;

end

else

begin

answ1:=Inttostr(answ);

answ2:=strtofloat(answ1);

proc:=(answ2/k)*100;

if (proc<=100) and (proc>=80) then otm:=5;

if (proc<80) and (proc>=50) then otm:=4;

if (proc<50) and (proc>=30) then otm:=3;

if proc<30 then otm:=2;

memo1.Lines.Clear;

Memo1.Lines.Add('Процент правильных ответов:');

Memo1.Lines.Add(FloatToStr(proc));

Memo1.Lines.Add('Отметка:');

Memo1.Lines.Add(IntToStr(otm));

append(f1);

write(f1,'Оценка: ');

writeln(f1,otm);

writeln(f1);

closefile(f1);

Button3.Visible:=true;

Button2.Enabled:=false;

end

end;

procedure TTestForm2.Button3Click(Sender: TObject);

begin

memo1.Lines.Clear;

TestForm2.Close;

Main.Show;

button1.Enabled:=true;

button2.Caption:='Далее';

end;

end.

Практическая часть

unit Unit6;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, jpeg, ExtCtrls, StdCtrls;

type

TPractForm = class(TForm)

Image1: TImage;

Image2: TImage;

Image3: TImage;

Image4: TImage;

Image5: TImage;

Image6: TImage;

Image7: TImage;

Image8: TImage;

Image10: TImage;

Image12: TImage;

Image13: TImage;

Image14: TImage;

Image15: TImage;

Image16: TImage;

RadioGroup1: TRadioGroup;

Panel1: TPanel;

Image9: TImage;

Image11: TImage;

Image17: TImage;

procedure Image2Click(Sender: TObject);

procedure Image4Click(Sender: TObject);

procedure RadioGroup1Click(Sender: TObject);

procedure Image3Click(Sender: TObject);

procedure Image7Click(Sender: TObject);

procedure Image16Click(Sender: TObject);

procedure Image1Click(Sender: TObject);

procedure Image13Click(Sender: TObject);

procedure Image6Click(Sender: TObject);

procedure Image14Click(Sender: TObject);

procedure Image5Click(Sender: TObject);

procedure Image8Click(Sender: TObject);

procedure Image10Click(Sender: TObject);

procedure Image12Click(Sender: TObject);

procedure Image15Click(Sender: TObject);

procedure Image11Click(Sender: TObject);

procedure Image17Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

PractForm: TPractForm;

implementation

uses Unit7;

{$R *.dfm}

procedure TPractForm.Image2Click(Sender: TObject);

begin

Image9.Picture:=Image2.Picture;

end;

procedure TPractForm.Image4Click(Sender: TObject);

begin

Image9.Picture:=Image4.Picture;

end;

procedure TPractForm.RadioGroup1Click(Sender: TObject);

begin

If radiogroup1.ItemIndex=0 then

begin

WebForm2.webBrowser1.Navigate(extractfilepath(paramstr(0))+'frukt/vichenki.htm');

WebForm2.showmodal;

end;

If radiogroup1.ItemIndex=1 then

begin

WebForm2.webBrowser1.Navigate(extractfilepath(paramstr(0))+'kolco/kolco.htm');

WebForm2.showmodal;

end;

If radiogroup1.ItemIndex=2 then

begin

WebForm2.webBrowser1.Navigate(extractfilepath(paramstr(0))+'flag/flag.htm');

WebForm2.showmodal;

end;

If radiogroup1.ItemIndex=3 then

begin

WebForm2.webBrowser1.Navigate(extractfilepath(paramstr(0))+'ochki/ochki.htm');

WebForm2.showmodal;

end;

if radiogroup1.ItemIndex=4 then

begin

WebForm2.webBrowser1.Navigate(extractfilepath(paramstr(0))+'frukt/apelsin.htm');

WebForm2.showmodal;

end;

if radiogroup1.ItemIndex=5 then

begin

WebForm2.webBrowser1.Navigate(extractfilepath(paramstr(0))+'kapelka/kapelka.htm');

WebForm2.showmodal;

end;

if radiogroup1.ItemIndex=6 then

begin

WebForm2.webBrowser1.Navigate(extractfilepath(paramstr(0))+'monitor/monitor.htm');

WebForm2.showmodal;

end;

if radiogroup1.ItemIndex=7 then

begin

WebForm2.webBrowser1.Navigate(extractfilepath(paramstr(0))+'chasi/chasi.htm');

WebForm2.showmodal;

end;

if radiogroup1.ItemIndex=8 then

begin

WebForm2.webBrowser1.Navigate(extractfilepath(paramstr(0))+'text/prozrachn.htm');

WebForm2.showmodal;

end;

if radiogroup1.ItemIndex=9 then

begin

WebForm2.webBrowser1.Navigate(extractfilepath(paramstr(0))+'frukt/arbuz.htm');

WebForm2.showmodal;

end;

if radiogroup1.ItemIndex=10 then

begin

WebForm2.webBrowser1.Navigate(extractfilepath(paramstr(0))+'text/glanc.htm');

WebForm2.showmodal;

end;

if radiogroup1.ItemIndex=11 then

begin

WebForm2.webBrowser1.Navigate(extractfilepath(paramstr(0))+'text/metaltext.htm');

WebForm2.showmodal;

end;

if radiogroup1.ItemIndex=12 then

begin

WebForm2.webBrowser1.Navigate(extractfilepath(paramstr(0))+'ruchka/ruchka.htm');

WebForm2.showmodal;

end;

if radiogroup1.ItemIndex=13 then

begin

WebForm2.webBrowser1.Navigate(extractfilepath(paramstr(0))+'frukt/yabloko.htm');

WebForm2.showmodal;

end;

if radiogroup1.ItemIndex=14 then

begin

WebForm2.webBrowser1.Navigate(extractfilepath(paramstr(0))+'frukt/vinograd.htm');

WebForm2.showmodal;

end;

if radiogroup1.ItemIndex=15 then

begin

WebForm2.webBrowser1.Navigate(extractfilepath(paramstr(0))+'snegovik/snegovik.htm');

WebForm2.showmodal;

end;

end;

procedure TPractForm.Image3Click(Sender: TObject);

begin

Image9.Picture:=Image3.Picture;

end;

procedure TPractForm.Image7Click(Sender: TObject);

begin

Image9.Picture:=Image7.Picture;

end;

procedure TPractForm.Image16Click(Sender: TObject);

begin

Image9.Picture:=Image16.Picture;

end;

procedure TPractForm.Image1Click(Sender: TObject);

begin

Image9.Picture:=Image1.Picture;

end;

procedure TPractForm.Image13Click(Sender: TObject);

begin

Image9.Picture:=Image13.Picture;

end;

procedure TPractForm.Image6Click(Sender: TObject);

begin

Image9.Picture:=Image6.Picture;

end;

procedure TPractForm.Image14Click(Sender: TObject);

begin

Image9.Picture:=Image14.Picture;

end;

procedure TPractForm.Image5Click(Sender: TObject);

begin

Image9.Picture:=Image5.Picture;

end;

procedure TPractForm.Image8Click(Sender: TObject);

begin

Image9.Picture:=Image8.Picture;

end;

procedure TPractForm.Image10Click(Sender: TObject);

begin

Image9.Picture:=Image10.Picture;

end;

procedure TPractForm.Image12Click(Sender: TObject);

begin

Image9.Picture:=Image12.Picture;

end;

procedure TPractForm.Image15Click(Sender: TObject);

begin

Image9.Picture:=Image15.Picture;

end;

procedure TPractForm.Image11Click(Sender: TObject);

begin

image9.Picture:=image11.Picture;

end;

procedure TPractForm.Image17Click(Sender: TObject);

begin

Image9.Picture:=image17.Picture;

end;

end.

Форма отображения HTML-страниц с практическими занятиями

unit Unit7;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, OleCtrls, SHDocVw;

type

TWebForm2 = class(TForm)

WebBrowser1: TWebBrowser;

private

{ Private declarations }

public

{ Public declarations }

end;

var

WebForm2: TWebForm2;

implementation

{$R *.dfm}

end.

Форма справки

unit Unit8;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, jpeg, ExtCtrls, StdCtrls, Menus;

type

TSpravka = class(TForm)

Panel1: TPanel;

Image1: TImage;

Panel2: TPanel;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

Button7: TButton;

Memo1: TMemo;

Button8: TButton;

Button9: TButton;

Label1: TLabel;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure Button9Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Spravka: TSpravka;

implementation

{$R *.dfm}

procedure TSpravka.FormCreate(Sender: TObject);

begin

spravka.canvas.moveTo(300,125);

spravka.canvas.Pen.Color:=clred;

spravka.canvas.lineto(200,115);

end;

procedure TSpravka.Button1Click(Sender: TObject);

begin

If (Button5.visible=false) and (Button6.Visible=false) and (Button7.Visible=false) then

begin

Button5.Visible:=true;

Button6.Visible:=true;

Button7.Visible:=true;

end

else

begin

Button5.Visible:=false;

Button6.Visible:=false;

Button7.Visible:=false;

end;

end;

procedure TSpravka.Button5Click(Sender: TObject);

begin

Memo1.Clear;

memo1.Lines.add('Данный пункт меню Открывает электронный учебник CorelDRAW. Выберите интересующий Вас пункт и наслаждайтесь!:)))')

end;

procedure TSpravka.Button6Click(Sender: TObject);

begin

Memo1.Clear;

Memo1.Lines.Add('Выбрав этот пункт меню, Вы сможете попробовать свои знания на практике. Для увеличения интересующей Вас картинки нажмите на неё. Для открытия инструкции по созданию выберите нужный пункт справа.');

end;

procedure TSpravka.Button7Click(Sender: TObject);

begin

Memo1.Clear;

Memo1.Lines.Add('Проверьте свои знания, выполнив простой тест. Введите свои данные (желательно корректно) и следуйте дальнейшим инструкциям.');

end;

procedure TSpravka.Button2Click(Sender: TObject);

begin

Memo1.Clear;

Memo1.Lines.Add('Вы в ней находитесь!:)))');

end;

procedure TSpravka.Button3Click(Sender: TObject);

begin

Memo1.Clear;

Memo1.Lines.Add('Если Вас интересует информация об авторе данного проекта, нажмите сюда. ');

end;

procedure TSpravka.Button4Click(Sender: TObject);

begin

Memo1.Clear;

Memo1.Lines.Add('Без комментариев..:))');

end;

end.

Размещено на Allbest.ru