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

a = (300 - 10) * RndO + 10 b = (300 - 10) * RndO + 10 Me.RefreshO

Dim gr As Graphics = CreateGraphics()

gr.DrawRectangle(New Pen(Color.Red, 3), a, b, 50, 50)

End Sub

С каждым щелчком кнопки нарисованный четырехугольник будет принимать новые координаты. Таким же образом можно изменять и его размеры.

Рассмотрим еще один способ создания генератора случайных чисел. Для этого необходимо использовать экземпляр класса Random. А затем при помощи метода Next можно выбрать очередное случайное число из указанного интервала. Если интервал не указывать, можно определить и весь сгенерированный ряд.

Private Sub Button4_Click(ByVal sender As System.Objееt, _

ByVal e As System.EventArgs) Handles Button4.Click

Dim rnd As New Random

TextBoxl.Text = rnd.Next(0, 7)

"TextBoxl.Text = rnd.Next()

End Sub

Именно этот способ мы будем наиболее часто использовать, а потому рассмотрим его подробнее несколько позже на основе конкретных примеров.

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

Генератор случайных чисел

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

Вы можете спросить: «Неужели мой любимый компьютер способен обмануть?». Но вспомните то, о чем мы здесь уже не раз говорили: компьютер делает только то, что ему приказывает программа. Так что возможность выигрыша или проигрыша целиком зависит от программиста. Впрочем, даже если играть честно, вероятность выигрыша остается ничтожной. Конечно, бывали случаи, когда кто-то крупно выигрывал в казино или на бегах, но, продолжая игру, этот счастливчик, в конце концов, оказывался в проигрыше. Такова закономерность.

Разбогатеть, играя в азартные игры честно, невозможно. Убедиться в этом можно не только на горьком личном опыте, проигрывая деньги в казино. Автор настоятельно советует вам не делать этого. Лучше составьте программу наподобие «однорукого бандита» и испытайте свое счастье, а заодно и интуицию с помощью компьютера. Запрограммируйте как можно большую вероятность выигрыша, и вы поймете, что даже в этом случае, несмотря на временное везение, проигрыш неизбежен.


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