Лист - інструкція створення проекту з використанням VBA. Тренажер

Про матеріал
Інструктивний лист створення тренажеру з використанням VBA у PoverPoint для учнів, що захоплюються інформатикою та класів інформаційно - технологічного профілю.
Перегляд файлу

СТВОРЕННЯ ПРОЕКТУ  З ВИКОРИСТАННЯМ VBAМАКРОСІВ


  1.                Створіть титульний слайд вашого проекту за зразком:

  1. Створіть слайд№2 – Меню, що буде призначене для вибору правила, і слайди з відповідними правилами фонетики і правопису. Налаштуйте гіперпосилання для переходу на слайди.

  1. На слайді №3 розмістить 4 командні кнопки (CommandButton) за допомогою Елементів керування.
  2. За допомогою автофігур створіть на слайді кнопки МЕНЮ та ВИХОД і відповідно налаштуйте їх.

  1. Установіть властивості кнопок за зразком:

Свойство

Пояснение

Значение

Font

шрифт

полужирный, размер 18

ForeColor

Цвет шрифта

произвольный

BackColor

Цвет фона

произвольный

  1. Створіть програмні коди для кожної кнопки для визову користувацьких форм (UserForm). Для цього потрібно виконати подвійне клацання на кнопці і у вікні ввести відповідні команди відкриття  форми:

Private Sub CommandButton1_Click()

 UserForm1.Show

End Sub

Private Sub CommandButton2_Click()

 UserForm2.Show

End Sub

Private Sub CommandButton3_Click()

 UserForm3.Show

End Sub

  1. Додайте у проект користувацькі форми за допомогою команді Insert – UserForm.
  2. Перейдіть на форму UserForm1 та розмістіть на ній необхідні елементи керування.

 

 

  1. Створіть програмний код для кнопки Перевірити:

Private Sub CommandButton1_Click() 'Перевірити

    k = 0        ‘кількість вірних відповідей

    If TextBox1 = "розпис" Then

      k = k + 1   ‘підрахунок кількості вірних відповідей

      TextBox1.ForeColor = vbGreen  ‘виділення вірної відповіді зеленим кольором

    Else

      TextBox1.ForeColor = vbRed   ‘виділення невірної відповіді червоним кольором

    End If

    If TextBox2 = "зсунув" Then

      k = k + 1

      TextBox2.ForeColor = vbGreen

    Else

      TextBox2.ForeColor = vbRed

    End If

    Label4.Caption = Str(k)

    Label5.Caption = "Помилки виділені червоним кольором"

End Sub

Private Sub CommandButton2_Click()  'Назад

    End

End Sub

Private Sub CommandButton3_Click()  'Далі

    UserForm2.Show  ‘перехід до форми наступного завдання

End Sub

Private Sub UserForm_Activate()  ‘Загрузка форми

    k = 0

End Sub

 

  1. Аналогічно створіть програмний код для інших форм.
  2. Збережіть проект із підтримкою макросів.
  3. Звітуйте вчителю.
docx
Додано
1 квітня 2019
Переглядів
552
Оцінка розробки
Відгуки відсутні
Безкоштовний сертифікат
про публікацію авторської розробки
Щоб отримати, додайте розробку

Додати розробку