Электронный учебник "Информационная безопасность"

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

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

3.1 Основные функции системы

Система отображения и обработки контрольных заданий электронного учебника реализованы в среде визуального программирования Delphi 7.0 фирмы Borland и предназначены для работы в среде Windows 95 - ХР.

Система выполняет следующие основные функции:

1) Построение структуры электронного учебника.

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

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

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

3) Обработку и анализ тестовых заданий.

3.2 Обоснование выбора среды программирования

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

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

1) Создание максимально возможного удобства в работе. Для этого программа должна иметь удобный и современный интерфейс пользователя.

2) Работа модуля должна выполняться с максимально возможной скоростью. Нежелательны ситуации, в которых пользователю длительное время придется ожидать окончания работы модуля.

3) Максимальная простота в установке и использовании модуля.

4) Минимальные затраты на разработку модуля.

В ходе последующего анализа имеющихся средств программирования на основании перечисленных критериев был выбран вариант написания данного модуля с использованием системы визуального программирования Borland Delphi 7.0. Данное заключение основывалось на следующем [13].

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

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

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

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

Среда визуального программирования Delphi 7.0 является мощным средством для быстрой и качественной разработки программ для операционных систем Windows 95 - ХР. Имеющаяся библиотека визуальных компонентов позволяет создать интерфейс с пользователем за считанные минуты. Объектно-ориентированный язык Object Pascal, положенный в основу Delphi, является расширением языков Turbo Pascal и Borland Pascal фирмы Borland и нашел в себе отражение новых веяний в программировании. Компонентный принцип, используемый в Delphi, позволяет создавать полноценные Windows-приложения, написав минимальное количество строк кода. Delphi представляет собой открытую систему, позволяя добавлять свои компоненты в систему, модифицировать уже имеющиеся стандартные компоненты благодаря тому, что предоставлены их исходные тексты. Благодаря всему этому разработка программ в среде Delphi становится легкой и приятной.

Таким образом, выбранная платформа, как было показано выше, удовлетворяет поставленным требованиям, поэтому выбор был остановлен на данной системе программирования.

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

Подход к управлению информацией отличается от других подходов (например, СУБД) тем, что основной вид деятельности пользователя при работе с ним состоит не столько в поиске нужной информации, сколько в ознакомлении с определенным предметом посредством просмотра ряда информационных фрагментов, связанных между собой по смыслу. Ознакомление осуществляется в определенной последовательности, обусловленной целями пользователя. Возможность варьирования последовательности ознакомления с содержанием гипертекста, в отличие от линейного текста, осуществляется за счет разбиения информации на фрагменты (темы) и установления между ними связей, как правило, позволяющих пользователю перейти от изучаемой в текущий момент темы к одной из нескольких связанных с ней тем. Очевидно, что большей гибкостью в смысле удовлетворения различных целей пользователей обладает гипертекст с большим количеством связей между темами [14].

3.4 Системы самотестирования

Прежде всего, следует определиться, что понимается под системами самотестирования, и чем они отличаются от контрольного тестирования или просто тестирования.

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

Речь идет не о традиционных тестах, работающих по принципу вопрос-ответ (выбор правильного) - оценка.

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

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

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

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

Под системой самотестирования понимается комплексная программа, совмещающая в себе различные инструменты и возможности [15].

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

Система самотестирования должна иметь несколько режимов работы - не только контролирующий, но и обучающий.

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

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

3.5 Тест

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

3.6 Структура модуля

Модули - это программные единицы, предназначенные для размещений фрагментов программ. С помощью содержащегося в них программного кода реализуется вся поведенческая сторона программы. Любой модуль имеет следующую структуру: заголовок секция интерфейсных объявлений секция реализации терминатор Заголовок открывается зарезервированным словом Unit за которым следует имя модуля и точка с запятой. Секция интерфейсных объявлений открывается зарезервированным словом Interface, a секция реализации - словом implementation. Терминатором модуля, как и терминатором программы, является end с точкой. Следующий фрагмент программы является синтаксически правильным вариантом модуля:

unit Unit1;

interface

 // Секция интерфейсных объявлений

