Тест "Атомная и ядерная физика"
Автор: Галкин Алексей Валентинович
Тест "Атомная и ядерная физика"
Методические рекомендации: Метод_сопровожд__Галкин.docx
Скачать урок
(0,96 Мб)
Предлагаю, немного изменить код проверки
Вот "тело" кнопки
If TextBox1 = "4" Then
L = L + 1
Label1.Caption = "Верно"
TextBox1.Locked = True
Else
Label1.Caption = "Неверно"
TextBox1.Locked = True
End If
Locked - блокирует поле и при верном и при неверном вводе ответа. Тогда ребята совсем не смогут жульничать.
Попробуйте, думаю Вам так больше понравится.
Исходя из того, что вам больше нужно для данного теста.
1) Или вообще убрать поле "Верно-Неверно" и только в конце показывать результат.
2) Или надпись на кнопке Проверка программно поменять на Далее после нажатия). Тогда она тоже второй раз проверять не будет. Люблю, когда кнопок меньше.
3) А что непонятно по шаблону Комаровского? Пишите вопросы. Отвечу. Я с ним работаю.
С уважением, Елена Юрьевна
Елена Юрьевна, согласен с Вами, что надо будет сделать выбор между "Верно - Неверно" и конечным результатом. Пока все "щупаю" и разбираюсь.
Альфуся Борисовна и Елена Юрьевна,спасибо за помощь и советы!!!
С уважением, Алексей Валентинович
Slide10.TextBox1.Locked = False
Номер слайда ищите в обозревателе свойств
Но, честно говоря, я ее не очень люблю. Иногда наизменяешь что-то в презентации. Забудешь про нее. И ничего не сохранится. Но в конце работы она очень полезна. Когда презентация уже сделана, поставьте ее и не надо будет ничего очищать.
С уважением, Елена Юрьевна.
Забыла написать, что Верно-Неверно можно убирать, можно нет. Это по Вашему желанию. Вы можете проверять по одному вопросу, показывая Верно-Неверно и блокируя поле для ввода текста. А можете проверять весь текст. Тогда убирайте Верно-Неверно.
С уважением, Елена Юрьевна.
Может быть не там прописали команды.
Private Sub CommandButton2_Click()
OptionButton1.Locked = True
OptionButton2.Locked = True
OptionButton3.Locked = True
OptionButton4.Locked = True
Label1.Caption = ""
If OptionButton1.Value = True And OptionButton4.Value = False And OptionButton2.Value = False And OptionButton3.Value = False Then
Label1.Caption = "Верно"
Else
Label1.Caption = "Неверно"
End If
End Sub