4.2 Пароль:

Далее следует окно,где необходимо ввести пароль,в нашем случае он равен «1234»:

If ПарольTextBox.Text = "1234" Then

Me.Hide()

правила.Show()

Else

MessageBox.Show("Неверный логин или пароль", "Ошибка", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)

End If

4.3 Правила:

При нажатии на кнопку «Далее» открывается новое окно «Правила».

Нажав на кнопку «Начать тестирование» мы переходим к первому вопросу: Me.Hide() 'закрыть текущую форму

Вопрос1.Show() 'открыть следующую форму

4.4 Таймер:

В первом вопросе находится код таймера,который далее встречается на всех остальных формах с вопросами: date1 = date1.AddSeconds(-1) ' Время таймера равно периоду AddSeconds(-1)

ТаймерLabel.Text = date1.ToString("mm:ss") ' Показания таймера выводятся в метку, задаётся формат таймера ("mm:ss")

If ТаймерLabel.Text = date1.ToString("00:00") Then 'Если таймер будет "00:00" то

Me.Hide()'закрытие этой формы и

времяВышло.Show() 'вывод формы "времяВышло".

End If

Кроме таймера на форме с первым вопросом и с последующими так же находятся коды, с помощью которых мы можем перейти к любому вопросу нажав на кнопку с номером этого вопроса:

Например при нажатии на кнопку «1»:

Me.Hide()'закрыть текущую форму

Вопрос1.Show()'открыть следующую форму

4.5 Неотвеченные вопросы:

На последнем 15 вопросе, на кнопке далее есть код,который проверяет на все ли вопросы ответил тестирующий.Если существует хотя бы один неотвеченный вопрос, приложение выводит соответствующее предупреждение:

If Вопрос1.RadioButtonответ1.Checked = False And Вопрос1.ответ2.Checked = False And Вопрос1.ответ2.Checked = False And Вопрос1.ответ4.Checked = False Then 'если ответ1,ответ2, ответ3, ответ4 неотвечены,то:

X = X + 1 'к переменной неотвеченных ответов прибавляем 1

End If

If вопрос2.ответ4.Checked = False And вопрос2.ответ3.Checked = False And вопрос2.ответ2.Checked = False And вопрос2.ответ1.Checked = False Then

X = X + 1

End If

If вопрос3.ответ3.Checked = False And вопрос3.ответ2.Checked = False And вопрос3.ответ1.Checked = False And вопрос3.ответ4.Checked = False Then

X = X + 1

End If

If вопрос4.списокComboBox.Text = "" Then 'если в комбинированном списке пусто,то:

X = X + 1 'к переменной неотвеченных ответов прибавляем 1

End If

If вопрос5.ответ2.Checked = False And вопрос5.ответ1.Checked = False And вопрос5.ответ3.Checked = False And вопрос5.ответ4.Checked = False Then

X = X + 1

End If

If вопрос6.ответTextBox.Text = "" Then

X = X + 1

End If

If вопрос7.ОтветCheckBox1.Checked = False And вопрос7.ОтветCheckBox2.Checked = False And вопрос7.ОтветCheckBox3.Checked = False And вопрос7.ОтветCheckBox4.Checked = False Then

X = X + 1

End If

If вопрос8.списокComboBox.Text = "" Then

X = X + 1

End If

If вопрос9.ответTextBox.Text = "" Then

X = X + 1

End If

If вопрос10.списокComboBox.Text = "" Then

X = X + 1

End If

If вопрос11.ответ1.Checked = False And вопрос11.ответ2.Checked = False And вопрос11.ответ3.Checked = False And вопрос11.ответ4.Checked = False Then

X = X + 1

End If

If вопрос12.ответ3.Checked = False And вопрос12.ответ4.Checked = False And вопрос12.ответ2.Checked = False And вопрос12.ответ1.Checked = False Then

X = X + 1

End If

If вопрос13.Ответ2.Checked = False And вопрос13.ответ4.Checked = False And вопрос13.Ответ1.Checked = False And вопрос13.ответ3.Checked = False Then

X = X + 1

End If

If вопрос14.ответ2.Checked = False And вопрос14.ответ1.Checked = False And вопрос14.ответ3.Checked = False And вопрос14.ответ4.Checked = False Then

X = X + 1

End If

If Me.Ответ1.Checked = False And Me.Ответ2.Checked = False And Me.ответ3.Checked = False And Me.ответ4.Checked = False Then

X = X + 1

End If

If X > 0 Then 'если имеются вопросы,на которые не даны ответы, то:

Dim resultat As DialogResult 'объявляем переменную

resultat = MessageBox.Show("Имеются вопросы,на которые не даны ответы.Продолжить?", "Предупреждение", MessageBoxButtons.OKCancel, MessageBoxIcon.Asterisk) 'выводим предупреждающее сообщение