implementation

 // Секция реализации

end.

В секции интерфейсных объявлений описываются программные элементы (типы, классы, процедуры и функции), которые будут «видны» другим программным модулям, а в секции реализации раскрывается механизм работы этих элементов. Разделение модуля на две секции обеспечивает удобный механизм обмена алгоритмами между отдельными частями одной программы. Он также реализует средство обмена программными разработками между отдельными программистами. Получив откомпилированный «посторонний» модуль, программист получает доступ только к его интерфейсной части, в которой, как уже говорилось, содержатся объявления элементов. Детали реализации объявленных процедур, функций, классов скрыты в секции реализации и недоступны другим модулям.

Если щелкнуть по закладке Unit1 окна кода, можно увидеть такой текст:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls,

Forms, Dialogs, StdCtrls, Buttons, ExtCtrls;

type

TfmExample = class(TForm)

Panel1: TPanel;

bbRun: TBitBtn;

bbClose: TBitBtn;

edinput: TEdit;

IbOutput: TLabel;

mmOutput: TMemo;

private

{Private declarations} public

{Public declarations} end;

var

fmExample: TfmExample;

implementation

$R *.DFM}

end.

Весь этот текст сформирован Delphi, но в отличие от файла проекта программист может его изменять, придавая программе нужную функциональность. В интерфейсной секции описан один тип (класс ^- fmExample) и один объект (переменная fmExample).

Вот описание класса:

type

TfmExample = class(TForm)

Panell: TPanel;

bbRun: TBitBtn;

bbClose: TBitBtn;

edinput: TEdit;

IbOutput: TLabel;

mmOutput: TMemo;

private

{Private declarations} public

{Public declarations} end;

Классы служат основным инструментом реализации мощных возможностей Delphi. Класс является образцом, по которому создаются объекты, и наоборот, объект - это экземпляр реализации класса. Образцы для создания элементов программы в Object Pascal называются типами, таким образом, класс TfmExamplel - это тип. Перед его объявлением стоит зарезервированное слово type (тип), извещающее компилятор о начале раздела описания типов.

Стандартный класс TForm реализует все нужное для создания и функционирования пустого Windows-окна. Класс TfmExamplel порожден от этого класса, о чем свидетельствует строка TfmExample = class(TForm) в которой за зарезервированным словом class в скобках указывается имя родительского класса. Термин «порожден» означает, что класс TfmExample унаследовал все возможности родительского класса TForm и добавил к ним собственные в виде дополнительных компонентов, которые, как вы помните, мы вставили в форму fmExample. Перечень вставленных нами компонентов и составляет значительную часть описания класса.

Свойство наследования классами-потомками всех свойств родительского класса и обогащения их новыми возможностями является одним из фундаментальных принципов объектно-ориентированного программирования. От наследника может быть порожден новый наследник, который внесет свою лепту в виде дополнительных программных заготовок и т.д. В результате создается ветвящаяся иерархия классов, на вершине которой располагается самый простой класс TObject (все остальные классы в Delphi порождены от этого единственного прародителя), а на самой нижней ступени иерархии - мощные классы-потомки, которым по плечу решение любых проблем. [16]

3.7 Описание программных модулей

В программе используются шесть модулей:

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

Листинг 1.

unit U1;

interface

uses

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

Dialogs, ExtCtrls, StdCtrls, ComCtrls, HTTPApp, HTTPProd, OleCtrls,

SHDocVw, DBCtrls, DB, DBTables, ToolWin, XPMan, ImgList, ComObj;

type

TFMain = class(TForm)

WB: TWebBrowser; - компонент для браузера

OD: TOpenDialog; - компонент открывает проект

ToolBar1: TToolBar; - компонент показывает загрузку

ToolButton6: TToolButton; - кнопка уменьшает масштаб

PrintDialog1: TPrintDialog; - компонент выводит на печать

ImageList1: TImageList; - компонент для отображения изображения

ToolButton7: TToolButton; - кнопка

ToolButton8: TToolButton; - кнопка

ToolButton9: TToolButton; - кнопка

ToolButton14: TToolButton; - кнопка

