Второй этап. Задание значений свойствам объектов

Для объектов Command2, Command3, Command4, Command5 очистим свойство Caption . А затем для каждого  объекта формы 7 установим значения согласно таблице:

Класс объектов	Свойство	Значение по умолчанию	Новое значение
CommandButton Label Все объекты типа Image	Caption	Command1	Переход к следующему вопросу
	Style	0	1 - Graphical
	BackColor	Button Face	&H00C0C0FF&
	Caption	Label1	Что бы ответить нажмите на соответствующей картинке?
	Font	Ms Sans Serif, обычный, 8пт	10пт, полужирное начертание
	BackStyle	1	0
	Alignment	0	2
	Caption	Label2	Какое устройство может оказывать вредное воздействие на здоровье человека?
	Font	Ms Sans Serif, обычный, 8пт	14пт, полужирное начертание
	BackStyle	1	0
	Alignment	0	2
	Caption	Label3	Монитор
	Font	Ms Sans Serif, обычный, 8пт	12пт, полужирное начертание
	BackStyle	1	0
	Alignment	0	2
	Caption	Label4	Принтер
	Font	Ms Sans Serif, обычный, 8пт	12пт, полужирное начертание
	BackStyle	1	0
	Alignment	0	2
	Caption	Label5	Системный блок
	Font	Ms Sans Serif, обычный, 8пт	12пт, полужирное начертание
	BackStyle	1	0
	Alignment	0	2
	Caption	Label6	Модем
	Font	Ms Sans Serif, обычный, 8пт	12пт, полужирное начертание
	BackStyle	1	0
	Alignment	0	2
	Stretch	False	True

Пользуясь таблицей, выделяем попеременно нужные объекты и в окне Свойств присваиваем перечисленным свойствам заданные в таблице новые значения.

Третий этап. Создание программного кода.

Общий вид программного кода будет такой:

Private Sub Command1_Click()

Rem здесь идет накопление правильных ответов. Если ответ правильный, то прибавляется 1 балл к предыдущему результату, а если ответ неправильный, то результат остается прежним.

If Image4.BorderStyle = 1 Then Me.Tag = Form6.Tag + 1 Else Me.Tag = Form6.Tag

Rem форма 7 закрывается, форма 8 открывается.

Form7.Hide

Form8.Show

End Sub

Private Sub Image2_Click()

Rem здесь происходит изменение свойства объекта Image, которое называется BorderStyle. При щелчке на Image2 он становится утопленным. Такая же ситуация с Image3, Image4, Image5

Image3.BorderStyle = 0

Image2.BorderStyle = 1

Image4.BorderStyle = 0

Image5.BorderStyle = 0

End Sub

Private Sub Image3_Click()

Image3.BorderStyle = 1

Image2.BorderStyle = 0

Image4.BorderStyle = 0

Image5.BorderStyle = 0

End Sub

Private Sub Image4_Click()

Image3.BorderStyle = 0

Image2.BorderStyle = 0

Image4.BorderStyle = 1

Image5.BorderStyle = 0

End Sub

Private Sub Image5_Click()

Image3.BorderStyle = 0

Image2.BorderStyle = 0

Image4.BorderStyle = 0

Image5.BorderStyle = 1

End Sub

Private Sub Command2_Click()

Rem при нажатии на объект Command2 форма окрашивается в желтый цвет

Form7.BackColor = &HFFFF&

End Sub

Private Sub Command3_Click()

Rem при нажатии на объект Command3 форма окрашивается в красный цвет

Form7.BackColor = &HFF&

End Sub

Private Sub Command4_Click()

Rem при нажатии на объект Command4 форма окрашивается в синий цвет

Form7.BackColor = &HFF0000

End Sub

Private Sub Command5_Click()

Rem при нажатии на объект Command5 форма окрашивается в зеленый цвет

Form7.BackColor = &HC000&

End Sub

Четвертый этап – тестирование созданной формы 7:

      1.Исходные данные заполнены в форму правильно.

 1.Исходные данные введены не правильно.

Вывод: созданная форма 1 работает верно.

Форма 28 – итоговая форма

Первый этап. Визуальное программирование.

В окне Конструктор форм на форму поместим управляющие элементы, которые должны обеспечить взаимодействие приложения с пользователем.

1. Активизируем форму Form28.

2. Установим на форму последовательно 1 объект класса CommandButton.

3. Установим на форму последовательно 3 объектов класса Label.

Второй этап. Задание значений свойствам объектов

Для объектов Label1 и , Label3 очистим свойство Caption . А затем для объекта Label1 установим значения согласно таблице:

Класс объектов	Свойство	Значение по умолчанию	Новое значение
CommandButton	Caption	Command1	Переход к следующему вопросу
	Style	0	1 - Graphical
	BackColor	Button Face	&H00C0C0FF&
Label	Caption	Label2	Вот ваш результат:
	Font	Ms Sans Serif, обычный, 8пт	14пт, полужирное начертание
	BackStyle	1	0
	Alignment	0	2
	Caption	Label1	<пусто>
	Font	Ms Sans Serif, обычный, 8пт	14пт, полужирное начертание
	BackStyle	1	0
	Alignment	0	2
	Visible	True	False
	Caption	Label3	<пусто>
	Font	Ms Sans Serif, обычный, 8пт	14пт, полужирное начертание
	BackStyle	1	0
	Alignment	0	2
	Visible	True	False

Пользуясь таблицей, выделяем попеременно нужные объекты и в окне Свойств присваиваем перечисленным свойствам заданные в таблице новые значения.

Третий этап. Создание программного кода.

Общий вид программного кода будет такой:

Private Sub Command1_Click()

Rem при нажатии на Command1 программа закрывается

End

End Sub

Private Sub Form_Load()

Rem здесь происходит вывод на экран количества правильных ответов, при этом используется имя пользователя, которое он вводил при регистрации

Label1.Caption = " Уважаемый " + Form1.Text1.Text + " ваш результат: " + Form27.Tag +   "  правильных ответов."

Rem здесь происходит перевод правильных ответов в оценку по пятибалльной шкале

Select Case Form27.Tag

Case Is < 14: Label3.Caption = "Вы получили '2'"

Case 15 To 22: Label3.Caption = "Вы получили '3'"

Case 22 To 25: Label3.Caption = "Вы получили '4'"

Case 25 To 26: Label3.Caption = "Вы получили '5'"

End Select

End Sub

Четвертый этап – тестирование созданной формы 28:

     1.Результат выведен правильно.

Вывод: созданная форма 28 работает верно.

3. Заключение

Когда я начал создавать свой реферат, моей целью было составить программу, с помощью которой учитель мог бы проводить тестовый итоговый контроль базового уровня знаний учащихся в кабинете информатики по своему предмету. Я считаю, что свою цель я выполнил. Кабинет информатики получил программу на компакт – диске, которая в дальнейшем может быть размножена и использована для проверки итоговых знаний учащихся.

4.Список литературы:

Литература:

Книги:

1) «Visual Basic» автор - Курилович В.

2) «Visual Basic 6. Самоучитель(3-е издание)» автор -  Кузьменко В.Г.

3) «Visual Basic 6. Учебный курс(2-ое издание)» автор -  Браун С.

4) «Психологическое тестирование» (кн. 1-2) автор – Анастази А.

5) «Активизация учения школьников» автор – Шамова Т.И.

6) «Управление процессом усвоения знаний» автор – Талызина Н.Ф.

Сайты в Интернете:

1) www.vbnet.ru

2) http://vb-ideas.narod.ru/

3) http://vbdx.narod.ru/