Трусов М. А. Visual Basic .NET. Создание графических объектов и основы программирования стр.64
Трусов М. А. Visual Basic .NET. Создание графических объектов и основы программирования стр.64

Интерфейс программы можете составить по своему усмотрению. Главное, чтобы на форме имелось несколько текстовых полей TextBox или, еще лучше, надписей Label. В этих элементах управления будет отражаться результат работы генератора случайных чисел. Также нам понадобится таймер Timer и кнопка Button для его запуска. Смысл программы заключается в том, что выигрышем будет считаться совпадение чисел во всех надписях Label. Вместо чисел можно задействовать и рисунки. Для этого надо использовать элемент управления Image List (список рисунков), сопоставив значения индексов рисунков с числами, выданными генератором. Увеличить вероятность выигрыша можно за счет уменьшения количества элементов программы и диапазона выбираемых программой случайных чисел. То есть чем меньше данных,

Трусов М. А. Visual Basic .NET. Создание графических объектов и основы программирования

ГЛАВА ЮТ Генератор случайных чисел

тем больше вероятность их совпадения. В приведенном ниже примере три надписи Label, одна кнопка Button, и один таймер Timer. Для каждой надписи Label действует свой генератор случайных чисел, который выбирает данные из диапазона от 0 до 1, то есть всего из двух чисел: ноль или единица. Выигрышем будет считаться совпадение чисел во всех трех окнах. Если увеличивать количество случайных чисел, вероятность выигрыша значительно снизится.

Программу составляем следующим образом. Объявляем переменные в количестве, равном числу элементов управления. Затем для каждой переменной создаем генератор случайных чисел. Результаты, выданные генератором, присваиваем свойству Text надписей Label. Таймер совершает десять циклов и останавливается. Если числа, показанные в десятый раз, одни и те же на всех трех элементах Label, будем считать результат такого совпадения выигрышем. Программа выглядит примерно так:

Private Sub Buttonl_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Buttonl.Click Timerl.Start()

If TextBoxl.Text = 0 Then Timerl.Stop() : Label5.Text = _

«В долг не Mrpaio»Labell.Text = 0

Label2.Text = 0

Label3.Text = 0

Label4.Text = «»

End Sub


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta