Создание программного приложения «Шифрование информации»

1. ОПРЕДЕЛЕНИЕ ОСНОВНЫХ ТРЕБОВАНИЙ К ПРОДУКТУ

1.1 Техническое задание на разработку обучающего приложения «Архитектура системного блока»

1.2 Обоснование выбора среды разработки

2. СОЗДАНИЕ ПРОГРАММНОГО ПРИЛОЖЕНИЯ «Архитектура системного блока»

2.1 Общие сведения

2.2 Функциональное назначение

2.3 Описание логической структуры

2.4 Свойства форм и компонентов

2.5 Руководство системного программиста

2.5.1 Запуск и работа в программе

2.5.2 Редактирование и добавление материала

2.5.3 Работа с программой тестирования

2.6 Руководство пользователя

2.6.1 Запуск и работа в программе

Заключение

Список литературы Приложение 1

Приложение 2

Приложение 3

Приложение 4

Приложение 5

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

Шифрование — обратимое преобразование информации в целях сокрытия от неавторизованных лиц, с предоставлением, в это же время, авторизованным пользователям доступа к ней. Главным образом, шифрование служит задачей соблюдения конфиденциальности передаваемой информации. Важной особенностью любого алгоритма шифрования является использование ключа, который утверждает выбор конкретного преобразования из совокупности возможных для данного алгоритма При изучении этой темы на занятия по информационной безопасности я столкнулся с такой поблемой, как нехватка учебного пособия именно в разделе «Шифрование информации». Таким образом я, получив тему по курсовой работе «Шифрование информации» я решил создать электронное учебное пособие по данной теме в среде программирования Delphi.

Объектом исследования является: программное приложение.

Предметом является: программное приложение «Шифрование информации».

Целью курсового проекта является: создание электронного учебного пособия «Шифрование информации».

Задачи:

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

2. Дать определение обучающему приложению;

3. Разработать техническое задание;

4. Обосновать выбор среды разработки приложения;

5. Создать электронное пособие «Шифрование информации».

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

1. ОПРЕДЕЛЕНИЕ ОСНОВНЫХ ТРЕБОВАНИЙ К ПРОДУКТУ

1.1 Техническое задание на разработку программного приложения «Шифрование информации»

информационный безопасность программа шифрование

Основания для разработки

Основанием для проведения разработки является выполнение курсового проектирования в соответствии с учебным планом на 2013;2014 учебный год по специальности 230 115 «Программирование в компьютерных системах».

Назначение и область применения

Программа предоставляет возможность получить необходимые знания при изучении темы «Шифрование информации».

Требования к функциональным характеристикам

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

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

— Функция навигации через:

· содержание;

· гиперссылки;

· меню.

Требования к надежности

Надёжность программы зависит от:

· уровня подготовки пользователей;

· используемых аппаратных и программных средств;

· соблюдения условий эксплуатации программы.

От надежности зависит общая производительность и эффективность программы. Программа должна выполнять поставленные перед ней задачи.

Требования к маркировке и упаковке

Требования не предъявляются.

Требования к транспортированию и хранению

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

Требования к составу и параметрам технических средств

Рекомендуемые системные требования:

· Операционная система: Microsoft Windows XP/7/8;

· Процессор: Pentium IV 2.0Hz,;

· Оперативная память: 30 МБ;

· Жесткий диск: 30 МБ;

· Разрешение экрана: 1024×1280;

· Устройство для чтения компакт — дисков;

· Устройства взаимодействия с пользователем: клавиатура и мышь.

Требования к исходным кодам и языкам программирования

Дополнительные требования не предъявляются.

Условия эксплуатации

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

Требования к квалификации и численности персонала

Минимальное количество персонала: персонал не требуется так, как данное приложение предназначено для преподавателя и обучающегося.

Минимальный уровень знаний пользователя ПК:

1. Использовать манипулятор-мышь для работы с элементами графического пользовательского интерфейса;

2. Пользователь должен уметь работать в операционной системе.

Требования к программной документации

Состав программной документации должен включать в себя:

— Техническое задание;

Стадии и этапы разработки (Таблица 1)

Таблица 1

Порядок контроля и приемки

Виды испытаний:

1. Приемо-сдаточные испытания должны проводиться на объекте Заказчика в оговоренные сроки;

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

Объект испытаний

Объектом испытаний является программное приложение «Шифрование информации».

Цель испытаний

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

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

1.2 Обоснование выбора среды разработки

Microsoft Visual Basic — средство разработки программного обеспечения, разрабатываемое корпорацией Microsoft и включающее язык программирования и среду разработки. Язык Visual Basic унаследовал дух, стиль и отчасти синтаксис своего предка — языка Basic, у которого есть немало диалектов. В то же время Visual Basic сочетает в себе процедуры и элементы объектно-ориентированных и компонентно-ориентированных языков программирования. Среда разработки VB включает инструменты для визуального конструирования пользовательского интерфейса.

HTMLHelp (Microsoft Compressed HTML Help, Microsoft Compiled HTML Help, .CHM) — проприетарный формат файлов контекстной справки, разработанный корпорацией Microsoft, выпущенный в 1997 году в качестве замены формата WinHelp. Содержит в себе набор HTML-страниц, может также включать в себя содержание со ссылками на страницы, предметный указатель, а также базу дляполнотекстового поиска по содержимому страниц. Все входящие в .CHM файлы сжаты алгоритмом LZX.

Для просмотра .CHM-файлов используется стандартное средство просмотра, встроенное во все версии Microsoft Windows, начиная с Windows 98, и Windows NT. Кроме того, существует ряд сторонних программ-просмотровщиков, FBReader и другие.

Для создания .CHM-файлов можно использовать бесплатные средства: — Microsoft HTML Help Workshop, Htm2Chm, плагины для Total Commander’a, а также другие средства.

Embarcadero Delphi ранее Borland Delphi и CodeGear Delphi, — интегрированная среда разработки ПО для Microsoft Windows на языке Delphi (ранее носившем название Object Pascal), созданная первоначально фирмой Borland и на данный момент принадлежащая и разрабатываемая Embarcadero Technologies.

Embarcadero Delphi является частью пакета Embarcadero RAD Studio и поставляется в четырёх редакциях: Starter, Professional, Enterprise и Architect.

Достоинства:

· полная поддержка Unicode. Приложения могут выполняться на любой языковой версии Windows. Применение Unicode гарантирует, что приложения будут одинаково выглядеть и функционировать во всех языковых версиях Windows и поддерживать как Unicode-строки, так и ANSI-строки. Новые усовершенствованные средства локализации помогают переводить приложения на различные языки. Все функции Windows API заменены на их unicode-аналоги (например, ранее MessageBox определялась как MessageBoxA, теперь — MessageBoxW); тип String теперь на самом деле является UnicodeString, а Char — WideChar, PChar теперь объявлен как PWideChar. Старые типы и описания ANSI-вариантов системных функций сохранились, однако теперь потребуется прямое их указание (например, Set of Char в Delphi 2009 будет Set of AnsiChar, а MessageBox — MessageBoxA). Delphi 2009 — первая из версий Delphi для Win32, требующая серьезной переработки проектов при переходе на новую версию, что особенно критично для системных программистов, широко использовавших прямую обработку типов данных;

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

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

· веб-библиотека VCL позволяет создавать веб-приложения с развитым интерфейсом с поддержкой AJAX;

· уменьшено время передачи приложением сообщений операционной системе;

· визуальное проектирование и разработка баз данных благодаря входящему в состав редакции Delphi Architect профессионального средства моделирования Embarcadero ER/Studio.

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

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

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

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

