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

известные фирмы-производители электронных учебников (такие как «1С», «Физикон», «Кирилл и Мефодий», «МедиаХаус»), способные создавать качественные продукты, занимаются в основном разработкой программ для общеобразовательных учреждений, т.е школ, гимназий и т.д., и даже эти программы обладают довольно высокой стоимостью.

1.3 Постановка задачи

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

материал должен быть разбит на модули, небольшие по объему, замкнутые по содержанию;

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

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

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

Лекции и тесты должны обладать полной и непротиворечивой информацией.

2 АЛГОРИТМИЧЕСКОЕ КОНСТРУИРОВАНИЕ ЭЛЕКТРОННОГО УЧЕБНОГО ПОСОБИЯ

2.1 Принцип работы электронного учебного пособия

Программное обеспечение электронного учебника дисциплины «Сети ЭВМ и телекоммуникации» хранится в программно-информационных обучающих материалах данной дисциплины в учебно-методическом комплексе.

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

Программное обеспечение электронного учебника представляет собой программное средство которое работает с загруженной дисциплиной, которая храниться в каталоге с программой. Дисциплина представляет собой лекции и методические указания- хранящиеся в четко заданной структуре, и удовлетворяющие государственному стандарту рабочей программе и утвержденной учебно-методическим объединением. Вместе с лекциями хранится каталог с иллюстрациями и библиотеками, которые подгружаются при открытии лекции. Из этого программного средства при необходимости вызывается другое, позволяющее проходить тестирование. Программа-тестировщик является независимым приложением, и может быть запущена без запуска программы-просмотрщика. Программа-тестировщик также имеет каталог тестов для загрузки. Файлы тестирования имеют расширение *.tst, файлы лекций -*.les. Файлы лекций написаны на языке гипертекстовой разметки HTML, и воспроизводится в программе через компонент типа браузер WebBrowser. Для доступа к лекциям и построения списков тем и лекций используется файл tree.nav. Файлы тестирования написаны с добавлением определенных спецсимволов, позволяющих программе работать с ними. В файлах тестирования помимо вопросов находится строка, содержащая ответы на вопросы, но она шифруется шифром Цезаря сдвигом по таблице ASCII, что обеспечивает достаточно большую шифроустойчивость: Цифры заменяются на спецсимволы и буквы национальных алфавитов. В средстве тестирования, в свою очередь, предусмотрен расшифровщик. Для удобства составления тестов прилагается программа-шифровщик, помогающая зашифровать составителю тестов ответы по ключу[5].

Доступ к лекциям изображен на рисунке 3.

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

34

Рисунок 3 - Доступ к лекциям.

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

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

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

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

На рисунке 3 приведена общая схема принципа обучения

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

34

Рисунок 3 - Общая схема принципа обучения

2.2 Общий алгоритм работы программы

Весь алгоритм работы программы можно разбить на следующие блоки:

· старт электронного пособия;

· авторизация;

· выбор изучаемой темы;

· загрузка XML документа, содержащего лекцию;

· старт средства самотестирования;

· выбор теста для прохождения;

· загрузка файлов тестирования;

· расшифровка ответов;

· прохождение теста;

· получение результатов.

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

Рисунок 4 - Общий алгоритм работы программы.

На рисунке 5 приведена блок-схема работы средства самотестирования.

Рисунок 5 - Алгоритм работы средства самотестирования.

3 ПРОГРАММНОЕ КОНСТРУИРОВАНИЕ ЭЛЕКТРОННОГО УЧЕБНОГО ПОСОБИЯ

3.1 Выбор обоснования языка программирования

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

Данная система программирования была выбрана в связи с тем, что создаваемые с ее помощью программы могут работать не только под управлением Windows, а сама она относиться к классу инструментальных средств ускоренной разработки программ (Rapid Application Development или RAD)

Система программирования Borland Delphi 7.0 - это комбинация нескольких важнейших технологий:

· высокопроизводительный компилятор в машинный код;

· объектно-ориентированная модель компонент;

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

· масштабируемые средства для построения баз данных.

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

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

Мощность и гибкость языка программирования Delphi - безусловное достоинство языка, выгодно отличающее эту систему программирования от других инструментов RAD. Ядром языка Delphi является язык Паскаль.

Среди достоинства Delphi 7 можно выделить:

