3. Выделите метку “Label1” и в окне ее свойств для свойства BackColor (Цвет фона)установите цвет – бледно-зеленый. Для свойства Caption установите название: ПОЗДОРОВАЙТЕСЬ! Для свойства TextAlign (Расположение) установите режим 2. Аналогично изложенному в предыдущем пункте установите шрифт TimesNewRoman, размер – 16, начертание Полужирный Курсив, цвет букв – красный.
4. Выделите первую командную кнопку CommandButton1. В окне свойств установите название: ПОЛЬЗОВАТЕЛЬ, размер шрифта- 10, начертание – Полужирный, цвет фона – бледно фиолетовый. В свойстве ControlTipText (пояснение) введите текст: Нажатие выводит фразу пользователя.
5. Выделите вторую командную кнопку CommandButton2. В окне свойств установите название: КОМПЬЮТЕР, размер шрифта- 10, начертание – Полужирный, цвет фона – бледно-фиолетовый, пояснение: Нажатие выводит фразу компьютера.
6. Выделите третью командную кнопку CommandButton3. В окне свойств установите название: ВЫХОД, размер шрифта- 10, начертание – Полужирный, цвет фона – бледно-желтый.
7. Выделите форму целиком и в окне свойств установите для нее цвет фона – голубой. Сохраните интерфейс и свойства, щелкнув кнопку Сохранить (имя) на панели инструментов.
1.1.4. Составление программного кода
1. Дважды щелкните в пустой области формы. Для объекта “UserForm” в окне программного кода в первом операторе с помощью клавиатуры замените процедуру “Click” на процедуру “Initialize”. Между операторами “PrivateSub” и “EndSub” наберите следующий программный код:
Count = 0
YourName = “”
InviteDone = False
Примечание: Окно программного кода (Программа) вызывается двойным щелчком мыши на объекте. В окне программного кода между операторами, указывающими на начало и конец подпрограммы, располагается тело процедуры события - блок кода, связанный с объектом интерфейса. Блок кода набирается символами черного цвета. После нажатия на клавиатуре клавиши управления курсором ¯ или щелчка мышью в следующей строке цвет набранного блока кода меняется на синий – это означает, что VisualBasic распознал его как допустимое в программе (некорректное утверждение выделяется красным цветом).
2. В поле Объект окна программного кода выберите из списка (Общая область). Текстовый курсор переместится в верхнюю часть окна. Объявите глобальные переменные: Count – количество щелчков пользователя на кнопке Пользователь, YourName – переменная, в которую будет передаваться имя пользователя, InviteDone – признак того, что получен ответ компьютера. Для этого введите над заголовком процедуры формы следующий текст, нажимая после набора клавишу <Enter>:
Dim Count As Integer
Dim YourName As String
Dim InviteDone As Boolean
3. В поле Объект окна программного кода выберите из списка “CommandButton1”. В окне возникнет процедура, связанная с этой кнопкой (процедура CommandButton1 выполняется после щелчка (Click) на этой кнопке). Щелкните на кнопке Представление процедуры в левом нижнем углу окна кода для просмотра только текущей процедуры. Между операторами “PrivateSub” и “EndSub” наберите следующие программные строки:
Count = Count + 1 'количество щелчков по кнопке Пользователь
Select Case Count 'выбор действия в зависимости от Count
Case 1
TextBox1.Value = “Привет, компьютер!”
Case 2
TextBox1.Value = ”Компьютер, проснись!”
Case Else
TextBox1.Value = “”
End Select
4. В поле Объект окна программного кода выберите из списка “CommandButton2”. Между операторами ”PrivateSub” и “EndSub” наберите следующие программные строки:
Dim s1 As String
s1 = “Я не разговариваю с неизвестными. Ваше имя, пожалуйста.”
If Count >= 2 Then 'после 2-х щелчков по кнопке Пользователь
If Not InviteDone Then ‘ответаещенет
TextBox2.Value = s1 ‘выводответа
TextBox1.Value = ‘чисткаредактора
InviteDone = True
Else ‘ответдан
YourName = TextBox1.Value 'ответ с именем пользователя
If YourName = “” Then
YourName = “Люди” ‘имяпоумолчанию
End If
TextBox2 = YourName & “! Всегда рад с Вами работать!”
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.