Problème récursivité démineur

Bonjour j'essaye de créer un démineur en vb, et je galère. J'essaye, comme dans le démineur de windows, que quand le joueur clique sur une case où il n'y a pas de mines dans les cases adjacentes, celles-ci se dévoilent.

Etant pas très doué :D, je me suis embrouillé les pinceaux et je me retrouve avec ça :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 If countmines = 0 Then For c1 = 1 To cotegrille For c2 = 1 To cotegrille If cellules(c1, c2).Equals(sender) = True Then Dim c3, c4 As Integer c3 = c1 - 1 c4 = c2 - 1 While c3 <= c1 + 1 While c4 <= c2 + 1 If c3 <= cotegrille And c3 >= 1 And c4 <= cotegrille And c4 >= 1 And (c3 <> c1 Or c4 <> c2) Then mineClick(cellules(c3, c4), e) End If c4 += 1 End While c3 += 1 End While End If Next Next End If
Donc en gros si la case n'a pas de mines à côté, je trouve la case qui a été cliqué dans mon tableau à 2 dimensions représentant la grille du jeu.

C'est là qu'arrivent les problèmes. Je veux que ça refasse la même chose dans toutes les cases à côté mais vu qu'avec le "mineClick(cellules(c3, c4), e)", le prog se casse de la boucle, ça ne marche qu'avec la case en haut à gauche, sauf si celle-ci a au moins une mine adjacente.... Normal me direz-vous mais je vois pas comment faire autrement.

Désolé, c'est tellement brouillon que ça doit pas être facile à comprendre pour qqun qui n'a pas écrit le code.

Merci d'avance :)

il nous manque 2 ou 3 choses dans ton code pour pouvoir suivre un peu
e il vient d'où ? tu es dans quel sub ?

sinon à vu de nez j'aurais utilisé un dictionary (of point, boolean)
voir même une petite classe avec les coordonnées, la valeur de cochation et la référence vers le controle lié

enfin les tableaux c'est pas toujours pratique ...

Citation:

Envoyé par sperot51

il nous manque 2 ou 3 choses dans ton code pour pouvoir suivre un peu
e il vient d'où ? tu es dans quel sub ?

sinon à vu de nez j'aurais utilisé un dictionary (of point, boolean)
voir même une petite classe avec les coordonnées, la valeur de cochation et la référence vers le controle lié

enfin les tableaux c'est pas toujours pratique ...

+1 :king:

Une classe qui représente une case,
une classe qui représente ta grille avec une méthode qui te retourne chaque case N, S, E, W, NE, NW, SE, SW pour une case donnée.
Ca part de là !!

De plus, ton problème n'a rien à voir avec de la récursivité.
Tu as 4 niveaux de boucles for imbriquées :aie:

Déjà merci pour vos réponses :)

Citation:

il nous manque 2 ou 3 choses dans ton code pour pouvoir suivre un peu
e il vient d'où ? tu es dans quel sub ?

Voilà la sub complète :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 Private Sub mineClick(ByVal sender As System.Object, ByVal e As System.EventArgs) sender.visible = False Dim caseimg As New PictureBox With caseimg caseimg.Height = 20 caseimg.Width = 20 caseimg.Location = sender.location End With If Array.IndexOf(mine, sender.location) <> -1 Then caseimg.BackgroundImage = Image.FromFile(Application.StartupPath + "/mine.jpg") MessageBox.Show("Perdu !") Else Dim countmines As Integer = count(sender.location) caseimg.BackgroundImage = Image.FromFile(Application.StartupPath + "/" + countmines.ToString + ".jpg") If countmines = 0 Then For c1 = 1 To cotegrille For c2 = 1 To cotegrille If cellules(c1, c2).Equals(sender) = True Then Dim c3, c4 As Integer c3 = c1 - 1 c4 = c2 - 1 While c3 <= c1 + 1 While c4 <= c2 + 1 If c3 <= cotegrille And c3 >= 1 And c4 <= cotegrille And c4 >= 1 And (c3 <> c1 Or c4 <> c2) Then mineClick(cellules(c3, c4), e) End If c4 += 1 End While c3 += 1 End While End If Next Next End If End If Me.Controls.Add(caseimg) End Sub
Citation:

sinon à vu de nez j'aurais utilisé un dictionary (of point, boolean)
voir même une petite classe avec les coordonnées, la valeur de cochation et la référence vers le controle lié

Pour le dictionnary, je ne connais absolument pas. C'est quoi la différence par rapport à un tableau?

Citation:

Une classe qui représente une case,
une classe qui représente ta grille avec une méthode qui te retourne chaque case N, S, E, W, NE, NW, SE, SW pour une case donnée.
Ca part de là !!

En effet ça résoudrait mon problème. Je vais essayer de voir comment faire ça 8O. Jconnais pas trop l'objet :D

Citation:

De plus, ton problème n'a rien à voir avec de la récursivité.
Tu as 4 niveaux de boucles for imbriquées

Et oué je sais, je suis pas arrivé à l'écrire autrement :D, c'est vrai que c'est pas beau à voir :aie::aie::aie:

http://plasserre.developpez.com/vsommair.htm

tout comme on ne fait d'omelette sans casser des oeufs, on ne fait de développement sans connaitre l'outil et ses possibilités

Cool merci jme lance ;)

Mouais bon je suis arrivé à le faire marcher, mais c'est pas très propre :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
Function afficherimagecase(ByVal cellule, ByVal c3, ByVal c4)
 
        cellule.visible = False
        Dim caseimg As New PictureBox
        With caseimg
            caseimg.Height = 20
            caseimg.Width = 20
            caseimg.Location = cellule.location
        End With
 
        If Array.IndexOf(mine, cellule.location) <> -1 Then
            caseimg.BackgroundImage = Image.FromFile(Application.StartupPath + "/mine.jpg")
            MessageBox.Show("Perdu !")
        Else
            Dim countmines As Integer = count(cellule.location)
            caseimg.BackgroundImage = Image.FromFile(Application.StartupPath + "/" + countmines.ToString + ".jpg")
            If countmines = 0 Then
                For c1 = 1 To cotegrille
                    For c2 = 1 To cotegrille
                        If cellules(c1, c2).Equals(cellule) = True Then
                            For c3 = c1 - 1 To c1 + 1
                                For c4 = c2 - 1 To c2 + 1
                                    If c3 <= cotegrille And c3 >= 1 And c4 <= cotegrille And c4 >= 1 And (c3 <> c1 Or c4 <> c2) Then
                                        If cellules(c3, c4).visible = True Then
                                            afficherimagecase(cellules(c3, c4), c3, c4)
                                        End If
                                    End If
                                Next
                            Next
                        End If
                    Next
                Next
            End If
        End If
 
        Me.Controls.Add(caseimg)
 
    End Function

Merci en tout cas pour vos réponses.

Une ptite question me reste histoire de réduire

Code:

1
2
3
4
5
6
 
If c3 <= cotegrille And c3 >= 1 And c4 <= cotegrille And c4 >= 1 And (c3 <> c1 Or c4 <> c2) Then
                                        If cellules(c3, c4).visible = True Then
                                            afficherimagecase(cellules(c3, c4), c3, c4)
                                        End If
                                    End If

en un seul IF :
Quel est l'équivalent en vb du && en php ?

Merci d'avance