· наличие встроенных CASE-средств;

· взаимодействие с другими СУБД;

· использование RAD-технологий;

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

· встроенный редактор форм[3].

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

Таким образом, Borland Delphi обеспечивает высокую эффективность процесса разработки и большую производительность результирующих приложений. Средства поддержки баз данных позволяют организовать эффективную обработку данных как при использовании внутренней базы данных Borland Delphi, так и внешних СУБД. Borland Delphi можно рекомендовать как универсальное средство разработки приложений различного уровня сложности, начиная от простейших задач до крупных проектов [6].

Для создания файлов лекций выбран язык HTML (от англ. HyperText Markup Language -- «язык разметки гипертекста») -- стандартный язык разметки документов в интернете. Большинство веб-страниц создаются при помощи языка HTML (или XHTML).

Выбор HTML обусловлен рядом факторов:

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

· в отличие от большинства других языков разметки в HTML есть объекты и инструменты для обработки пользовательского ввода (всевозможные поля ввода, кнопки, выпадающие списки, списки строк и многое другое);

· модуль является открытым, поскольку язык HTML легко может быть расширен новыми лексическими конструкциями, необходимыми для обработки данных, в то же время, конструкции, отсутствующие в стандарте языка, не повлияют на работоспособность отчета в браузерах сторонних производителей (просто не будут восприняты) ;

· для редактирования HTML документа не требуется специальный редактор, все изменения можно делать в любом текстовом редакторе [7].

3.3 Основные модули программы

Для решения поставленных задач по визуализации разработке электронного учебного пособия были разработаны следующие модули: «Старт учебника», «Старт тестировщика», «Авторизация», «Шифрование», и вспомогательная программа «Шифрование методом Цезаря»

Модуль «Старт учебника» является основным. Он запускает на исполнение программу.

Модуль «Старт тестировщика» запускает программу тестирования. Программа запускается, если пройдена авторизация.

Модуль «Авторизация» получает от учащегося пользователь и пароль, находит его в базе, и допускает к учебнику. Если учащийся не зарегистрирован, он может пройти регистрацию.

Модуль «Шифрование» расшифровывает строку ответов в файле тестирования и передает ее в массив ответов.

3.4 Описание классов системы

Класс Lecture.pas oтвечает за старт и работу электронного учебного пособия.

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

* обработчик TForm1.N4Click: скрывает или показывает панель выбора лекции (для удобства пользователя панель можно скрыть);

* процедура TForm1.FormCreate: Загружает из файла tree.nav список тем для изучения и отображает их на экране, также загружает список адресов, по которым находятся соответствующие темы, и сохраняет их в массиве адресов;

* обработчик TForm1.N6Click: Вызывает тестировщик. Тест можно вызвать только при пройденной авторизации;

* обработчик TForm1.BitBtn1Click: Загружает выбранную лекцию.

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

Данный класс содержит в себе следующие процедуры и функции:

* функция ResultTest: выводит результаты теста;

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

* функция Button2Click: в зависимости от выбранного теста (в переменную NumT, полученную от выпадающего списка Combobox1, записывается информация о выбранном учеником тесте), загружает файл необходимого теста, с расширением tst, считывает количество вопросов, считывает из него зашифрованные ответы, расшифровывает их и заносит в массив ответов.

Исходный код класса Lecture.pas

unit Lecture;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Button1: TButton;

Button2: TButton;

Label1: TLabel;

Label2: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

st,s:string;

x,i:integer;

begin

st:=Edit1.Text;

x:=StrToInt(Edit2.Text);

Edit3.Text:='';

for i:=1 to length(st) do

if (st[i]<>' ') and (st[i]<>'.') then

begin

s:=chr((ord(st[i])-x) mod 255);

Edit3.Text:=Edit3.Text+s;

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

close

end;

end.

Исходный код класса Test.pas

unit Test;

interface

uses

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

Dialogs, ToolWin, ActnMan, ActnCtrls, ActnMenus, ImgList, ActnList,

XPStyleActnCtrls, OleCtrls, SHDocVw, ExtCtrls, StdCtrls, XPMan, ComCtrls,

Menus;

type

TForm1 = class(TForm)

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

RadioButton4: TRadioButton;

Button1: TButton;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

Memo1: TMemo;

