Démineur

Télécharger le projet
Commenter

Description

Le jeu de démineur dans toute sa laideur :)

Source / Exemple : 


Public Sub Decouvre(ByVal X As Long, ByVal Y As Long)
    If X < 1 Or X > Largeur Or Y < 1 Or Y > Hauteur Then Exit Sub
    If Plateau(X, Y).EtatSection = Decouvert Then Exit Sub
    
    MinesAlentour = 0
    For i = X - 1 To X + 1
        For j = Y - 1 To Y + 1
            If i >= 1 And i <= Largeur And j >= 1 And j <= Hauteur Then
                If Plateau(i, j).Mine Then
                    MinesAlentour = MinesAlentour + 1
                End If
            End If
        Next j
    Next i
    FrmPrincipale.DCase((X - 1) * Hauteur + Y).BackColor = RGB(200, 200, 200)
    Plateau(X, Y).EtatSection = Decouvert
    If MinesAlentour = 0 Then
        Call Decouvre(X - 1, Y)
        Call Decouvre(X + 1, Y)
        Call Decouvre(X, Y - 1)
        Call Decouvre(X, Y + 1)
        Call Decouvre(X - 1, Y - 1)
        Call Decouvre(X + 1, Y - 1)
        Call Decouvre(X + 1, Y + 1)
        Call Decouvre(X - 1, Y + 1)
    Else
        FrmPrincipale.DCase((X - 1) * Hauteur + Y).Caption = " " & MinesAlentour
    End If
End Sub

Conclusion :


Ceci est un extrait du code, il s'agit de l'algoritme reagissant a un clic sur case
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (gg00xiv)