Visual Basic/Conditionnelles et boucles
Une page de Wikiversité.
Cette page n'est pas finie. Elle est en phase d'écriture ou de restructuration importante.
|
| Chapitre 5 | |||
| Leçon : Visual Basic | |||
|---|---|---|---|
| Chap. préc. : | Manipulation des variables | ||
| Chap. suiv. : | Environnement VB | ||
En raison de limitations techniques, la typographie souhaitable du titre, « Visual Basic : Manipulation des variables
Visual Basic/Conditionnelles et boucles », n'a pu être restituée correctement ci-dessus.
Sommaire |
[modifier] Structures de test
[modifier] Test conditionnel simple : le bloc If
exemple :
if (testCondition) then
instruction
end if
[modifier] Distinction de cas : Select Case
'Exemple d'instruction SELECT Select foo Case "valeur": Instructions_1 [...] Case "Valeur_bis": Inscructions_2 End Select 'Fin de l'exemple
Fonctionnement : selon la valeur de la variable foo, il sera exécuté une serie d'instruction définie comme suit.
Si foo = "valeur" alors on fera les Instructions_1 Si foo = "Valeur_bis" alors on exécutera les Instructions_2
C'est une fonction très pratique et plus propre que les if elseif else à répétitions.
[modifier] Structures de boucle
Une boucle, c'est quoi? C'est comme son nom l'indique, le fait de faire quelque chose qui tourne en rond, de le repeter un certain nombre de fois.
Un exemple tout simple :
On souhaite calculer la moyenne d'une classe de CM1, on connait toutes les moyennes des eleves et donc on va faire la boucle suivante :
Pour chaque eleve de la classe, additionner la moyenne Et une fois que c'est fait, on divise le total par le nombre d'eleve.
[modifier] Boucles à compteur : For
For = Pour.
Syntaxe :
For var = start to end
Instructions
Next var
Traduction litéralle : Pour la variable var egalé à start, exécuter les Instructions et incrémenter var de 1 jusqu'à end
L'instruction Step Step = Pas. En definissant un pas, on choisi de modifier l'incrementation de la variable a chaque passage de la boucle
For var = start to end Step pas
Instructions
Next var
Traduction littérale : Pour la variable var egalé à start, exécuter les Instructions et incrémenter var de pas jusqu'à end
Cela sert quand le pas d'incrémentation est supérieur à 1.
[modifier] Boucles conditionnelles : While
While = Tant que.
Syntaxe :
While condition
Instructions
Wend
Traduction litéralle : Tant que condition est vrai alors on exécute les Instructions.
[modifier] Calculer la moyenne de la classe de CM1
Code commun :
Option Explicit Dim notes(5) as integer Dim noteTotale as integer Dim moyenne as long notes(0) = 10 notes(1) = 12 notes(2) = 18 notes(3) = 5 notes(4) = 15 notes(5) = 11
Avec For :
For i=0 to 5 noteTotale = noteTotale + notes(i) Next i |
Avec While
i=0
While(i<5)
noteTotale = noteTotale + notes(i)
i = i+1
Wend
|
Calcul de la moyenne
moyenne = noteTotal/6