ComboBox1: TComboBox;

RadioButton1: TRadioButton;

Button2: TButton;

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

info: string = '"Средство самотестирования для электронного учебника по дисциплине: "Сети Эвм и Телекоммуникации"';

instruction: string = 'Выберите номер теста, который вы хотите пройти"' + #13 +

'Вам будет предложен тест, в котором необходимо выбирать верный вариант из 4 вариантов ответов. ' +

'Верный ответ может быть только один.' + #13 +

'По прохождении теста вы получаете оценку, расчитывауюся как отношение правильных ответов к общему числу вопросов';

resultat: array[1..4] of string = (

'0..25 балла. Вы не владеете материалом. Выучите соответствующий материал! ',

'26..50 баллов. Вы плохо владеете материалом. Выучите соответствующий материал! ',

'51..75 балла. Вы владеете материалом, но вам следует повторить его',

'76..100% Вы хорошо усвоили материал ');

sum: byte; //сумма баллов

numt: integer; // номер теста

allQuestions:integer; // кол-во вопросов

currentQuestion: integer;//текущий вопрос

curentOtv:string; //ответ пользовательский на вопрос

protv: string;

testIsAll: boolean;//закончен ли тест

masOtv: array [0..100] of string;

i: integer; {Счетчик для массива}

F: Textfile;

bufstr, bufbuf: string;

implementation

{$R *.dfm}

procedure Restart;

begin

sum := 0;

testIsAll := false;//тест не закончен

allQuestions :=0;

curentOtv:='';

currentQuestion := 0;

Form1.Button1.Caption := 'Запуск теста';

numt:=0;

i:=0;

Form1.Button1.Visible:=false;

Form1.RadioButton1.visible:=false;

Form1.RadioButton2.visible:=false;

Form1.RadioButton3.visible:=false;

Form1.RadioButton4.visible:=false;

Form1.Button2.Visible:=true;

Form1.Combobox1.Visible:=true;

Form1.RadioButton1.Checked := false;

Form1.RadioButton2.Checked := false;

Form1.RadioButton3.Checked := false;

Form1.RadioButton4.Checked := false;

end;

function ResultBall: string;

var

res: string;

begin

res:= 'Вы набрали:' + #13 +

IntToStr(sum) + ' баллов ';

Result:= res;

end;

function ResultTest: string;

var

res: string;

begin

if testIsAll then

begin

res:= 'Вам предлагалось ответить на '+ inttostr(allQuestions) +' вопросов, ' + #13 +

'на каждый из которых следует ответить однозначно:' + #13 +

'' + #13 +

'Вы набрали: ' + IntToStr(sum) + ' баллов! ' + #13 +

'';

case ROUND(sum/allQuestions*100) of

0..25: res := res + resultat[1];

26..50: res := res + resultat[2];

51..75: res := res + resultat[3];

76..100: res := res + resultat[4];

end;

end

else

res:= 'Тест еще не закончен';

Result:= res;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

RadioButton1.visible:=true;

RadioButton2.visible:=true;

RadioButton3.visible:=true;

RadioButton4.visible:=true;

Button1.Caption := 'Следующий';

{Цикл теста по нажатию кнопки}

currentQuestion:= currentQuestion + 1;

if currentQuestion=1 then

begin

while bufbuf<>IntToStr(currentQuestion+1) + 'VP__'

do begin

Readln(f, bufbuf);

if bufbuf<>IntToStr(currentQuestion+1) + 'VP__' then

bufstr:=Bufstr+bufbuf;

Memo1.Text:=bufstr;

end;

bufstr:='';

end

else

if {currentQuestion <> 1 and if} currentQuestion < allQuestions+1 then

begin

while bufbuf<>IntToStr(currentQuestion+1) + 'VP__'

do begin

Readln(f, bufbuf);

if bufbuf<>IntToStr(currentQuestion+1) + 'VP__' then

bufstr:=Bufstr+bufbuf;

Memo1.Text:=bufstr;

end;

bufstr:='';

if RadioButton1.Checked then curentOtv:= '1';

if RadioButton2.Checked then curentOtv:= '2';

if RadioButton3.Checked then curentOtv:= '3';

if RadioButton4.Checked then curentOtv:= '4';

i:=i+1;

if masOtv[i] = curentOtv then

