Создаем игровой автомат

Создаем игровой автомат

Всем привет! В этой статье я расскажу как создать свою игрушку. Создавать будем игровой автомат.

Открваем VB.NET и создаем новый проект Windows Application.

Кидаем на форму три лейбла и задаем им такие свойства:

Text — 0

Font->Size — 72

Кидаем кнопку и в свойтве Text пишем — «Крутить»

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

Теперь напишем код. Объявим глобальные переменные типа byte:

Они буду использоваться для подсчета количетсва оборотов каждой цифры автомата.

Код для кнопки Крутить:

В этом коде мы обнуляем переменные и активируем таймеры.

Код для самих таймеров:

В этом коде происходит рандомная генерация цифр для первого лейбла.

Давтайте разберем этот код попоробднее:

Dim r As New Random — Объявляем рандомайзер

Label1.Text = r.Next(1, 6).ToString — генерируем рандомное число от 1 до 4 и выводим его в лебл1

count1 += 1 — прибавляем к счетчику 1

If count1 = 15 Then Timer1.Stop() если счетчик равен 15, то выключаем таймер т.е во время работы таймера будут 15 раз генерироваться рандомные числа. Если например поставить 150, то ждать вы будете очень долго=)

Для чего нужны таймеры если можно запихать все в цикл, спросите вы? Таймеры нужны для эффекта генерации, т.е чтобы юзер увидел как в лейбле меняются цифры.

Аналогичный код для Timer2 и Timer3

На этом все! Исходник можно скачать в разделе исходники, или тут!

Оставьте первый комментарий

Оставить комментарий

Ваш электронный адрес не будет опубликован.


*