Потребность в ручном программировании возникает, только тогда когда обойтись готовыми компонентами не удается. В Delphi используется язык Object Pascal, а для поддержки баз данных имеется система InterBase. Используемый язык не накладывает ограничений, поэтому в системе Delphi одинаково рационально создавать как текстовые базы данных, так и системы обработки данных с большим количеством расчетов.

2. СОЗДАНИЕ ПРОГРАММНОГО ПРИЛОЖЕНИЯ «Шифрование информации»

2.1 Общие сведения

Программное приложение «Шифрование информации» разработано в среде разработки Delphi.

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

Достоинства: программное приложение обладает простым и удобным интерфейсом, предоставляет необходимые сведения на тему «Шифрование информации».

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

Входные и выходные данные электронного учебника представлены в текстовом формате.

2.2 Функциональное назначение

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

2.2.1. Вызов формы, при нажатии пользователем на ярлык приложения

2.2.2.Функцию навигации через:

· содержание (через компонент TTreeView);

· теоретическая часть (через компонент TWebBrowser);

· меню (через компонент MainMenu).

2.3 Описание логической структуры

Разработка интерфейса

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

Программное приложение «Шифрование информации» состоит из нескольких форм, (свойство форм и их компонентов отображены в Таблице 2).

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

На ней расположены такие компоненты как:

· TTreeView - служит для отображения сложных данных в Windows, отображающихся в виде списка или дерева. Например: содержание, которое находится с левой стороны экрана.

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

· MainMenu — это не визуальный компонент Delphi, предназначенный для вывода главного меню на форме. Такие как: Практическая часть, Вид, Дополнительные материалы, Справка, Выход.

· Label — предназначен для показа текста на форме программы, которые не будут меняться в течение работы программы (Содержание, теория).

· Image — предназначен для отображения на форме графических изображений (Отображает название программного приложения «Архитектура Системного Блока»).

2. Форма «Тест»

На ней расположены такие компоненты как:

· Memo — простой текстовый редактор, для ввода и вывода текста. Отображает названия вопросов.

· RichEdit — текстовый редактор с возможностью редактирования текста, выводит текстовые файлы с расширением *.rtf. Считывает файл с расширением *.rtf.

· RadioGroup — служит для выбора одного из предложеных вариантов ответа. Отображает названия вариантов ответа.

· BitBtn — графическая кнопка, для перехода к следующему вопросу;

· OpenDialog — служит для открытия файлов. Открывает файл с расширением *.rtf.

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

На ней расположены такие компоненты как:

· Memo — простой текстовый редактор, для ввода и вывода текста; Отображает информацию о разработчике программы.

· Button — кнопка, служит для закрытия диалогового окна.

3. Форма «О программе»

На ней расположены такие компоненты как:

· Label — служит для вывода текстового результата; Отображает информацию лицензионного соглашения.

· Button — кнопка, служит для закрытия диалогового окна.

5. Форма «Дополнительные материалы»

На ней расположены такие компоненты как:

· Memo — простой текстовый редактор, для ввода и вывода текста. Отображает информацию по выбранной теме.

2.4 Свойства форм и компонентов

Таблица 2

ЗАКЛЮЧЕНИЕ

Данная курсовая работа посвящена разработке электронного учебника по теме «Архитектура Системного Блока». Электронный учебник «Архитектура Системного Блока» поможет преподавателям в учебной работе, а именно в обучении начинающих программистов. В данном приложении присутствует вся основная и полезная информация по архитектуре системного блока. В ходе разработки программного приложения были выполнены все поставленные задачи и достигнута цель — создание программного приложения «Архитектура Системного Блока».

В дальнейшем планируется модернизировать и обновлять данное программное приложение.

Планируемые изменения:

1. Интерфейс

1.1. Добавление титульной формы, на которой будут расположены кнопки перехода к теоретической или к практической части.

2. Содержание

2.1. Добавление новых тем для изучения и обновление существующих;

2.2. Добавление новых историй развития устройств;