sum:=sum+1;

end

else if currentQuestion = allQuestions+1 then begin

// ShowMessage( 'конец');

Button1.Caption := 'Закончить тест';

Memo1.Text := 'Теперь вы можете просмотреть результаты';

if RadioButton1.Checked then curentOtv:= '1';

if RadioButton2.Checked then curentOtv:= '2';

if RadioButton3.Checked then curentOtv:= '3';

if RadioButton4.Checked then curentOtv:= '4';

i:=i+1;

if masOtv[i] = curentOtv then

sum:=sum+1;

testIsAll := true;

end

else if currentQuestion = allQuestions+2 then begin

Button1.Caption := 'Выбрать другой тест';

Memo1.Text := ResultTest; //выводим в memo1 результаты теста

end

else

restart;

// ShowMessage( Inttostr(currentQuestion)+ ' Текущий вопрос');

//ShowMessage( Inttostr(i)+ 'положение счетчика');

// ShowMessage( curentOtv + ' ответ');

// ShowMessage( Inttostr(sum)+ ' быллы');

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

currentQuestion := 0;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

ShowMessage(info);

end;

procedure TForm1.N3Click(Sender: TObject);

begin

ShowMessage(instruction);

end;

procedure TForm1.N4Click(Sender: TObject);

begin

Restart;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

ShowMessage(ResultBall);

end;

procedure TForm1.N6Click(Sender: TObject);

begin

ShowMessage(ResultTest);

end;

procedure TForm1.N7Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

ShowMessage('Программа разработанна Ломовцевым Сергеем Юрьевичем.' );

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

if currentQuestion = 0 then

begin

numt:=Combobox1.ItemIndex;

Button1.Visible:=true;

Button2.Visible:=false;

Combobox1.Visible:=false;

AssignFile(f, 'd:'+inttostr(numt+1)+'.txt'); {Assigns the Filename}

Reset(f); {Opens the file for reading}

//ShowMessage( 'line of textfile:' + bufstr);

//Closefile(f); {Closes file F}

readln (f, bufbuf);

allquestions:=strtoint(bufbuf);

readln (f, bufbuf);

for i:=1 to length(bufbuf) do begin

masOtv[i]:= copy(bufbuf,i,1);

// ShowMessage(masotv[i]);

end;

while bufbuf<>'1VP__'

do begin

Readln(f, bufbuf);

if bufbuf<>'1VP__' then

bufstr:=Bufstr+bufbuf;

Memo1.Text:=bufstr;

bufstr:=''; //очищаем буфер поля Мемо1 для дальн. работы

//currentQuestion := 0;//текущий вопрос первый }

i:=0;

//Readln(f, protv); {считывание ответа}

// ShowMessage(protv);

end;

end.

ЗАКЛЮЧЕНИЕ

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

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

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

32

СПИСОК ИСПОЛЬЗУЕМЫХ ИСТОЧНИКОВ

1. Аргунова Т. Г. Комплексное учебно-методическое обеспечение предмета. - M.: Москва, 1999.

2. Гультяев А. Разработка мультимедийных учебных курсов. - СПб.: Учитель и ученик: КОРОНА принт, 2002.

3. Олифер В. Г., Олифер Н. А. Компьютерные сети. Принципы, технологии, протоколы. - СПб.: Учебник для вузов, 2007.

4. Методика разработки электронного учебного пособия для системы дистанционного обучения [Электронный ресурс]. - URL: http://www.bytic.ru/cue99M/bdrgw9ne4c.html

5. Бассар Ж. Критология: искусство шифрования. - M.: Москва, 2003.

6. Бобровский С. Delphi 7. Учебный курс. Описание системы и языка программирования Delphi. - СПб.: Техническая книга, 2008.

7. Учебник HTML, http://ru.html.net/tutorials/html/.

8. Федеральный Закон РФ от 25 января 1995г. №24-ФЗ Об информации, информатизации и защите информации.

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

ПРИЛОЖЕНИЕ А ТЕХНИЧЕСКОЕ ЗАДАНИЕ НА ПРОГРАММНОЕ СРЕДСТВО

1 Введение

Наименование программы: «Электронное учебное пособие».

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

Объект применения: конечное программное средство будет использоваться в «Донском Государственном Техническом Университете».

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

