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

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

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

Содержание

Введение

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 учебный год по специальности 230115 «Программирование в компьютерных системах».

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

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

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

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

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

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

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

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

· меню.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Таблица 1

№	Наименование работы	Сроки	Результат этапа
1	Выбор темы и поиск информации	21.01.2014 - 25.01.2014	Подбор нужной информации и изучение
2	Подбор литературы	26.01.2014 - 28.01.2014	Изучение подобранной литературы
3	Разработки технического задания	29.01.2014 - 5.02.2014	Техническое задание Выделение основных функций и задач
4	Проектирование	6.02.2014 - 25.03.2014	Определение основных возможностей, разработка структуры приложения программы
5	Разработка приложения	26.03.2014 - 2.05.2014	Проверка работоспособности Бета версии, отладка программного продукта
6	Тестирование и отладка приложения	3.05.2014 - 12.05.2014	Готовый программный продукт
7	Разработка доклада для защиты	13.05.2014 - 15.05.2014	Доклад и подготовка к защите
8	Подготовка презентации	15.05.2014 - 16.05.2014	Презентация
9	Защита работы	24.06.2014	Защита
10	Эксплуатация и сопровождение	24.06.2014 - 31.06.2014	Внедрение и программная документация

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

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

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

Компонент	Свойство	Значение свойства	Событие
Form1	Caption	Электронный учебник "Архитектура Системного Блока"	ActiveControl
	Height	824	Menu
	Left	180	OnCanResize
	Top	158	OnCloseQuery
	Width	1286	OnCreate
Label1	Caption	Содержание
	Height	33
	Left	8
	Top	56
	Width	256
Label2	Caption	Теория
	Height	25
	Left	280
	Top	56
	Width	993
WebBrowser1	Height	817
	Left	272
	Top	88
	Width	1001
	FullScreen	False
Image1	Height	49
	Left	-8
	Top	0
	Width	1281
	Name	Image1
	Visible	True
MainMenu1	Caption	Практическая часть, тест, вид, дополнительные материалы, справка, выход
TreeView1	Height	817	Onchange
	Left	8
	Top	88
	Width	257
	ShowButtons	True
	Enabled	True
	ShowLines	True
Form 4	Caption	Тест по теме "Архитектура Системного Блока"	OnCanResize
	Height	478
	Left	253
	Top	253
	Width	720
Memo1	Name	Memo1
	Height	129
	Left	48
	Top	40
	Width	625
	ReadOnly	True	Onclick
RadioGroup1	Name	RadioGropu1
	Height	145
	Left	48
	Top	184
	Width	633
RichEdit1	Name	RichEdit1
	Height	41
	Left	288
	Top	344
	Width	137
	Visible	False
OpenDialog1	Name	OpdenDialog1
Label1	Caption
	AutoSize	True
BitBtn1	Caption	Дальше	OnClick
	Height	41
	Left	536
	Top	384
	Width	121
Form3	Caption	Об авторе
	Height	-11
	Left	452
	Top	328
	Width	475
Memo1	Height	167
	Left	0
	Top	0
	Width	459
Button1	Caption	ОК	OnClick
	Height	33
	Left	192
	Top	112
	Width	73
Form2	Caption	О программе
	Height	379
	Left	473
	Top	346
	Width	453
Label1	Caption	"Архитектура Системного Блока"
	Height	24
	Left	56
	Top	17
	Width	333
Label3	Caption	Внимание!........
	Height	192
	Left	24
	Top	56
	Width	390
Label4	Caption	Версия 2.0
	Height	41
	Left	0
	Top	296
	Width	89
Label2	Caption	2014
	Height	16
	Left	208
	Top	312
	Width	33
Button1	Caption	ОК
	Height	33
	Left	184
	Top	264
	Width	81
Form6 Form7 Form8	Caption	История материнской платы, история оперативной памяти, история видеокарты
	Height	640
	Left	192
	Top	124
	Width	870
Memo1	Height	601
	Left	0
	Top	0
	Width	857

ЗАКЛЮЧЕНИЕ

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

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

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

1. Интерфейс

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

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

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

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

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

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

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

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

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

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

СПИСОК ЛИТЕРАТУРЫ

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

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

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

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. Презентация доклада

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