Structure avec un tableau en mémoireRésolu

Question

Bonjour, 
Je dois créer un programme permettant, une fois la saisie des données effectuée, un affichage ligne à ligne des saisies. Je dois utiliser une structure avec un tableau en mémoire à une dimension.

Au moment de l'affichage, le programme coupe et m'affiche l'erreur "L'index se trouve en dehors des limites du tableau" sur la ligne 24 de mon code.

Module test012
    Structure Produit
        Dim refprod, desiprod As String
        Dim puth As Double
        Dim qteprod As Integer
    End Structure
    Sub main()
        Console.ForegroundColor = ConsoleColor.Yellow
        Dim i As Integer

Dim infoprod(2) As Produit

For i = 0 To 2
            Console.Write("Saisir la référence du produit : ")
            infoprod(i).refprod = Console.ReadLine
            Console.Write("Saisir la désignation : ")
            infoprod(i).desiprod = Console.ReadLine
            Console.Write("Saisir le prix unitaire ht : ")
            infoprod(i).puth = Console.ReadLine
            Console.Write("Saisir la quantité en stock : ")
            infoprod(i).qteprod = Console.ReadLine
        Next

Console.WriteLine("{0} {1} {2}", infoprod(i).refprod, infoprod(i).refprod, infoprod(i).refprod)
        Console.Read()
    End Sub
End Module

Je requiers alors votre aide pour trouver une solution. Merci.

Cordialement,

Jean.

Whismeril · Answer

Bonjour

ton tableau contient, 2 éléments, index 0 et index 1
de la ligne 13 à 22, tu fais un for, qui tourne tant que i est inférieur à 2, donc on passe à la ligne 24 quand i vaut 2, cet index est bien au delà de l'index max

Whismeril · Answer

Je pensais qu'un index 2 correspondait à 3 éléments (0, 1 et 2), alors que non. Merci de me l'avoir fait remarquer. 
 Oui c’est bien ça.
Et dans le code que tu as montré, ton tableau ne peut avoir que 2 éléments

vb95 · Answer

Bonsoir à vous deux
Effectivement ton tableau n'a que 2 éléménts
Une astuce que j'utilise toujours 
Je ne mets pas comme code 
Dim infoprod(3) As Produit 
mais
Dim infoprod(0 to 2) As Produit

Dans le second cas tu as les bornes inférieures et supérieures du tableau et cela est plus parlant .

Tu dis ne rien voir : regarde ta boucle For = elle va de 0 à 2 pour les 3 produits
En fin de boucle i est donc à 3 lorsque tu as fais les 3 saisies : la saisie 0, la saisie 1 et la saisie 2
Vu que i vaut 3 les affichages ne peuvent se faire ( i va de 0 à 2 )

Essaie ce code et regardesl'image plus bas

Structure Produit
        Dim refprod, desiprod As String
        Dim puth As Double
        Dim qteprod As Integer
    End Structure

Sub Main()

Console.ForegroundColor = ConsoleColor.Yellow
        Dim i As Integer
        Dim infoprod(0 To 2) As Produit
        For i = 0 To 2
             ' saisie des informations
            Console.Write("Saisir la référence du produit : ")
            infoprod(i).refprod = Console.ReadLine
            Console.Write("Saisir la désignation : ")
            infoprod(i).desiprod = Console.ReadLine
            Console.Write("Saisir le prix unitaire ht : ")
            infoprod(i).puth = Console.ReadLine
            Console.Write("Saisir la quantité en stock : ")
            infoprod(i).qteprod = Console.ReadLine
            Console.WriteLine()
            ' Affichage des 3 lignes de produit
            Console.WriteLine("{0} {1} {2} {3}", infoprod(i).refprod, infoprod(i).desiprod, infoprod(i).puth, infoprod(i).qteprod)
        Next
        Console.Read()
    End Sub




Ensuite un très bon cours pour VB Net ( bien qu'il date un peu ) : https://plasserre.developpez.com/cours/vb-net/

vb95 · Answer

Bonsoir !
Pas sûr que ceci soit correct au message précédent :

Tu dis ne rien voir : regarde ta boucle For = elle va de 0 à 2 pour les 3 produits
En fin de boucle i est donc à 3 lorsque tu as fais les 3 saisies : la saisie 0, la saisie 1 et la saisie 2
Vu que i vaut 3 les affichages ne peuvent se faire ( i va de 0 à 2 )

Structure avec un tableau en mémoire

4 réponses

Votre réponse