1. Создаем первый слайд презентации. Например, вот такой:
3. Теперь открываем панель "Разработчик"...
4. И находим инструмент "Текстовое поле"
5. Растягиваем рамку для текстового поля в том месте, где хотим его видеть. И нажимаем ставшим активным инструмент "Свойства" (он между словами "Рецензирование" и "Просмотреть код" на рисунке выше). Открывается такое окно:
Настраиваем презентацию так, как написано в предыдущей статье. Тогда нам необходимо как-то попасть с первого слайда на второй. Поэтому, с помощью вкладки "Вставка" - инструмент "Надпись" вставляем слово "Начать" и, как написано в статье "Один вариант ответа правильный" делаем гиперссылку на следующий слайд.
2. Создаем слайд 2. Пишем на нем какой-нибудь вопрос. Или вставляем ссылку на игру в LearningApps, при прохождении которой появляется кодовое слово. Например, так:
4. И находим инструмент "Текстовое поле"
5. Растягиваем рамку для текстового поля в том месте, где хотим его видеть. И нажимаем ставшим активным инструмент "Свойства" (он между словами "Рецензирование" и "Просмотреть код" на рисунке выше). Открывается такое окно:
- Красной рамкой выделено имя текстового поля. В данном случае мы оставляем его без изменений - TextBox1
- Желтой рамкой выделена настройка шрифта. Когда вы щелкнете по этой строке, рядом с названием шрифта появятся три точки. Если вы щелкните по ним, откроется дополнительное окно, в котором вы сможете настроить параметры шрифта для этого текстового окна:
- Зеленой рамкой выделены слова TextAlign - это настройки выравнивания надписи в окне. Тут есть выпадающий список из трех вариантов: 1 - выравнивание по левому краю, 2 - выравнивание по центру и 3 - выравнивание по правому краю.
Когда Вы закончили настраивать параметры текстового поля, просто закройте окно настроек крестиком в верхнем правом углу этого окна - настройки сохранятся.
6. Создаем кнопку проверки.
Для этого на вкладке "Разработчик" выбираем инструмент "Кнопка" и растягиваем её там, где хотим видеть на слайде.
На кнопке появилась надпись CommandButton1, но это мы сейчас исправим.
7. Нажимаем уже знакомый нам инструмент "Свойства", но, поскольку у нас выделена кнопка, сейчас мы настроим свойства кнопки.
- Если инструмент "Свойства" тусклый (не активен), щелкните ЛКМ по вашей кнопке, а потом по свойствам.
- Проверьте, кнопку ли вы настраиваете. Если вдруг в самой верхней строчке написано не CommandButton1, то нажмите на выпадающий список (выделен зелёным кружком на рисунке) и выберите нужную надпись.
- Красный прямоугольник - проверяем имя кнопки и НЕ ТРОГАЕМ в данном случае.
- Синий прямоугольник - это то, что будет написано на вашей кнопке. Смело стираем надпись CommandButton1 и пишем, например, "Проверить".
- Рыжий прямоугольник - настройка шрифта надписи на кнопке, как и в пункте 5.
- Зеленый прямоугольник - выравнивание надписи относительно кнопки. Для того, чтоб она была по центру относительно вертикали и горизонтали - выберите позицию 7.
Для тех, кто хочет знать больше.
Остальные настройки тоже можно менять. Например:
- BackColor - цвет фона кнопки
- Enabled - активность. По умолчанию кнопка включена, т.е. на неё можно нажимать. Если поставить False в этой позиции, и отдельно написать программу, которая будет активировать кнопку при определенных условиях (например, в текстовом поле набрано не менее 10 символов) - она будет активироваться при выполнении этого условия, но в данном конкретном курсе мы эти заниматься не будем.
- MouseIcon - если вы сюда загрузите картинку, то при наведении на объект, свойства которого мы настраиваем, указатель мыши будет принимать вид загруженной картинки.
Продолжаем разговор!
8. Выбираем нашу кнопку, и нажимаем инструмент "Просмотреть код". Откроется такое окно:
В левом столбце написано, что мы работаем на Слайде 2 нашей презентации.
А в большом окне справа мы вписываем такие команды:
Private Sub CommandButton1_Click()
If TextBox1.Text = "2,718281828459045" Then
SlideShowWindows(1).View.Next
TextBox1.Text = ""
End Sub
(Можете не писать, а скопировать вторую и третью строчки. Первая и четвертая уже написаны автоматически).
Первая строка говорит, что действия ниже будут выполняться при нажатии на кнопку, которую зовут CommandButton1
Вторая строка
If TextBox1.Text = "2,718281828459045" Then SlideShowWindows(1).View.Next
означает следующее:
Если в текстовом поле, созданном нами на этом слайде, которое зовут TextBox1 содержится текст 2,718281828459045 тогда перейти на следующий слайд
Третья строка:
TextBox1.Text = ""
очищает текстовое поле после перехода на следующий слайд. Если этой строки не будет, то ответ предыдущего ученика сохранится в текстовом поле, и следующий, открывший презентацию, его увидит. А это не интересно.
Последняя строка, End Sub, просто говорит, что блок действий, которы происходят при нажатии на кнопку 1, закончен.
Теперь, если вы хотите задать еще один вопрос, вы создаете слайд и повторяете все действия, начиная с пункта 2.
ВНИМАНИЕ!
Когда вы будете создавать следующий текстовые поля и кнопки, не забывайте менять им имена в графе Name. Следующее текстовое поле дожно называться TextBox2, а работающая с ним кнопка - CommandButton2.
Если этого не сделать, компьютер не поймет, какую из трех созданных вами CommandButton1 нажали, и какой блок действий необходимо выполнить. Например, какой ответ таки считать правильным.
Если вы хотите закончить презентацию - создайте последний слайд "Круто! ты прошел все задания!" - например, и создайте там кнопку выхода из презентации. Как мы делали это в презентации с выбором одного правильного ответа.
Комментариев нет:
Отправить комментарий