револьвер плохо стреляет)

[apis69]

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

PHP код:

Option Explicit

Private Sub CommandButton1_Click()
If ToggleButton2.Value = True Then
MsgBox ("Словил пулю в голову")
End If
If ToggleButton1.Value = True Then
MsgBox ("повезло")
End If
If ToggleButton3.Value = True Then
MsgBox ("повезло")
End If
If ToggleButton4.Value = True Then
MsgBox ("повезло")
End If
If ToggleButton5.Value = True Then
MsgBox ("повезло!")
End If
If ToggleButton6.Value = True Then
MsgBox ("повезло")
End If
ToggleButton1.Value = False
ToggleButton2.Value = False
ToggleButton3.Value = False
ToggleButton4.Value = False
ToggleButton5.Value = False
ToggleButton6.Value = False
ToggleButton1.Locked = False
ToggleButton2.Locked = False
ToggleButton3.Locked = False
ToggleButton4.Locked = False
ToggleButton5.Locked = False
ToggleButton6.Locked = False

End Sub
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
ToggleButton2.Locked = True
ToggleButton3.Locked = True
ToggleButton4.Locked = True
ToggleButton5.Locked = True
ToggleButton6.Locked = True
End If
End Sub
Private Sub ToggleButton2_Click()
If ToggleButton2.Value = True Then
ToggleButton1.Locked = True
ToggleButton3.Locked = True
ToggleButton4.Locked = True
ToggleButton5.Locked = True
ToggleButton6.Locked = True
End If
End Sub
Private Sub ToggleButton3_Click()
If ToggleButton3.Value = True Then
ToggleButton1.Locked = True
ToggleButton2.Locked = True
ToggleButton4.Locked = True
ToggleButton5.Locked = True
ToggleButton6.Locked = True
End If
End Sub
Private Sub ToggleButton4_Click()
If ToggleButton4.Value = True Then
ToggleButton1.Locked = True
ToggleButton3.Locked = True
ToggleButton2.Locked = True
ToggleButton5.Locked = True
ToggleButton6.Locked = True
End If
End Sub
Private Sub ToggleButton5_Click()
If ToggleButton5.Value = True Then
ToggleButton1.Locked = True
ToggleButton3.Locked = True
ToggleButton4.Locked = True
ToggleButton2.Locked = True
ToggleButton6.Locked = True
End If
End Sub
Private Sub ToggleButton6_Click()
If ToggleButton6.Value = True Then
ToggleButton1.Locked = True
ToggleButton3.Locked = True
ToggleButton4.Locked = True
ToggleButton5.Locked = True
ToggleButton2.Locked = True
End If
End Sub 


[alex77755]

Для Русской рулетки проще использовать Опцию - она только одна может быть выбрана, а остальные сами обнулятся. Заполнять рандомно, А проверять одну. Ну в принципе, и проверять можно рандомно. Опять же генератор случайных чисел от 1 до 6 и обращение к контролу по имени
Вот примерно так:

Private Sub Зарядить_случайно_Click()
Dim R
Randomize
R = Int(6 * Rnd + 1)
Controls("OptionButton" & R).Value = True
End Sub

Private Sub Крутнуть_барабан_и_нажать_курок_Click()
Dim R
Randomize
R = Int(6 * Rnd + 1)
If Controls("OptionButton" & R).Value = True Then
    MsgBox ("Словил пулю в голову")
Else
    MsgBox "повезло"
End If
End Sub

[doober]

револьвер плохо стреляет)

Патроны отсырели?
Проверяйте фарт.
Сообщение сами добавите