Discussion :

[swizerman]

Bonjour
Comme le titre le mention....

je dois crée un programme qui me permet de crée un nouveau groupe de travailleur.
l'usagers est invité a crée un nouveau groupe de travaille puis a renter les infomation comme nom, prenom, adresse, nombre d heure travailler par semaine.

Jusque la tout va bien,

Mon probleme, C'est lors de l'affichage. le tout s'affiche dans un rich textbox.

lorsque je click afficher : ca doit donner---->

Code :

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

1
2
3
4
5
6
Nom prenom                                    nombre d'heure travaillé
 
Jean Tranquille                                           10
Bastien Retard                                            12
Bernard Canard                                            15
etc....

et ainsi de suite....l'entree des travailleur peut continuer jusqu a 50 si il faut.


Mon probleme, c'est que mon programme m'affiche uniquement la derniere personne que j'ai rentré dans mon groupe....il ne prend pas compte les utilisateur précédent que j'ai rentré...

Je n'arrive pas a crée cette boucle qui me permet d afficher tous les travailleurs qu'on a rentré.

voici ma boucle

Code :

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

1
2
3
4
5
6
7
8
9
      For i = 0 To tbGroupe3.GetLength(0) - 1
 
            travailleur = travailleur & tbGroupe3(i, 0) & Space(25 - tbGroupe3(i, 0).Length) & tbGroupe3(i, 5) & vbCrLf
 
 
        Next
 
 
        Rich.Text =  "Nom " & Space(20) & "Heure travailler" & vbCrLf & travailleur

Merci

[Sankasssss]

Bonsoir,

Votre code de parcours du tableau est bon, il faut voir si ce n'est pas un problème lors de l'introduction.
Vous pouvez déjà regarder combien il y a d'élément réel dans le tableau pour être sur qu'il est bien rempli.

Ceci dit, je ne comprend vraiment pas ton modèle de conception.
Stocker des données dans un tableau n'est pas efficace et est très dur à lire.

Se serait bien plus facile de le faire dans un dataTable...

[swizerman]

En ce moment c'est ainsi que je dois réaliser mes travaux pratiques.

Le nombre d element dans le tableau on ne le connait pas,

L usager rentre X nombre de travailleurs dans le tableau. donc on ne connait la longeurs du tableau

[Neiflheim]

Si il y a que 50 membres maximum, tu peux utiliser un ArrayList avec une structure si tu veux.

Code :

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

1
2
3
4
5
6
7
Private Structure Groupe
Dim Nom as String
Dim Prenom As String
Dim Heure as Integer
End Structure
 
Private ListeTravail() As ArrayList

Pour Rajouter :

Code :

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

1
2
3
4
5
6
7
 
Dim NouveauMembre as Groupe
NouveauMembre.Nom = ...
NouveauMembre.Prenom = ...
NouveauMembre.Heure = ...
 
ListeTravail.Add(NouveauMembre)

Pour Lister :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim SB = new System.text.StringBuilder
 
For i = 0 to ListeTravail.Count - 1
Dim ChercherMembre as Groupe
ChercherMembre = ListeTravail.Item(i)
 
SB.AppendLine(Cherchermembre.Nom & " " & ChercherMembre.Prenom & " " & ChercherMembre.Heure)
Next
 
Rich.Text = SB.ToString()

[asmduty]

Bonjour,

sans entrer dans l'optimisation du code, comment il convient de faire etc. :

On ajoute le texte à chaque occurence de la boucle
Comme on ne veut pas répéter la ligne "Nom Heures travaillées", il faut la sortir de la boucle.

Code :

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

1
2
3
4
5
6
7
8
9
 
Rich.Text =  "Nom " & Space(20) & "Heures travaillées"
 
 For i = 0 To tbGroupe3.GetLength(0) - 1
 
            rich.text +=  tbGroupe3(i, 0) & Space(25 - tbGroupe3(i, 0).Length) & tbGroupe3(i, 5) & vbCrLf
 
 
        Next

PS : On peut laisser "Heure Travailler", mais c'est un peu irritant pour les yeux.