Тест с вводом одного слова (ответа) в MS PowerPoint 2007

Тест с вводом одного слова (ответа) в MS PowerPoint 2007 Для работы с данной категорией тестов используется вкладка РАЗРАБОТЧИК. Данная вкладка не является открываемой стандартно в MS PowerPoint. Для ее открытия выберите в левой верхней части программы кнопку Office. В открывшемся меню выберите Параметры PowerPoint . В появившемся окне на вкладке Основные установите галочку в пункте Показывать вкладку Разработки на ленте. После этого становится доступна вкладка Разработки в окне программы MS PowerPoint.При создании теста с вводом текста используются макросы. Поэтому необходимо настроить показ презентации с макросами. Для этого выполните следующие действия. 1. На вкладке РАЗРАБОТЧИК нажмите кнопку 2. В открывшемся окне на вкладке Параметры макросов установите переключатель в положение Включить все макросы (не рекомендуется, возможен запуск опасной программы) разгадывать ребусы. Презентация состоит из 7 слайдов. Перейдем к описанию теста. Данный тест используется для проверки умения учащихся 1 слайд – Название презентации 2,3,4,5,6 слайды – ребусы 7 слайд – результаты теста. Первый слайд содержит кнопку перейти к непосредственному решению ребусов. , которая позволяет Рассмотрим слайды с ребусами.Для создания поля ввода ответа использовался инструмент Поле создания кнопки Следующий вопрос , а для – инструмент Кнопка прост: . Принцип работы с данными инструментами 1. Выбрать нужный инструмент. 2. Щелкнуть в нужном месте. 3. Нажать кнопку на вкладке РАЗРАБОТЧИК и в появившемся окне указать нужные параметры (цвет заливки, шрифт и т.п.) 4. Затем дважды нажать на инструмент (или нажать кнопку на вкладке РАЗРАБОТЧИК), зайдя тем самым в режим Visual Basic и написать текст программного кода. 5. Закрыть окно Visual Basic и продолжить работу в среде MS PowerPoint.для него необходимо После создания поля ввода ответа написать программу на языке Visual Basic. Например, для ребуса под номером 1 эта программа будет такова: Private Sub CommandButton2_Click() End Sub Private Sub CommandButton1_Click() If TextBox1.Text = “семья” Or TextBox1.Text = “Семья” Or pr = pr + 1 Else osh = osh + 1 TextBox1.Text = “” End If z = z + 1 SlideShowWindows(1).View.Next End Sub Private Sub OptionButton1_Click() End Sub Private Sub OptionButton2_Click() End Sub Private Sub TextBox1_Change() End Sub Для ребуса под номером 2 программа будет аналогичной, кроме строки, выделенной красным цветом. Отличие будет состоять в том, что ответом на первый ребус будет СЛОВАРЬ. Поэтому данная строка будет иметь вид. If TextBox1.Text = “словарь” Or TextBox1.Text = “Словарь” Or TextBox1.Text = “СЛОВАРЬ” Or TextBox1.Text = “сЛОВАРЬ” Then Для ребуса под номером 3 (машина): If TextBox1.Text = “машина” Or TextBox1.Text = “Машина” Or Для ребуса под номером 4 (человек): If TextBox1.Text = “человек” Or TextBox1.Text = “Человек” Or Для ребуса под номером 5 (королева): If TextBox1.Text = “королева” Or TextBox1.Text = “Королева” Or TextBox1.Text = “ЧЕЛОВЕК” Or TextBox1.Text = “чЕЛОВЕК” Then TextBox1.Text = “МАШИНА” Or TextBox1.Text = “мАШИНА” Then TextBox1.Text = “СЕМЬЯ” Or TextBox1.Text = “сЕМЬЯ” Then TextBox1.Text = “КОРОЛЕВА” Or TextBox1.Text = “кОРОЛЕВА” Then. Используя в тесте вопросы, подразумевающие ввод правильного ответа, следует помнить о том, что учащиеся могут вписать ответ с разными параметрами: с заглавной буквы, строчными буквами, весь ответ заглавными и т.п. Поэтому надо четко формулировать вопрос и при проверке учесть все возможные варианты. Именно эти варианты иперечислены в указанной выше строчки. Соответственно, правильным будет считаться любой из введенных вариантов: Семья СЕМЬЯ сЕМЬЯ семья Если необходимо добавить еще несколько вариантов скопируйте часть выражения Or TextBox1.Text = «тест ответа» и укажите дополнительные варианты. имеет следующий программный код Кнопка (ребус №1): Private Sub CommandButton2_Click() End Sub Private Sub CommandButton1_Click() If TextBox1.Text = “семья” Or TextBox1.Text = “Семья” Or TextBox1.Text = “СЕМЬЯ” Or TextBox1.Text = “сЕМЬЯ” Then pr = pr + 1 Else osh = osh + 1 TextBox1.Text = “” End If z = z + 1 SlideShowWindows(1).View.Next End Sub Private Sub OptionButton1_Click() End Sub Private Sub OptionButton2_Click() End Sub Private Sub TextBox1_Change() End Sub Для последующих кнопок (слайды 3,4,5,6) меняется только строка, выделенная красным цветом. Представленный программный продукт содержит только 5 ребусов (в связи с ограничением размера предоставляемых на конкурс материалов). Если Ваша программа будет содержать большее количество заданий, просто скопируйте слайд и измените коды для поля ввода и кнопки (меняются только строки, выделенные красным цветом). Перейдем к слайду №7, содержащему результаты теста.Sub Поле вывода Всего вопросов Private Sub OptionButton1_Click() End Sub Private Sub OptionButton2_Click() End Sub Private CommandButton2_Click() Label1.Caption = z Label2.Caption = pr p = (pr / z) * 100 Label3.Caption = p If p >= 85 Then Label4.Caption = “Отлично” End If If p < 85 And p > 50 Then Label4.Caption = “Хорошо” End If If p <= 50 And p >= 25 Then Label4.Caption “Удовлетворительно” End If If p < 25 Then Label4.Caption “Неудовлетворительно” End If End Sub Private CommandButton1_Click() Slide25.Application.Quit End Sub Private Sub Label1_Click() End Sub Private Sub Label2_Click() End Sub Поле вывода Процент правильных ответов Private Sub OptionButton1_Click() End Sub Private Sub OptionButton2_Click() End Sub Private CommandButton2_Click() Label1.Caption = z Label2.Caption = pr p = (pr / z) * 100 Label3.Caption = p = = Sub Sub Sub Поле вывода Правильных ответов Private Sub OptionButton1_Click() End Sub Private Sub OptionButton2_Click() End Sub Private CommandButton2_Click() Label1.Caption = z Label2.Caption = pr p = (pr / z) * 100 Label3.Caption = p If p >= 85 Then Label4.Caption = “Отлично” End If If p < 85 And p > 50 Then Label4.Caption = “Хорошо” End If If p <= 50 And p >= 25 Then Label4.Caption “Удовлетворительно” End If If p < 25 Then Label4.Caption “Неудовлетворительно” End If End Sub Private CommandButton1_Click() Slide25.Application.Quit End Sub Private Sub Label1_Click() End Sub Private Sub Label2_Click() End Sub Поле вывода Оценка = = Sub Private Sub OptionButton1_Click() End Sub Private Sub OptionButton2_Click() End Sub Private CommandButton2_Click() Label1.Caption = z Label2.Caption = pr p = (pr / z) * 100 Label3.Caption = p SubIf p >= 85 Then Label4.Caption = “Отлично” End If If p < 85 And p > 50 Then Label4.Caption = “Хорошо” End If If p <= 50 And p >= 25 Then Label4.Caption “Удовлетворительно” End If If p < 25 Then Label4.Caption “Неудовлетворительно” End If End Sub Private CommandButton1_Click() Slide25.Application.Quit End Sub Private Sub Label1_Click() End Sub Private Sub Label2_Click() End Sub Private Sub Label3_Click() End Sub = = Sub If p >= 85 Then Label4.Caption = “Отлично” End If If p < 85 And p > 50 Then Label4.Caption = “Хорошо” End If If p <= 50 And p >= 25 Then Label4.Caption “Удовлетворительно” End If If p < 25 Then Label4.Caption “Неудовлетворительно” End If End Sub Private CommandButton1_Click() Slide25.Application.Quit End Sub Private Sub Label1_Click() End Sub Private Sub Label2_Click() End Sub Private Sub Label3_Click() End Sub Private Sub Label4_Click() End Sub = = Sub Кнопка . Нажмите на данную кнопку, чтобы заполнить поля «Всего вопросов», «Правильных ответов», «Процент правильных ответов», «Оценка». Private Sub OptionButton1_Click() End Sub Private Sub OptionButton2_Click() End Sub Private Sub CommandButton2_Click() Label1.Caption = z Label2.Caption = pr p = (pr / z) * 100 Label3.Caption = p If p >= 85 Then Label4.Caption = “Отлично” End If If p < 85 And p > 50 Then Label4.Caption = “Хорошо” End If If p <= 50 And p >= 25 ThenLabel4.Caption = “Удовлетворительно” End If If p < 25 Then Label4.Caption = “Неудовлетворительно” End If End Sub Private Sub CommandButton1_Click() Slide25.Application.Quit End Sub Private Sub Label1_Click() End Sub Private Sub Label2_Click() End Sub Private Sub Label3_Click() End Sub Private Sub Label4_Click() End Sub Кнопка . Нажмите на данную кнопку для выхода из презентации. Private Sub OptionButton1_Click() End Sub Private Sub OptionButton2_Click() End Sub Private Sub CommandButton2_Click() Label1.Caption = z Label2.Caption = pr p = (pr / z) * 100 Label3.Caption = p If p >= 85 Then Label4.Caption = “Отлично” End If If p < 85 And p > 50 Then Label4.Caption = “Хорошо” End If If p <= 50 And p >= 25 Then Label4.Caption = “Удовлетворительно” End If If p < 25 Then Label4.Caption = “Неудовлетворительно” End If End Sub Private Sub CommandButton1_Click() Slide25.Application.Quit End Sub Private Sub Label1_Click()End Sub Private Sub Label2_Click() End Sub Private Sub Label3_Click() End Sub Private Sub Label4_Click() End Sub СПАСИБО ЗА ВНИМАНИЕ! Источники:  http://zna-i-ka.narod.ru/rebusi/rebusi.html - ребусы  картинки взяты с Интернета (источник утерян)  фон взят с интернета (ссылка утеряна)