Étape 3: Lorsque le jeu démarre
Private Sub Open_TwoPlayerForm(sender As System.Object, e As System.EventArgs) Handles Me.Activated End Sub
« C’est le code pour que se passe-t-il lorsque le TwoPlayerForm est ouvert. »
34. insérer après le code entre Private Sub et End Sub :
Dim tour comme nouvelle aléatoire Si TurnResult = 1 Then Si TurnResult = 2 Then
Dim TurnResult As Integer = Turn.Next (1, 3)
PlayerTurnLabel.Text = « Tour rouge »
End If
PlayerTurnLabel.Text = « Bleu tour »
End If
« Au hasard choisit le joueur qui va d’abord. »
OvalShape1.Visible = False
OvalShape2.Visible = False
OvalShape3.Visible = False
OvalShape4.Visible = False
OvalShape5.Visible = False
OvalShape6.Visible = False
OvalShape7.Visible = False
OvalShape8.Visible = False
OvalShape9.Visible = False
LineShape1.Visible = False
LineShape2.Visible = False
LineShape3.Visible = False
LineShape4.Visible = False
LineShape5.Visible = False
LineShape6.Visible = False
LineShape7.Visible = False
LineShape8.Visible = False
LineShape9.Visible = False
LineShape10.Visible = False
LineShape11.Visible = False
LineShape12.Visible = False
LineShape13.Visible = False
LineShape14.Visible = False
LineShape15.Visible = False
LineShape16.Visible = False
LineShape17.Visible = False
LineShape18.Visible = False
"Fait tous les cercles et traverse Invisible."