ToolButton16: TToolButton; - кнопка

ToolButton17: TToolButton; - кнопка

Timer1: TTimer; - компонент таймер

ToolButton10: TToolButton; - кнопка

ToolButton18: TToolButton; - кнопка

ToolButton1: TToolButton; - кнопка

SD: TSaveDialog; - компонент сохраняет проект

procedure ToolButton1Click (Sender: TObject); - процедура для ввода пароля

procedure ToolButton7Click (Sender: TObject); - процедура увеливает текст

procedure ToolButton8Click (Sender: TObject); - процедура, сбрасывает масштаб текста

procedure ToolButton14Click (Sender: TObject); - процедура, осуществляет вывод на печать

procedure Timer1Timer (Sender: TObject); - процедура, устанавливает время

procedure FormCreate (Sender: TObject); - процедура для создания иконки

procedure ToolButton16Click (Sender: TObject); - процедура, увеливает окно

procedure ToolButton17Click (Sender: TObject); - процедура, создаёт полноэкранный режим

procedure ToolButton9Click (Sender: TObject); - процедура, отображает окно поиска

procedure ToolButton10Click (Sender: TObject); - процедура выводит информацию о программе

procedure ToolButton18Click (Sender: TObject); - процедура выводит тестовую оболочку

private

{Private declarations}

public

{Public declarations}

end;

var

FMain: TFMain;

iconindex:integer;

implementation

uses UAbout, UTest, UPoisk, UVopros, UPass;

{$R *.dfm}

procedure TFMain. ToolButton1Click (Sender: TObject);

begin

if FPass. ShowModal=mrOK then

begin

if FPass. MaskEdit1. Text='1' then

FVopros. Show else

Close;

end;

end;

procedure TFMain. ToolButton5Click (Sender: TObject);

var

vaIn, vaOut: OleVariant;

begin

WB. ControlInterface. ExecWB (OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER,

vaIn, vaOut);

end;

procedure TFMain. ToolButton6Click (Sender: TObject);

var

vaIn, vaOut: OleVariant;

begin

WB. OleObject. Document. Body. Style. Zoom:= 0.5;

end;

procedure TFMain.TVChange (Sender: TObject; Node: TTreeNode);

begin

case TV. Selected. AbsoluteIndex of

0:WB. Navigate ('C:\Za4\1.mht');

1:WB. Navigate ('C:\Za4\1 (1).mht');

2:WB. Navigate ('C:\Za4\1 (2).mht');

3:WB. Navigate ('C:\Za4\1 (3).mht');

4:WB. Navigate ('C:\Za4\1 (4).mht');

5:WB. Navigate ('C:\Za4\1 (5).mht');

6:WB. Navigate ('C:\Za4\1 (6).mht');

7:WB. Navigate ('C:\Za4\1 (7).mht');

8:WB. Navigate ('C:\Za4\1 (8).mht');

9:WB. Navigate ('C:\Za4\1 (9).mht');

10:WB. Navigate ('C:\Za4\1 (10).mht');

11:WB. Navigate ('C:\Za4\1 (11).mht');

12:WB. Navigate ('C:\Za4\1 (12).mht');

13:WB. Navigate ('C:\Za4\1 (13).mht');

14:WB. Navigate ('C:\Za4\1 (14).mht');

15:WB. Navigate ('C:\Za4\1 (15).mht');

16:WB. Navigate ('C:\Za4\1 (16).mht');

17:WB. Navigate ('C:\Za4\1 (17).mht');

18:WB. Navigate ('C:\Za4\1 (18).mht');

19:WB. Navigate ('C:\Za4\1 (19).mht');

20:WB. Navigate ('C:\Za4\1 (20).mht');

21:WB. Navigate ('C:\Za4\1 (21).mht');

22:WB. Navigate ('C:\Za4\1 (22).mht');

23:WB. Navigate ('C:\Za4\1 (23).mht');

end;

case TV. Selected. AbsoluteIndex of

51: ToolButton2. Visible:=TRUE;

52: ToolButton2. Visible:=TRUE;

55: ToolButton2. Visible:=TRUE;

