afficher liste des eleve d'une classe d un tableau T

**clem62173** · 31/10/2009, 10h31

Bonjour

Je voudrai afficher dans une listeBox la liste des eleve dune classe d un tableau T que j'aurai rechercher par une fonction recherche

voila l'ensemble de mon prog VB

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
Option Explicit
Dim T(1 To 100) As eleve
Dim nbEleves As Integer

Private Sub Command1_Click()


Dim i, k As Integer

Dim nom As String
Dim pre As String
Dim classe As String
Dim commune As String
Dim FdF As Boolean

'initialisation des variables
i = 1
FdF = False

'Il convient d'ouvrir le fichier
Open "c:\eleve.txt" For Input As 1

'lecture du fichier par appel de la procedure LIREeleve
While FdF = False
    Call lireelves(nom, pre, classe, commune, FdF)
    'rangement des infos élémentaires dans le tableau
    T(i).nom = nom
    T(i).prenom = pre
    T(i).classe = classe
    T(i).commune = commune
    i = i + 1
Wend

nbEleves = i - 1

'fermeture du fichier
Close #1

MsgBox "terminé"

End Sub
Public Sub lireelves(ByRef a As String, ByRef b As String, ByRef c As String, ByRef d As String, ByRef x As Boolean)
Dim enr As String

'lecture du fichier séquentiel
Line Input #1, enr

'découpe de l'enregistrement et initialisation des paramétres formels
a = Mid(enr, 1, 25)
b = Mid(enr, 27, 18)
c = Mid(enr, 46, 5)
d = Mid(enr, 52, 24)
x = EOF(1)


End Sub
Public Sub rempligrille()
Dim i As Integer

'Remplissage de la grille
For i = 0 To nbEleves - 1
        G.Row = i
        G.Col = 0
        G.Text = i
        G.Col = 1
        G.Text = T(i + 1).nom
        G.Col = 2
        G.Text = T(i + 1).prenom
        G.Col = 3
        G.Text = T(i + 1).classe
        G.Col = 4
        G.Text = T(i + 1).commune
Next i

End Sub
Private Sub Command2_Click()

Dim i As Integer
' initialisation dimension de la grille
G.Rows = nbEleves
G.Cols = 5
' initialisation largeur colonne de la grille
G.ColWidth(1) = 2000
G.ColWidth(2) = 1500
G.ColWidth(3) = 2000
G.ColWidth(4) = 1500
Call rempligrille
End Sub




Public Function eleve_classe(ByVal nom As String) As String


Dim i As Integer
For i = 1 To nbEleves

    If UCase(nom) = (Mid(T(i).nom, 1, (Len(nom)))) Then
            eleve_classe = T(i).classe
            
    End If
    
Next i



End Function






Private Sub Command3_Click()


Call nom_classe.List1.AddItem(nom, prenom)
End Sub

Private Sub Command4_Click()
MsgBox eleve_classe(Text2.Text)
End Sub

Private Sub Command5_Click()
Dim i As Integer
Dim temp As eleve
Dim k As Integer
For k = nbEleves - 1 To 2 Step -1
For i = 2 To k
    If T(i).nom > T(i + 1).nom Then
        temp = T(i)
        T(i) = T(i + 1)
        T(i + 1) = temp
    End If
Next i
Next k

Call rempligrille
End Sub

Private Sub G_Click()
Dim a As String
Dim b As String
Dim i As Integer
Dim temp As eleve
Dim k As Integer

'Algorithme de tri classique
For k = nbEleves - 1 To 2 Step -1
For i = 2 To k
   'selon le numero de colonne sélectionné
    Select Case G.Col
Case 1:     a = T(i).nom
            b = T(i + 1).nom
Case 2:     a = T(i).prenom
            b = T(i + 1).prenom
Case 3:     a = T(i).classe
            b = T(i + 1).classe
Case 4:     a = T(i).commune
            b = T(i + 1).commune
    End Select

    If a > b Then
        temp = T(i)
        T(i) = T(i + 1)
        T(i + 1) = temp
    End If
Next i
Next k

Call rempligrille
End Sub




Private Sub Picture1_Click()
End
End Sub

Merci

**ucfoutu** · 31/10/2009, 11h17

Bonjour,
Tu travailles apparemment là avec un fichier texte structuré.
Où est ta structure eleve ? (on ne la voit pas)

**clem62173** · 31/10/2009, 17h41