Разработка проводится на основании задания на дипломную работу факультета «Информатика и вычислительная техника» (ИиВТ) Донского Государственного Технического Университета (ДГТУ) по направлению «Программное обеспечение вычислительной техники и автоматизированных систем (ПОВТ и АС)». Задание выдано руководителем практики Землянухиным В.Н и утверждено заведующим кафедрой «ПОВТ и АС» Нейдорфом Р.А.

Наименование темы разработки: «Электронное учебное пособие по дисциплине «Сети ЭВМ и телекоммуникации»».

3 Назначение разработки

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

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

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

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

Функции данного программного средства:

· подключение учебных тем;

· структурное отображение разделов учебной темы;

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

· ведение статистики обучаемого.

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

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

организацией бесперебойного питания технических средств;

использованием лицензионного программного обеспечения.

Отказы программы возможны вследствие некорректных действий оператора при взаимодействии с операционной системой.

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

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

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

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

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

Требования к составу аппаратных средств рабочей станции оператора:

процессор Intel Pentium 2 и выше;

128Мб оперативной памяти;

10 Мб дискового пространства;

клавиатура, мышь монитор.

Необходимое программное обеспечение:

операционная система Microsoft Windows XP/Microsoft Windows Vista/Microsoft Windows 7;

платформа Microsoft Framework .NET v4.0.30319.

4.5 Требования к информационной и программной совместимости

Программное средство функционирует под управлением операционной системы Microsoft Windows XP/Microsoft Windows Vista/Microsoft Windows 7. Программа разработана в среде Borland Delphi 7 на языке Delphi.

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

Предварительный состав необходимой программной документации, выполненной на русском языке в соответствии с требованиями ЕСПД согласно ГОСТ:

техническое задание ГОСТ 19.201-78 ЕСПД;

руководство системного программиста ГОСТ 19.503-79 ЕСПД;

руководство программиста ГОСТ 19.504-79 ЕСПД;

руководство оператора ГОСТ 19.505-79 ЕСПД.

6 Стадии и этапы разработки

Стадии и этапы разработки программного средства:

· сформулирована постановка задачи (с 07.02.2011 по 17.02.2011);

· проведено изучение предметной области (с 19.02.2011 по 07.03.2011);

· разработка интерфейса программы (с 09.03.2011 по 27.03.2011);

· разработка методов решения задачи (с 29.03.2011 по 17.04.2011);

· алгоритмическое конструирование (с 20.04.2011 по 13.05.2011);

· написание текста программных модулей (с 14.05.2011 по 28.05.2011);

· отладка модулей программы (с 29.05.2011 по 10.06.2011);

· испытания программы (с 11.06.2011 по 12.06.2011);

· разработка технического задания (с 20.02.2011 по 01.03.2011);

· согласование и утверждение технического задания (с 25.02.2011 по 05.03.2011);

· разработка руководств системного программиста, программиста, оператора (с 05.03.2011 по 15.03.2011);

· разработка пояснительной записки к данному программному продукту (с 05.02.2011 по 05.03.2011).

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

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

Разработал

студент гр. ВИ51 «___» __________ 2011 год

Ломовцев С.Ю. _______________________

Приложение Б Исходный код программы

unit Lecture;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Button1: TButton;

Button2: TButton;

Label1: TLabel;

Label2: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

st,s:string;

x,i:integer;

begin

st:=Edit1.Text;

x:=StrToInt(Edit2.Text);

Edit3.Text:='';

for i:=1 to length(st) do

if (st[i]<>' ') and (st[i]<>'.') then

begin

s:=chr((ord(st[i])-x) mod 255);

Edit3.Text:=Edit3.Text+s;

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

close

end;

end.

unit Test.pas;

interface

uses

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

Dialogs, ToolWin, ActnMan, ActnCtrls, ActnMenus, ImgList, ActnList,

XPStyleActnCtrls, OleCtrls, SHDocVw, ExtCtrls, StdCtrls, XPMan, ComCtrls,

Menus;

type

TForm1 = class(TForm)

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

RadioButton4: TRadioButton;

Button1: TButton;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

Memo1: TMemo;

ComboBox1: TComboBox;

RadioButton1: TRadioButton;

Button2: TButton;

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

