Accueil
Rechercher:
sur developpez.com sur les forums
Forums | Tutoriels | F.A.Q's | Participez | Hébergement | Contacts
Club Emploi Blogs   TV   Dév. Web PHP XML Python Autres 2D-3D-Jeux Sécurité Windows Linux PC Mac
Accueil Conception Java DotNET Visual Basic  C  C++ Delphi MS-Office SQL & SGBD Oracle  4D  Business Intelligence
FORUM VB FAQs VB TUTORIELS VB OUTILS VB SOURCES VB LIVRES VB
Tutoriel Basic

octobre 2000

Par Bodman

IF....THEN.....ELSE

IF...then se présente de cette manière:

IF [condition] then [résultat] ELSE [résultat si la condition n'est pas accomplie] END IF

cette commande sert à exécuter d'autres commandes si une condition est accomplie, mais si celle-ci ne l'est pas alors une autre commande sera exécutée. La partie ELSE n'est pas obligatoire mais il faut absolument que IF END soit présent sinon on vous affichera un message d'erreur.
exemple:

REM par bodman
REM questionnaire
CLS
1 PRINT "bienvenue à toi visiteur"
INPUT "quel est ton nom"; nom$
IF nom$ = "" THEN
GOTO 1
END IF
2 INPUT "quel est ton age(un chiffre)"; age$
IF age$ = "" THEN GOTO 2
END IF
PRINT "ton nom est " + nom$ + " et tu as " + age$ + " ans."

Voilà les syntaxes utilisées:
= est égal à
> est supérieur à
< est inférieur à
<> est diffèrent de
>= est supérieur ou égal à
<= est inférieur ou égal à

Ainsi que la table de la verite

CASE

Cette commande ressemble un peu à If…Then..else car sont but est le même, prendre une décision, mais cette fonction est plus pratique car elle permet plus de possibilités, je m’explique :

If…THEN…ELSE fonction comme ceci :


si il est arrivé à temps alors c’est bien
Sinon c’est pas bien

CASE lui fonctionne de cette manière :

Tu viens d'arriver :
Si tu es arrive à temps c’est bien
Si tu es arrive en retard d’une minute c’est bien
Si tu es arrivé en retard de plus d’une minute c’est pas super
Si tu es pas arrivé c’estpas bien

Exemple :

CLS
INPUT "quelle est ta note"; note%
SELECT CASE note%
CASE IS < 0
PRINT "nul"
CASE 0 TO 9
PRINT "insuffisant"
CASE 10
PRINT "juste" 
CASE 11 TO 15
PRINT "bien"
CASE 15 TO 20
PRINT "très bien"
END SELECT

-precedent- -sommaire- -Suivant-

Responsables bénévoles de la rubrique Visual Basic : Thierry Adriaenssens et Philippe Baquer - Contacter par EMail :
Vos questions techniques : forum d'entraide Visual Basic - Publiez vos articles, tutoriels et cours
et rejoignez-nous dans l'équipe de rédaction du club d'entraide des développeurs francophones
Nous contacter - Copyright © 2000-2008 www.developpez.com - Legal informations.