2.3. Расширение направления электронного учебника (виды ОС, программного обеспечения, антивирусного ПО, виды вирусов и способы их обезвреживания, защита информации и т. д.).

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

3.1. Добавление обучающего приложения «Собери системный блок» ;

3.2. Добавление и распределение тестов по разным темам;

3.3. Добавление итогового теста, который будет содержать вопросы по всем изученным темам;

3.4. Возможность после прохождения тестирования, вывод результатов с помощью записи в файл.

1. Методические рекомендации к курсовому проектированию для студентов специальности 230 115 «Программирование в компьютерных системах»

2. http://helpdelphi.ru/treeview/ - компонент TreeView

3. http://www.interface.ru/home.asp?artId=33 722 — Растягивание формы на весь экран

4. http://ru.wikipedia.org/wiki/%D1%E8%F1%F2%E5%EC%ED%FB%E9_%E1%EB%EE%EA — Системный блок

5. http://windows.microsoft.com/ru-ru/windows/computer-parts#1TC=windows-7 — Компоненты компьютера

6. В. В. Фараонов «Delphi программирование на языке высокого уровня», Санкт — Петербург, 2011 г.

7. http://www.compgramotnost.ru/sostav-computera/chto-takoe-sistemnyj-blok — Что такое системный блок?

Приложение 1

Блок — схема программного приложения

Электронный учебник «Архитектура системного блока»

Приложение 2

Структура программного приложения

Электронный учебник «Архитектура системного блока»

Приложение 3

Листинг Программного Приложения «Архитектура Системного Блока»

Form 1

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, jpeg, ExtCtrls, Grids, ValEdit, OleCtrls, SHDocVw,

CheckLst, ComCtrls, Menus, XPMan;

type

TForm1 = class (TForm)

WebBrowser1: TWebBrowser;

TreeView1: TTreeView;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

Image1: TImage;

N4: TMenuItem;

N5: TMenuItem;

Label1: TLabel;

Label2: TLabel;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

N14: TMenuItem;

N16: TMenuItem;

N17: TMenuItem;

N18: TMenuItem;

N19: TMenuItem;

N20: TMenuItem;

N21: TMenuItem;

procedure TreeView1Change (Sender: TObject; Node: TTreeNode);

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure N2Click (Sender: TObject);

procedure N3Click (Sender: TObject);

procedure FormCreate (Sender: TObject);

procedure FormCanResize (Sender: TObject; var NewWidth,

NewHeight: Integer; var Resize: Boolean);

procedure N8Click (Sender: TObject);

procedure FormCloseQuery (Sender: TObject; var CanClose: Boolean);

procedure N12Click (Sender: TObject);

procedure N13Click (Sender: TObject);

procedure N22Click (Sender: TObject);

procedure N18Click (Sender: TObject);

procedure N20Click (Sender: TObject);

procedure N21Click (Sender: TObject);

procedure N19Click (Sender: TObject);

procedure N5Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8;

const

ScreenWidth: LongInt = 1280;

ScreenHeight: LongInt = 1024;

{$R *.dfm}

procedure TForm1. TreeView1Change (Sender: TObject; Node: TTreeNode);

begin

if TreeView1.Selected.Text='Системный блок' then WEbBrowser1. Navigate (Extractfilepath (Application.ExeName)+'Доп. МатериалыСистемный блок. HTM');

if TreeView1.Selected.Text='Введение' then WEbBrowser1. Navigate (Extractfilepath (Application.ExeName)+'Доп. МатериалыВведение. HTM');

if TreeView1.Selected.Text='Материнская плата' then WEbBrowser1. Navigate (Extractfilepath (Application.ExeName)+'Доп. МатериалыМатеринская плата. HTM');

if TreeView1.Selected.Text='Процессор' then WEbBrowser1. Navigate (Extractfilepath (Application.ExeName)+'Доп. МатериалыПроцессор. HTM');

