Discussion :

[tiph02]

Bonjour je fais un puissance 4 et j'ai se message d'erreur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

La référence d'objet n'est pas définie à une instance d'un objet.

Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 Private Sub conversiontab()

        Dim i As Integer
        Dim j As Integer
        

        For i = 1 To 6
            For j = 1 To 7
'erreur sur la ligne qui suis !
                If TabCase(i, j).BackColor = Color.BlueViolet Then
                    TabConvertie(i, j) = 1

                Else
                    If TabCase(i, j).BackColor = Color.DarkOrange Then
                        TabConvertie(i, j) = 2
                    Else
                        TabConvertie(i, j) = 0
                    End If

                End If

            Next
        Next


    End Sub

[smyley]

TabCase(i, j) vaut Nothing. Il faut, avant d'essayer d'accéder à une propriété de TabCase(i, j), mettre quelque chose de censé dedans comme par exemple TabCase(i, j) = New TaCase()

[tiph02]

D'accord ! mais pourtant dans mon tableau il y a tous sa !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
TabCase(1, 1) = Pb_1_1
        TabCase(2, 1) = Pb_1_2
        TabCase(3, 1) = Pb_1_3
        TabCase(4, 1) = Pb_1_4
        TabCase(5, 1) = Pb_1_5
        TabCase(6, 1) = Pb_1_6
        TabCase(1, 2) = Pb_2_1
        TabCase(2, 2) = Pb_2_2
        TabCase(3, 2) = Pb_2_3
        TabCase(4, 2) = Pb_2_4
        TabCase(5, 2) = Pb_2_5
        TabCase(6, 2) = Pb_2_6
        TabCase(1, 3) = Pb_3_1
        TabCase(2, 3) = Pb_3_2
        TabCase(3, 3) = Pb_3_3
        TabCase(4, 3) = Pb_3_4
        TabCase(5, 3) = Pb_3_5
        TabCase(5, 3) = Pb_3_6
        TabCase(1, 4) = Pb_4_1
        TabCase(2, 4) = Pb_4_2
        TabCase(3, 4) = Pb_4_3
        TabCase(4, 4) = Pb_4_4
        TabCase(5, 4) = Pb_4_5
        TabCase(6, 4) = Pb_4_6
        TabCase(1, 5) = Pb_5_1
        TabCase(2, 5) = Pb_5_2
        TabCase(3, 5) = Pb_5_3
        TabCase(4, 5) = Pb_5_4
        TabCase(5, 5) = Pb_5_5
        TabCase(6, 5) = Pb_5_6
        TabCase(1, 6) = Pb_6_1
        TabCase(2, 6) = Pb_6_2
        TabCase(3, 6) = Pb_6_3
        TabCase(4, 6) = Pb_6_4
        TabCase(5, 6) = Pb_6_5
        TabCase(6, 6) = Pb_6_6
        TabCase(1, 7) = Pb_7_1
        TabCase(2, 7) = Pb_7_2
        TabCase(3, 7) = Pb_7_3
        TabCase(4, 7) = Pb_7_4
        TabCase(5, 7) = Pb_7_5
        TabCase(6, 7) = Pb_7_6

[smyley]

Et tu es sur que tous les Pb_* sont chacun différents de Nothing ?

[tiph02]

mes PB sont des picture box elles prennent une couleurs au clique sur un bouton donc violet pour le joueur 1 et orange pour le joueur 2 le souci c'est que quand lance l'application et que je clique sur un bouton et sa me met se message d'erreur !
Voici le code de mon bouton avec l'appel de la méthode qui ne fonctionne pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
43
44
45
Private Sub Btn_colonne1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_colonne1.Click
 
 
        If joueurEnCours = Joueur1 Then
 
            If Tabpions(1) = 6 Then
                MsgBox("colonne pleine")
                joueurEnCours = Joueur1
 
            Else
                Tabpions(1) = Tabpions(1) + 1
                TabCase(Tabpions(1), 1).BackColor = Color.BlueViolet
'la méthode qui fonctionne pas !
                conversiontab()
                joueurEnCours = Joueur2
 
 
            End If
 
 
 
 
        Else
            If joueurEnCours = Joueur2 Then
                If Tabpions(1) = 6 Then
                    MsgBox("colonne pleine")
                    joueurEnCours = Joueur2
 
                Else
                    Tabpions(1) = Tabpions(1) + 1
                    TabCase(Tabpions(1), 1).BackColor = Color.DarkOrange
                    conversiontab()
                    joueurEnCours = Joueur1
 
                End If
 
 
            End If
        End If
 
 
 
 
 
    End Sub

[smyley]

Ton

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
TabCase(1, 1) = Pb_1_1
        TabCase(2, 1) = Pb_1_2
        TabCase(3, 1) = Pb_1_3
        ....

Tu l'as mis où dans ton code ?

[tiph02]

Je l'ai mis au chargement du formulaire !

[smyley]

Dans le constructeur après InitializeComponent ? ou alors dans l'évènement Load ...

[tiph02]

dans le Load !

[smyley]

Rolala.
Le seul moyen pour que TabCase(i, j).BackColor lance une exception de ce genre c'est que TabCase(i, j) soit égal à Nothing (et donc que un des Pb soit égal à Nothing au moment où tu fais TabCase(i, j) = Pb..) ou alors TabCase = Nothing mais dans ce cas ça aurai craché lorsque tu aurai essayé de définir les Pb.
Donc soit les Pb sont Nothing, soit le Load n'est pas appelé. En exécution pas à pas ça te donne quoi pour l'évènement Load ?

[tiph02]

D'accord mais le truc c'est que quand je met "conversiontab()" en commentaire a l'appelle au clique de mon bouton et bien mes picture box se color bien comme il le fau
c'est cette méthode qui m'embete !
Je ne sais pas comment on fait pour l'execution pas à pas

[smyley]

Je sais pas
Tu pourrais envoyer ton projet en pièce jointe ?

[tiph02]

Et voila !
merci de m'aider ^^

[smyley]

Regarde ton code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
TabCase(1, 3) = Pb_3_1
        TabCase(2, 3) = Pb_3_2
        TabCase(3, 3) = Pb_3_3
        TabCase(4, 3) = Pb_3_4
        TabCase(5, 3) = Pb_3_5
        TabCase(5, 3) = Pb_3_6

Tu as mis deux fois 5,3 (ce qui devrais être 5,3 et 6,3)

Vérifie aussi le code de ton bouton 6 il n'ajoute pas toujours dans la bonne colonne j'ai l'impression.

[tiph02]

Youpiiiiiiiii
Tous fonctionne ! j'ai enfin un p4 qui fonctionne ^^
merci beaucoup ^^
Bonne fin d'après midi et désolé de t'avoir dérranger pour un probleme aussi bête !!

[smyley]

N'oublie pas le