If resultat = DialogResult.OK Then 'если выбран ответ "Да", то:

результаты.Show() 'переход к форме результаты

Me.Hide()

ElseIf resultat = DialogResult.Cancel Then

X = 0

End If

ElseIf X = 0 Then

Dim result As DialogResult

result = MessageBox.Show("Вы хотите завершить тестирование и перейти к результатам?", _

"Завершение тестирования", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Asterisk)

If result = DialogResult.Yes Then

результаты.Show()

Me.Hide()

End If

End If

4.6.Результаты: После завершения теста появляется форма с правильными ответами,неправильными ответами,процентом правильных ответов и оценкой:

If Вопрос1.RadioButtonответ1.Checked = True Then 'Если выбран верный ответ,то:

A = A + 1 'К переменной правильных ответов прибавляем 1

Else

T = T + 1 'К переменной неправильных ответов прибавляем 1

End If

If вопрос2.ответ4.Checked = True Then 'Если выбран верный ответ,то:

A = A + 1 'К переменной правильных ответов прибавляем 1

Else

T = T + 1 'К переменной неправильных ответов прибавляем 1

End If

If вопрос3.ответ3.Checked = True Then 'Если выбран верный ответ,то:

A = A + 1 'К переменной правильных ответов прибавляем 1

Else

T = T + 1 'К переменной неправильных ответов прибавляем 1

End If

If вопрос4.списокComboBox.Text = "Файловые системы" Then 'Если выбран верный ответ,то:

A = A + 1 'К переменной правильных ответов прибавляем 1

Else

T = T + 1 'К переменной неправильных ответов прибавляем 1

End If

If вопрос5.ответ2.Checked = True Then 'Если выбран верный ответ,то:

A = A + 1 'К переменной правильных ответов прибавляем 1

Else

T = T + 1 'К переменной неправильных ответов прибавляем 1

End If

If вопрос6.ответTextBox.Text = "ППО" Then 'Если выбран верный ответ,то:

A = A + 1 'К переменной правильных ответов прибавляем 1

Else

T = T + 1 'К переменной неправильных ответов прибавляем 1

End If

If вопрос7.ОтветCheckBox1.Checked = True And вопрос7.ОтветCheckBox2.Checked = True Then 'Если выбран верный ответ,то:

A = A + 1 'К переменной правильных ответов прибавляем 1

Else

T = T + 1 'К переменной неправильных ответов прибавляем 1

End If

If вопрос8.списокComboBox.Text = "последовательная загрузка файлов ОС в оперативную память" Then 'Если выбран верный ответ,то:

A = A + 1 'К переменной правильных ответов прибавляем 1

Else

T = T + 1 'К переменной неправильных ответов прибавляем 1

End If

If вопрос9.ответTextBox.Text = "загрузки ОС" Then 'Если выбран верный ответ,то:

A = A + 1 'К переменной правильных ответов прибавляем 1

Else

T = T + 1 'К переменной неправильных ответов прибавляем 1

End If

If вопрос10.списокComboBox.Text = "ОС, Тota Commander, антивирусные пр-мы" Then 'Если выбран верный ответ,то:

A = A + 1 'К переменной правильных ответов прибавляем 1

Else

T = T + 1 'К переменной неправильных ответов прибавляем 1

End If

If вопрос11.ответ1.Checked = True Then 'Если выбран верный ответ,то:

A = A + 1 'К переменной правильных ответов прибавляем 1

Else

T = T + 1 'К переменной неправильных ответов прибавляем 1

End If

If вопрос12.ответ3.Checked = True Then 'Если выбран верный ответ,то:

A = A + 1 'К переменной правильных ответов прибавляем 1

Else

T = T + 1 'К переменной неправильных ответов прибавляем 1

End If

If вопрос13.Ответ2.Checked = True And вопрос13.ответ4.Checked = True Then 'Если выбран верный ответ,то:

A = A + 1 'К переменной правильных ответов прибавляем 1

Else

T = T + 1 'К переменной неправильных ответов прибавляем 1

End If

If вопрос14.ответ2.Checked = True Then 'Если выбран верный ответ,то:

A = A + 1 'К переменной правильных ответов прибавляем 1

Else

T = T + 1 'К переменной неправильных ответов прибавляем 1

End If

If вопрос15.Ответ1.Checked = True Then 'Если выбран верный ответ,то:

A = A + 1 'К переменной правильных ответов прибавляем 1

Else

T = T + 1 'К переменной неправильных ответов прибавляем 1

End If

количествоLabel.Text = A ' Вывод количество правильных ответов

Dim P As Integer ' Введены новые переменные

