Разработка мультимедийного электронного учебника

end;

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

В глоссарии  реализована функция поиска термина  из списка.

Исходный код  программы. Процедура обработки  события – щелчок по кнопке поиск.

procedure TForm3.Button2Click(Sender: TObject);

var i:integer;

begin

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

if pos(Edit1.Text, ListBox1.Items.Strings[i])>0  then  ListBox1.ItemIndex:=i;

ListBox1Click(Sender);

  end;

end.

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

Вывод пояснения  к термину в Глоссарии.

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

procedure TForm3.ListBox1Click(Sender: TObject);

begin

Memo1.Clear;

Memo1.Lines.Add(Gloss.Values[ListBox1.Items.Strings[ListBox1.ItemIndex]]);

end;

Для того чтобы пояснение  к термину отобразилось в ListBox1. Программа получает индекс выбранной строки ListBox1 и присваивает ему значение строки хранящейся в файле Глоссарий.txt, после чего найденный текст выводит в Memo1.

4.3. Алгоритм обработки данных

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

 

 

 

 

 

 

 

 

 

 

 

 

4.3.2. Алгоритм поиска терминов и определений по данной дисциплине.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

4.3.3. Алгоритм вывода  любой страницы учебного пособия на печать

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

4.3.4. Алгоритм тестирования  обучающегося и вывод результатов тестирования

 

 

 

 

 

 

 

 

4.3.5. Алгоритм вывода  на экран справочной системы  для пользователя

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

4.3.6. Алгоритм вывода на экран сведений о программе

 

 

 

 

 

 

 

4.4. Требования пользователя к  программе

Для пользователя данное приложение должно обеспечивать:

1. выбор темы из предлагаемого списка тем учебного пособия с применением гиперссылок;
2. поиск терминов и определений по данной дисциплине (используя глоссарий);
3. вывод любой страницы учебного пособия на печать;
4. тестирование обучающегося и вывод результатов тестирования;
5. вывод на экран справочной системы для пользователя;
6. вывод сведений о программе на экран.

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

Рабочая документация

5.1. Описание исходных  модулей

 

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

1. Unit1.pas
2. Unit2.pas
3. Unit3.pas
4. Unit4.pas
5. Unit5.pas

 

 

 

 

 

 

 

 

 

 

 

Исходный текст  модулей. Unit1 – главная форма.

 

unit Unit1;

 

interface

 

uses

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

  Dialogs, ExtCtrls, StdCtrls, XPMan;

 

type

  TForm1 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    Label1: TLabel;

    Image1: TImage;

    XPManifest1: TXPManifest;

    Button5: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

uses Unit2,unit3,unit4;

 

{$R *.dfm}

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

procedure TForm1.Button1Click(Sender: TObject);

begin

Form2.Show;

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

Form3.Show;

end;

Процедура, отображающая тест для системы тестирования

procedure TForm1.Button4Click(Sender: TObject);

begin

WinExec('Test.exe',SW_SHOW);

end;

Процедура закрытия формы

procedure TForm1.Button5Click(Sender: TObject);

begin

Form1.Close;

end;

 

procedure TForm1.Button3Click(Sender: TObject);

begin

Form4.

end;

 

end.

 

 

 

Исходный текст модулей. Unit2 – Курс лекций.

 

unit Unit2;

 

interface

 

uses

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

  Dialogs, StdCtrls, OleCtrls, SHDocVw, Buttons;

 

type

  TForm2 = class(TForm)

    ListBox1: TListBox;

    WebBrowser1: TWebBrowser;

    Button1: TButton;

    BitBtn1: TBitBtn;

    procedure ListBox1Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form2: TForm2;

 

implementation

 

{$R *.dfm}

Процедура обеспечивает отображение курса лекций в окне WebBrowser

procedure TForm2.ListBox1Click(Sender: TObject);

begin

WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'страница'+IntToStr(ListBox1.ItemIndex+1)+'.htm');

end;

Процедура реализует  вывод на печать курс лекций

procedure TForm2.BitBtn1Click(Sender: TObject);

begin

WebBrowser1.ExecWB(OLECMDID_PRINT,OLECMDEXECOPT_DODEFAULT);

end;

 

procedure TForm2.Button1Click(Sender: TObject);

begin

Form2.Close;

end;

 

end.

 

Исходный текст  модулей. Unit3 – поиск терминов и определений.

 

unit Unit3;

 

interface

 

uses

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

  Dialogs, StdCtrls;

 

