Form4_Презентація=Application.StartupPath + « МЕНЮ.ppt» _Form4_Презентація.Show () (6)=b (6) + 1b (6) <= 3 Then Pravelno +=1
'Контраст (eX> 364) And (eX <388) And (eY> 445) And (eY <466) And a (i)=a (7) Then («Мабуть») _Form4_Презентація =New Form4_Презентація=Application.StartupPath + « Контраст.ppt» _Form4_Презентація.Show () (7)=b (7) + 1b (7) <= 3 Then Pravelno +=1
'Яскравість (eX> 325) And (eX <346) And (eY> 440) And (eY <461) And a (i)=a (8) Then («Мабуть») _Form4_Презентація =New Form4_Презентація=Application.StartupPath + « Яркость.ppt» _Form4_Презентація.Show () (8)=b (8) + 1b (8) <= 3 Then Pravelno +=1
'Гучність (eX> 750) And (eX <770) And (eY> 70) And (eY <90) And a (i)=a (9) Then («Мабуть») _Form4_Презентація =New Form4_Презентація=Application.StartupPath + « Громкость.ppt» _Form4_Презентація.Show () (9)=b (9) + 1b (9) <= 3 Then Pravelno +=1 +=1 («Помилка» ) IfPravelno=30 Then
MsgBox («Вітаємо з успішним закінченням курсу навчання,» + vbCrLf + «для відповіді на 30 питань ви зробили» + CStr (max) + «спроб»). Hide () _Form2_Главная_форма.Show () SubIf
'скидаємо лічильник повтору питання
povtor_voprosa=0 () Sub
Sub Vopros ()
'вибираємо питання випадковим чином ()=Int (10 * Rnd ())
'перевіряємо скільки раз було поставлено питання, якщо менше ніж потрібно - беремо його, інакше заново
If b (i)>=3 Then Vopros (): Exit Sub
'якщо питання повторений більше 10 разів - значить, в кінці залишилося 1 або 2 однотипних
'питання і потрібно поставити запитання з правильно отвеченних
If povtor_voprosa> 10 Then Vopros_prav (): Exit Sub
'якщо обраний питання таке ж як попередній і перед ним те знайдемо інший
'інакше задаємо вопросCStr (a (i))=vop_1 Or CStr (a (i))=vop_2 Then_voprosa=povtor_voprosa + 1 ()
Exit Sub
'запам'ятовуємо попередній та поточний питання
vop_2=vop_1_1=a (i)
'виводимо вопрос.Text=CStr (a (i)) SubIfSub
Private Sub Vopros_prav ()
'вибираємо питання випадковим чином з отвеченних ()=Int (10 * Rnd ())
'перевіряємо скільки раз було поставлено питання, якщо менше ніж потрібно - беремо його, інакше - заново
If b (i) < 3 Then Vopros_prav (): Exit Sub
'якщо обраний питання таке ж як попередній і перед ним те візьмемо інший,
'інакше ставимо запитання з правильно отвеченних
If CStr (a (i))=vop_1 Or CStr (a (i))=vop_2 Then
Vopros_prav () Sub
'запам'ятовуємо попередній та поточний питання
vop_2=vop_1_1=a (i)
'виводимо вопрос.Text=CStr (a (i)) SubIfSubSub Label3_Click (ByVal sender As System.Object, ByVal e As System.EventArgs). Close () Sub
Sub Label7_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click.Hide () obj_Form2_Главная_форма As New Form2_Главная_форма
obj_Form2_Главная_форма.Show () SubClass
Public Class Form7_КонтрольSystem.Windows.Forms.FormPravelno, NePravelno As IntegerSub PictureBox1_MouseUp (ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
Dim obj_Form10_Контроль_Яркость_Уменьшить As New Form10_Контроль_Яркость
'Яскравість (eX> 329) And (eX <350) And (eY> 440) And (eY <459) Then +=1 («Мабуть») _zadania=Nomer_zadania + 1
d (0)=d (...
