Курсовая работа: Бросание игральной кости на VBA

Randomize

Кости = Int(Rnd * 6) + 1

‘Возвращает случайное число типа Single.

Необязательный атрибут. Single значение или любое допустимое выражение Single.

Если параметр number	То функцией Rnd генерируется
Равно нулю	Последнее сгенерированное случайное число.
Меньше нуля	Каждый раз одно и то же число. Number используется как начальное значение.
Больше нуля	Следующее случайное число в последовательности.
Не задается	Равно нулю

Функция Rnd возвращает значение, которое меньше 1, но больше или равно нулю.

Cпособ генерации случайного числа в функции Rnd определяется значением параметра Number.

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

Перед вызовом Rnd для инициализации генератора случайных чисел с начальным значением на основе системного таймера воспользуйтесь оператором Randomize без указания аргументов.

Select Case Кость

Case 1

‘ Выполняет один из блоков операторов в зависимости от значения выражения. Обязателен в операторе Case. Список возможных значений для testexpression

Image1.Picture = LoadPicture("\1.bmp")

’Загружаем рисунок

Label1.Caption = Label1.Caption + 1

Case 6

Image1.Picture = LoadPicture("6.bmp")

Label6.Caption = Label6.Caption + 1

‘Если выпала шестерка, то увеличить счетчик

End Select

Loop

If stav = Кость Then

‘Оператор условного перехода — одни из самых важных и часто используемых элементов в языках программирования. Общий принцип их работы прост: проверяется соответствие каким-то условиям (истинность или ложность каких-либо выражений) и в зависимости от этого выполнение программы направляется по одной или другой ветви.

Если ставка совпала с выпавшим числом, то увеличить счетчик(банк) на 3, если же нет то уменьшить счетчик на 2.

Label15.Caption = Label15.Caption + 3

Else

Label15.Caption = Label15.Caption - 2

End If

End Sub

Процедуракнопки «Начать»

Private Sub CommandButton1_Click()

stav = CDbl(TextBox2.Text)

Label18.Visible = False

‘ Устанавливаем флаг фокуса надписи на ложь

If stav < 6 And stav > 0 Then

‘ Проверяем была ли сделана ставка, если да то запускаем таймер,

qtimer