info: string = '"Средство самотестирования для электронного учебника по дисциплине: "Сети Эвм и Телекоммуникации"';

instruction: string = 'Выберите номер теста, который вы хотите пройти"' + #13 +

'Вам будет предложен тест, в котором необходимо выбирать верный вариант из 4 вариантов ответов. ' +

'Верный ответ может быть только один.' + #13 +

'По прохождении теста вы получаете оценку, расчитывауюся как отношение правильных ответов к общему числу вопросов';

resultat: array[1..4] of string = (

'0..25 балла. Вы не владеете материалом. Выучите соответствующий материал! ',

'26..50 баллов. Вы плохо владеете материалом. Выучите соответствующий материал! ',

'51..75 балла. Вы владеете материалом, но вам следует повторить его',

'76..100% Вы хорошо усвоили материал ');

sum: byte; //сумма баллов

numt: integer; // номер теста

allQuestions:integer; // кол-во вопросов

currentQuestion: integer;//текущий вопрос

curentOtv:string; //ответ пользовательский на вопрос

protv: string;

testIsAll: boolean;//закончен ли тест

masOtv: array [0..100] of string;

i: integer; {Счетчик для массива}

F: Textfile;

bufstr, bufbuf: string;

implementation

{$R *.dfm}

procedure Restart;

begin

sum := 0;

testIsAll := false;//тест не закончен

allQuestions :=0;

curentOtv:='';

currentQuestion := 0;

Form1.Button1.Caption := 'Запуск теста';

numt:=0;

i:=0;

Form1.Button1.Visible:=false;

Form1.RadioButton1.visible:=false;

Form1.RadioButton2.visible:=false;

Form1.RadioButton3.visible:=false;

Form1.RadioButton4.visible:=false;

Form1.Button2.Visible:=true;

Form1.Combobox1.Visible:=true;

Form1.RadioButton1.Checked := false;

Form1.RadioButton2.Checked := false;

Form1.RadioButton3.Checked := false;

Form1.RadioButton4.Checked := false;

end;

function ResultBall: string;

var

res: string;

begin

res:= 'Вы набрали:' + #13 +

IntToStr(sum) + ' баллов ';

Result:= res;

end;

function ResultTest: string;

var

res: string;

begin

if testIsAll then

begin

res:= 'Вам предлагалось ответить на '+ inttostr(allQuestions) +' вопросов, ' + #13 +

'на каждый из которых следует ответить однозначно:' + #13 +

'' + #13 +

'Вы набрали: ' + IntToStr(sum) + ' баллов! ' + #13 +

'';

case ROUND(sum/allQuestions*100) of

0..25: res := res + resultat[1];

26..50: res := res + resultat[2];

51..75: res := res + resultat[3];

76..100: res := res + resultat[4];

end;

end

else

res:= 'Тест еще не закончен';

Result:= res;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

RadioButton1.visible:=true;

RadioButton2.visible:=true;

RadioButton3.visible:=true;

RadioButton4.visible:=true;

Button1.Caption := 'Следующий';

{Цикл теста по нажатию кнопки}

currentQuestion:= currentQuestion + 1;

if currentQuestion=1 then

begin

while bufbuf<>IntToStr(currentQuestion+1) + 'VP__'

do begin

Readln(f, bufbuf);

if bufbuf<>IntToStr(currentQuestion+1) + 'VP__' then

bufstr:=Bufstr+bufbuf;

Memo1.Text:=bufstr;

end;

bufstr:='';

end

else

if {currentQuestion <> 1 and if} currentQuestion < allQuestions+1 then

begin

while bufbuf<>IntToStr(currentQuestion+1) + 'VP__'

do begin

Readln(f, bufbuf);

if bufbuf<>IntToStr(currentQuestion+1) + 'VP__' then

bufstr:=Bufstr+bufbuf;

Memo1.Text:=bufstr;

end;

bufstr:='';

if RadioButton1.Checked then curentOtv:= '1';

if RadioButton2.Checked then curentOtv:= '2';

if RadioButton3.Checked then curentOtv:= '3';

if RadioButton4.Checked then curentOtv:= '4';

i:=i+1;

if masOtv[i] = curentOtv then

sum:=sum+1;

end

else if currentQuestion = allQuestions+1 then begin

// ShowMessage( 'конец');

Button1.Caption := 'Закончить тест';

