Étape 5: Le compteur de victoire
Private Sub RoundWin_Show(sender As System.Object, e As System.EventArgs) Handles Me.MouseMove End Sub
« C’est le code qui va se passer lorsque la souris se déplace. »
39. Insérez le code suivant entre le Private Sub et End Sub
Dim BlueWin As String = Str$(Val(BlueWinCounter.Text) + 1)
Dim RedWin As String = Str$(Val(RedWinCounter.Text) + 1)
"C’est le code qui rend BlueWin et RedWin une chaîne. Si l’événement se passe il va ajouter + 1 partition pour le joueur. »
40. les directives suivantes code est la gagne.
Si OvalShape1.Visible = True et OvalShape2.Visible = True et OvalShape3.Visible = True Then Si OvalShape4.Visible = True et OvalShape5.Visible = True et OvalShape6.Visible = True Then Si OvalShape7.Visible = True et OvalShape8.Visible = True et OvalShape9.Visible = True Then Si OvalShape1.Visible = True et OvalShape4.Visible = True et OvalShape7.Visible = True Then
BlueWinCounter.Text = BlueWin
End If
BlueWinCounter.Text = BlueWin
End If
BlueWinCounter.Text = BlueWin
End If
BlueWinCounter.Text = BlueWin
End If
Si OvalShape2.Visible = True et OvalShape5.Visible = True et OvalShape8.Visible = True Then
BlueWinCounter.Text = BlueWin
End If
Si OvalShape3.Visible = True et OvalShape6.Visible = True et OvalShape9.Visible = True Then
BlueWinCounter.Text = BlueWin
End If
Si OvalShape1.Visible = True et OvalShape5.Visible = True et OvalShape9.Visible = True Then
BlueWinCounter.Text = BlueWin
End If
Si OvalShape3.Visible = True et OvalShape5.Visible = True et OvalShape7.Visible = True Then
BlueWinCounter.Text = BlueWin
End If
Si LineShape1.Visible et LineShape3.Visible et LineShape5.Visible = True Then
RedWinCounter.Text = RedWin
End If
Si LineShape7.Visible et LineShape9.Visible et LineShape11.Visible = True Then
RedWinCounter.Text = RedWin
End If
Si LineShape13.Visible et LineShape15.Visible et LineShape17.Visible = True Then
RedWinCounter.Text = RedWin
End If
Si LineShape1.Visible et LineShape7.Visible et LineShape13.Visible = True Then
RedWinCounter.Text = RedWin
End If
Si LineShape3.Visible et LineShape9.Visible et LineShape15.Visible = True Then
RedWinCounter.Text = RedWin
End If
Si LineShape5.Visible et LineShape11.Visible et LineShape17.Visible = True Then
RedWinCounter.Text = RedWin
End If
Si LineShape1.Visible et LineShape9.Visible et LineShape17.Visible = True Then
RedWinCounter.Text = RedWin
End If
Si LineShape5.Visible et LineShape9.Visible et LineShape13.Visible = True Then
RedWinCounter.Text = RedWin
End If
« Ajoute 1 au compteur de victoire s’il y a un 3 d’affilée »
41. Insérez le code suivant sous le code précédent est entré :
Si OvalShape1.Visible = True et OvalShape2.Visible = True et OvalShape3.Visible = True ou
OvalShape4.Visible = True et OvalShape5.Visible = True et OvalShape6.Visible = True ou
OvalShape7.Visible = True et OvalShape8.Visible = True et OvalShape9.Visible = True ou
OvalShape1.Visible = True et OvalShape4.Visible = True et OvalShape7.Visible = True ou
OvalShape2.Visible = True et OvalShape5.Visible = True et OvalShape8.Visible = True ou
OvalShape3.Visible = True et OvalShape6.Visible = True et OvalShape9.Visible = True ou
OvalShape1.Visible = True et OvalShape5.Visible = True et OvalShape9.Visible = True ou
OvalShape3.Visible = True et OvalShape5.Visible = True et OvalShape7.Visible = True ou
LineShape1.Visible = True et LineShape3.Visible = True et OvalShape5.Visible = True ou
LineShape7.Visible = True et LineShape9.Visible = True et LineShape11.Visible = True ou
LineShape13.Visible = True et LineShape15.Visible = True et LineShape17.Visible = True ou
LineShape1.Visible = True et LineShape7.Visible = True et LineShape13.Visible = True ou
LineShape3.Visible = True et LineShape9.Visible = True et LineShape15.Visible = True ou
LineShape5.Visible = True et LineShape11.Visible = True et LineShape17.Visible = True ou
LineShape1.Visible = True et LineShape9.Visible = True et LineShape17.Visible = True ou
LineShape5.Visible = True et LineShape9.Visible = True et LineShape13.Visible = True ou
RectangleShape1.Enabled = False et RectangleShape2.Enabled = False et RectangleShape3.Enabled = False et RectangleShape4.Enabled = False et RectangleShape5.Enabled = False et RectangleShape6.Enabled = False et RectangleShape7.Enabled = False et RectangleShape8.Enabled = False et RectangleShape9.Enabled = faux alors
« Ce sont toutes les possibilités d’une victoire »
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
« Rend tous les cercles et traverse invisibles »
RectangleShape1.Enabled = True
RectangleShape2.Enabled = True
RectangleShape3.Enabled = True
RectangleShape4.Enabled = True
RectangleShape5.Enabled = True
RectangleShape6.Enabled = True
RectangleShape7.Enabled = True
RectangleShape8.Enabled = True
RectangleShape9.Enabled = True
'Cela permet encore une fois, les cases'
Ee si
"Si il y a une victoire puis le plateau de jeu est remis à zéro"
42. le jeu de débogage et résoudre les erreurs trouvées.