Si jai le fichier texte, mais c'est pas ca l'important, c'est pour recherche dans Tii les eleves qui sont dans la classe sasi dans une textbox et executer a partir d un bouton command.click et affichez dans 1 liste box les eleves de la classe rechercher donnez moi une structure déja s'il vous plait

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
Option Explicit
Dim T(1 To 100) As eleve
Dim nbEleves As Integer
 
Private Sub Command1_Click()
 
 
Dim i, k As Integer
 
Dim nom As String
Dim pre As String
Dim classe As String
Dim commune As String
Dim FdF As Boolean
 
'initialisation des variables
i = 1
FdF = False
 
'Il convient d'ouvrir le fichier
Open "c:\eleve.txt" For Input As 1
 
'lecture du fichier par appel de la procedure LIREeleve
While FdF = False
    Call lireelves(nom, pre, classe, commune, FdF)
    'rangement des infos élémentaires dans le tableau
    T(i).nom = nom
    T(i).prenom = pre
    T(i).classe = classe
    T(i).commune = commune
    i = i + 1
Wend
 
nbEleves = i - 1
 
'fermeture du fichier
Close #1
 
MsgBox "terminé"
 
End Sub
Public Sub lireelves(ByRef a As String, ByRef b As String, ByRef c As String, ByRef d As String, ByRef x As Boolean)
Dim enr As String
 
'lecture du fichier séquentiel
Line Input #1, enr
 
'découpe de l'enregistrement et initialisation des paramétres formels
a = Mid(enr, 1, 25)
b = Mid(enr, 27, 18)
c = Mid(enr, 46, 5)
d = Mid(enr, 52, 24)
x = EOF(1)
 
 
End Sub
Public Sub rempligrille()
Dim i As Integer
 
'Remplissage de la grille
For i = 0 To nbEleves - 1
        G.Row = i
        G.Col = 0
        G.Text = i
        G.Col = 1
        G.Text = T(i + 1).nom
        G.Col = 2
        G.Text = T(i + 1).prenom
        G.Col = 3
        G.Text = T(i + 1).classe
        G.Col = 4
        G.Text = T(i + 1).commune
Next i
 
End Sub
Private Sub Command2_Click()
 
Dim i As Integer
' initialisation dimension de la grille
G.Rows = nbEleves
G.Cols = 5
' initialisation largeur colonne de la grille
G.ColWidth(1) = 2000
G.ColWidth(2) = 1500
G.ColWidth(3) = 2000
G.ColWidth(4) = 1500
Call rempligrille
End Sub
 
 
 
 
Public Function eleve_classe(ByVal nom As String) As String
 
 
Dim i As Integer
For i = 1 To nbEleves
 
    If UCase(nom) = (Mid(T(i).nom, 1, (Len(nom)))) Then
            eleve_classe = T(i).classe
 
    End If
 
Next i
 
 
 
End Function
 
 
 
 
 
 
Private Sub Command3_Click()
 
 
Call nom_classe.List1.AddItem(nom, prenom)
 
End Sub
 
Private Sub Command4_Click()
MsgBox eleve_classe(Text2.Text)
End Sub
 
Private Sub Command5_Click()
Dim i As Integer
Dim temp As eleve
Dim k As Integer
For k = nbEleves - 1 To 2 Step -1
For i = 2 To k
    If T(i).nom > T(i + 1).nom Then
        temp = T(i)
        T(i) = T(i + 1)
        T(i + 1) = temp
    End If
Next i
Next k
 
Call rempligrille
End Sub
 
Private Sub G_Click()
Dim a As String
Dim b As String
Dim i As Integer
Dim temp As eleve
Dim k As Integer
 
'Algorithme de tri classique
For k = nbEleves - 1 To 2 Step -1
For i = 2 To k
   'selon le numero de colonne sélectionné
    Select Case G.Col
Case 1:     a = T(i).nom
            b = T(i + 1).nom
Case 2:     a = T(i).prenom
            b = T(i + 1).prenom
Case 3:     a = T(i).classe
            b = T(i + 1).classe
Case 4:     a = T(i).commune
            b = T(i + 1).commune
    End Select
 
    If a > b Then
        temp = T(i)
        T(i) = T(i + 1)
        T(i + 1) = temp
    End If
Next i
Next k
 
Call rempligrille
End Sub
 
 
 
 
Private Sub Picture1_Click()
End
End Sub

**ucfoutu** · 31/10/2009, 17h46

Envoyé par ucfoutu

Bonjour,
Tu travailles apparemment là avec un fichier texte structuré.
Où est ta structure eleve ? (on ne la voit pas)

