Discussion :

[SybelleDeNuit]

Bonjour,
Je suis une débutante qui utilise VB Net pour des petites applications personnelles.
Voici mon problème :
Je cherche à savoir si il est possible de passer le nom d’un tableau comme une variable. Voici ma procédure (simplifiée) :

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
Public Sub Pose(Table As String, P As Integer)
        For i = 0 To P
            Select Case Table
                Case "TablValElbowG"
                    TabVA = TablValElbowG(1, i, P)
                    TabVB = TablValElbowG(2, i, P)
                    TabVC = TablValElbowG(3, i, P)
                Case "TablValChest"
                    TabVA = TablValChest(1, i, P)
                    TabVB = TablValChest(2, i, P)
                    TabVC = TablValChest(3, i, P)
                Case "TablValAbdoTwist"
                    TabVA = TablValAbdoTwist(1, i, P)
                    TabVB = TablValAbdoTwist(2, i, P)
                    TabVC = TablValAbdoTwist(3, i, P)
            End Select
             CreatePz2(TabVA, TabVB, TabVC)
        Next
    End Sub

Vous voyez que j’utilise toujours la même structure de fonction.
Le problème, c’est que j’ai plus d’une centaine de tableau différents (pas toujours tous utilisés et que je dois en créer régulièrement des nouveaux) donc un select case énorme que je dois mettre à jour pour chaque nouveau tableau (et que je ne veux pas créer un super tableau en rajoutant un indice supplémentaire car le nom en clair du tableau me permet une meilleure vue de mon travail.)
Existe-t-il un moyen de faire par exemple (je sais que ça ne marchera pas ainsi !):

Code :

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

1
2
3
4
5
6
7
8
Public Sub Pose(Table As Tableau(3, 999,9), P As Integer)
        For i = 0 To P
                    TabVA = Table(1, i, P)
                    TabVB = Table(2, i, P)
                    TabVC = Table(3, i, P)
                   CreatePz2(TabVA, TabVB, TabVC)
        Next
    End Sub

Je crois avoir entendu « Dictionnary » ou « Collection », mais je patauge…
Merci de votre aide.

Je sais que vous êtes généralement très pédagogue, mais l’informatique n’est pas mon mêtier, je m’en sers pour générer des petits utilitaires pour des créations musicales. Aussi vous seriez aimables si vous me proposiez une procédure « clé en main » car je ne pige rien aux exemples donnés par Microsoft sur leur aide, toujours alambiquée…

Cordialement,
Sybelle.

[Phil Rob]

Bonjour,

Ci-joint, le fichier TableauMultiDim.zip. C'est le dossier de développement complet d'un petit programme pour te montrer comment passer un tableau à 3 dimensions à des procédures.

Le programme :

1. déclare un tableau à 3 dimensions pour contenir des entiers
2. le tableau est rempli de valeur
3. le tableau est affiché ("sur place") pour qu'on puisse vérifier qu'il est bien rempli
4. le tableau est ensuite passé à une procédure d'affichage
5. le tableau est ensuite passé à une autre procédure d'affichage
6. le tableau est passer à une procédure pour être modifié
7. le tableau est à nouveau passé à une procédure d'affichage pour montrer le résultat de la modification

Pour faire simple, les affichages se font dans une fenêtre de commande (cf. illustration).

J'espère que ceci t'aidera ...

[SybelleDeNuit]

Merci !!!!!
Réponse ultra rapide, claire, efficace et tellement bien exemplifiée que j'ai (je pense) même trouvé une petite incorrection !
Dans les sub "AfficheTableau" et "AfficheUnTableau" il faut mettre :

Code :

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

Console.Write(T(P, L, C) & " ")

et non:

Code :

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

Console.Write(MonTableau(P, L, C) & " ")

(Jai tout bon ?)
Mais c'était tellement bien expliqué de ta part que j'ai tout de suite compris !

En plus j'ai adoré les petites virgules toutes nues dans la définition du "T(,,)".
C'est ça et le "ByRef" qui manquait à ma maigre culture de programeuse à la petite semaine !

Encore merci à la Francophonie du "Plat Pays" de la part de la Francophilie du "Petit Pays" (C'est ainsi que l'on surnomme notre Portugal)

Sybelle

[Phil Rob]

Bravo ! Tu as tout bon ...
... et tu dois aussi faire cette correction dans la procédure MultiplieLesValeurs.

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
    Private Sub MultiplieLesValeurs(ByRef T(,,) As Integer, ByVal Coefficient As Integer)
        Dim P As Integer
        Dim L As Integer
        Dim C As Integer
        Dim NombreP As Integer = T.GetLength(0)
        Dim NombreL As Integer = T.GetLength(1)
        Dim NombreC As Integer = T.GetLength(2)
 
        For P = 0 To NombreP - 1
            For L = 0 To NombreL - 1
                For C = 0 To NombreC - 1
                    T(P, L, C) = T(P, L, C) * Coefficient
                Next
            Next
        Next
    End Sub

Désolé pour cette erreur, c'est l'inconvénient des Copier-Coller, on ne lit plus ce qu'on "écrit" et pas de chance, cela donnait le même résultat parce que la déclaration de MonTableau est générale pour le Module.

Mes meilleures salutations du pays de Jacques ...