Module Module1 'ce programme permet d'effectuer des operations contenant dans un menu sur les informations des stagiaires Structure stagiaire Dim numero As Integer Dim nom As String Dim prenom As String Dim age As Integer Dim adresse As String End Structure Dim stagiaire1 As stagiaire Sub ajouter() FileOpen(1, "c:\travail\fichier.txt", OpenMode.Append) Dim reponse As String Do Dim chaine As String Console.WriteLine("numero") stagiaire1.numero = Console.ReadLine() Console.WriteLine("nom") stagiaire1.nom = Console.ReadLine() Console.WriteLine("prenom") stagiaire1.prenom = Console.ReadLine() Console.WriteLine("age") stagiaire1.age = Console.ReadLine() Console.WriteLine("adresse") stagiaire1.adresse = Console.ReadLine() chaine = "Numero:" & stagiaire1.numero & " " & "Nom:" & " " & stagiaire1.nom & " " & "Prenom:" & stagiaire1.prenom & "" & "Age:" & stagiaire1.age & " " & "Adresse:" & stagiaire1.adresse PrintLine(1, chaine) Console.WriteLine("Vous voulez ajouter d'autre stagiaires?oui/non") reponse = Console.ReadLine() Loop Until reponse = "non" FileClose(1) Console.ReadLine() End Sub Sub Afficher(ByVal numero As Integer) FileOpen(1, "c:\travail\fichier.txt", OpenMode.Input) Dim chaine As String While EOF(numero) <> True chaine = LineInput(numero) Console.WriteLine(chaine) End While FileClose(numero) Console.ReadLine() End Sub Sub rechercher(ByVal numero As Integer) FileOpen(1, "c:\travail\fichier.txt", OpenMode.Input) Dim exist As Boolean = False Dim chaine As String Dim numero_stg As Integer Console.WriteLine("Entrez le numero du stagiaire ŕ rechercher") numero_stg = Console.ReadLine() While EOF(numero) <> True chaine = LineInput(numero) If stagiaire1.numero = numero_stg Then exist = True End If End While If exist = True Then Console.WriteLine("Le stagiaire existe") Else Console.WriteLine("Le stagiaire n'existe pas") End If FileClose(numero) Console.ReadLine() End Sub Sub modifier(ByVal numero As Integer, ByVal info As Integer) Dim chaine1 As String Select Case info Case 1 FileOpen(1, "c:\travail\fichier.txt", OpenMode.Input) Dim exist As Boolean = False Dim chaine As String Dim numero_stg As Integer Console.WriteLine("Entrez le numero du stagiaire ŕ modifier") numero_stg = Console.ReadLine() While EOF(numero) <> True chaine = LineInput(numero) If stagiaire1.numero = numero_stg Then exist = True End If End While FileClose(numero) FileOpen(1, "c:\travail\fichier.txt", OpenMode.Append) If exist = True Then Console.WriteLine("Entrez le nouveau numero") stagiaire1.numero = Console.ReadLine() chaine1 = "Numero:" & stagiaire1.numero & " " & "Nom:" & " " & stagiaire1.nom & " " & "Prenom:" & stagiaire1.prenom & "" & "Age:" & stagiaire1.age & " " & "Adresse:" & stagiaire1.adresse PrintLine(numero, chaine1) Console.WriteLine("La modification a ete effectuer avec succes") Else Console.WriteLine("Le stagiaire n'existe pas") End If FileClose(numero) Console.ReadLine() Case 2 FileOpen(1, "c:\travail\fichier.txt", OpenMode.Input) Dim exist As Boolean = False Dim chaine As String Dim numero_stg As Integer Console.WriteLine("Entrez le numero du stagiaire auquel vous voulez modifier le nom") numero_stg = Console.ReadLine() While EOF(numero) <> True chaine = LineInput(numero) If stagiaire1.numero = numero_stg Then exist = True End If End While FileClose(numero) FileOpen(1, "c:\travail\fichier.txt", OpenMode.Append) If exist = True Then Console.WriteLine("Entrez le nouveau nom") stagiaire1.nom = Console.ReadLine() chaine1 = "Numero:" & stagiaire1.numero & " " & "Nom:" & " " & stagiaire1.nom & " " & "Prenom:" & stagiaire1.prenom & "" & "Age:" & stagiaire1.age & " " & "Adresse:" & stagiaire1.adresse PrintLine(numero, chaine1) Console.WriteLine("La modification a ete effectuer avec succes") Else Console.WriteLine("Le stagiaire n'existe pas") End If FileClose(numero) Console.ReadLine() Case 3 FileOpen(1, "c:\travail\fichier.txt", OpenMode.Input) Dim exist As Boolean = False Dim chaine As String Dim numero_stg As Integer Console.WriteLine("Entrez le prenom du stagiaire auquel vous voulez modifier le prenom") numero_stg = Console.ReadLine() While EOF(numero) <> True chaine = LineInput(numero) If stagiaire1.numero = numero_stg Then exist = True End If End While FileClose(numero) FileOpen(1, "c:\travail\fichier.txt", OpenMode.Append) If exist = True Then Console.WriteLine("Entrez le nouveau prenom") stagiaire1.prenom = Console.ReadLine() chaine1 = "Numero:" & stagiaire1.numero & " " & "Nom:" & " " & stagiaire1.nom & " " & "Prenom:" & stagiaire1.prenom & "" & "Age:" & stagiaire1.age & " " & "Adresse:" & stagiaire1.adresse PrintLine(numero, chaine1) Console.WriteLine("La modification a ete effectuer avec succes") Else Console.WriteLine("Le stagiaire n'existe pas") End If FileClose(numero) Console.ReadLine() Case 4 FileOpen(1, "c:\travail\fichier.txt", OpenMode.Input) Dim exist As Boolean = False Dim chaine As String Dim numero_stg As Integer Console.WriteLine("Entrez le prenom du stagiaire auquel vous voulez modifier l'age") numero_stg = Console.ReadLine() While EOF(numero) <> True chaine = LineInput(numero) If stagiaire1.numero = numero_stg Then exist = True End If End While FileClose(numero) FileOpen(1, "c:\travail\fichier.txt", OpenMode.Append) If exist = True Then Console.WriteLine("Entrez le nouveau age") stagiaire1.age = Console.ReadLine() chaine1 = "Numero:" & stagiaire1.numero & " " & "Nom:" & " " & stagiaire1.nom & " " & "Prenom:" & stagiaire1.prenom & "" & "Age:" & stagiaire1.age & " " & "Adresse:" & stagiaire1.adresse PrintLine(numero, chaine1) Console.WriteLine("La modification a ete effectuer avec succes") Else Console.WriteLine("Le stagiaire n'existe pas") End If FileClose(numero) Console.ReadLine() Case 5 FileOpen(1, "c:\travail\fichier.txt", OpenMode.Input) Dim exist As Boolean = False Dim chaine As String Dim numero_stg As Integer Console.WriteLine("Entrez le prenom du stagiaire auquel vous voulez modifier l'adresse") numero_stg = Console.ReadLine() While EOF(numero) <> True chaine = LineInput(numero) If stagiaire1.numero = numero_stg Then exist = True End If End While FileClose(numero) FileOpen(1, "c:\travail\fichier.txt", OpenMode.Append) If exist = True Then Console.WriteLine("Entrez la nouvelle adresse") stagiaire1.adresse = Console.ReadLine() chaine1 = "Numero:" & stagiaire1.numero & " " & "Nom:" & " " & stagiaire1.nom & " " & "Prenom:" & stagiaire1.prenom & "" & "Age:" & stagiaire1.age & " " & "Adresse:" & stagiaire1.adresse PrintLine(numero, chaine1) Console.WriteLine("La modification a ete effectuer avec succes") Else Console.WriteLine("Le stagiaire n'existe pas") End If FileClose(numero) Console.ReadLine() End Select End Sub Sub supprimer(ByVal numero As Integer) FileOpen(1, "c:\travail\fichier.txt", OpenMode.Input) Dim exist As Boolean = False Dim chaine As String Dim numero_stg As Integer Console.WriteLine("Entrez le numero du stagiaire ŕ supprimer") numero_stg = Console.ReadLine() While EOF(numero) <> True chaine = LineInput(numero) If stagiaire1.numero = numero_stg Then exist = True End If End While If exist = True Then Console.WriteLine("Le stagiaire existe") Else Console.WriteLine("Le stagiaire n'existe pas") End If FileClose(numero) Console.ReadLine() End Sub Sub Main() Console.WriteLine("Veuillez remplir les information suivantes:") Dim choix, num As Integer Dim reponse As String num = FreeFile() FileOpen(num, "c:\travail\fichier.txt", OpenMode.Output) Do Dim chaine As String Console.WriteLine("numero") stagiaire1.numero = Console.ReadLine() Console.WriteLine("nom") stagiaire1.nom = Console.ReadLine() Console.WriteLine("prenom") stagiaire1.prenom = Console.ReadLine() Console.WriteLine("age") stagiaire1.age = Console.ReadLine() Console.WriteLine("adresse") stagiaire1.adresse = Console.ReadLine() chaine = "Numero:" & stagiaire1.numero & " " & "Nom:" & " " & stagiaire1.nom & " " & "Prenom:" & stagiaire1.prenom & "" & "Age:" & stagiaire1.age & " " & "Adresse:" & stagiaire1.adresse PrintLine(num, chaine) Console.WriteLine("Y_a_t_il d'autres stagiaires?oui:non") reponse = Console.ReadLine() Loop Until reponse = "non" FileClose(num) Do Console.WriteLine(" *MENU* ") Console.WriteLine("********************************") Console.WriteLine("* *") Console.WriteLine("* 1_Ajouter *") Console.WriteLine("* 2_Afficher *") Console.WriteLine("* 3_Rechercher *") Console.WriteLine("* 4_Modifier *") Console.WriteLine("* 5_Supprimer *") Console.WriteLine("* 6_Quitter *") Console.WriteLine("* *") Console.WriteLine("********************************") Do Console.WriteLine("Entrez le numero de l'opperation ŕ effectuer") choix = Console.ReadLine() Loop Until choix > 0 And choix < 7 Select Case choix Case 1 ajouter() Case 2 Afficher(num) Case 3 rechercher(num) Case 4 Dim niveau As Integer Console.WriteLine("Voulez vous effectuer la modification sur quelle information?") Console.WriteLine("") Console.WriteLine(" *information* ") Console.WriteLine("********************************") Console.WriteLine("* *") Console.WriteLine("* 1_Numero *") Console.WriteLine("* 2_Nom *") Console.WriteLine("* 3_Prenom *") Console.WriteLine("* 4_Age *") Console.WriteLine("* 5_Adresse *") Console.WriteLine("* *") Console.WriteLine("********************************") niveau = Console.ReadLine() modifier(num, niveau) Case 5 supprimer(num) Case 6 Console.WriteLine("Le programme est terminé") End End Select Console.WriteLine("Voulez vous continuer?oui/non") reponse = Console.ReadLine() Loop Until reponse = "non" End Sub End Module