Создание электронного учебника «Правовые основы медико-социальной экспертизы»

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

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

1. гипертекст;
2. интерактивность.

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

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

Программное обеспечение: Операционная система Windows 2000, Windows XP, Windows 7.

 

 

Заключение

 

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

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

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

1. облегчает понимание изучаемого материала за счет иных, нежели в печатной учебной литературе, способов подачи материала: индуктивный подход, воздействие на слуховую и эмоциональную память и т.п.;
2. допускает адаптацию в соответствии с потребностями учащегося, уровнем его подготовки, интеллектуальными возможностями и амбициями;
3. освобождает от громоздких вычислений и преобразований, позволяя сосредоточиться на сути предмета, рассмотреть большее количество примеров и решить больше задач;
4. предоставляет широчайшие возможности для самопроверки на всех этапах работы;
5. дает возможность красиво и аккуратно оформить работу и сдать ее преподавателю в виде файла или распечатки;
6. выполняет роль бесконечно терпеливого наставника, предоставляя практически неограниченное количество разъяснений, повторений, подсказок.

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

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

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

 

 

 

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

 

1. Аленичева Е.В. Электронный учебник (проблемы создания и оценки качества) // Высшее образования в России. – 2011. – №1. – 45 с.
2. Баженова И.Ю. «Delphi 7. Самоучитель программиста» – М.: «КУДИЦ-ОБРАЗ», 2003. – 448 с.
3. Башмаков А.И. Разработка компьютерных учебников и обучающих систем / А.И. Башмаков, И.А. Башмаков. – М.: Филинъ, 2003. – 616 с.
4. Беспалько В.П. Образование и обучение с участием компьютеров. – М.: Изд. Московского психолого-социального института, 2008. – 352 с.
5. Гвоздева В.А., Лаврентьева И.Ю. «Основы построения АИС» – М.: ИД «ФОРУМ»: ИНФРА-М, 2007. – 320 с.
6. Глушаков С.В. Программирование Web-страниц. – М.: ООО «Издательство АСТ», 2008. – 345 с.
7. Гусев А.В. Максимальное использование ресурсов компьютера / А.В. Гусев. – М.: Питер, 2000. – 160 с.
8. Ефимова О.П. Курс компьютерной технологии с основами информатики: Учебник / О. Ефимова. – М.: АСТ, 2000. – 432 с.
9. Зайнутдинова Л.Х. Создание и применение электронных учебников: Монография. – Астрахань: Изд-во «ЦНТЭП», 2009. – 364с.
10. Захарова И.Г. Информационные технологии в образовании: Учебник / И.Г. Захарова. – М.: Академия, 2003. – 192 с.
11. Зимина О.В. Печатные и электронные учебные издания в современном высшем образовании: Теория, методика, практика. – М.: Изд-во МЭИ, 2008. – 267 с.
12. Ибрагимов И.М. Информационные технологии и средства дистанционного обучения: Учебное пособие для студентов высших учебных заведений. – М.: Издательский центр «Академия», 2007. – 336 с.
13. Иванов В.Л. Структура электронного учебника / В.А. Иванов // Информатика и образование. – 2001. – №6. – 23 с.
14. Ибрагимов И.М. Информационные технологии и средства дистанционного обучения: Учебное пособие для студентов высших учебных заведений. – М.: Издательский центр «Академия», 2007. – 336 с.
15. Козлов О.А. Некоторые аспекты создания и применения компьютеризованного учебника / О.А. Козлов, Е.А. Солодова // Информатика и образование. – 1995. – №3. – 103 с.
16. Красильников И.В. Информационные аспекты разработки и применения в ВУЗе электронных учебных пособий. Монография. – М.: «РХТУ», 2007. – 114 с.
17. Краснова Г.А. Технологии создания электронных обучающих средств / Г.А. Краснова. – М.: МГИУ, 2003. – 223 с.
18. Лапчик М.П. Методика преподавания информатики: Учебник / М.П. Лапчик. – М.: Академия, 2003. – 624 с.
19. Макаровой Н.В. Информатика: учебник / Н.В.Макарова. – СПб.: Питер, 2004. – 300 с.
20. Могилев А.В. Информатика: Учебное пособие для студентов / А.В. Могилев, Н.И. Пак; под ред. Е.К. Хеннера. – 2-е изд., стер. – М.: Академия, 2001. – 816 с.
21. Острейковский В.А. Информатика: Учебник для вузов / В.А. Острейковский. – М.: Академия, 2001. – 511 с.
22. Парижский С.М. «Delphi. Учимся на примерах»/Под ред. Шпака Ю.А. – К.: «МК-Пресс», 2005. – 216 с.
23. Петюшкин, А.В. HTML. Экспресс-курс. – СПб.: БХВ-Петербург, 2008. – 256 с.
24. Фуфаев Е.В. Пакеты прикладных программ: учебник / Е.В. Фуфаев. – М.: Академия, 2004. – 352 с.
25. Христочевский С.А. Электронные мультимедийные учебники и энциклопедии // Информатика и образование. – 2010. – №2. – 95 с.
26. http://www.ido.rudn.ru/nfpk/tech/t1.html
27. http://delphi-prg.ru/
28. http://html.find-info.ru/html/005/index.htm
29. http://psbatishev.narod.ru/u000.htm
30. http://www.firststeps.ru/
31. http://www.delphisources.ru/
32. http://www.ito.su/
33. http://www.ict.edu.ru/
34. http://www.swsys.ru/
35. http://www.inf1.info/

 

 

 