Memo1.Text := 'Теперь вы можете просмотреть результаты';

if RadioButton1.Checked then curentOtv:= '1';

if RadioButton2.Checked then curentOtv:= '2';

if RadioButton3.Checked then curentOtv:= '3';

if RadioButton4.Checked then curentOtv:= '4';

i:=i+1;

if masOtv[i] = curentOtv then

sum:=sum+1;

testIsAll := true;

end

else if currentQuestion = allQuestions+2 then begin

Button1.Caption := 'Выбрать другой тест';

Memo1.Text := ResultTest; //выводим в memo1 результаты теста

end

else

restart;

// ShowMessage( Inttostr(currentQuestion)+ ' Текущий вопрос');

//ShowMessage( Inttostr(i)+ 'положение счетчика');

// ShowMessage( curentOtv + ' ответ');

// ShowMessage( Inttostr(sum)+ ' быллы');

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

currentQuestion := 0;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

ShowMessage(info);

end;

procedure TForm1.N3Click(Sender: TObject);

begin

ShowMessage(instruction);

end;

procedure TForm1.N4Click(Sender: TObject);

begin

Restart;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

ShowMessage(ResultBall);

end;

procedure TForm1.N6Click(Sender: TObject);

begin

ShowMessage(ResultTest);

end;

procedure TForm1.N7Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

ShowMessage('Программа разработанна Ломовцевым Сергеем Юрьевичем.' );

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

if currentQuestion = 0 then

begin

numt:=Combobox1.ItemIndex;

Button1.Visible:=true;

Button2.Visible:=false;

Combobox1.Visible:=false;

AssignFile(f, 'd:'+inttostr(numt+1)+'.txt'); {Assigns the Filename}

Reset(f); {Opens the file for reading}

//ShowMessage( 'line of textfile:' + bufstr);

//Closefile(f); {Closes file F}

readln (f, bufbuf);

allquestions:=strtoint(bufbuf);

readln (f, bufbuf);

for i:=1 to length(bufbuf) do begin

masOtv[i]:= copy(bufbuf,i,1);

// ShowMessage(masotv[i]);

end;

while bufbuf<>'1VP__'

do begin

Readln(f, bufbuf);

if bufbuf<>'1VP__' then

bufstr:=Bufstr+bufbuf;

Memo1.Text:=bufstr;

end;

end;

bufstr:=''; //очищаем буфер поля Мемо1 для дальн. работы

//currentQuestion := 0;//текущий вопрос первый }

i:=0;

//Readln(f, protv); {считывание ответа}

// ShowMessage(protv);

end;

end.

Unit Zaezar;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Button1: TButton;

Button2: TButton;

Label1: TLabel;

Label2: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

st,s:string;

x,i:integer;

begin

st:=Edit1.Text;

x:=StrToInt(Edit2.Text);

Edit3.Text:='';

for i:=1 to length(st) do

if (st[i]<>' ') and (st[i]<>'.') then

begin

s:=chr((ord(st[i])-x) mod 255);

Edit3.Text:=Edit3.Text+s;

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

close

end;

end.

Приложение В Скриншот работы программного средства

На рисунке В.1 представлен внешний вид программного средства «Электронное учебное пособие». Программное средство имеет приятный и интуитивно понятный интерфейс.

Рисунок В.1 - Внешний вид программного средства «Электронное учебное пособие».

На рисунке В.2 представлено отображение лекции.

Рисунок В.2 - Отображение лекции.

На рисунке В.3 показано средство самотестирования.

Рисунок В.3 - Средство самотестирования.

На рисунке В.4 показан ход прохождения теста.

Рисунок В.4 - Ход прохождения теста.

На рисунке В.5 показана выдача результата.

Рисунок В.5 - Выдача результата.

Реферат

Отчет содержит: листов - 58, рисунков - 7, приложений - 3, таблиц - 2.

Ключевые слова: ЭЛЕКТРОННОЕ УЧЕБНОЕ ПОСОБИЕ, СОЗДАНИЕ ЭЛЕКТРОННОГО УЧЕБНОГО ПОСОБИЯ, ЭЛЕКТРОННЫЙ УЧЕБНИК, СЕТИ ЭВМ И ТЕЛЕКОММУНИКАЦИИ.

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

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

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