Электронный учебник необходим для самостоятельной работы учащихся при очном и, особенно, дистанционном обучении потому, что он:

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

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

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

- предоставляет широчайшие возможности для самопроверки на всех этапах работы;

- дает возможность красиво и аккуратно оформить работу и сдать ее преподавателю в виде файла или распечатки;

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

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

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

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

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

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

- Электронный учебник удобен для преподавателя потому, что он:

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

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

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

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

БИБЛИОГРАФИЧЕСКИЙ СПИСОК

Приложение Б

Модуль: Тестовая программа

unit Unit3;

interface

uses

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

Dialogs, StdCtrls, CheckLst, ComCtrls, ToolWin;

type

PQuestion=^TQuestion;

TQuestion=record

Name: String[255];

ResultCount:Integer;

ResiltText: array[0..10] of String[255];

ResiltValue: array[0..10] of boolean;

end;

TForm3 = class(TForm)

ToolBar1: TToolBar;

ToolButton1: TToolButton;

ToolButton2: TToolButton;

ToolButton3: TToolButton;

QuestionLabel: TStaticText;

QuestionCheckList: TCheckListBox;

Button1: TButton;

OpenDialog1: TOpenDialog;

procedure FormShow(Sender: TObject);

procedure FormDestroy(Sender: TObject);

procedure ToolButton1Click(Sender: TObject);

procedure ToolButton2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure ToolButton3Click(Sender: TObject);

private

{ Private declarations }

QuestionList:TList;

Question, QuestionNumber, FalseNumber: Integer;

FileName: String;

procedure NextQuestion;

procedure LoadFile;

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.FormShow(Sender: TObject);

begin

QuestionList:=TList.Create;

end;

procedure TForm3.FormDestroy(Sender: TObject);

begin

QuestionList.Free;

end;

procedure TForm3.ToolButton1Click(Sender: TObject);

begin

//Показать окно открытия файла

if not OpenDialog1.Execute then exit;

FileName:=OpenDialog1.FileName;

ToolButton2.Enabled:=true;

end;

procedure TForm3.ToolButton2Click(Sender: TObject);

begin

LoadFile;

QuestionNumber:=0;

FalseNumber:=0;

Button1.Enabled:=true;

NextQuestion;

end;

procedure TForm3.LoadFile;

var

fs:TFileStream;

i, Count:Integer;

Str:String[5];

ProjectName:String[255];

NewQuest:PQuestion;

begin

QuestionList.Clear;

//Открыть файл для чтения

fs:=TFileStream.Create(FileName, fmOpenRead);

//Перейти в начало файла и прочитать заголовок

fs.Seek(0,soFromBeginning);

fs.read(Str, SizeOf(Str));

//Если заголовок равен тексу "Тест", значит это "вопрос-

//варианты ответов".

if Str='Тест' then

begin

//Прочитать имя проекта

fs.Read(ProjectName, sizeof(ProjectName));

Caption:=ProjectName;

try

//Прочитать количество вопросов

fs.Read(Count, sizeof(Count));

//Запустить цикл чтения вопросов

for i:=0 to Count-1 do

begin

//Создаю новую структуру в памяти для вопроса

NewQuest:=New(PQuestion);

//Читаю структуру

fs.Read(NewQuest^, sizeof(TQuestion));

//Добавляю структуру в контейнер

QuestionList.Add(NewQuest);

end;

finally

//Закрываю файл

fs.Free;

end;

end;

end;

procedure TForm3.NextQuestion;

var

i:Integer;

begin

Randomize;

Question:=Random(QuestionList.Count-1);

QuestionLabel.Caption:=PQuestion(QuestionList[Question]).Name;

QuestionCheckList.Items.Clear;

for i:=0 to PQuestion(QuestionList[Question]).ResultCount-1 do

QuestionCheckList.Items.Add(PQuestion(QuestionList[Question]).ResiltText[i]);

Inc(QuestionNumber);