if TreeView1.Selected.Text='Видеокарта' then WEbBrowser1. Navigate (Extractfilepath (Application.ExeName)+'Доп. МатериалыВидеокарта. HTM');

if TreeView1.Selected.Text='Жесткий диск' then WEbBrowser1. Navigate (Extractfilepath (Application.ExeName)+'Доп. МатериалыЖесткий диск. HTM');

if TreeView1.Selected.Text='ОЗУ' then WEbBrowser1. Navigate (Extractfilepath (Application.ExeName)+'Доп. МатериалыОЗУ. HTM');

if TreeView1.Selected.Text='Блок питания' then WEbBrowser1. Navigate (Extractfilepath (Application.ExeName)+'Доп. МатериалыБлок питания. HTM');

if TreeView1.Selected.Text='Карты расширения' then WEbBrowser1. Navigate (Extractfilepath (Application.ExeName)+'Доп. МатериалыКарты расширения. HTM');

if TreeView1.Selected.Text='Сетевая карта' then WEbBrowser1. Navigate (Extractfilepath (Application.ExeName)+'Доп. МатериалыСетевая карта. HTM');

if TreeView1.Selected.Text='Звуковая карта' then WEbBrowser1. Navigate (Extractfilepath (Application.ExeName)+'Доп. МатериалыЗвуковая карта. HTM');

if TreeView1.Selected.Text='Оптический привод' then WEbBrowser1. Navigate (Extractfilepath (Application.ExeName)+'Доп. МатериалыОптический привод. HTM');

if TreeView1.Selected.Text='Кардридер' then WEbBrowser1. Navigate (Extractfilepath (Application.ExeName)+'Доп. МатериалыКардридер. HTM');

if TreeView1.Selected.Text='Системная шина' then WEbBrowser1. Navigate (Extractfilepath (Application.ExeName)+'Доп. МатериалыСистемная шина. HTM');

if TreeView1.Selected.Text='Электронные схемы' then WEbBrowser1. Navigate (Extractfilepath (Application.ExeName)+'Доп. МатериалыЭлектронные схемы. HTM');

if TreeView1.Selected.Text='Типы корпусов' then WEbBrowser1. Navigate (Extractfilepath (Application.ExeName)+'Доп. МатериалыТипы корпусов. HTM');

if TreeView1.Selected.Text='Периферийные устройства' then WEbBrowser1. Navigate (Extractfilepath (Application.ExeName)+'Доп. МатериалыПериферийные устройства. HTM');

if TreeView1.Selected.Text='Монитор' then WEbBrowser1. Navigate (Extractfilepath (Application.ExeName)+'Доп. МатериалыМонитор. HTM');

if TreeView1.Selected.Text='Клавиатура' then WEbBrowser1. Navigate (Extractfilepath (Application.ExeName)+'Доп. МатериалыКлавиатура. HTM');

if TreeView1.Selected.Text='Компьютерная мышь' then WEbBrowser1. Navigate (Extractfilepath (Application.ExeName)+'Доп. МатериалыКомпьютерная мышь. HTM');

if TreeView1.Selected.Text='Внутренние' then WEbBrowser1. Navigate (Extractfilepath (Application.ExeName)+'Доп. МатериалыВнутренние. HTM');

if TreeView1.Selected.Text='Внешние' then WEbBrowser1. Navigate (Extractfilepath (Application.ExeName)+'Доп. МатериалыВнешние. HTM');

if TreeView1.Selected.Text='Принтер' then WEbBrowser1. Navigate (Extractfilepath (Application.ExeName)+'Доп. МатериалыПринтер. HTM');

end;

procedure TForm1. Button1Click (Sender: TObject);

var

ZoomFac: OLEVariant;

begin

WebBrowser1.OleObject.Document.Body.Style.Zoom := 1.3;

ZoomFac := TButton (Sender).Tag;

