Второй этап. Задание значений свойствам объектов
Для объектов Command2, Command3, Command4, Command5 очистим свойство Caption . А затем для каждого объекта формы 2 установим значения согласно таблице:
Класс объектов |
Свойство |
Значение по умолчанию |
Новое значение |
CommandButton Label TextBox Image |
Caption |
Command1 |
Переход к следующему вопросу |
Style |
0 |
1 - Graphical |
|
BackColor |
Button Face |
&H00C0C0FF& |
|
Caption |
Label1 |
Сколько бит информации содержится в слове "Компьютер?" |
|
Font |
Ms Sans Serif, обычный, 8пт |
14пт, полужирное начертание |
|
BackStyle |
1 |
0 |
|
Alignment |
0 |
2 |
|
Caption |
Label2 |
Введите правильный вариант ответа с клавиатуры |
|
Font |
Ms Sans Serif, обычный, 8пт |
10пт, полужирное начертание |
|
BackStyle |
1 |
0 |
|
Alignment |
0 |
2 |
|
Caption |
Label3 |
Введите свой ответ сюда |
|
Font |
Ms Sans Serif, обычный, 8пт |
10пт, обычное начертание |
|
BackStyle |
1 |
0 |
|
Alignment |
0 |
2 |
|
Caption |
Option4 |
Транзисторы |
|
Text |
Text1 |
<пусто> |
|
Stretch |
False |
True |
Пользуясь таблицей, выделяем попеременно нужные объекты и в окне Свойств присваиваем перечисленным свойствам заданные в таблице новые значения.
Третий этап. Создание программного кода.
Общий вид программного кода будет такой:
Private Sub Command1_Click()
Rem здесь идет накопление правильных ответов. Если ответ правильный, то прибавляется 1 балл к предыдущему результату, а если ответ неправильный, то результат остается прежним.
If Val(Text1.Text) = 72 Then Me.Tag = Form3.Tag + 1 Else Me.Tag = Form3.Tag
Rem форма 4 закрывается, форма 5 открывается.
Form4.Hide
Form5.Show
End Sub
Private Sub Command2_Click()
Rem при нажатии на объект Command2 форма окрашивается в желтый цвет
Form4BackColor = &HFFFF&
End Sub
Private Sub Command3_Click()
Rem при нажатии на объект Command3 форма окрашивается в красный цвет
Form4.BackColor = &HFF&
End Sub
Private Sub Command4_Click()
Rem при нажатии на объект Command4 форма окрашивается в синий цвет
Form4.BackColor = &HFF0000
End Sub
Private Sub Command5_Click()
Rem при нажатии на объект Command5 форма окрашивается в зеленый цвет
Form4.BackColor = &HC000&
End Sub
Четвертый этап – тестирование созданной формы 4:
1.Исходные данные заполнены в форму правильно.
2.Исходные данные введены не правильно.
Вывод: созданная форма 1 работает верно.
Формы 15,21,22 построены по принципу формы 4, но имеют 1 дополнительный элемент Image.
Форма 7 – шестой вопрос.
Первый этап. Визуальное программирование.
В
окне Конструктор форм на форму поместим
управляющие элементы, которые должны
обеспечить взаимодействие приложения
с пользователем.
1. Активизируем форму Form7.
2. Установим на форму последовательно 5 объектов класса CommandButton.
3. Установим на форму последовательно 6 объектов класса Label.
4. Установим на форму последовательно 5 объектов класса Image.
