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

Private Sub Timerl_Tick( ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Timerl.Tick Dim i As Boolean i = True

Static n As Integer n = n + 1

If n >= 10 Then Timerl.Stop () : i = False

If i = False Then n = 0

Randomize()

Dim a As Integer

Dim b As Integer

Dim с As Integer

a = Rnd()

b = Rnd()

с = Rnd()

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

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

Label1.Text = а Label2.Text = b Label3.Text = с End Sub

В этой программе отсутствуют коды, создающие рисунок самого игрального автомата. Тут уж вы можете дать волю своей фантазии. Автор предлагает свою, упрощенную версию, представленную на рис. 10.1.

Конечно, интерфейс программы, предложенный на этом рисунке, намного сложнее, соответственно, сложнее и сама программа. Например, здесь имеется текстовое поле, где указывается сумма поставленных на игру денег, а также их остаток. Если в этом поле стоит 0, программа напоминает о необходимости поставить деньги. Кроме того, после каждой попытки появляется надпись, отражающая результат, - выигрыш или проигрыш. При создании интерфейса использованы графические возможности Visual Basic .NET В общем, все это можно усовершенствовать до бесконечности.

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

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

4-4640

Рис. 10.1 т Игральный автомат

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

Некоторые особенности работы с графикой

11.1. Создание ограниченной области графического изображения

Графические возможности Visual Basic .NET позволяют создавать в любом рисунке области, ограниченные геометрическими фигурами, в которых видна только часть изображения. Это ограничение создается методом S et С lip, который сохраняет имеющееся на форме изображение только за пределами границ геометрической фигуры, помещенной на него. Такой фигурой является патч или прямоугольник, а значит, и другая фигура, созданная на основе прямоугольника. Внутрь этой геометрической фигуры можно поместить любое изображение, причем его часть, находящаяся за пределами ограничения, останется невидимой. Рассмотрим следующий пример. Поместим на форму фоновый рисунок, воспользовавшись свойством Backgroundlmage в окне Properties, а поверх нанесем изображение прямоугольника, внутри которого будет находиться текст, точнее - его видимая часть. Для примеров использованы образцы рисунков из папки Мои рисунки, скопированные на диск С.


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