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 ?