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]
Ce genre de question concerne l'environnement .Net. Merci de les poser dans le forum DotNet la prochaine fois :)
ah desolé jai pas fais attention :?
Pas de mal :)
Je le disais pour tes prochains posts, que j'espère nombreux sur notre forum.
oui oui biensur :d je suis un etudiant en developpment informatique c sur quil y aura dautres projets a faire et dautres astuces que je connais pas donc je vais venir tjrs au cas ou je me bloque ca c sur :twisted:
En ce qui concerne ta présente question, et si je le comprends bien...
Ton problème ne vient-il pas tout simplement d'une mauvaise structure de ton code. Pour que Client et Voiture retournent dans le menu principal il me semble qu'ils devraient être appelés depuis celui-ci alors que j'ai l'impression que tu les appelles après. Ou peut être, si tu veux garder cette structure de code, l'ensemble devrait être englobé dans une boucle do-while ?