Лабораторная работа № 15

Тема «ЗАГАДАЙ ЧИСЛО»

Цель работы: Познакомиться с элементами управления Visual Basic 6.0 Label, Text

научиться пользоваться элементами управления и их свойствами

Задачи: Создать электронную игру по пунктам лабораторной работы, которая играет с пользователем в следующую игру: компьютер «задумывает» целое число (допустим, одну из пяти цифр – от 1 до 5); пользователь пытается отгадать это число. Если ему это удается, появляется сообщение об его «успехе».

Ход работы:

1. Готовимся к работе

Откройте VB. На форме размещаем три надписи (Label), две кнопки и одно текстовое поле. В свойстве (Caption) первой надписи (Label1) записываем следующую фразу: «Нажмите кнопку СТАРТ1, чтобы компьютер задумал число от 1 до 5». Чтобы выравнить ее по центру – в свойствах найдите Alignment и из раскрывающегося списка выберите 2- center; в свойстве второй надписи (Label2) записываем: «Введите любое число от 1 до 5»; и третью надпись оформляем также как и первую, но в Caption записываем фразу: «Нажмите кнопку СТАРТ2. Если Вы угадали, компьютер поздравит Вас!»

Переходим к оформлению текстового поля (Text1). Выделяем его и в свойствах Name задаем имя полю Number.

Теперь переходим к кнопкам. Выделяем первую кнопку имя кнопки (Name) оставим без изменения, а в Caption запишем СТАРТ1. С второй кнопкой поступим тем же образом, только Caption будет уже СТАРТ2. Окно формы будет выглядеть, примерно, так (рисунок 1):

Рисунок 1 – Форма для игры

2. Приступаем к программированию

Напишем код для первой кнопки для этого выделим кнопку с надписью СТАРТ1, перейдем в окно для написания кода программы и запишем следующее:

Public Number1 As Integer

Private Sub Command1_Click()

Randomize Timer

Number1 = 1 + Int(Rnd * 5)

End Sub

Займемся второй кнопкой СТАРТ2. В окне кода напишем код:

Private Sub Command2_Click()

Dim Number2 As Integer

Number2 = Val(Number.Text)

If Number2 = Number1 Then

MsgBox "Поздравляю Вас! Вы угадали!", 64, "Результат"

End If

End Sub

3. Проверка работы программы

Теперь сохраните свой проект и откомпилируем его. Работает программа так. Щелчок первой командной кнопки побудит компьютер создать задуманное число. Щелчок второй командной кнопки (после ввода пользователем своего числа) запустить сравнение этих чисел. Сравнение будет производиться с помощью оператора If … Then … . Если числа совпадут, сработает функция MsgBox, которая выдаст сообщение об успехе пользователя на панели сообщения.

Лабораторная работа № 16

«КОМПЬЮТЕРНАЯ ГРАФИКА»

Цель работы: Познакомиться с элементами управления Visual Basic 6.0 Shape,

научиться пользоваться элементами управления и их свойствами

Задачи: Создать светофор по пунктам лабораторной работы, который при наведении мыши на лампочку зажигает определенный цвет

Ход работы:

1. Начнем с конца

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

Для этой программы потребуется только один компонент на форме простые геометрические фигуры: круги, прямоугольники, овалы.