WebBrowser1.ExecWB (OLECMDID_ZOOM, OLECMDEXECOPT_PROMPTUSER, ZoomFac);

end;

procedure TForm1. Button2Click (Sender: TObject);

begin

WebBrowser1.OleObject.Document.Body.Style.Zoom := 1;

end;

procedure TForm1. N2Click (Sender: TObject);

begin

Form2.Show;

end;

procedure TForm1. N3Click (Sender: TObject);

begin

Form3.Show;

end;

procedure TForm1. FormCreate (Sender: TObject);

begin

scaled := true;

if (screen.width <> ScreenWidth) then

begin

height := longint (height) * longint (screen.height) div ScreenHeight;

width := longint (width) * longint (screen.width) div ScreenWidth;

scaleBy (screen.width, ScreenWidth);

end;

end;

procedure TForm1. FormCanResize (Sender: TObject; var NewWidth,

NewHeight: Integer; var Resize: Boolean);

begin

Resize := False;

end;

procedure TForm1. N8Click (Sender: TObject);

begin

Application.MainForm.Close;

end;

procedure TForm1. FormCloseQuery (Sender: TObject; var CanClose: Boolean);

begin

CanClose := Application. MessageBox (PChar ('Вы действительно хотите выйти из программы ?'),

'Внимание !', MB_YesNo) = id_Yes;

end;

procedure TForm1. N12Click (Sender: TObject);

var

ZoomFac: OLEVariant;

begin

WebBrowser1.OleObject.Document.Body.Style.Zoom := 1.3;

ZoomFac := TButton (Sender).Tag;

WebBrowser1.ExecWB (OLECMDID_ZOOM, OLECMDEXECOPT_PROMPTUSER, ZoomFac);

end;

procedure TForm1. N13Click (Sender: TObject);

begin

WebBrowser1.OleObject.Document.Body.Style.Zoom := 1;

end;

procedure TForm1. N22Click (Sender: TObject);

begin

Form4.Show;

end;

procedure TForm1. N18Click (Sender: TObject);

begin

Form5.Show;

end;

procedure TForm1. N20Click (Sender: TObject);

begin

Form6.Show;

end;

procedure TForm1. N21Click (Sender: TObject);

begin

Form7.Show;

end;

procedure TForm1. N19Click (Sender: TObject);

begin

Form8.Show;

end;

procedure TForm1. N5Click (Sender: TObject);

begin

Form4.Show;

end;

end.

Form 2

unit Unit2;

interface

uses

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

Dialogs, StdCtrls;

type

TForm2 = class (TForm)

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

procedure Button1Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2. Button1Click (Sender: TObject);

begin

Close;

end;

end.

Form 3

unit Unit3;

interface

uses

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

Dialogs, StdCtrls;

type

TForm3 = class (TForm)

Memo1: TMemo;

Button1: TButton;

procedure Button1Click (Sender: TObject);