end;

procedure TForm3.Button1Click(Sender: TObject);

var

OK:Boolean;

i:Integer;

begin

OK:=true;

for i:=0 to PQuestion(QuestionList[Question]).ResultCount-1 do

if PQuestion(QuestionList[Question]).ResiltValue[i]<>QuestionCheckList.Checked[i] then

OK:=false;

if OK=false then

Inc(FalseNumber);

QuestionList.Delete(Question);

if QuestionNumber<5 then

NextQuestion

else

begin

Application.MessageBox(PChar('Вы закончили тест с количеством ошибок = '+IntToStr(FalseNumber)), 'Внимание!!!');

Button1.Enabled:=false;

end;

end;

procedure TForm3.ToolButton3Click(Sender: TObject);

begin

close;

end;

end.

Приложение В

Модуль «Главное окно тестового редактора».

unit MainUnit;

interface

uses

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

Dialogs, Menus, ComCtrls, ToolWin, ImgList, ExtCtrls;

type

TTestEditorForm = class(TForm)

ImageList1: TImageList;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

SaveAsMenu: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

N14: TMenuItem;

N15: TMenuItem;

ControlBar1: TControlBar;

ToolBar1: TToolBar;

NewButton: TToolButton;

OpenButton: TToolButton;

SaveButton: TToolButton;

PrintButton: TToolButton;

ToolButton9: TToolButton;

OptionsButton: TToolButton;

ToolButton10: TToolButton;

HelpButton: TToolButton;

AboutButton: TToolButton;

ToolButton11: TToolButton;

ExitButton: TToolButton;

StatusBar: TStatusBar;

SaveDialog1: TSaveDialog;

OpenDialog1: TOpenDialog;

procedure AboutButtonClick(Sender: TObject);

