initialiser une structure

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour,
j'ai un petit soucis avec les structures.J'ai lu le cours mais il ne repond pas à ma question...

Voici ma structure:
Code:

1 2 3 4 5 6 7 8 9 10 Public Structure ParamNiv Dim niveau As Integer Dim designation As Integer Dim position As Integer Dim acces As String Dim TypeAcces As String Dim TypePaliereA As String Dim TypePaliereB As String End Structure
niveau contient 32 éléments (de 0 à 31)
et ainsi de suite

Le problème c'est que je ne sais pas comment lui dire qu'il a 32 élément..
et ensuite j'aimerais pouvoir afficher chaque élément de chaque variable de la structure dans un menu déroulant...
(par ex: montrer tous les niveau dan le menu deroulant,dans un autre menu deroulant tous les accés...)

Je ne sais pas si ce que je dis est comprhensible mais :aie:

merci d'avance

04/05/2010, 15h52
Nathanael Marchand

Passer par un enum et pas par un entier

Code:

1
2
3
4
5
6
7
8
9
10
 
Public Enum ParamNiv
        Dim niveau As Integer
        Dim designation As Integer
        Dim position As Integer
        Dim acces As String
        Dim TypeAcces As String
        Dim TypePaliereA As String
        Dim TypePaliereB As String
End Structure

Comme ceci?

Mais comment données les valeurs a chak élement de lénum?

04/05/2010, 16h02
Nathanael Marchand
Non, c'est niveau qui doit être une enum
Code:

1 2 3 4 5 6 7 Public Enum Niveau Niveau0, Niveau1, Niveau2 End Enum
Enfin un truc dans le genre car j'suis pas fortiche en vb...
04/05/2010, 16h08
scarfunk

Sa va plutot faire lourd car juste pour niveau ya 32 element,et les otre a peu pré le mm nombre :?
04/05/2010, 16h11
Nathanael Marchand

Certes mais c'est ce qui répond à ton besoin

Code:

1
2
3
4
5
6
7
8
9
10
 
Public Enum ParamNiv
        Dim Enum niveau
           Niv1,
           Niv2,
           ...
        Dim Enum Acces
           Acc1,
           ...
End structure

C'est ca?

Plutot ceci:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Public Enum ParamNiv
        Dim Enum niveau
           Niv1,
           Niv2,
           ...
        end Enum
        Dim Enum Acces
           Acc1,
           ...
        end Enum
End structure

Bonjour,

Et si tu utilisais un tableau de ta structure ?

Code:

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
    Public Const KNBPARAM = 31
 
    Public Structure ParamNiv
        Dim niveau As Integer
        Dim designation As Integer
        Dim position As Integer
        Dim acces As String
        Dim TypeAcces As String
        Dim TypePaliereA As String
        Dim TypePaliereB As String
    End Structure
 
    Dim MesParam(0 To KNBPARAM) As ParamNiv
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i = 0 To KNBPARAM 'remplissage pour exemple
            MesParam(i).niveau = i
            MesParam(i).position = i + 1
            MesParam(i).acces = "acces N°" & i
        Next
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For i = 0 To KNBPARAM
            ListBox1.Items.Add(MesParam(i).niveau)
            ListBox2.Items.Add(MesParam(i).position)
            ListBox3.Items.Add(MesParam(i).acces)
        Next
    End Sub

Ce serait peut-être plus simple.

Maintenant si les éléments sont de taille différentes il faut un tableau pour chaque élément.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
    Public Structure ParamNiv_V2
        Dim niveau() As Integer
        Dim designation() As Integer
        Dim position() As Integer
        Dim acces() As String
        Dim TypeAcces() As String
        Dim TypePaliereA() As String
        Dim TypePaliereB() As String
    End Structure
 
    Dim MesParamVar As ParamNiv_V2
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ReDim MesParamVar.niveau(0 To 31)
        ReDim MesParamVar.designation(0 To 9)
        ' ...
    End Sub

A+, Hervé.

05/05/2010, 09h23
scarfunk
merci Hervé pour ton aide je pense que la deuxième solution me semble la plus appropriée.Seulement comment faire pour des string?

Par exemple pour:
Code:

1 2 3 Dim TypeAcces As String Dim TypePaliereA As String

Sur le même principe

Code:

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
    Public Const K_NB_NIVEAU = 31
    '...
    Public Const K_NB_ACCCES = 31
    Public Const K_NB_TYP_ACC = 4
    '...
 
    Public Structure Params
        Dim niveau() As Integer
        Dim designation() As Integer
        Dim position() As Integer
        Dim acces() As String
        Dim TypeAcces() As String
        Dim TypePaliereA() As String
        Dim TypePaliereB() As String
    End Structure
 
    Dim MesParamVar As Params
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        ReDim MesParamVar.niveau(0 To K_NB_NIVEAU)
        '...
        ReDim MesParamVar.acces(0 To K_NB_ACCCES)
        ReDim MesParamVar.TypeAcces(0 To K_NB_TYP_ACC)
        '...
        For i As Integer = 0 To K_NB_ACCCES
            MesParamVar.acces(i) = "Acces N°" & i + 1
        Next
        MesParamVar.TypeAcces(0) = "Très élevé"
        MesParamVar.TypeAcces(1) = "Elevé"
        MesParamVar.TypeAcces(2) = "Moyen"
        MesParamVar.TypeAcces(3) = "Faible"
        MesParamVar.TypeAcces(4) = "Très faible"
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For i As Integer = 0 To K_NB_ACCCES
            ListBox1.Items.Add(MesParamVar.acces(i))
        Next
        For i As Integer = 0 To K_NB_TYP_ACC
            ListBox2.Items.Add(MesParamVar.TypeAcces(i))
        Next
 
    End Sub

