ь Дидактические материалы (бланки, шаблоны)
ь Демонстрационные материалы (схемы, рисунки, таблицы)
ь Электронный учебник
ь Обучающее электронное учебное пособие
ь Обучающе-контролирующее электронное учебное пособие
ь Справочники и словари для учеников
ь Тесты
ЦОРы, классифицированные по типу информации
Ь ЦОР с текстовой информацией
ь ЦОР с визуальной информацией (конкретно - схемы)
ь ЦОР с комбинированной информацией
Возможности Microsoft Office Word для создания вышеперечисленных ЦОРов:
· возможности обработки текстовой информации (редактирование, создание таблиц)
· возможность создания гипертекста
· создание бланков, шаблонов
· вставка рисунков
· создание схем
· проверка правописания
· язык программирования Visual Basic for Application
Рассмотрим пример создания простейшего электронного учебника средствами Microsoft Office Word:
· для начала необходимо определиться с содержанием учебника;
· затем отобрать материал, соответствующий содержанию;
· связать соответствующие главы учебника гиперссылками с содержанием.
|
|
Этот учебник будет являться прототипом традиционного учебника, только в цифровой форме.
Пример создания обучающего электронного учебного пособия (рассмотрим на примере одной задачи). Допустим, что учитель поставил перед собой цель научить детей решению геометрических задач определенного типа.
Интерфейс пособия: текстовое поле для записи ответа, пять кнопок (проверить, показать подсказку, скрыть подсказку, показать решение, скрыть решение) и две надписи(верно или нет, для вывода подсказки) и одно изображение (решение будет храниться в картинках, потому что VBA не поддерживает написание формул).
Задача: {текст задачи}
Двугранный угол при боковом ребре правильной треугольной пирамиды DABC равен 1200. Расстояние от вершины B до бокового ребра AD равно 16 см. Найдите апофему пирамиды (ответ округлите до десятых).
Рис.4
Ответ:
Если вы затрудняетесь в решении, то можете воспользоваться подсказкой.
Если вам не помогает подсказка, вы можете
Код программы:
Событие на нажатие кнопки «Проверить»
Private Sub c1_Click()
If TextBox1.Text = "9.8" Then
Label3.Caption = " Верно!"
Else: Label3.Caption = "Неверно!"
End If
End Sub
Событие на нажатие кнопки «Показать подсказку»
Private Sub CommandButton1_Click()
Label1.Caption = "Как найти сторону ВС из треугольника ВСК?"
End Sub
Событие на нажатие кнопки «Скрыть подсказку»
Private Sub CommandButton2_Click()
Label1.Caption = ""
End Sub