Ajouter un commentaire

LiKayn
VB 2005 CONSOLE RETOUR MENU PRINCIPAL

j'ai un probleme de retour des menus secondaires vers un menu principal

voici mon code:

Sub Main()
        erreur = False
        Console.WriteLine("Choisissez le numéro du Menu auquel vous voulez accéder :")
        Console.WriteLine("")
        Do
            Try
                MenuPrincipal()
                Console.WriteLine("")
                Console.WriteLine("Choisissez le numéro du Menu auquel vous voulez accéder :")
                rep1 = Console.ReadLine()
                While rep1 > 2
                    Console.Clear()
                    Console.WriteLine("Choix Erroné !.")
                    Console.Beep(550, 400)
                    Console.WriteLine("")
                    Console.WriteLine("Entrez à nouveau un choix depuis le Menu Principal :")
                    Console.WriteLine("")
                    MenuPrincipal()
                    Console.WriteLine("")
                    Console.WriteLine("Choisissez le numéro du Menu auquel vous voulez accéder :")
                    rep1 = Console.ReadLine()
                End While
                erreur = True
            Catch ex As InvalidCastException
                Console.Clear()
                Console.WriteLine("Choix Erroné !.")
                Console.Beep(550, 400)
                Console.WriteLine("")
                Console.WriteLine("Entrez à nouveau un choix depuis le Menu Principal :")
                Console.WriteLine("")
                erreur = False
            End Try
        Loop While erreur = False
        Do
            If rep1 = 1 Then
                Do
                    Console.Clear()
                    Do
                        Try
                            MenuVoitures()
                            Console.WriteLine("")
                            Console.WriteLine("Choisissez l'option qui vous convienne depuis le Menu :")
                            rep2 = Console.ReadLine()
                            While rep2 > 7
                                Console.Clear()
                                Console.WriteLine("Choix Erroné !.")
                                Console.Beep(550, 400)
                                Console.WriteLine("")
                                Console.WriteLine("Entrez à nouveau un choix depuis le Menu Voitures :")
                                Console.WriteLine("")
                                MenuVoitures()
                                Console.WriteLine("")
                                Console.WriteLine("Choisissez l'option qui vous convienne depuis le Menu :")
                                rep2 = Console.ReadLine()
                            End While
                            erreur = True
                        Catch ex As InvalidCastException
                            Console.Clear()
                            Console.WriteLine("Choix Erroné !.")
                            Console.Beep(550, 400)
                            Console.WriteLine("")
                            Console.WriteLine("Entrez à nouveau un choix depuis le Menu Principal :")
                            Console.WriteLine("")
                            erreur = False
                        End Try
                    Loop While erreur = False
                    Select Case rep2
                        Case 1
                            AjouterVoiture()
                        Case 2
                            Console.WriteLine("Entrez le matricule de la voiture :")
                            cle = Console.ReadLine()
                            yes = RechercherVoiture(cle)
                            While yes = False
                                Console.WriteLine("")
                                Console.WriteLine("Le matricule que vous avez entrez ne correspond à aucune voiture.")
                                Console.WriteLine("")
                                Console.WriteLine("Pour reprendre tapez O. Sinon tapez N.")
                                rep3 = Console.ReadLine()
                                While rep3 <> "n" And rep3 <> "o"
                                    Console.Clear()
                                    Console.WriteLine("Vous avez deux choix :")
                                    Console.WriteLine("")
                                    Console.WriteLine("")
                                    Console.WriteLine("Pour reprendre tapez O .")
                                    Console.WriteLine("")
                                    Console.WriteLine("Pour retourner au Menu Voitures tapez N")
                                    Console.WriteLine("")
                                    rep3 = Console.ReadLine()
                                End While
                                If rep3 = "o" Then
                                    Console.WriteLine("")
                                    Console.WriteLine("Entrez à nouveau le matricule :")
                                    cle = Console.ReadLine()
                                    yes = RechercherVoiture(cle)
                                Else
                                    yes = True
                                End If
                            End While
                            If yes = True Then
                                Console.Clear()
                                Do
                                    Try
                                        MenuModifVoiture()
                                        Console.WriteLine("Entrez le numéro de la tache que vous voulez exécuter :")
                                        repmod = Console.ReadLine()
                                        erreur = True
                                        While repmod > 4
                                            Console.Clear()
                                            Console.WriteLine("Choix Erroné !.")
                                            Console.Beep(550, 400)
                                            Console.WriteLine("")
                                            MenuModifVoiture()
                                            Console.WriteLine("")
                                            Console.WriteLine("Entrez a nouveau un choix depuis le Menu Modification des données voiture :")
                                            repmod = Console.ReadLine()
                                        End While
                                    Catch ex As InvalidCastException
                                        Console.Clear()
                                        Console.WriteLine("Choix Erroné !.")
                                        Console.Beep(550, 400)
                                        Console.WriteLine("Entrez le numéro de la tache que vous voulez exécuter :")
                                        Console.WriteLine("")
                                        erreur = False
                                    End Try
                                Loop While erreur = False
                                Select Case repmod
                                    Case 1
                                        ModifierMarque(cle)
                                    Case 2
                                        ModifierSerie(cle)
                                    Case 3
                                        ModifierType(cle)
                                    Case 4
                                        ModifierCouleur(cle)
                                End Select
                            End If
                        Case 3
                            VendreVoitureComplet()
                        Case 4
                            Console.WriteLine("Entrez le matricule de la voiture :")
                            cle = Console.ReadLine()
                            yes = RechercherVoiture(cle)
                            While yes = False
                                Console.WriteLine("Le matricule que vous avez entrez ne correspond à aucune voiture.")
                                Console.Beep()
                                Console.WriteLine("")
                                Console.WriteLine("Entrez à nouveau le matricule :")
                                cle = Console.ReadLine()
                                yes = RechercherVoiture(cle)
                            End While
                            SupprimerVoiture(cle)
                            Console.WriteLine("Appuiyez sur ENTREE pour retourner au Menu Voitures")
                            Console.ReadLine()
                        Case 5
                            Console.WriteLine("Entrez le matricule de la voiture :")
                            cle = Console.ReadLine()
                            yes2 = RechercherVoiture(cle)
                            yes3 = RechercherVendues(cle)
                            While yes2 = False And yes3 = False
                                Console.WriteLine("Le matricule que vous avez entrez ne correspond à aucune voiture.")
                                Console.Beep()
                                Console.WriteLine("")
                                Console.WriteLine("Entrez à nouveau le matricule :")
                                cle = Console.ReadLine()
                                yes2 = RechercherVoiture(cle)
                                yes3 = RechercherVendues(cle)
                            End While
                            If yes2 = True Then
                                Console.WriteLine("")
                                AfficherVoiture(cle)
                                Console.WriteLine("")
                                Console.WriteLine("Appuiyez sur ENTREE pour retourner au Menu Voitures .")
                                Console.ReadLine()
                            ElseIf yes3 = True Then
                                Console.WriteLine("")
                                AfficherVendue(cle)
                                Console.WriteLine("Appuiyez sur ENTREE pour retourner au Menu Voitures .")
                                Console.ReadLine()
                            End If
                        Case 6
                            Console.WriteLine("")
                            AfficherVoitures()
                            Console.WriteLine("Appuiyez sur ENTREE pour retourner au Menu Voitures .")
                            Console.ReadLine()
                        Case 7
                            Console.WriteLine("")
                            AfficherVendues()
                            Console.WriteLine("Appuiyez sur ENTREE pour retourner au Menu Voitures .")
                            Console.ReadLine()
                    End Select
                Loop Until repmod <> 0
            ElseIf rep1 = 2 Then
                Console.Clear()
                MenuClients()
                Console.WriteLine("")
                Console.WriteLine("Choisissez l'option qui vous convienne depuis le Menu :")
                rep2 = Console.ReadLine()
                While rep2 > 5
                    Console.Clear()
                    Console.WriteLine("Choix Erroné")
                    Console.Beep(550, 400)
                    Console.WriteLine("Entrez a nouveau un choix depuis le Menu Clients :")
                    Console.WriteLine("")
                    MenuClients()
                    Console.WriteLine("")
                    rep2 = Console.ReadLine()
                End While
                Select Case rep2
                    Case 1
                        AjouterClient()
                    Case 2
                        Console.WriteLine("Entrez le CIN du client :")
                        cle = Console.ReadLine()
                        yes = RechercherClient(cle)
                        While yes = False
                            Console.WriteLine("")
                            Console.WriteLine("Le CIN que vous avez entrez ne correspond à aucun client.")
                            Console.WriteLine("")
                            Console.WriteLine("Pour reprendre tapez O. Sinon tapez N.")
                            rep3 = Console.ReadLine()
                            While rep3 <> "n" And rep3 <> "o"
                                Console.Clear()
                                Console.WriteLine("Vous avez deux choix :")
                                Console.WriteLine("")
                                Console.WriteLine("")
                                Console.WriteLine("Pour reprendre tapez O .")
                                Console.WriteLine("")
                                Console.WriteLine("Pour retourner au Menu Clients tapez N")
                                Console.WriteLine("")
                                rep3 = Console.ReadLine()
                            End While
                            If rep3 = "o" Then
                                Console.WriteLine("")
                                Console.WriteLine("Entrez à nouveau le CIN :")
                                cle = Console.ReadLine()
                                yes = RechercherClient(cle)
                            Else
                                yes = True
                            End If
                        End While
                        If yes = True Then
                            Console.Clear()
                            Do
                                Try
                                    MenuModifclient()
                                    Console.WriteLine("Entrez le numéro de la tache que vous voulez exécuter :")
                                    repmod = Console.ReadLine()
                                    erreur = True
                                    While repmod > 4
                                        Console.WriteLine("Choix Erroné !.")
                                        Console.Beep(550, 400)
                                        Console.WriteLine("Entrez à nouveau un choix depuis le Menu Modification des données client :")
                                        Console.WriteLine("")
                                        MenuModifclient()
                                        Console.WriteLine("")
                                        repmod = Console.ReadLine()
                                    End While
                                Catch ex As InvalidCastException
                                    Console.Clear()
                                    Console.WriteLine("Choix Erroné !.")
                                    Console.Beep(550, 400)
                                    Console.WriteLine("Entrez le numéro de la tache que vous voulez exécuter :")
                                    Console.WriteLine("")
                                    erreur = False
                                End Try
                            Loop While erreur = False
                            Select Case repmod
                                Case 1
                                    ModifierNom(cle)
                                Case 2
                                    ModifierPrenom(cle)
                                Case 3
                                    ModifierTel(cle)
                                Case 4
                                    ModifierAdresse(cle)
                            End Select
                        End If
                    Case 3
                        Console.WriteLine("Entrez le CIN du client :")
                        cle = Console.ReadLine()
                        yes = RechercherClient(cle)
                        While yes = False
                            Console.WriteLine("Le CIN que vous avez entrez ne correspond à aucun client.")
                            Console.Beep()
                            Console.WriteLine("")
                            Console.WriteLine("Entrez à nouveau le CIN :")
                            cle = Console.ReadLine()
                            yes = RechercherVoiture(cle)
                        End While
                        SupprimerClient(cle)
                        Console.WriteLine("Appuiyez sur ENTREE pour retourner au Menu Clients")
                        Console.ReadLine()
                    Case 4
                        Console.WriteLine("Entrez le CIN du client :")
                        cle = Console.ReadLine()
                        yes = RechercherClient(cle)
                        While yes = False
                            Console.WriteLine("Le CIN que vous avez entrez ne correspond à aucun client.")
                            Console.Beep()
                            Console.WriteLine("")
                            Console.WriteLine("Entrez à nouveau le CIN :")
                            cle = Console.ReadLine()
                            yes = RechercherVoiture(cle)
                        End While
                        AfficherClient(cle)
                        Console.WriteLine("Appuiyez sur ENTREE pour retourner au Menu Clients")
                        Console.ReadLine()
                    Case 5
                        AfficherClients()
                        Console.WriteLine("Appuiyez sur ENTREE pour retourner au Menu Clients")
                        Console.ReadLine()
                    Case 0
                        Console.Clear()
                        Main()
                End Select
            ElseIf rep1 = 0 Then
                End
            End If
        Loop Until rep3 <> "n"
        Console.Read()
    End Sub

je veux retourner depuis les 2 menus :Clients et voiture vers mon menu principal
jai essayer avec "do" et "while" mais sa na pa marché
Merci[/code]

Filtered HTML

Plain text

CAPTCHA
Cette question permet de vérifier que vous n'êtes pas un robot spammeur :-)
 L     ZZZZZ  ZZZZZ  TTTTTT   AA  
L Z Z TT A A
L Z Z TT AAAA
L Z Z TT A A
LLLL ZZZZZ ZZZZZ TT A A