Переправа на другой берег Crossing
|
Private Sub Boat_Click() ' Переправа на другой берег Crossing End Sub Public Sub Crossing() 'Переправа на другой берег 'Есть ли человек в лодке With WGCForm If StateOfMan = "InBoat" Then If StateOfBoat = "LeftBank" Then 'Едем на правый берег 'Меняем координаты лодки и кормчего StateOfBoat = "RightBank" .Boat.Left = .Boat.Left + WidthOfRiver .Man.Left = .Man.Left + WidthOfRiver 'Анализ присутствующих пассажиров If StateOfWolf = "InBoat" Then .Wolf.Left = .Wolf.Left + WidthOfRiver End If If StateOfGoat = "InBoat" Then .Goat.Left = .Goat.Left + WidthOfRiver End If If StateOfCabbage = "InBoat" Then .Cabbage.Left = .Cabbage.Left + WidthOfRiver End If Else 'Едем на левый берег 'Меняем координаты лодки и кормчего StateOfBoat = "LeftBank" .Boat.Left = .Boat.Left - WidthOfRiver .Man.Left = .Man.Left - WidthOfRiver 'Анализ присутствующих пассажиров If StateOfWolf = "InBoat" Then .Wolf.Left = .Wolf.Left - WidthOfRiver End If If StateOfGoat = "InBoat" Then .Goat.Left = .Goat.Left - WidthOfRiver End If If StateOfCabbage = "InBoat" Then .Cabbage.Left = .Cabbage.Left - WidthOfRiver End If End If End If End With End Sub |
| Листинг 6.9. |
| Закрыть окно |
