Программы для слайдов 2,3,4,5,6

Состоят из 13 процедур. Условно разобьем программу на 6 модулей. Текст программы для слайда 2:

'Слайд 2

модуль1

'Активизация переключателей 1-12

Private Sub OptionButton1_Click()

End Sub

Private Sub OptionButton2_Click()

End Sub

Private Sub OptionButton3_Click()

End Sub

Private Sub OptionButton4_Click()

End Sub

Private Sub OptionButton5_Click()

End Sub

Private Sub OptionButton6_Click()

End Sub

Private Sub OptionButton7_Click()

End Sub

Private Sub OptionButton8_Click()

End Sub

Private Sub OptionButton9_Click()

End Sub

Private Sub OptionButton10_Click()

End Sub

Private Sub OptionButton11_Click()

End Sub

Private Sub OptionButton12_Click()

End Sub

Модуль2

'Обработка ответов - кнопка "Далее"

Private Sub Commandbutton1_click()

Dim Flag_1 As Boolean

Dim Flag_2 As Boolean

Dim Flag_3 As Boolean

'Проверка активизации переключателя для первого вопроса

If (Not OptionButton1.Value) And (Not OptionButton2.Value) And (Not OptionButton3.Value) And (Not OptionButton4.Value) Then

Flag_1 = False

Else

Flag_1 = True

End If

'проверка активизации переключателя для второго вопроса

If (Not OptionButton5.Value) And (Not OptionButton6.Value) And (Not OptionButton7.Value) And (Not OptionButton8.Value) Then

Flag_2 = False

Else

Flag_2 = True

End If

'проверка активизации переключателя для третьего вопроса

If (OptionButton9.Value = False) And (OptionButton10.Value = False) And (OptionButton11.Value = False) And (OptionButton12.Value = False) Then

Flag_3 = False

Else

Flag_3 = True

End If

Модуль3

'ошибка! не выбран ответ на первый вопрос

If Flag_1 = False Then

MsgBox "Вы не ответили на первый вопрос.", vbQuestion

Exit Sub

End If

'ошибка! не выбран ответ на второй вопрос

If Flag_2 = False Then

MsgBox "Вы не ответили на второй вопрос.", vbQuestion

Exit Sub

End If

'ошибка! не выбран ответ на третий вопрос

If Flag_3 = False Then

MsgBox "Вы не ответили на третий вопрос.", vbQuestion

Exit Sub

End If

Модуль4

'запись результата тестирования для данного слайда

Open "D:\T\Результат тестирования.txt" For Append As 1

If OptionButton2.Value Then

Print #1, "1"

Else

Print #1, "0"

End If

If OptionButton6.Value Then

Print #1, "1"

Else

Print #1, "0"

End If

If OptionButton9.Value Then

Print #1, "1"

Else

Print #1, "0"

End If

Close #1

Модуль5

'установка переключателей в неактивное состояние

OptionButton1.Value = False

OptionButton2.Value = False

OptionButton3.Value = False

OptionButton4.Value = False

OptionButton5.Value = False

OptionButton6.Value = False

OptionButton7.Value = False

OptionButton8.Value = False

OptionButton9.Value = False

OptionButton10.Value = False

OptionButton11.Value = False

OptionButton12.Value = False

Модуль6

'преход к слайду 3

With SlideShowWindows(1).View

.GotoSlide 3

End With

End Sub

Модуль1 объединяет процедуры активизации переключателей трех групп, расположенных на слайде. После активизации переключателей ученик щелкает по кнопке «Далее». Возможны два варианта работы. Первый вариант соответствует случаю, когда ученик забыл выбрать ответ на один из вопросов, т.е. не активизировал переключатели. (модуль1). Результатом является сообщение об ошибке с указанием пропущенного вопроса (модуль3) и ученику вновь предлагается активизировать переключатель из группы, соответствующий этому вопросу. Второй вариант заключается в том, что выбраны ответы на все вопросы слайда. В этом случае в текстовый файл Результат тестирования.txt записывается 1 для каждого верного ответа и 0 – для неверного. Модуль 4 содержит информацию о «верных» переключателях. (активизация переключателей – 2,6,9 для слайда 2)

Для восстановления исходного состояния элементов управления служит модуль5, в котором все переключатели переводятся в неактивное состояние.

На заключительном этапе выполняется модуль 6, обеспечивающий переход к указанному в нем слайду.

Тексты процедур для слайдов 3,4,5,6 аналогичны приведенному выше для слайда 2, за исключением модулей 4 и 6. Ниже приведены тексты модулей 4 и 6 для слайдов 3,4,5,6:

Для слайда 3:

Модуль4

'запись результата тестирования для данного слайда

Open "D:\T\Результат тестирования.txt" For Append As 1

If OptionButton1.Value Then

Print #1, "1"

Else

Print #1, "0"

End If

If OptionButton8.Value Then

Print #1, "1"

Else

Print #1, "0"

End If

If OptionButton11.Value Then

Print #1, "1"

Else

Print #1, "0"

End If

Close #1

Модуль6

'преход к слайду 3

With SlideShowWindows(1).View

.GotoSlide 4

End With

End Sub