58: ToolButton2. Visible:=TRUE else

ToolButton2. Visible:=FALSE;

end;

end;

procedure TFMain. ToolButton7Click (Sender: TObject);

begin

WB. OleObject. Document. Body. Style. Zoom:= 1.5;

end;

procedure TFMain. ToolButton8Click (Sender: TObject);

begin

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

end;

procedure TFMain. ToolButton14Click (Sender: TObject);

var

vaIn, vaOut: OleVariant;

begin

WB. ControlInterface. ExecWB (OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER,

vaIn, vaOut);

end;

procedure TFMain. Timer1Timer (Sender: TObject);

begin

ImageList1. GetIcon (iconindex, Application. Icon);

iconindex:= iconindex + 1;

if iconindex > 3 then

iconindex:= 0;

end;

procedure TFMain. FormCreate (Sender: TObject);

begin

iconindex:= 0;

ImageList1. GetIcon (iconindex, Application. Icon);

end;

procedure TFMain. ToolButton16Click (Sender: TObject);

begin

Panel1. Width:=150;

end;

procedure TFMain. ToolButton17Click (Sender: TObject);

begin

Panel1. Width:=0;

end;

procedure TFMain. ToolButton9Click (Sender: TObject);

var i:integer;

begin

FPoisk. Caption:='Поиск раздела';

FPoisk. Edit1. Text:='';

if FPoisk. ShowModal=mrOK then

for i:=0 to TV. Items. Count-1 do

begin

if Pos (FPoisk. Edit1. Text, TV. Items[i].Text)<>0 then

begin

TV. Items[i].Selected:=true;

TV. SetFocus;

Exit;

end;

end;

end;

procedure TFMain. ToolButton10Click (Sender: TObject);

begin

AboutBox. ShowModal;

end;

procedure TFMain. ToolButton18Click (Sender: TObject);

begin

FTest. ShowModal;

end;

end.

Модуль UPoisk представлен на листинге 1, модуль служит для внесения в него пользователем искомой информации. Модуль осуществляет поиск по разделам введенной темы.

Модуль Unit3 представлен на листинге 2, он предназначен для регистрации пользователя в тестовой оболочки. Где пользователь перед началом тестирования вводит своё имя. Чтобы было видно что данный пользователь уже тестировался и для того чтобы сохранились результаты тестирования.

Листинг 2

unit Unit3;

interface

uses

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

Dialogs, StdCtrls, Buttons;

type

TForm3 = class(TForm)

Edit1: TEdit;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Label1: TLabel;

procedure FormCreate (Sender: TObject);

procedure BitBtn1Click (Sender: TObject);

procedure BitBtn2Click (Sender: TObject);

procedure FormClose (Sender: TObject; var Action: TCloseAction);

