Discussion :

[Nours2806]

Bonjour,

voila mon problème : J'ai écris une fonction en visual basic express 2010 en mode console

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
       Function EcrireDansUnTableau2D()
        Dim table(3, 4) As Integer
        For i As Integer = 0 To table.Length - 1
            table(i) = i
            Console.WriteLine(table(i))
 
        Next
        Return 0
    End Function
 
    'Appel de la fonction "Ecrire dans un Tableaux à deux dimensions"
    EcrireDansUnTableau2D()

Mon problème c'est qu'il me dit qu'en ligne 6 l'indexe dépasse et je ne sais pas comment coder pour les étages de mon tableau.
Pouvez-vous m'aider ?
merci d'avance

[ProgElecT]

Salut

Je ne sais pas si cela est possible en VB.net, mais ......

Code :

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

 For i As Integer = Lbound(table] To Ubound(table)

peut être ?
Encor que, si je me trompe pas, en VB.net un tableau commence forcément par l'index 0 (zero) cela donnerai

Code :

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

 For i As Integer = 0 To Ubound(table)

toujours peut être ?

[MABROUKI]

bonjour

Etant donné que c'est un tableau à 2 dimensions ,toute tentative de l'acceder par un seul indice est voué lamentalement à l'echec...
if faut code ceci pour un array 2d :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 Function EcrireDansUnTableau2D()
        Dim table(3, 4) As Integer
        For i As Integer = 0 To table.GetUpperBound(0)
            For j As Integer = 0 To table.GetUpperBound(0)table(1)i
            Console.WriteLine(table(i,j))
            Next
 
        Next
        Return 0
    End Function

Voir la FAQ VB.Net du Forum....

[Nours2806]

Bonjour et merci beaucoup pour ta réponse, mais un problème survient dans ta solution à la ligne 5.
En effet, le compilateur souligne "table(1)i et indique "Erreur Fin d'instruction attendue."
Nours2806

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Function EcrireDansUnTableau2D()
        Dim table(3, 4) As Integer
        For i As Integer = 0 To table.GetUpperBound(0)
            For j As Integer = 0 to table.GetUpperBound(0)table(1)i
                Console.WriteLine(table(i, j))
            Next
        Next
        Return 0
    End Function

[Phil Rob]

En effet, il y a une petite erreur ...

Mais pour une bonne vision d'un tableau 2D, je te propose de le voir comme étant un tableau de LIGNES, chaque LIGNE étant un tableau de COLONNES. Il s'agit en fait de la vision utilisée dans Excel (Ligne, Colonne).

De plus, il faut savoir qu'en VB, lors de la déclaration du tableau, les valeurs indiquées représentent les indices maximum (contrairement à d'autres langages où ces valeurs représentent le nombre d'éléments permis).

L'exemple ci-dessous, illustre bien cette vison du tableau 2D :

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
Module Module1
    Sub Main()
        EcrireDansUnTableau2D()
        Console.ReadKey()
    End Sub
 
    Sub EcrireDansUnTableau2D()
        Dim MaxIndiceLigne As Integer = 3  ' soit 4 lignes, de 0 à 3
        Dim MaxIndiceColonne As Integer = 4  ' soit 5 colonnes de 0 à 4
 
        Dim table(MaxIndiceLigne, MaxIndiceColonne) As Integer
        For Ligne As Integer = 0 To MaxIndiceLigne
            For Colonne As Integer = 0 To MaxIndiceColonne
                table(Ligne, Colonne) = Ligne * 10 + Colonne
                Console.Write(table(Ligne, Colonne) & " ")
            Next
            Console.WriteLine()
        Next
    End Sub
End Module

[Nours2806]

Merci beaucoup pour ta réponse,
Effectivement je croyais que c'été la valeurs représentent le nombre d'éléments.
La ça marche très bien.
Encore merci.