procedure Memo1Change (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3. Button1Click (Sender: TObject);

begin

Close;

end;

Приложение 4

Листинг подпрограммы «Тест»

Form 4

unit Unit4;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls, Buttons, ComCtrls;

type

TForm4 = class (TForm)

Memo1: TMemo;

RichEdit1: TRichEdit;

BitBtn1: TBitBtn;

RadioGroup1: TRadioGroup;

Label1: TLabel;

OpenDialog1: TOpenDialog;

procedure FormShow (Sender: TObject);

procedure BitBtn1Click (Sender: TObject);

procedure RadioGroup1Click (Sender: TObject);

procedure FormCanResize (Sender: TObject; var NewWidth,

NewHeight: Integer; var Resize: Boolean);

procedure FormCreate (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

I, kol, j: integer;

implementation

{$R *.dfm}

procedure TForm4. FormShow (Sender: TObject);

var AppPath: array[0.255] of char;

test: AnsiString;

begin

GetCurrentDirectory (255,AppPath); //определяем директорию, где расположен исполнимый файл

test := AppPath + 'Доп. Материалыtest. rtf';

try

Richedit1.Lines.LoadFromFile ('C:Program FilesЭлектронный учебникДоп. Материалыtest. rtf'); //текст загружается в компонент RichEdit1

except //в случае, если файл не найден, работа программы завершается

showmessage ('Файл не найден!');

Application.Terminate;

end;

BitBtn1.Enabled:=false;//Кнопка «Дальше» не доступна, пока не будет сделан выбор

memo1.Lines.Strings[0]: =Richedit1.Lines.Strings[j+0]; //в компонент Memo заносится первая строка — вопрос.

radiogroup1.Items[0]: =richedit1.Lines.Strings[j+1]; //заполняем варианты ответов

radiogroup1.Items[1]: =richedit1.Lines.Strings[j+2];

radiogroup1.Items[2]: =richedit1.Lines.Strings[j+3];

radiogroup1.Items[3]: =richedit1.Lines.Strings[j+4];

radiogroup1.Items[4]: =richedit1.Lines.Strings[j+5];

try

i:=StrToInt (richedit1.Lines.Strings[j+6]); //переменная і содержит номер пра-вильного ответа

except //если не указан номер правильного ответа, работа программы прерывается

showmessage ('Неверный формат теста!');

Application.Terminate;

end;

j:=j+8;

end;

procedure TForm4. BitBtn1Click (Sender: TObject);

begin

if i=radiogroup1.ItemIndex+1 then //если дан правильный ответ

begin

label1.Font.Color:=clGreen; //цвет шрифта Label1 — зеленый

label1.Caption:= 'Ответ правильный!';

kol:=kol+1; //счетчик количества правильных ответов

end else if radiogroup1. ItemIndex<>-1 then

begin

label1.Font.Color:=clRed;

label1.Caption:= 'Ответ не правильный!';

end;

memo1.Lines.Clear; //очищаем компонент Memo

if Richedit1.Lines.Strings[j+0]='Конец теста'

then begin

memo1.Lines.Strings[0]: ='Тест закончен';

memo1.Lines.Add ('Количество правильных ответов — '+IntToStr (kol));

radiogroup1.Items[0]: ='';

radiogroup1.Items[1]: ='';

radiogroup1.Items[2]: ='';

radiogroup1.Items[3]: ='';

radiogroup1.Items[4]: ='';

radiogroup1.Visible:=false;

Label1.Visible:=False;

end

else //иначе, если конец теста еще не достигнут

begin

memo1.Lines.Strings[0]: =richedit1.Lines.Strings[j+0];

radiogroup1.Items[0]: =richedit1.Lines.Strings[j+1];

radiogroup1.Items[1]: =richedit1.Lines.Strings[j+2];

radiogroup1.Items[2]: =richedit1.Lines.Strings[j+3];

radiogroup1.Items[3]: =richedit1.Lines.Strings[j+4];

radiogroup1.Items[4]: =richedit1.Lines.Strings[j+5];

try

i:=StrToInt (richedit1.Lines.Strings[j+6]);

except

showmessage ('Неверный формат теста!');

Application.Terminate;

end;

j:=j+8;

radiogroup1.ItemIndex:=-1;

end;

BitBtn1.Enabled:=false;

end;

procedure TForm4. RadioGroup1Click (Sender: TObject);

begin

BitBtn1.Enabled:=true; //если выбор произведен, то кнопка доступна.

end;

procedure TForm4. FormCanResize (Sender: TObject; var NewWidth,

NewHeight: Integer; var Resize: Boolean);

begin

Resize := False; //нельзя изменять размер формы

end;

procedure TForm4. FormCreate (Sender: TObject);

begin

end;

end.

Приложение 5

Содержание CD диска

1. Текст курсового проекта;

2. Исходный код программного продукта;

3. Дистрибутив обучающего приложения.

4. Презентация доклада