6. Как запрограммировать неожиданность

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

Для случайного выбора в системе VB есть специальная функция Rnd. Для этого есть стандартный прием – надо умножить значение функции Rnd на количество элементов списка и взять от получившегося произведения целую часть.

Допустим, в списке содержится 5 элементов. Чтобы найти индекс случайного элемента, надо взять целую часть от произведения 5*Rnd. А если в списке 10 элементов, то целую часть от произведения 10*Rnd.

Воспользуемся свойством ListCount объекта ComboBox. Она хранит количество элементов, имеющихся в списке. Правда, на панели свойств вы это свойство не найдете – это потому, что свойство ListCount предназначено только для чтения, его нельзя вводить вручную Значение ListCount для первого списка равно Combо1. ListCount, для второго - Combо2. ListCount и так далее.

Таким образом, чтобы найти случайный элемент для первого списка, надо просто вычислить выражение Int(Combо1. ListCount* Rnd), а для второго списка - Int(Combо2. ListCount* Rnd) и так далее.

7. Программируем кнопку

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

Дважды щелкните на командной кнопке. Система VB откроет окно кода и создаст процедуру обработки щелчка мыши. Вставьте в нее следующие операторы:

Combo1.Listindex= Int(Combо1. ListCount* Rnd)

Combo2.Listindex= Int(Combо2. ListCount* Rnd)

Combo3.Listindex= Int(Combo3. ListCount* Rnd)

Неповторяющиеся случайные числа выдает функция RND.

Весь модуль должен выглядеть так:

Private Sub Command1_Click()

Combo1.Listindex= Int(Combо1. ListCount* Rnd)

Combo2.Listindex= Int(Combо2. ListCount* Rnd)

Combo3.Listindex= Int(Combo3. ListCount* Rnd)

Ens sub

Private Sub Form_Load()

Randomize timer

Combo1.Listindex=0

Combo2.Listindex=0

Combo3.Listindex=0

Ens sub

Для самостоятельной работы

Создать 5 списков в котором будут располагаться:

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

«УПРАВЛЕНИЕ ПРИ ПОМОЩИ ТАЙМЕРА»

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

Задачи: Создать прыгающую кнопку по пунктам лабораторной работы прыгающую кнопку.

Ход работы:

Здесь вы создадите небольшую игру под названием «Поймай кнопку». Командная кнопка будет беспорядочно прыгать в окне программы. Тому кто захочет щелкнуть на ней, придется нелегко. Перепрыгивать из одного места в другое кнопка будет по сигналу, полученному от таймера.

Для оформления окна потребуется три объекта – прыгающая кнопка, кнопка, позволяющая выйти из программы и таймер. Он принадлежит форме. Он влияет на работу программы, но сам в программе не виден, на форме представляется своим заместителем – значком.

1. Создаем прыгающую кнопку

Запустите систему VB и создаете новый проект. Сохраните его в папке таймер.

Проектирование формы начнем с размещения на ней кнопки и ее настройки. Выберете на панели компонентов компонент «Командная кнопка» и нарисуйте кнопку в верхнем левом углу формы методом протягивания.

Задайте на нее следующие свойства:

1. Заголовок. Введите надпись, которая будет изображена на кнопке, например Нажми сюда!

2. TabStop (Доступна по клавише Тab). Это свойство разрешает выбрать данный элемент управления клавишей Тab. Здесь клавиатурой пользоваться нельзя. Чтобы запретить, задайте этому свойство значение False (Нет)

3. Visible (Видима). Сначала кнопка должна быть невидима, чтобы пользователь не знал, где она находится. Задайте этому свойству значение False (Нет).

Кнопка должна перемещаться по окну. Пусть будет 9 мест, в которых кнопка может появиться. Самое трудное – точно подобрать размеры кнопки и клеток, чтобы окно выглядело аккуратным. Зададим для кнопки значение высоты равным 500 – свойство Height (высота) – и значение ширины равным 800 – свойство Width (Ширина).

Расстояние между разными положениями кнопки должно быть больше, чем ширина и высота кнопок. Пусть оно составляет по горизонтали 900, а по вертикали 600. Мы не можем сразу же присвоить эти значения каким-то свойствам, но они понадобятся нам при программировании.

Пусть в левом верхнем положении расстояние между кнопкой и краями формы составляет 200. Задайте значение 200 для свойств кнопки Left (Слева) и Top (Сверху). Теперь мы можем подсчитать, какой размер должно иметь окно программы. По горизонтали он составит 200+900+900+800+200=3000. По вертикали это будет 200+600+600+500+200=2100. Щелкните на форме и задайте значение 3000 для свойства формы ScaleWidth (Внутренняя ширина). При вертикали нужен запас – ведь в окне будет еще закрывающая кнопка. Поэтому задайте для свойства ScaleHeight (Внутренняя высота) значение 2800. Чтобы размер окна нельзя было изменить в ходе работы, задайте для свойства BorderStyle (Тип границы) значение 1 – Fixed Single (Тонкая фиксация)