Файл: Создание электронного учебника по любой теме из курса Информатика и программирование.pdf
Добавлен: 29.04.2023
Просмотров: 367
Скачиваний: 3
СОДЕРЖАНИЕ
1 Разработка электронного урока
1.1 Разработка проекта и описание логической структуры электронного урока
1.1.1 Выявление сущностей инфологической модели
2 Проектирование электронного урока
2.1 Создание базы данных электронного урока
Благодаря своим мультимедийным особенностям современный ПК является уникальным по своим возможностям обучающим средством. Персональный компьютер применяется в обучении самым разнообразным дисциплинам и служит базой для создания большого числа новых информационных технологий обучения. Особенности персонального компьютера выгодно отличают его от других технических средств обучения. Эти особенности заключаются в возможности компьютера одновременно сочетать:
- интерактивный (диалоговый) режим работы (действие человека – реакции компьютера - ... - действие человека - реакция компьютера и т.д.);
- «персональность» компьютера (небольшие размеры и относительно невысокая стоимость, позволяют обеспечить компьютерами целый класс);
- хорошие графические, иллюстративные возможности (среднестатистический компьютер имеет разрешающую способность монитора 1024x768 точек при 32 млн. цветовых оттенков - это качество несопоставимо выше чем у обычного цветного телевизора или иллюстрации в журнале);
- простота управления и интуитивно понятный интерфейс;
- легкость регистрации учащихся в обучаемой программе и хранения информации о процессе обучения и работе учащегося.
Если компьютер используется как обучающее средство, то обычно его технические возможности позволяют:
- активизировать учебный процесс;
- индивидуализировать обучение;
- работать каждому ученику в своем индивидуальном темпе;
- повысить наглядность в предъявлении материала;
- сместить акценты от теоретических знаний к практическим (и наоборот);
- повысить интерес учеников к изучению нового материала и обучению в целом;
- реализовать автоматизированную систему проверки и контроля учащихся.
Программированное обучение заключается в стремлении повысить эффективность управления процессом обучения на базе кибернетического подхода. В своей основе программированное обучение подразумевает работу слушателя по некоей программе, в процессе выполнения которой, он овладевает знаниями. Роль преподавателя сводится к отслеживанию психологического состояния слушателя и эффективности поэтапного освоения им учебного материала, а, в случае необходимости, регулированию программных действий. В соответствии с этим были разработаны различные схемы, алгоритмы программированного обучения — прямолинейная, разветвлённая, смешанная и другие, которые могут быть реализованы с использованием компьютеров, программированных учебников, методических материалов и др.
В целом программированное обучение можно рассматривать как попытку формализации процесса обучения с максимально возможным устранением субъективного фактора непосредственного общения между преподавателем и обучающимся. В настоящее время считается, что этот подход не оправдал себя. Его использование показало, что процесс обучения не может быть полностью автоматизирован, а роль преподавателя и общение с ним учащегося в процессе обучения остаются приоритетными. Тем не менее, развитие компьютерных технологий и дистанционного обучения повышает роль теории программированного обучения в образовательной практике.
Список использованных источников
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Приложения А
Фрагмент текста программы
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls;
type
TForm1 = class(TForm)
TreeView1: TTreeView;
procedure TreeView1DblClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
function HtmlHelp(wnd : HWND; f : string; d : dword; c : dword) : HWND;stdcall;
external 'hhctrl.ocx' name 'HtmlHelpA';
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.TreeView1DblClick(Sender: TObject);
begin
{----------------------Глава 1------------------------}
if TreeView1.Selected.SelectedIndex = 111
then HtmlHelp(handle,'Text.chm::Глава 1.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 112
then HtmlHelp(handle,'Text.chm::Глава 2.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 113
then HtmlHelp(handle,'Text.chm::Глава 3.htm', 0 ,0)
then HtmlHelp(handle,'Text.chm::Глава 4.htm', 0 ,0)
Продолжение Приложение А
else if TreeView1.Selected.SelectedIndex = 115
then HtmlHelp(handle,'Text.chm::Глава 5.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 116
then HtmlHelp(handle,'Text.chm::Глава 6.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 117
then HtmlHelp(handle,'Text.chm::Глава 7.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 118
then HtmlHelp(handle,'Text.chm::Глава 8.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 119
then HtmlHelp(handle,'Text.chm::Глава 9.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 120
then HtmlHelp(handle,'Text.chm::Глава 10.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 121
then HtmlHelp(handle,'Text.chm::Глава 11.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 122
then HtmlHelp(handle,'Text.chm::Глава 12.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 123
then HtmlHelp(handle,'Text.chm::Глава 13.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 124
then HtmlHelp(handle,'Text.chm::Глава 14.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 125
then HtmlHelp(handle,'Text.chm::Глава 15.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 126
then HtmlHelp(handle,'Text.chm::Глава 16.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 127
then HtmlHelp(handle,'Text.chm::Глава 17.htm', 0 ,0)
{----------------------Глава 2------------------------}
else if TreeView1.Selected.SelectedIndex = 211
then HtmlHelp(handle,'Text.chm::2 Глава 1.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 212
then HtmlHelp(handle,'Text.chm::2 Глава 2.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 213
then HtmlHelp(handle,'Text.chm::2 Глава 3.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 214
then HtmlHelp(handle,'Text.chm::2 Глава 4.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 215
then HtmlHelp(handle,'Text.chm::2 Глава 5.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 216
then HtmlHelp(handle,'Text.chm::2 Глава 6.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 217
then HtmlHelp(handle,'Text.chm::2 Глава 7.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 218
then HtmlHelp(handle,'Text.chm::2 Глава 8.htm', 0 ,0)
Продолжение Приложение А
then HtmlHelp(handle,'Text.chm::2 Глава 9.htm', 0 ,0)
{----------------------Глава 3------------------------}
else if TreeView1.Selected.SelectedIndex = 311
then HtmlHelp(handle,'Text.chm::3 Глава 1.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 312
then HtmlHelp(handle,'Text.chm::3 Глава 2.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 313
then HtmlHelp(handle,'Text.chm::3 Глава 3.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 314
then HtmlHelp(handle,'Text.chm::3 Глава 4.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 315
then HtmlHelp(handle,'Text.chm::3 Глава 5.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 316
then HtmlHelp(handle,'Text.chm::3 Глава 6.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 317
then HtmlHelp(handle,'Text.chm::3 Глава 7.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 318
then HtmlHelp(handle,'Text.chm::3 Глава 8.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 319
then HtmlHelp(handle,'Text.chm::3 Глава 9.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 320
then HtmlHelp(handle,'Text.chm::3 Глава 10.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 321
then HtmlHelp(handle,'Text.chm::3 Глава 11.htm', 0 ,0)
{----------------------Глава 4------------------------}
else if TreeView1.Selected.SelectedIndex = 411
then HtmlHelp(handle,'Text.chm::4 Глава 1.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 412
then HtmlHelp(handle,'Text.chm::4 Глава 2.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 413
then HtmlHelp(handle,'Text.chm::4 Глава 3.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 414
then HtmlHelp(handle,'Text.chm::4 Глава 4.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 415
then HtmlHelp(handle,'Text.chm::4 Глава 5.htm', 0 ,0)
{----------------------Глава 5------------------------}
else if TreeView1.Selected.SelectedIndex = 511
then HtmlHelp(handle,'Text.chm::5 Глава 1.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 512
then HtmlHelp(handle,'Text.chm::5 Глава 2.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 513
then HtmlHelp(handle,'Text.chm::5 Глава 3.htm', 0 ,0)
Продолжение Приложение А
then HtmlHelp(handle,'Text.chm::5 Глава 4.htm', 0 ,0)
{----------------------Глава 6------------------------}
else if TreeView1.Selected.SelectedIndex = 611
then HtmlHelp(handle,'Text.chm::6 Глава 1.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 612
then HtmlHelp(handle,'Text.chm::6 Глава 2.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 613
then HtmlHelp(handle,'Text.chm::6 Глава 3.htm', 0 ,0)
{----------------------Глава 7------------------------}
else if TreeView1.Selected.SelectedIndex = 711
then HtmlHelp(handle,'Text.chm::7 Глава 1.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 712
then HtmlHelp(handle,'Text.chm::7 Глава 2.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 713
then HtmlHelp(handle,'Text.chm::7 Глава 3.htm', 0 ,0)
{----------------------Глава 8------------------------}
else if TreeView1.Selected.SelectedIndex = 811
then HtmlHelp(handle,'Text.chm::8 Глава 1.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 812
then HtmlHelp(handle,'Text.chm::8 Глава 2.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 813
then HtmlHelp(handle,'Text.chm::8 Глава 3.htm', 0 ,0)
{----------------------Глава 9------------------------}
else if TreeView1.Selected.SelectedIndex = 911
then HtmlHelp(handle,'Text.chm::9 Глава 1.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 912
then HtmlHelp(handle,'Text.chm::9 Глава 2.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 913
then HtmlHelp(handle,'Text.chm::9 Глава 3.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 914
then HtmlHelp(handle,'Text.chm::9 Глава 4.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 915
then HtmlHelp(handle,'Text.chm::9 Глава 5.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 916
then HtmlHelp(handle,'Text.chm::9 Глава 6.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 917
then HtmlHelp(handle,'Text.chm::9 Глава 7.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 918
then HtmlHelp(handle,'Text.chm::9 Глава 8.htm', 0 ,0)
{----------------------Глава 10------------------------}
else if TreeView1.Selected.SelectedIndex = 1011
then HtmlHelp(handle,'Text.chm::10 Глава 1.htm', 0 ,0)
Продолжение Приложение А
then HtmlHelp(handle,'Text.chm::10 Глава 2.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 1013
then HtmlHelp(handle,'Text.chm::10 Глава 3.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 1014
then HtmlHelp(handle,'Text.chm::10 Глава 4.htm', 0 ,0)
{----------------------Глава 11------------------------}
else if TreeView1.Selected.SelectedIndex = 1111
then HtmlHelp(handle,'Text.chm::11 Глава 1.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 1112
then HtmlHelp(handle,'Text.chm::11 Глава 2.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 1113
then HtmlHelp(handle,'Text.chm::11 Глава 3.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 1114
then HtmlHelp(handle,'Text.chm::11 Глава 4.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 1115
then HtmlHelp(handle,'Text.chm::11 Глава 5.htm', 0 ,0)
{----------------------Глава 12------------------------}
else if TreeView1.Selected.SelectedIndex = 1211
then HtmlHelp(handle,'Text.chm::12 Глава 1.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 1212
then HtmlHelp(handle,'Text.chm::12 Глава 2.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 1213
then HtmlHelp(handle,'Text.chm::12 Глава 3.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 1214
then HtmlHelp(handle,'Text.chm::12 Глава 4.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 1215
then HtmlHelp(handle,'Text.chm::12 Глава 5.htm', 0 ,0)
{----------------------Глава 13------------------------}
else if TreeView1.Selected.SelectedIndex = 1311
then HtmlHelp(handle,'Text.chm::13 Глава 1.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 1312
then HtmlHelp(handle,'Text.chm::13 Глава 2.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 1313
then HtmlHelp(handle,'Text.chm::13 Глава 3.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 1314
then HtmlHelp(handle,'Text.chm::13 Глава 4.htm', 0 ,0)
{----------------------Глава 14------------------------}
else if TreeView1.Selected.SelectedIndex = 1411
then HtmlHelp(handle,'Text.chm::14 Глава 1.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 1412
then HtmlHelp(handle,'Text.chm::14 Глава 2.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 1413
Продолжение Приложение А
else if TreeView1.Selected.SelectedIndex = 1414
then HtmlHelp(handle,'Text.chm::14 Глава 4.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 1415
then HtmlHelp(handle,'Text.chm::14 Глава 5.htm', 0 ,0)
{----------------------Глава 15------------------------}
else if TreeView1.Selected.SelectedIndex = 1511
then HtmlHelp(handle,'Text.chm::15 Глава 1.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 1512
then HtmlHelp(handle,'Text.chm::15 Глава 2.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 1513
then HtmlHelp(handle,'Text.chm::15 Глава 3.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 1514
then HtmlHelp(handle,'Text.chm::15 Глава 4.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 1515
then HtmlHelp(handle,'Text.chm::15 Глава 5.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 1516
then HtmlHelp(handle,'Text.chm::15 Глава 6.htm', 0 ,0)
{----------------------Глава 16------------------------}
else if TreeView1.Selected.SelectedIndex = 1611
then HtmlHelp(handle,'Text.chm::16 Глава 1.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 1612
then HtmlHelp(handle,'Text.chm::16 Глава 2.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 1613
then HtmlHelp(handle,'Text.chm::16 Глава 3.htm', 0 ,0)
else if TreeView1.Selected.SelectedIndex = 1614
then HtmlHelp(handle,'Text.chm::16 Глава 4.htm', 0 ,0)
{----------------------Глава 17------------------------}
else if TreeView1.Selected.SelectedIndex = 1711