JEU, LES ALLUMETTES

Commentaire de econs le 02/11/2005 08:53:27 administrateur CS

Je me suis permis de réécrire tout çà avec des groupes de contrôles pour que tu voies la différence.
Les boucles sont plus claires, on n'utilise plus d'objet de type Object (qui alourdissent l'exécution), plus de contrôle sur la totalité des contrôles de la feuille, ...

Note : pour l'exécuter, il faut placer des images d'allumettes de nom 'MonImage' avec des indices allant de 1 à 21.
Et des commandButtons de nom cmd avec des indices allant de 1 à 3.

Enjoy,

================ frmAllumettes ===================

Option Explicit


Private Sub cmd_click(Index As Integer)
    ModAllumettes.Mask (Index)
    disableControls
    Joueur
End Sub


Private Sub disableControls()
Dim ll As Long
    For ll = 1 To 3
        If ModAllumettes.CountVisible < ll Then
            cmd(ll).Enabled = False
        End If
    Next ll
End Sub

Private Sub Joueur()

    If Label2.Caption = "Joueur 1" Then
        Label2.Caption = "Joueur 2"
    Else
        Label2.Caption = "Joueur 1"
    End If
    If CountVisible < 1 Then
        Label3.Caption = "Vous avez gagné !"
    End If
    
End Sub


Private Sub mnuClose_Click()
    Unload Me
End Sub

Private Sub mnuNouveau_Click()
Dim l As Long

    For l = 1 To 21
        MonImage(l).Visible = True
    Next l
    For l = 1 To 3
        cmd(l).Visible = True
    Next l
    
End Sub


==== modAllumettes.bas ===============

Option Explicit

Function CountVisible() As Long
Dim iCount As Long
Dim l As Long
    
    iCount = 0
    For l = 21 To 1 Step -1
        If frmAllumettes.MonImage(l).Visible Then
            iCount = l
            Exit For
        End If
    Next l
  
CountVisible = iCount
End Function


Sub Mask(iNumber As Integer)
Dim nbVisible As Long
Dim ll As Integer
    
    nbVisible = CountVisible
    For ll = 1 To iNumber
        frmAllumettes.MonImage(nbVisible - ll + 1).Visible = False
    Next ll
End Sub

Commentaire de econs le 02/11/2005 11:38:07 administrateur CS

Testé sans problème chez moi.