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

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

Label18.Visible = True

Label18.Caption = " Вы не сделали ставку !!!"

End If

‘Выводим текущий счет игрока

Label19.Caption = TextBox1.Text + " Ваш выигрыш = "

End Sub

Процедура кнопки «Остановить»

Private Sub CommandButton2_Click()

PauseTime = 0

‘Сбрасываем таймер на 0, тем самым останавливаем timer

End Sub

Процедурадлякнопки «Сброс»

Private Sub CommandButton3_Click()

Label1.Caption = "0"

‘ Устанавливаем на 0 ,чтоб процедура qtimer не вызывала ошибку

Label19.Caption = ""

TextBox1.Text = ""

‘Очищаем поле text(ставка)

TextBox2.Text = ""

End Sub

Процедура для кнопки «Выход»

Private Sub CommandButton4_Click()

UserForm1.Hide

‘Скрываем форму

End Sub

3.Листинг программы

Private Sub qtimer()

Dim Кости, a, d, stav As Integer

stav = CDbl(TextBox2.Text)

PauseTime = 1

Start = timer

Do While timer < Start + PauseTime