type

  TForm3 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    ListBox1: TListBox;

    Label1: TLabel;

    Edit1: TEdit;

    Memo1: TMemo;

    procedure Button1Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure ListBox1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form3: TForm3;

 

implementation

uses unit1;

 

{$R *.dfm}

var Gloss:TStringList;

procedure TForm3.Button1Click(Sender: TObject);

begin

Form3.Close;

end;

Процедура добавляет  список терминов и определений из файла Глоссарий.txt

procedure TForm3.FormCreate(Sender: TObject);

var i:integer;

begin

Gloss:=TStringList.Create;

Gloss.LoadFromFile('Глоссарий.txt');

for i:=0 to Gloss.Count-1 do begin

ListBox1.Items.Add(Gloss.Names[i]);

end;

 

end;

Процедура очищает окно в котором выводится расшифровка  термина и выводит в нём новое, найденное в результате поиска определение

procedure TForm3.ListBox1Click(Sender: TObject);

begin

Memo1.Clear;

Memo1.Lines.Add(Gloss.Values[ListBox1.Items.Strings[ListBox1.ItemIndex]]);

end;

 

procedure TForm3.Button2Click(Sender: TObject);

 

var i:integer;

 

begin

 

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

if pos(Edit1.Text, ListBox1.Items.Strings[i])>0  then  ListBox1.ItemIndex:=i;

ListBox1Click(Sender);

end;

end.

 

Исходный текст модулей. Unit4 – справочная система.

 

unit Unit4;

 

interface

 

uses

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

  Dialogs, StdCtrls, OleCtrls, SHDocVw;

 

type

  TForm4 = class(TForm)

    Button2: TButton;

    WebBrowser1: TWebBrowser;

    procedure Button2Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form4: TForm4;

 

implementation

 

{$R *.dfm}

Процедура закрытия формы

procedure TForm4.Button2Click(Sender: TObject);

begin

Form4.Close;

end;

Процедура, обеспечивающая отображение справочной системы  о окне WebBrowser

procedure TForm4.FormCreate(Sender: TObject);

begin

WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Справочная_система.htm');

end;

end.

 

Исходный текст  модулей. Unit5 – сведения о программе.

unit Unit5;

 

interface

 

uses

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

  Dialogs, OleCtrls, SHDocVw, StdCtrls;

 

type

  TForm5 = class(TForm)

    Button1: TButton;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    Label9: TLabel;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form5: TForm5;

 

implementation

 

{$R *.dfm}

Процедура, осуществляющая закрытие формы

procedure TForm5.Button1Click(Sender: TObject);

begin

Form5.Close;

end;

end.

5.2. Предварительные испытания

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

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

 

5.3. Оценка параметров

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

Производительность = Длина программы в тыс. LOC/Затраты труда человека в месяц;

Производительность = 0,2/2 = 0,1;

Качество = Кол-во ошибок/ Длина программы в тыс. LOC;

Качество = 30/0,2 = 150;

Удельная стоимость = Стоимость в руб./ Длина программы  в тыс. LOC;

Удельная стоимость = 10000/200 = 50;

Документированность = Кол-во страниц документации/ Длина  программы в тыс. LOC;

Документированность = 12/0,2 = 60;

6. Документация для  пользователя

6.1. Инструкция  по инсталляции

Запустите файл OSSBook.exe. Появится окно, которое предложит вам начать установку программы, предварительно поставьте галочку в пункте «Я принимаю это соглашение». Нажмите кнопку «Далее» – для продолжения установки или кнопку «Выход» – для выхода.

 

 

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

 

 

 

 

 

 

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

 

 

И наконец, появится окно, с предложением запустить установленное приложение, т.е. OSSBook.exe, после нажатия кнопки «ОК» запуститься Электронный учебник.

 

 

6.2. Руководство пользователю

При запуске Электронного учебника открывается  главная форма, открывающая доступ к следующим разделам программы:

1. «Курс лекций»

2. «Поиск терминов  и определений по дисциплине»

3. «Система тестирования»

4. «Справочная система»

5. «Сведения о программе»

Рассмотрим каждый из них более подробно.

6.2.1. Работа с подсистемой «Курс  лекций»

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

6.2.2. Работа с подсистемой «Поиск терминов и определений по дисциплине»

Глоссарий – это словарь  терминов, которые могут встречаться  в лекциях.

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

6.2.3. Работа  с системой тестирования

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

6.2.4. Работа  со справочной системой

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

6.2.5. Работа  с подсистемой «О программе»

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

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

 

Заключение