Bonne continuation.

Voila ce que j'ai fait.J'ai un dictionnaire avec ma structure dedan (déclaration et inialisation):

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
    Public Structure ParamNiv
        Dim niveau() As Integer
        Dim designation() As Integer
        Dim position() As Integer
        Dim acces() As String
        Dim TypeAcces() As String
        Dim TypePaliereA() As String
        Dim TypePaliereB() As String
    End Structure
 
    Dim mesParamNiv as ParamNiv
 
    'procédure qui initialise les élément de la structure
    Sub InitParamNiv()
        ReDim mesParamNiv(0 to 31)
    End Sub

Seulement il me dit que "l'instruction redim requiert un tableau"

et lorsque je fais ceci:

Code:

1
2
 
    Dim mesParamNiv() as ParamNiv

il me dit que "niveau n'est pas un membre de systeme.array

Citation:
Envoyé par scarfunk
Voila ce que j'ai fait.J'ai un dictionnaire avec ma structure dedan (déclaration et inialisation):
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Public Structure ParamNiv Dim niveau() As Integer Dim designation() As Integer Dim position() As Integer Dim acces() As String Dim TypeAcces() As String Dim TypePaliereA() As String Dim TypePaliereB() As String End Structure Dim mesParamNiv() as ParamNiv 'procédure qui initialise les élément de la structure Sub InitParamNiv() ReDim mesParamNiv(0 to 31) End Sub
Seulement il me dit que "l'instruction redim requiert un tableau"

...
Normal il faut les ().

Mais là tu mélanges tout
Que souhaites-tu faire?
Un tableau (32 fois) de ta structure ou une structure contenant des tableaux de différentes dimension (32 niveaux, 10 désignation, 15 position, ...) ?

05/05/2010, 11h36
scarfunk

Une structure contenant des tableaux de différentes dimensions
05/05/2010, 11h46
rv26t

Tu as la solution dans le post N°11
05/05/2010, 11h52
Hinault Romaric
:koi:

un truc du genre
Code:

1 2 ReDim mesParamNiv.niveau(0 to 31)
ainsi de suite... enfin je crois :aie:

@++ ;)
05/05/2010, 11h59
scarfunk
Oui et je t'en remercie seulement un dernier problème subsiste.

Donc dans mon dictionnaire je déclare ma structure puis l'initialise dans un procédure Sub InitParamNiv () (toi dans le form load)

Dans le code de ma form j'utilise un bouton ajouter pour rajouter les données dans les listes box seulement lorsque je clique sur ajouter j'ai une erreur.

Seul les données pour les niveau s'ajoute.
Pour le reste:
Code:

1 2 3 4 5 6 Sub InitParamNiv() mesParamsNiv.acces(0) = "A" mesParamsNiv.acces(1) = "B" '... end sub
Code:

1 2 3 4 5 6 Private Sub AjouterDonnesListBox_Click(...) For i = 0 to K_ACCES ListBox2.Items.Add(mesParamNiv.acces(i)) next end sub
Cela me donne une erreur

Citation:

La valeur ne peut pas être null.
Nom du paramètre : item

Voici la ligne qui bloc:
Code:

1 2 ListBox2.Items.Add(mesParamNiv.acces(i))
ET c'est pareil pour TypeAcces,TypePaliereA et TypePaliereB
05/05/2010, 12h10
rv26t

Vérifie que tu places des valeurs jusqu'aux bornes max de tes tableaux acces, TypeAcces,TypePaliereA et TypePaliereB.
Tu n'as pas tout initialisé dans ton InitParamNiv, certaine valeurs sont donc avec null ce qui plante pour l'ajout dans les ListBox.
05/05/2010, 12h13
Hinault Romaric
Tu initialise un tableau d'environs 30 éléments, tu ajoute deux éléments et tu parcours tout le tableau pour ajouter au Listbox
Code:

1 2 3 4 5 6 int i = 0 While i < mesParamNiv.acces.Length And mesParamNiv.acces(i) <> Nothing ListBox2.Items.Add(mesParamNiv.acces(i)) i = i+1 End While
L'erreur est clair, tu devrais faire un effort de trouver des solutions a tes problèmes avant de faire poste, pas le faire des qu'un problème surgit sans même réfléchir.

@++ ;)
05/05/2010, 12h19
scarfunk

Si tu regarde bien dans le code j'ai mis une cote avec 3 petit point sous entendu qu'il y a une suite (je n'allais pas copier 32 fois la mm ligne)

Voir 40 message(s) de cette discussion en une page