Возникла проблема в написании кода, которую я не в силах решить. Был бы рад советам)
есть следующий код, представляющий собой револьвер для игры в русскую рулетку:
- Код: Выделить всё
Option Explicit
Private Sub CommandButton1_Click()
Randomize
If Controls("ToggleButton" & 1 + Int(Rnd * 6)) Then
MsgBox ("Какая неудача. пуля расплющила вам голову")
Else
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 Form_Load()
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
здесь происходит следующее:
1. нажимается кнопка(выбирается комора)
2. нажимется кнопка(выстрел)
3. если пуля была в этой каморе msgbox -- "не повезло". не в этой -- "повезло"
хотелось бы сделать следующее:
4. если повезло -- игра продолжается
5. можно нажать кнопку и поменяется местоположение пули, нажимается кнопка(спускается курок)
6. можно просто нажать на курок(но тогда выстрел будет происходить из следующей по счёту коморы
игра длится до проигрыша
если что, ToggleButton я нашёл в Компоненты>Microsoft Forms 2.0 Object Libr (как обычная CommandButton, только зажимается и не разжимается)
к сожалению не представляю как это сделать, не подскажете? заранее спасибо.