procedure Edit1Change (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form3: TForm3;

implementation

uses Unit2, Unit1;

{$R *.dfm}

procedure TForm3. FormCreate (Sender: TObject);

begin

Form2. Show;

Form2. Left:=trunc (Screen. Width/2-Form2. Width/2);

Form2. Top:=trunc (Screen. Height/2-Form2. Height/2);

end;

procedure TForm3. BitBtn1Click (Sender: TObject); процедура ввода имени

пользователя

begin

if Form3. Edit1. Text<>'' then

begin

AssignFile (Log_File, 'Log.txt');

if not (FileExists('Log.txt')) then

Rewrite (Log_File)

else

Append (Log_File);

Writeln (Log_File, Form3. Edit1. Text+' '); осуществляет ввод имени

Form3. Hide;

Form2. Show;

Form3. Left:=Screen. Width+100; вид формы

Form3. Top:=Screen. Height+100;

Form3. FormStyle:=fsNormal;

Form2. Left:=trunc (Screen. Width/2-Form1. Width/2);

Form2. Top:=trunc (Screen. Height/2-Form1. Height/2);

Form3. Show;

end

else

ShowMessage ('Введите свое имя!');

Form3. Hide;

end;

procedure TForm3. BitBtn2Click (Sender: TObject); процедура завершения

тестирования закрывает форму 2.

begin

Application. Terminate;

end;

procedure TForm3. FormClose (Sender: TObject; var Action: TCloseAction); процедура завершения тестирования

begin

Application. Terminate;

end;

procedure TForm3. Edit1Change (Sender: TObject);

begin

end;

end.

На листинге 3 изображена форма тестовой оболочки где пользователь может проверить свои знания. Где после окончаниятестирования пользователю будет предоставлен результат его знаний в баллах.

Листинг 3.

unit Unit2;

interface

uses

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

Dialogs, StdCtrls, XPMan, Buttons, ExtCtrls;

type

TForm2 = class(TForm)

GroupBox1: TGroupBox;

BitBtn1: TBitBtn;

XPManifest1: TXPManifest;

RadioGroup1: TRadioGroup;

Label1: TLabel;

Button1: TButton;

procedure FormCreate (Sender: TObject);

procedure BitBtn1Click (Sender: TObject);

procedure FormClose (Sender: TObject; var Action: TCloseAction);

procedure Button1Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form2: TForm2;

balls: integer;

q_file, Log_File: TextFile;

five, four, three,

ans1mark, ans2mark, ans3mark, ans4mark: integer;

question, answere1, answere2, answere3,

answere4, tmp_q, result: string;

flag_end, flag_write: boolean;

implementation

{$R *.dfm}

uses Unit1, Unit3;

procedure Read_next_q();

var

AYear, AMonth, ADay, Hour, Min, Sec, MSec: Word;

Data: string;

begin

if EOF (q_file) then

begin

flag_end:= true;

if balls>=five then

result:='Отлично ('+IntToStr(balls)+' балла(ов))';

if (balls>=four) and (balls<five) then

result:='Хорошо ('+IntToStr(balls)+' балла(ов))';

if (balls>=three) and (balls<four) then

result:='удовлетворительно ('+IntToStr(balls)+' балла(ов))';

if balls<three then

result:='НЕУДОВЛЕТВОРИТЕЛЬНО ('+IntToStr(balls)+' балла(ов))'+#13#10+'Тест НЕ сдан!';

showmessage ('Вы сдали тест на '+#13#10+Result);

DecodeDate (Now, AYear, AMonth, ADay);

DecodeTime (Now, Hour, Min, Sec, MSec);

Data:=IntToStr(AYear)+'/'+IntToStr(AMonth)+'/'+IntToStr(ADay)+' '+IntToStr(Hour)+':'+IntToStr(Min)+':'+IntToStr(Sec)+' ';

writeln (Log_File, Data+Result+#13#10+#13#10);

closeFile (Log_File);

Form2. BitBtn1. Enabled:=false;

end

else

begin

Readln (q_file, tmp_q);

question:=tmp_q+#13#10;

Readln (q_file, tmp_q);

question:=question+tmp_q+#13#10;

Readln (q_file, tmp_q);

question:=question+tmp_q+#13#10;

Readln (q_file, answere1);

Readln (q_file, ans1mark);

Readln (q_file, answere2);

Readln (q_file, ans2mark);

Readln (q_file, answere3);

Readln (q_file, ans3mark);

Readln (q_file, answere4);

Readln (q_file, ans4mark);

Form2. Label1. Caption:=question;

Form2. RadioGroup1. Items[0]:=answere1;

Form2. RadioGroup1. Items[1]:=answere2;

Form2. RadioGroup1. Items[2]:=answere3;

Form2. RadioGroup1. Items[3]:=answere4;

end;

end;

procedure check_ans();

begin

if (Form2. RadioGroup1. ItemIndex=0) and (flag_end=false) then

balls:=balls+ans1mark;

if (Form2. RadioGroup1. ItemIndex=1) and (flag_end=false) then

balls:=balls+ans2mark;

if (Form2. RadioGroup1. ItemIndex=2) and (flag_end=false) then

balls:=balls+ans3mark;

if (Form2. RadioGroup1. ItemIndex=3) and (flag_end=false) then

balls:=balls+ans4mark;

Form2. RadioGroup1. ItemIndex:=-1;

end;

procedure TForm2. FormCreate (Sender: TObject);

begin

Form2. Left:=Screen. Width+100;

Form2. Top:=Screen. Height+100;

flag_end:=false;

AssignFile (q_file, 'q.txt');

Reset (q_file);

Readln (q_file, five);

Readln (q_file, four);

Readln (q_file, three);

Read_next_q;

end;

procedure TForm2. BitBtn1Click (Sender: TObject);

begin

if Form2. RadioGroup1. ItemIndex<>-1 then

begin

check_ans;

Read_next_q;

end

else

showmessage ('Выберите один из вариантов'+#13#10+'ответов и нажмите «Далее»!');

end;

procedure TForm2. FormClose (Sender: TObject; var Action: TCloseAction);

begin

Application. Terminate;

end;

procedure TForm2. Button1Click (Sender: TObject);

begin

Form2. Hide;

end;

end.

На листинге 4 изображен код программы откуда осуществляется запуск видео уроков.

Листинг 4

unit Unit1;

interface

uses

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

Dialogs, ExtCtrls, MPlayer, IWCompButton, IWHTMLControls, IWControl,

IWCompCheckbox, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

procedure FormCreate (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

uses ShellApi;

procedure TForm1. Button1Click (Sender: TObject);

begin

ShellExecute (Handle,

'open', 'C:\Za4\video\cgi_bug_N2.avi', nil, nil, SW_SHOWNORMAL);

end;

procedure TForm1. Button2Click (Sender: TObject);

begin

ShellExecute (Handle,

'open', 'C:\Za4\video\cgi_null-byte.avi', nil, nil, SW_SHOWNORMAL);

end;

procedure TForm1. Button3Click (Sender: TObject);

begin

ShellExecute (Handle,

'open', 'C:\Za4\video\Buffer2.avi', nil, nil, SW_SHOWNORMAL);

end;

procedure TForm1. FormCreate (Sender: TObject);

begin

end;

end.

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

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

Листинг 4.

unit UPoisk;

interface

uses

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

Dialogs, StdCtrls, Buttons;

type

TFPoisk = class(TForm)

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Edit1: TEdit;

procedure FormCreate (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

FPoisk: TFPoisk;

implementation

{$R *.dfm}

procedure TFPoisk. FormCreate (Sender: TObject);

begin

end;

end.

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

Разработанная программа «Электронный учебник «Информационной безопасности» занимает 214 Мб свободного дискового пространства. Установка программы осуществляется путем копирования ее с носителя на жесткий диск С:\ В настройке и в инсталляции программа не нуждается.

Программа тестировалась на операционных системах Windows 98, 2000, ХР и показала неплохие результаты. Минимальные требования для нормальной работы программы составляют: процессор - 350 Мгц, видеокарта - 32 Мб и 250 Мб свободного дискового пространства.

Запуск программы осуществляется путем запуска исполняемого файла «book.exe». При этом на экране появляется окно главной формы электронного учебника (рисунок 1).

4.1 Описание пользовательского интерфейса

Программа «Электронный учебник по теме Информационная безопасность» предназначена для ознакомления и обучения простым приемам информационной безопасности. Главная форма программы представлена на рисунке 1.

Окно главной формы



Рисунок 1.

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

Меню главной формы состоит из 10 кнопок:

– Кнопка позволяет уменьшить на 0,5 размер документа.

– Кнопка позволяет восстановить прежний размер.

– Кнопка позволяет увеличить размер на 0,5 размер.

– Кнопка позволяет открыть панель проводника, отображающего разделы учебника.

– Кнопка позволяет закрыть панель проводника, отображающего разделы учебника.

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

– Кнопка позволяет открыть форму поиска раздела.

– Кнопка позволяет открыть форму тестирования.

– Кнопка позволяет открыть форму видеоуроков.

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

При нажатии кнопки тест появится окно ввода имени (рисунок 2).

Рисунок 2

Форма тестовой оболочки изображена на (рисунке 3).

Рисунок 3.

При нажатии на кнопку открывается форма «Поиск раздела» представленная на (рисунке 4).



Рисунок 4.

Форма разработчика программы (Рисунок 2)

Рисунок 5

Заключение

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

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

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

Практическую ценность работы вижу в том, что:

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

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

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

Список используемой литературы

Борк A «История» новых технологий в образовании / Российский открытый университет - М., 1990., 282 с.

Концепция использования новых информационных технологий в организационно-методическом обеспечении учебного заведения / Российский Центр информатизации образования - М., 1992., 446 с.

Куприенко В.Д., Мещерин И.В. Педагогические программные средства: Методические рекомендации для разработчиков ППС. / Омский ГПИ им. А.М. Горького. - Омск, 1991., 320 с.

Брановский Ю.С. Введение в педагогическую информатику. - Ставрополь: СГПУ, 1995., 290 с.

Выявление экспертных знаний / О.И. Ларичев, А.И. Мечитов, Е.М. Мошкович, Е.М. Фуремс. - М.: Наука, 1989., 144 с.

Методические рекомендации по проектированию обучающих программ / Институт психологии Министерства просвещения УССР; Киев, 1986., 468 с.

Методические рекомендации по созданию и использованию педагогических программных средств: (Сб. ст.) / НИИ средств обучения АПН CCCP - М., 1991., 288 с

Информационная технология: Вопросы развития и применения. - Киев: Наук. думка, 1988., 242 c.

Инструментальные средства для конструирования программных средств учебного назначения: (Обзор) / Институт проблем информатики АН CCCP; (Отв. ред.: Г.Л. Кулешова). - М., 1990., 224 c.

Интеллектуализация ЭВМ / (E.C. Кузин, А.И. Ройтман, И.Б. Фоминых, Г.К. Хахалин). - М.: Высшая школа, 1989., 262.

Концепция информатизации образования // Информатика и образование. - 1990. - №1., 342 c.

Периферийное оборудование комплекта учебной вычислительной техники и демонстрационное оборудование кабинета вычислительной техники / НИИ школьного оборудования и технических средств обучения АПН СССР - М., 1989., 528 c.

Кузнецов А.А. Сергеева Т.А. Компьютерная программа и дидактика // Информатика и образование. - 1986. - №2., 340 c.

Мирская А, Сергеева Т. Обучающие программы оценивает практика // Информатика и образование. 1987. - 6., 260 c.

Материалы IV Международной конференции «Применение новых компьютерных технологий в образовании» (Троицк, 24 - 26 июня 1993 г.) / - Троицк, 1993., 672 с.

Дарахвелндзе П.Г., Марков Е.П. Программирование в Delphi 7. - СПб.: БХВ-Петербург, 2003. - 784 с.

Павликов Е.А. «Компьютер-Пресс» №4 2000 - 22 с.

Сорокин А.В. Delphi. Разработка баз данных. - СПб: Питер, 2005 - 477 с.

Титоренко Г.А. Информационные технологии управления. М., Юнити: 2002 - 670 с.

Архангельский А.Я., Delphi 6. Справочное пособие - БИНОМ, Москва, 2001 - 306 с.

Аньшин В.М. Инновационная стратегия фирмы. Учебное пособие М. РЭА им. Плеханова / Аньшин В.М. - 1995 - 380 с.

Бояринов Д., Интернет скоро умрет? // Новое время, 2003, №5, с. 39

Бройдо, В.Л. Крылова В.С. «Научные основы организации управления и построения АСУ», Высшая школа, Москва, 1990 - 820 с.

Фокс Дж. Программное обеспечение и его разработка / Пер. с англ. - М.: Мир, 1985. - 368 с.

25. Кузан Д.Я Шарапов В.Н Программирование Win 32 Api в Delphi Петербург 2005 - 368 с.

26. Дарахвелндзе П.Г., Марков Е.П. Программирование в Delphi 7. - СПб.: БХВ-Петербург, 2003. - 784 с.

27. Зелковиц М. Шоу А., Гэннон Дж. Принципы разработки программного обеспечения - М.: Мир, 1982. - 386 с.

28. Шумпетер Й. Теория экономического развития. Прогресс, 1982 - 587 с.

29. http://www.delphi.mastak.ru

30. http://www.delphi.narod.ru

31. http://www.delphikingdom.com

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