Gestion Des Stagiaires Avec Utilisation Des Structures Et Collection

LANGAGE DE PROGRAMMATION STRUCTUREE

TDI1 2008/2009

'GESTION DES STAGIAIRES AVEC UTILISATION DES STRUCTURES 'ET LA COLLECTION ARRAYLIST Module GESTION_NOTES_STRUCTURES_ARRAYLIST_TDI1CDS Public Structure Stagiaire Dim num As Integer Dim nom As String Dim note1 As Double Dim note2 As Double Dim note3 As Double Function moyenne() Return Math.Round((note1 + note2 + note3) / 3, 2) End Function Dim classement As Integer Dim decision As String End Structure Dim st As Stagiaire Dim listStagiaires As New ArrayList Sub main() Dim choix As Integer Dim rep As String Do menu() choix = Console.ReadLine() Select Case choix Case 1 saisie() Case 2 Affichage() Case 3 ajouter() Case 4 Dim numsupp As Integer Console.WriteLine("saisir le numero de l'etudiant à supprimer") numsupp = Console.ReadLine supprimer(numsupp) Case 5 Dim nummod As Integer Console.WriteLine("saisir le numero de l'etudiant à modifier les donnees") nummod = Console.ReadLine modifier(nummod) Case 6 Dim numRech As Integer

Formateur M. Hamid AZZI

1

Complexe de formation Hay Ennahda

LANGAGE DE PROGRAMMATION STRUCTUREE

TDI1 2008/2009

Console.WriteLine("saisir le numero de l'etudiant à rechercher") numRech = Console.ReadLine rechercher(numRech) Case 7 tri() Affichage() Case 8 End End Select Console.Out.WriteLine("voulez vous continuez(O/N):") rep = Console.ReadLine.ToUpper Loop While rep = "O" End Sub Sub menu() Console.WriteLine("1...SAISIE DES STAGIAIRES.....") Console.WriteLine("2...LISTE DES STAGIAIRES......") Console.WriteLine("3...AJOUTER UN STAGIAIRE......") Console.WriteLine("4...SUPPRIMER UN STAGIAIRE....") Console.WriteLine("5...MODIFIER UN STAGIAIRE.....") Console.WriteLine("6...RECHERCHER UN STAGIAIRE...") Console.WriteLine("7...TRIER ET CLASSER LES STAGIAIRES......") Console.WriteLine("8...QUITTER L'APPLICATION.....") Console.WriteLine(" ...TAPER VOTRE CHOIX.........") End Sub Sub saisie() Dim nb As String Console.WriteLine("donner le nbre de stagiaiares a saiair") nb = Console.ReadLine For i As Integer = 0 To nb - 1 Console.WriteLine("entrez le numero d'etudiant st.num = Console.ReadLine Console.WriteLine("entrez le nom etudiant ") st.nom = Console.ReadLine Console.WriteLine("entrez note1 d'etudiant ") st.note1 = Console.ReadLine Console.WriteLine("entrez note2 d'etudiant ") st.note2 = Console.ReadLine Console.WriteLine("entrez note3 d'etudiant ") st.note3 = Console.ReadLine If st.moyenne >= 10 Then st.decision = "Admis" Else st.decision = "Elimine"

Formateur M. Hamid AZZI

2

")

Complexe de formation Hay Ennahda

LANGAGE DE PROGRAMMATION STRUCTUREE

TDI1 2008/2009

End If listStagiaires.Add(st) Next End Sub Sub tri() Dim st1 As Stagiaire Dim st2 As Stagiaire For i As Integer = 0 To listStagiaires.Count - 2 For j As Integer = i + 1 To listStagiaires.Count - 1 st1 = listStagiaires(i) st2 = listStagiaires(j) If st1.moyenne < st2.moyenne Then st = st1 listStagiaires(i) = listStagiaires(j) listStagiaires(j) = st End If Next Next 'CLASSEMENT st = listStagiaires(0) st.classement = 1 listStagiaires(0) = st For i As Integer = 1 To listStagiaires.Count - 1 st = listStagiaires(i) st1 = listStagiaires(i - 1) If st.moyenne = st1.moyenne Then st.classement = st1.classement listStagiaires(i) = st Else st.classement = i + 1 listStagiaires(i) = st End If Next End Sub Sub Affichage() For i As Integer = 0 To listStagiaires.Count - 1 st = listStagiaires(i) Console.WriteLine(st.num & vbTab & st.nom & vbTab & st.note1 & vbTab & st.note2 & vbTab & st.note3 _ & vbTab & st.moyenne & vbTab & st.classement & vbTab & st.decision) Next End Sub Sub ajouter() st = Nothing Console.WriteLine("entrez le numero d'etudiant ")

Formateur M. Hamid AZZI

3

Complexe de formation Hay Ennahda

LANGAGE DE PROGRAMMATION STRUCTUREE

TDI1 2008/2009

st.num = Console.ReadLine Console.WriteLine("entrez le nom etudiant ") st.nom = Console.ReadLine Console.WriteLine("entrez note1 d'etudiant ") st.note1 = Console.ReadLine Console.WriteLine("entrez note2 d'etudiant ") st.note2 = Console.ReadLine Console.WriteLine("entrez note3 d'etudiant ") st.note3 = Console.ReadLine If st.moyenne >= 10 Then st.decision = "Admis" Else st.decision = "Elimine" End If listStagiaires.Add(st) End Sub Function rechercher(ByVal numero As Integer) As Integer For i = 0 To listStagiaires.Count - 1 st = listStagiaires(i) If st.num = numero Then Console.WriteLine(st.num & vbTab & st.nom & vbTab & st.note1 & vbTab & st.note2 & vbTab & st.note3 _ & vbTab & st.moyenne & vbTab & st.classement & vbTab & st.decision) Return i End If Next Console.WriteLine("le stagiaire recherche est introuvable") Return -1 End Function Sub supprimer(ByVal numero As Integer) Dim indice As Integer = rechercher(numero) If indice <> -1 Then listStagiaires.RemoveAt(indice) End If End Sub Sub modifier(ByVal numero As Integer) Dim indice As Integer = rechercher(numero) If indice <> -1 Then Console.WriteLine("entrez le numero d'etudiant ") st.num = Console.ReadLine Console.WriteLine("entrez le nom etudiant ") st.nom = Console.ReadLine Console.WriteLine("entrez note1 d'etudiant ") st.note1 = Console.ReadLine Console.WriteLine("entrez note2 d'etudiant ")

Formateur M. Hamid AZZI

4

Complexe de formation Hay Ennahda

LANGAGE DE PROGRAMMATION STRUCTUREE

TDI1 2008/2009

st.note2 = Console.ReadLine Console.WriteLine("entrez note3 d'etudiant st.note3 = Console.ReadLine If st.moyenne >= 10 Then st.decision = "Admis" Else st.decision = "Elimine" End If End If listStagiaires.RemoveAt(indice) listStagiaires.Insert(indice, st) End Sub End Module

Formateur M. Hamid AZZI

5

")

Complexe de formation Hay Ennahda