Создание элемента управления Надпись

1. Щелкните на элементе управления Другие элементы панели Элементы управления и выберите из списка пункт меню Microsoft Form 2.0 Label
2. Изобразите на слайде элемент управления Label
3. Щелкните на нем правой кнопкой мыши и выберите пункт свойства
4. Измените свойства в соответствии с таблицей
5. Сохраните презентацию

6. Щелкните правой кнопкой мыши на любом из созданных на слайде управляющих элементов и выберите пункт Исходный текст. Откроется окно ввода кода:

1. Введите этот код процедур
2. Сохраните презентацию

Private Sub cmdSave_Click()

Const Slaid_Number As String = "Слайд 6"

'Открытие файла с фамилией тестируемого

Open "d:\VB\" & "Фамилия" For Input As #1

Input #1, Name_Input

Close #1

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

Open "d:\VB\Slaid_" & Name_Input For Input As #2

Do While Not EOF(2)

Line Input #2, Slaid

If Slaid = Slaid_Number Then

MsgBox "Задание выполнено, переходите к следующему заданию", vbCritical

Close #2

Exit Sub 'Выход из процедуры cmdSave

End If

Loop

Close #2

'Запрос на разрешение записи результата выполнения задания

Unswer = vbYesNo + vbExclamation

Button = MsgBox(" Записать? После записи нельзя вносить изменения в ответ.", Unswer, "Запись выполненного задания")

'Запись номера слайда в файл регистрации номеров слайдов

If (Button = vbYes) Then

Open "d:\VB\Slaid_" & Name_Input For Append As #3

Print #3, Slaid_Number

Close #3

' Запись результата выполнения зхадания в файл регистрации ответов

Open "d:\VB\" & Name_Input & ".rtf" For Append As #1

Print #1, Slaid_Number

Print #1, Now

Print #1, Lblchoice.Caption

Print #1,

Close #1

End If

End Sub

Private Sub chkdifficult_Click()

updatelebel

End Sub

Private Sub chkIncomplete_Click()

updatelebel

End Sub

Private Sub chkrepeatuntil_Click()

updatelebel

End Sub

Private Sub chkselection_Click()

updatelebel

End Sub

Private Sub optlevel1_Click()

updatelebel

End Sub

Private Sub optlevel2_Click()

updatelebel

End Sub

Private Sub optlevel3_Click()

updatelebel

End Sub

Public Sub updatelebel()

Dim output As String

Dim outputstring As String

outputstring = Chr(13) + Chr(10)

'для флажка "треугольник"

If chkIncomplete.Value = True Then

output = "треугольник"

Else

output = " "

End If

'для флажка "круг"

If chkrepeatuntil.Value = True Then

output = output + outputstring + "круг"

Else

output = output + outputstring + " "

End If

'для флажка "ромб"

If chkselection.Value = True Then

output = output + outputstring + "ромб"

Else

output = output + outputstring + " "

End If

'для флажка "затрудняюсь ответить"

If chkdifficult.Value = True Then

output = output + outputstring + "затрудняюсь ответить"

Else

output = output + outputstring + " "

End If

Lblchoice.Caption = output

End Sub

Все элементы управления создаются аналогично предыдущим слайдам. Рассмотрим только создание Переключателя

Он используется для выбора оного варианта ответа из нескольких:

1. Щелкните на элементе управления OptionButton
2. Изобразите на слайде элемент управления OptionButton
3. Щелкните на нем правой кнопкой мыши и выберите пункт свойства
4. Измените свойства в соответствии с таблицей
5. Повторите четыре раза п.1-4
6. Сохраните презентацию

7.Введите код процедур:

Private Sub cmdSave_Click()

Const Slaid_Number As String = "Слайд 7"

'Открытие файла с фамилией тестируемого

Open "d:\VB\" & "Фамилия" For Input As #1

Input #1, Name_Input

Close #1

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

Open "d:\VB\Slaid_" & Name_Input For Input As #2

Do While Not EOF(2)

Line Input #2, Slaid

If Slaid = Slaid_Number Then

MsgBox "Задание выполнено, переходите к следующему заданию", vbCritical

Close #2

Exit Sub 'Выход из процедуры cmdSave

End If

Loop

Close #2

'Запрос на разрешение записи результата выполнения задания

Unswer = vbYesNo + vbExclamation

Button = MsgBox(" Записать? После записи нельзя вносить изменения в ответ.", Unswer, "Запись выполненного задания")

'Запись номера слайда в файл регистрации номеров слайдов

If (Button = vbYes) Then

Open "d:\VB\Slaid_" & Name_Input For Append As #3

Print #3, Slaid_Number

Close #3

' Запись результата выполнения зхадания в файл регистрации ответов

Open "d:\VB\" & Name_Input & ".rtf" For Append As #1

Print #1, Slaid_Number

Print #1, Now

Print #1, Lblchoice.Caption

Print #1,

Close #1

End If

End Sub

Private Sub optdif_Click()

updatelebel

End Sub

Private Sub Optkr_Click()

updatelebel

End Sub

Private Sub Optre_Click()

updatelebel

End Sub

Private Sub optsu_Click()

updatelebel

End Sub

Public Sub updatelebel()

Dim output

If Optkr.Value = True Then

output = "бит"

End If

If OptRe.Value = True Then

output = "байт"

End If

If Optsu.Value = True Then

output = "пиксель"

End If

If optdif.Value = True Then

output = "затрудняюсь ответить"

End If

Lblchoice.Caption = output

End Sub

1. Сохраните презентацию