Макрос (или макрокоманда) – это набор действий, которые можно выполнить с помощью одной команды, имеющей имя
Задание
Создать проект «Проверь себя» для проверки навыков устного счёта и знания правил грамматики русского языка
Создайте слайд с заголовком «Математика».
Активизируйте панель инструментов "Вид - панели инструментов - элементы управления".
Разместите на слайде 4 командные кнопки (CommandButton1, 2, 3, 4).
Создание макросов на
языке VBA
Понятие макроса
Макрос (или макрокоманда) – это набор
действий, которые можно выполнить с
помощью одной команды, имеющей имя
В Microsoft Office 95 и 97 макросы
записывались на языке WordBasic, а
начиная с MS Office 2000 – на языке VBA
(Visual Basic for Application).
Создание макросов в Power Point
Задание
Создать проект «Проверь себя» для
проверки навыков устного счёта и знания
правил грамматики русского языка
Создание макросов в Power Point
1. Создайте слайд с заголовком
«Математика».
2. Активизируйте панель
инструментов "Вид - панели
инструментов - элементы
управления".
3. Разместите на слайде 4 командные
кнопки (CommandButton1, 2, 3, 4).
Кнопка
Установка свойств кнопок
В контекстном меню кнопки выбрать Properties (свойства)
Свойства
Создание пользовательской формы
Label4
Label2
Label15
TextBox1
Label12
CommandButton1
Label6
Label13
Программный код загрузки формы
Private Sub UserForm_Activate() ‘активация
формы
n = 0 'количество верных ответов
k = 1 'счётчик примеров
z = Val(InputBox("Введите максимальную границу
для чисел от 10 до 1000"))
Label2.Caption = Label2.Caption & Str(z)
Randomize Timer
a = Int(Rnd * 10) 'создание случайных чисел
для первого примера
b = Int(Rnd * 10)
s = a + b
Label4.Caption = Str(a) 'вывод чисел в метки
Label6.Caption = Str(b)
End Sub
Программный код кнопки «Далее»
Private Sub CommandButton1_Click()
If Val(s) = Val(TextBox1) Then ‘проверка ответа
n = n + 1 ‘количество верных ответов
Label15.Caption = «Верно!"
Else
Label15.Caption = «Неверно!"
End If
k = k + 1 ‘ подсчёт количества примеров
Label12.Caption = "" ‘очистка меток
Label13.Caption = ""
TextBox1 = "" ‘очистка текстового поля для ответа
Randomize Time
a = Int(Rnd * z) + 1 ‘генерация случайных чисел
b = Int(Rnd * z) + 1
s = a + b ‘сумма
Label4.Caption = Str(a) ‘вывод чисел
Label6.Caption = Str(b)
End Sub
Программный код кнопок
«Результат» и «Назад»
Private Sub CommandButton2_Click()
'Результат
Label12.Caption = Str(k)
Label13.Caption = Str(n)
End Sub
Private Sub CommandButton3_Click()
'Назад
End
End Sub
Форма для проверки грамматики
Label1
Label2
TextBox1
CommandButton1
Image1
TextBox8
Label15
Label14
Программный код кнопки «Проверка»
Private Sub CommandButton1_Click()
'Проверка
k = 0 ‘количество верных ответов
If TextBox1 = "жи" Then
k = k + 1: TextBox1.ForeColor = vbGreen
‘выделение зелёным цветом верных ответов
Else
TextBox1.ForeColor = vbRed ‘выделение
красным цветом ошибок
End If
Label14.Caption = Str(k)
Label15.Caption = "Ошибки выделены красным
цветом"
End Sub
Задания для самостоятельной работы
1. Придумайте задания для проверки
знаний по информатике.
2. Подготовьте ребусы на любые
темы.
3. Создайте соответствующие
слайды «Информатика» и
«Ребусы», пользовательские
формы и программные коды.
Пример проекта с макросами
Открыть проект «Проверь себя»
2 през.ppt