Tu nous remets ton code !
Bis repetita : où est la structure eleve ?
(si tu t'y réfères, tu l'as créée, j'espère ... elle ne peut "sortir du néant"..
.)

**iclic** · 31/10/2009, 18h16

Bonjour,

J'en remets une couche à ce que Ucfoutu te demande

Dim T(1 To 100) As eleve

Pour l'ordi si tu lances le programme 'eleve n'existe pas puisqu'il
n'est défini nulle part,donc il faut définir sa structure par je suppose quelque chose comme

Code :

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

1
2
3
4
5
 
Type eleve
 
etc...
End type

**clem62173** · 01/11/2009, 12h13

ok jai compris le module en fait

Code :

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

1
2
3
4
5
6
Type eleve
nom As String
prenom As String
classe As String
commune As String
End Type

**OhMonBato** · 01/11/2009, 12h29

Bonjour,

oublions un peu le code pour le moment. Personnellement j'aimerais savoir dans le principe sur quoi va être basé ta recherche d'élèves dans le tableau. Leur nom ? Une partie de leur nom ? Autre chose ?

Sinon, pour aider à la lisibilité de ton code (pour toi mais aussi pour nous), il est préférable de donner un nom "parlant" aux boutons de commandes et autres controles, Command1 pourrait être appelé Cmd_LectureFichier par exemple, etc...

**clem62173** · 03/11/2009, 15h14

voila c'est deja plus comprehensible ce que je veux faire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub eleve_classe(nom As String, prenom As String)
Dim i As Integer
For i = 1 To nbEleves
 
    If UCase(classe) = (Mid(T(i).classe, 1, (Len(classe)))) Then
            Print ListBox.Add; Item; nom_classe
    End If
   cpt = cpt + 1
   MsgBox ("il y a " & cpt & "eleves dans la classe")
 
Next i
 
End Sub

Merci de corriger ce qui est faux ou d ajouter ce qui manque comme code

**ucfoutu** · 03/11/2009, 15h21

Ah ...
Corriger ce qui, "là-dedans", serait faux ?
Dis-nous d'abord (juste pour voir) ce qui, pour toi, y correspond à une syntaxe vb acceptable ...
On dirait que tu y vas carrément "au hasard"...
Je ne suis même pas certain que ton tableau de structures contienne les bonnes données ...

(l'as-tu, d'ailleurs, seulement vérifié ?)

Autre chose : ce qui est totalement faux (syntaxe elle-même) est dénoncé à l'exécution, non ? Et le debugger dénonce la ligne de code concernée, non ?

**clem62173** · 03/11/2009, 22h37

je debute en VB je connais tres peu la sinthaxe vb

en fait je rentre la classe dans une textBox et il parcours le tableau doc un pour donc i to nb eleves et il m inscri le nom et prenom des eleves qui sont dans la classe saisi dans la textbox

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
Private Sub eleve_classe(nom As String, prenom As String)
Dim i As Integer
For i = 1 To nbEleves
 
    If UCase(classe) = (Mid(T(i).classe, 1, (Len(classe)))) 
'saisir de classe 
if t(i).classe=text1.Text then         
  Print ListBox.Add; Item; nom_classe
    End If
   cpt = cpt + 1
   MsgBox ("il y a " & cpt & "eleves dans la classe")
 
Next i
 
End Sub

**ProgElecT** · 03/11/2009, 23h23

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub eleve_classe(nom As String, prenom As String)
Dim i As Integer
 
For i = 1 To nbEleves
    If UCase(classe) = (Mid(T(i).classe, 1, (Len(classe)))) Then 'saisir de classe
        If T(i).classe = text1.Text Then
            Print ListBox.Add; Item; nom_classe
        End If
        cpt = cpt + 1
    End If
Next i
MsgBox ("il y a " & cpt & "eleves dans la classe")
 
End Sub

A quoi te servent les variables en parametres de ta sub nom et prenom , elle ne sont pas utilisées ?
Print ListBox.Add; Item; nom_classe, tu cherches à faire quoi avec cela, qui n'est pas une syntaxe VB de toute façon.

**clem62173** · 04/11/2009, 14h53

voila peut etre vous y verrez plus clair avec une cop écran pour voir mon but a arreindre je lit le tableau je laffiche, le classe pas ordre alpha et ensuite je veux faire une recherche des eleve d une classe et les afficher dans une listbox

merci

afficher liste des eleve d'une classe d un tableau T

VB 6 et antérieur

Vue hybride

Discussions similaires

Partager

Partager