procedure ExitButtonClick(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure NewButtonClick(Sender: TObject);

procedure SaveButtonClick(Sender: TObject);

procedure SaveAsMenuClick(Sender: TObject);

procedure OpenButtonClick(Sender: TObject);

private

{ Private declarations }

procedure ShowHint(Sender: TObject);

procedure SaveTest1;

public

{ Public declarations }

end;

var

TestEditorForm: TTestEditorForm;

implementation

uses AboutUnit, NewTestWizardUnit, QuestionResultUnit;

{$R *.dfm}

procedure TTestEditorForm.AboutButtonClick(Sender: TObject);

begin

AboutForm.ShowModal;

end;

procedure TTestEditorForm.ExitButtonClick(Sender: TObject);

begin

Close;

end;

procedure TTestEditorForm.ShowHint(Sender: TObject);

begin

StatusBar.Panels.Items[0].Text := Application.Hint;

end;

procedure TTestEditorForm.FormShow(Sender: TObject);

begin

Application.OnHint := ShowHint;

end;

procedure TTestEditorForm.NewButtonClick(Sender: TObject);

begin

NewTestForm.ShowModal;

if NewTestForm.ModalResult<>mrOK then exit;

if NewTestForm.TestTypeBox.ItemIndex=0 then

begin

QuestionResultForm:=TQuestionResultForm.Create(Owner);

QuestionResultForm.ProjectName:=NewTestForm.TestNameEdit.Text;

QuestionResultForm.Caption:=QuestionResultForm.Caption+' : '+QuestionResultForm.ProjectName;

end;

end;

procedure TTestEditorForm.SaveButtonClick(Sender: TObject);

begin

//(нет активных окон), то выход

if ActiveMDIChild=nil then exit;

//Если окно имеет имя QuestionResultForm, то это

//вопрос-варианты ответов и вызываем для сохранения

//процедуру SaveTest1.

if ActiveMDIChild.Name='QuestionResultForm' then

SaveTest1;

end;

procedure TTestEditorForm.SaveTest1;

var

fs:TFileStream;

i:Integer;

Str:String[5];

begin

//Если у активного окна в свойстве FileName пусто,

//то нет имени файла и нужно вызвать обработчик события

//меню "Сохранить как...", чтобы появилось окно ввода

//имени файла

if TQuestionResultForm(ActiveMDIChild).FileName='' then

begin

SaveAsMenuClick(nil);

exit;

end;

//Создаю новый файл. Если он уже существовал, то его

//содержимое будет уничтожено

fs:=TFileStream.Create(TQuestionResultForm(ActiveMDIChild).FileName, fmCreate);

//Сохраняю в начале файла текст "Тест", чтобы по нему потом

//определить к чему относиться данный файл.

Str:='Тест';

fs.Write(Str, SizeOf(Str));

//Сохранить имя проекта

fs.Write(TQuestionResultForm(ActiveMDIChild).ProjectName, sizeof(TQuestionResultForm(ActiveMDIChild).ProjectName));

try

//Сохранить количество вопросов

fs.Write(TQuestionResultForm(ActiveMDIChild).QuestionList.Count, sizeof(TQuestionResultForm(ActiveMDIChild).QuestionList.Count));

//Запускаю цикл, в котором сохраняються все вопросы.

for i:=0 to TQuestionResultForm(ActiveMDIChild).QuestionList.Count-1 do

fs.Write(PQuestion(TQuestionResultForm(ActiveMDIChild).QuestionList[i])^, sizeof(TQuestion));

finally

//Закрыть файл

fs.Free;

end;

end;

procedure TTestEditorForm.SaveAsMenuClick(Sender: TObject);

begin

if SaveDialog1.Execute then

begin

TQuestionResultForm(ActiveMDIChild).FileName:=SaveDialog1.FileName;

SaveButtonClick(nil);

end;

end;

procedure TTestEditorForm.OpenButtonClick(Sender: TObject);

var

fs:TFileStream;

i, Count:Integer;

Str:String[5];

NewQuest:PQuestion;

begin

//Показать окно открытия файла

if not OpenDialog1.Execute then exit;

//Открыть файл для чтения

fs:=TFileStream.Create(OpenDialog1.FileName, fmOpenRead);

//Перейти в начало файла и прочитать заголовок

fs.Seek(0,soFromBeginning);

fs.read(Str, SizeOf(Str));

//Если заголовок равен тексу "Тест", значит это "вопрос-

//варианты ответов".

if Str='Тест' then

begin

//Создать новое окно теста

QuestionResultForm:=TQuestionResultForm.Create(Owner);

//Сохранить имя открытого файла в объекте окна

QuestionResultForm.FileName:=OpenDialog1.Filename;

//Прочитать имя проекта

fs.Read(QuestionResultForm.ProjectName, sizeof(QuestionResultForm.ProjectName));

try

//Прочитать количество вопросов

fs.Read(Count, sizeof(Count));

//Запустить цикл чтения вопросов

for i:=0 to Count-1 do

begin

//Создаю новую структуру в памяти для вопроса

NewQuest:=New(PQuestion);

//Читаю структуру

fs.Read(NewQuest^, sizeof(TQuestion));

//Добавляю структуру в контейнер

QuestionResultForm.QuestionList.Add(NewQuest);

//Создаю новый элемент в дереве

with QuestionResultForm.QuestionTreeView.Items.Add(nil, NewQuest.Name) do

begin

ImageIndex:=0;

Data:=NewQuest;

end;

end;

finally

//Закрываю файл

fs.Free;

end;

end;

end;

end.

Приложение Г

Модуль создания нового теста

unit NewTestWizardUnit;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls;

type

TNewTestForm = class(TForm)

Panel1: TPanel;

Label1: TLabel;

Label2: TLabel;

Image1: TImage;

Bevel1: TBevel;

Label3: TLabel;

TestNameEdit: TEdit;

Button1: TButton;

Button2: TButton;

Label4: TLabel;

TestTypeBox: TComboBox;

procedure FormShow(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

NewTestForm: TNewTestForm;

implementation

{$R *.dfm}

procedure TNewTestForm.FormShow(Sender: TObject);

begin

Image1.Picture.Bitmap.LoadFromFile(ExtractFilePath(Application.ExeName)+'logo.bmp');

end;

end.

Приложение Д

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

unit QuestionResultUnit;

interface

uses

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

Dialogs, ExtCtrls, ComCtrls, ToolWin, ImgList;

type

PQuestion=^TQuestion;

TQuestion=record

Name: String[255];

ResultCount:Integer;

ResiltText: array[0..10] of String[255];

ResiltValue: array[0..10] of boolean;

end;

TQuestionResultForm = class(TForm)

QuestionTreeView: TTreeView;

ResultView: TListView;

Splitter1: TSplitter;

ToolBar1: TToolBar;

NewButton: TToolButton;

EditButton: TToolButton;

DeleteButton: TToolButton;

ToolButton4: TToolButton;

CloseButton: TToolButton;

ImageList1: TImageList;

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

procedure CloseButtonClick(Sender: TObject);

procedure NewButtonClick(Sender: TObject);

procedure FormShow(Sender: TObject);

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

procedure EditButtonClick(Sender: TObject);

procedure DeleteButtonClick(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

ProjectName:String[255];

FileName:String;

QuestionList:TList;

end;

var

QuestionResultForm: TQuestionResultForm;

implementation

uses MainUnit, EditQuestionUnit;

{$R *.dfm}

procedure TQuestionResultForm.FormClose(Sender: TObject;

var Action: TCloseAction);

begin

QuestionList.Free;

Action:=caFree;

QuestionResultForm:=nil;

end;

procedure TQuestionResultForm.CloseButtonClick(Sender: TObject);

begin

Close;

end;

procedure TQuestionResultForm.FormShow(Sender: TObject);

begin

QuestionList:=TList.Create;

end;

procedure TQuestionResultForm.NewButtonClick(Sender: TObject);

var

NewQuest:PQuestion;

i:Integer;

begin

EditQuestionForm.ResultListBox.Items.Clear;

EditQuestionForm.QuestionEdit.Text:='';

EditQuestionForm.ShowModal;

if EditQuestionForm.ModalResult<>mrOK then exit;

NewQuest:=New(PQuestion);

NewQuest.Name:=EditQuestionForm.QuestionEdit.Text;

NewQuest.ResultCount:=EditQuestionForm.ResultListBox.Items.Count;

for i:= 0 to NewQuest.ResultCount-1 do

begin

NewQuest.ResiltText[i]:=EditQuestionForm.ResultListBox.Items.Strings[i];

NewQuest.ResiltValue[i]:=EditQuestionForm.ResultListBox.Checked[i];

end;

QuestionList.Add(NewQuest);

with QuestionTreeView.Items.Add(nil, NewQuest.Name) do

begin

ImageIndex:=0;

Data:=NewQuest;

end;

end;

procedure TQuestionResultForm.QuestionTreeViewChange(Sender: TObject;

Node: TTreeNode);

var

i:Integer;

begin

ResultView.Items.Clear;

if Node=nil then exit;

for i:=0 to PQuestion(node.Data).ResultCount-1 do

with ResultView.Items.Add do

begin

Caption:=PQuestion(node.Data).ResiltText[i];

if PQuestion(node.Data).ResiltValue[i]=true then

begin

SubItems.Add('Да');

ImageIndex:=2;

end

else

begin

SubItems.Add('Нет');

ImageIndex:=1;

end;

end;

end;

procedure TQuestionResultForm.EditButtonClick(Sender: TObject);

var

i:Integer;

begin

if QuestionTreeView.Selected=nil then exit;

//Заполняю компонент QuestionEdit в окне редактирования вопросов

EditQuestionForm.QuestionEdit.Text:=PQuestion(QuestionTreeView.Selected.Data).Name;

//Очищаю список вариантов ответов в окне редактирования вопросов

EditQuestionForm.ResultListBox.Clear;

for i:=0 to PQuestion(QuestionTreeView.Selected.Data).ResultCount-1 do

begin

//Заполняю список вариантов ответов в окне редактирования вопросов

EditQuestionForm.ResultListBox.Items.Add(PQuestion(QuestionTreeView.Selected.Data).ResiltText[i]);

//Если ответ верный, то ставлю галочку

if PQuestion(QuestionTreeView.Selected.Data).ResiltValue[i]=true then

EditQuestionForm.ResultListBox.Checked[i]:=true;

end;

//Отображаю окно редактирования вопроса

EditQuestionForm.ShowModal;

if EditQuestionForm.ModalResult<>mrOK then exit;

PQuestion(QuestionTreeView.Selected.Data).Name:=EditQuestionForm.QuestionEdit.Text;

PQuestion(QuestionTreeView.Selected.Data).ResultCount:=EditQuestionForm.ResultListBox.Items.Count;

for i:= 0 to PQuestion(QuestionTreeView.Selected.Data).ResultCount-1 do

begin

PQuestion(QuestionTreeView.Selected.Data).ResiltText[i]:=EditQuestionForm.ResultListBox.Items.Strings[i];

PQuestion(QuestionTreeView.Selected.Data).ResiltValue[i]:=EditQuestionForm.ResultListBox.Checked[i];

end;

//Вызываю процедуру QuestionTreeViewChange, которая должна обновить

//информацию в ResultView. Первый параметр нас не интересует, а второй

//мы обязаны указать потому что внутри процедуры QuestionTreeViewChange

//мы используем его. Я указываю выделенный элемент.

QuestionTreeViewChange(nil, QuestionTreeView.Selected);

end;

procedure TQuestionResultForm.DeleteButtonClick(Sender: TObject);

var

index:Integer;

begin

if QuestionTreeView.Selected=nil then exit;

//Подтверждение удаления

if Application.MessageBox(PChar('Вы действительно хотите удалить - '+

QuestionTreeView.Selected.Text),'Внимание!!!', MB_OKCANCEL+MB_ICONINFORMATION)<>idOk then Exit;

//Сохраняю индекс выделенного элемента

index:=QuestionTreeView.Selected.Index;

//Удаляю выделенный элемент из дерева

QuestionTreeView.Items.Delete(QuestionTreeView.Selected);

//Удаляю из контейнера

QuestionList.Delete(Index);

end;

procedure TQuestionResultForm.FormCreate(Sender: TObject);

begin

FileName:='';

end;

end.

Приложение Е

Модуль редактирования теста

unit EditQuestionUnit;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls, CheckLst, Buttons;

type

TEditQuestionForm = class(TForm)

Panel1: TPanel;

image1: TImage;

Button1: TButton;

Button2: TButton;

ResultListBox: TCheckListBox;

Label1: TLabel;

QuestionEdit: TEdit;

Label3: TLabel;

NewResultButton: TSpeedButton;

SpeedButton1: TSpeedButton;

procedure FormShow(Sender: TObject);

procedure NewResultButtonClick(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

EditQuestionForm: TEditQuestionForm;

implementation

{$R *.dfm}

procedure TEditQuestionForm.FormShow(Sender: TObject);

begin

Image1.Picture.Bitmap.LoadFromFile(ExtractFilePath(Application.ExeName)+'logo.bmp');

end;

procedure TEditQuestionForm.NewResultButtonClick(Sender: TObject);

var

Str:String;

begin

Str:='';

if InputQuery('Новый ответ', 'Введите текст ответа:', Str) then

ResultListBox.Items.Add(Str);

end;

procedure TEditQuestionForm.SpeedButton1Click(Sender: TObject);

begin

if ResultListBox.ItemIndex<>-1 then

ResultListBox.Items.Delete(ResultListBox.ItemIndex);

end;

end.

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