P = A * 100 / 15

Select Case A

Case 14 To 15 ‘если A находится в пределах от 14 до 15 то

оценкаLabel.Text = "5"

Case 12 To 13 ‘если A находится в пределах от 12 до 13 то

оценкаLabel.Text = "4"

Case 9 To 11 ‘если A находится в пределах от 9 до 11 то

оценкаLabel.Text = "3"

Case 0 To 8 ‘если A находится в пределах от 0 до 8 то

оценкаLabel.Text = "2"

End Select

процентLabel.Text = P 'Вывод процента

неправLabel.Text = T 'Вывод количества неправильных ответов

4.7 Подробный отчет: Подробный отчет мы можем увидеть нажав на кнопку «Подробный отчет»:

Me.Hide() 'закрыть текущую форму

Подробный отчет.Show() 'открыть следующую форму

Код, осуществляющий подробный отчет: If Вопрос1.RadioButtonответ1.Checked = True Then ' Если выбрали правильный ответ, то(Для RadioButton) :

Label1.Text = "1) Верно" ' вывод "Верно" и

Label1.ForeColor = Color.Red ' цвет текста меняется на красный

Else

Label1.Text = "1) Неверно" ' вывод "Неверно".Цвет текста остается прежний.

End If

If вопрос2.ответ4.Checked = True Then

Label2.Text = "2) Верно"

Label2.ForeColor = Color.Red

Else

Label2.Text = "2) Неверно"

End If

If вопрос3.ответ3.Checked = True Then

Label3.Text = "3) Верно"

Label3.ForeColor = Color.Red

Else

Label3.Text = "3) Неверно"

End If

If вопрос4.списокComboBox.Text = "Файловые системы" Then 'Если выбран верный ответ "Файловые системы", то(Для комбинированного списка ComboBox):

Label4.Text = "4) Верно" ' вывод "Верно" и

Label4.ForeColor = Color.Red ' цвет текста меняется на красный

Else

Label4.Text = "4) Неверно" ' вывод "Неверно".Цвет текста остается прежний.

End If

If вопрос5.ответ2.Checked = True Then

Label5.Text = "5) Верно"

Label5.ForeColor = Color.Red

Else

Label5.Text = "5) Неверно"

End If

If вопрос6.ответTextBox.Text = "ППО" Then Then 'Если введен верный ответ "ППО", то(Для TextBox):

Label6.Text = "6) Верно" ' вывод "Верно" и

Label6.ForeColor = Color.Red ' цвет текста меняется на красный

Else

Label6.Text = "6) Неверно" ' вывод "Неверно".Цвет текста остается прежний.

End If

If вопрос7.ОтветCheckBox1.Checked And вопрос7.ОтветCheckBox2.Checked = True Then ' 'Если выбраны оба верных ответа то(Для CheckBox):

Label7.Text = "7) Верно" ' вывод "Верно" и

Label7.ForeColor = Color.Red ' цвет текста меняется на красный

Else

Label7.Text = "7) Неверно" ' вывод "Неверно".Цвет текста остается прежний.

End If

If вопрос8.списокComboBox.Text = "последовательная загрузка файлов ОС в оперативную память" Then

Label8.Text = "8) Верно"

Label8.ForeColor = Color.Red

Else

Label8.Text = "8) Неверно"

End If

If вопрос9.ответTextBox.Text = "загрузки ОС" Then

Label9.Text = "9) Верно"

Label9.ForeColor = Color.Red

Else

Label9.Text = "9) Неверно"

End If

If вопрос10.списокComboBox.Text = "ОС, Тota Commander, антивирусные пр-мы" Then

Label10.Text = "10) Верно"

Label10.ForeColor = Color.Red

Else

Label10.Text = "10) Неверно"

End If

If вопрос11.ответ1.Checked = True Then

Label11.Text = "11) Верно"

Label11.ForeColor = Color.Red

Else

Label11.Text = "11) Неверно"

End If

If вопрос12.ответ3.Checked = True Then

Label12.Text = "12) Верно"

Label12.ForeColor = Color.Red

Else

Label12.Text = "12) Неверно"

End If

If вопрос13.Ответ2.Checked And вопрос13.ответ4.Checked = True Then '

Label13.Text = "13) Верно"

Label13.ForeColor = Color.Red

Else

Label13.Text = "13) Неверно"

End If

If вопрос14.ответ2.Checked = True Then

Label14.Text = "14) Верно"

Label14.ForeColor = Color.Red

Else

Label14.Text = "14) Неверно"

End If

If вопрос15.Ответ1.Checked Then

Label15.Text = "15) Верно"

Label15.ForeColor = Color.Red

Else

Label15.Text = "15) Неверно"

End If

End Sub