Самоучитель VBA


         

Exit Sub End If Банк



' Определяет номер очередной партии

Партия = Партия + 1

' Запрещается изменение пользователем значения

' в поле Банк в течение игры

TektBoxl.Enabled = False

'

' Проверяется, являются ли вводимыми в поле Банк данные числом

If IsNumeric(TextBoxl.Text) = False Then

MsgBox "Введите ставку", vbExclamation, "Орел и решка"

TextBoxl.Enabled = True

TextBoxl.SetFocus

Exit Sub End If Банк = CLng(TextBoxl.Text)

' Проверяется, не превышает ли Банк максимально допустимую величину

If Банк > 10000 Or Банк <= 0 Then

MsgBox "Ставка должна быть в диапазоне [1,10000]", vbExclamation, "Орел и решка"

TextBoxl.Enabled = True TextBoxl.SetFocus

Exit Sub

End If

'

' Бросается монета

'

Randomize

Монета = Int(2'* Rnd)

' Сравнение результата бросания монеты компьютером

' с ситуацией, когда игрок загадал "орел"

'

If OptionButtonl.Value = True Then

If Монета = 0 Then

Банк = Банк - 1

TextBoxl,Text = CStr(BaHK)

End If

If Монета = 1 Then

Банк = Банк + 1

TextBoxl.Text = CStr(Банк)

End If

End If

' Сравнение результата бросания монеты компьютером

' с ситуацией, когда игрок загадал "решка"

If OptionButton2.Value = True Then

If Монета = 1 Then Банк = Банк - 1

TextBoxl.Text = CStr(Банк)

End If

If Монета = 0 Then Банк = Банк + 1

TextBoxl.Text = CStr(Банк)

End If

End If TextBox2.Text = CStr(Партия)

' Определяется, превышает ли текущее значение поля Банк максимальную

' величину

'

If Банк > Максимум Then

Максимум = Банк

НомерМаксимум = Партия

TextBox3.Text = CStr(Максимум)

TextBox5.Text = CStr(НомерМаксимум)

End If

' Определяется, превышает ли минимальное значение поля Банк текущее

' значение

'

If Банк < Минимум Then

Минимум = Банк

НомерМинимум = Партия

TextBox4.Text = CStr(Минимум)

TextBox6.Text = CStr(НомерМинимум)

End If

End Sub

'

Private Sub CommandButton2_Click()

'

' Процедура закрытия диалогового окна

'

UserForml.Hide End Sub

Содержание  Назад  Вперед