Приложение

 

Form 1 – Главная форма

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, jpeg, ExtCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Label1: TLabel;

Image1: TImage;

img1: TImage;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(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;

Form1.Hide;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Form3.Show;

Form1.Hide;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Form4.Show;

Form1.Hide;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

Form1.Close;

end;

end.

 

Form 2 – Форма учебника

unit Unit2;

interface

uses

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

Dialogs, StdCtrls, OleCtrls, SHDocVw;

type

TForm2 = class(TForm)

WebBrowser1: TWebBrowser;

Button1: TButton;

Button2: TButton;

btn1: TButton;

procedure Button1Click(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure btn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin

WebBrowser1.GoBack;

end;

procedure TForm2.FormShow(Sender: TObject);

var path:string;

begin

WebBrowser1.Align:=alClient;

GetDir(0,path);

WebBrowser1.Navigate(path+'\оглавление.htm');

end;

procedure TForm2.btn1Click(Sender: TObject);

begin

Form1.Show;

Form2.Hide;

end;

end.

 

Form  3– Форма теста

unit Unit3;

interface

uses

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

Dialogs, StdCtrls;

type

TForm3 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

Button1: TButton;

Button2: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Memo1: TMemo;

Label7: TLabel;

Label8: TLabel;

RadioButton4: TRadioButton;

RadioButton5: TRadioButton;

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

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Label1Click(Sender: TObject);

procedure Label2Click(Sender: TObject);

procedure Label3Click(Sender: TObject);

procedure Label7Click(Sender: TObject);

procedure Label8Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

f,frez:textfile;

s:string;

i,t:integer;

implementation

uses Unit1;

type

TArrStr = array of String;

TVopr = record

CenaVopr : Integer;

Vopr : String;

Otvets : TArrStr;

end;

{$R *.dfm}

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

begin

Form1.Show;

Form3.Hide;

end;

procedure TForm3.Button2Click(Sender: TObject);

begin

i:=strtoint(edit1.Text);

inc(i);

edit1.text:=inttostr(i);

readln(f,s);

memo1.Lines[0]:=s;

readln(f,s);

label1.caption:=s;

readln(f,s);

label2.caption:=s;

readln(f,s);

label3.caption:=s;

readln(f,s);

label7.caption:=s;

readln(f,s);

label8.caption:=s;

case i of

1: if radiobutton5.checked=true then

begin

t:=strtoint(edit2.text);

inc(t);

edit2.text:=inttostr(t);

end;

2: if radiobutton4.checked=true then

begin

t:=strtoint(edit2.text);

inc(t);

edit2.text:=inttostr(t);

end;

3: if radiobutton5.checked=true then

begin

t:=strtoint(edit2.text);

inc(t);

edit2.text:=inttostr(t);

end;

4: if radiobutton5.checked=true then

begin

t:=strtoint(edit2.text);

inc(t);

edit2.text:=inttostr(t);

end;

5: if radiobutton1.checked=true then

begin

t:=strtoint(edit2.text);

inc(t);

edit2.text:=inttostr(t);

end;

6: if radiobutton5.checked=true then

begin

t:=strtoint(edit2.text);

inc(t);

edit2.text:=inttostr(t);

end;

7: if radiobutton1.checked=true then

begin

t:=strtoint(edit2.text);

inc(t);

edit2.text:=inttostr(t);

end;

8: if radiobutton2.checked=true then

begin

t:=strtoint(edit2.text);

inc(t);

edit2.text:=inttostr(t);

end;

9: if radiobutton3.checked=true then

begin

t:=strtoint(edit2.text);

inc(t);

edit2.text:=inttostr(t);

end;

10: if radiobutton1.checked=true then

begin

t:=strtoint(edit2.text);

inc(t);

edit2.text:=inttostr(t);

end;

11: if radiobutton3.checked=true then

begin

t:=strtoint(edit2.text);

inc(t);

edit2.text:=inttostr(t);

end;

12: if radiobutton5.checked=true then

begin

t:=strtoint(edit2.text);

inc(t);

edit2.text:=inttostr(t);

end;

13: if radiobutton5.checked=true then

begin

t:=strtoint(edit2.text);

inc(t);

edit2.text:=inttostr(t);

end;

14: if radiobutton1.checked=true then

begin

t:=strtoint(edit2.text);

inc(t);

edit2.text:=inttostr(t);

end;

15: if radiobutton1.checked=true then

begin

t:=strtoint(edit2.text);

inc(t);

edit2.text:=inttostr(t);

end;

16: if radiobutton1.checked=true then

begin

t:=strtoint(edit2.text);

inc(t);

edit2.text:=inttostr(t);

end;

17: if radiobutton1.checked=true then

begin

t:=strtoint(edit2.text);

inc(t);

edit2.text:=inttostr(t);

end;

18: if radiobutton5.checked=true then

begin

t:=strtoint(edit2.text);

inc(t);

edit2.text:=inttostr(t);

end;

19: if radiobutton5.checked=true then

begin