Problème de boucle. Résolu/Fermé

Question

Bonjour, 

Voilà j'ai un problème de boucle que je n'arrive pas à arranger ! En gros j'aimerai poser une question à l'utilisateur si oui ou non il veux faire une conversion (euros en francs).

Si la réponse est oui alors commencer la boucle pour qu'il fasse la conversion et demander si oui ou non il veut recommencer. Hors si l'utilisateur dit non et bien mon programme fait qu'au même la conversion et s'arrête après. J'aimerai que si l'utilisateur dit non le programme s'arrête direct et qu'il demande pas à faire une conversion. Voici mes codes :


CLS
PRINT SPACE$(20); " salut et bienvenue dans mon test de boucle ! "
PRINT

    INPUT " Veux tu tester ma boucle (oui/non) "; reponse$

IF reponse$ = "oui" OR reponse$ = "Oui" THEN
        PRINT " Alors c'est parti ! "
    END IF
DO
   
    INPUT " Que valeur ta choisi "; valeur
    PRINT
    PRINT valeur; "euros = "; valeur * 6.55957; " francs !"

LOOP WHILE reponse$ = "Oui" OR reponse$ = "oui"

IF reponse$ = "Non" OR reponse$ = "non" THEN
    PRINT " Alors c'est fini ! "
END IF


Merci de m'avoir lu.
Cordialement rcx.


Configuration: Windows 7 / Firefox 10.0

Yoda · Answer

Bonjour

CLS 
PRINT SPACE$(20); " salut et bienvenue dans mon test de boucle ! " 
DO 
   PRINT 
   INPUT " Veux tu tester ma boucle (oui/non) "; reponse$ 
   IF Ucase(reponse$) = "OUI" THEN 
       PRINT " Alors c'est parti ! " 
       INPUT " Quelle valeur t'as choisi "; valeur 
       PRINT 
       PRINT valeur; "euros = "; valeur * 6.55957; " francs !" 
   END IF 
LOOP WHILE Ucase(reponse$) = "OUI" 
PRINT " Alors c'est fini ! " 
END IF 

Voilà comment ecrire ta boucle. Au passage tu remarqueras la fontion Ucase, je t'invite à regarder dans l'aide ce qu'elle fait si tu ne la sais déjà.

;)

rcx · Answer

Il y a une erreur dans le programme c'est la ligne de Ucase.

Problème de boucle.

2 réponses

Discussions similaires