Section courante

A propos

Section administrative du site

Les instructions de boucle (aussi appelé instructions répétitives) en langage Visual Basic .NET sont au nombres de cinq mais permettent quand même de faire face à n'importe quel situation ou presque :

WHILE ... END WHILE

L'instruction «WHILE ... END WHILE» permet la comparaison au début de la boucle, avant même que la suite d'instruction inclus dans la boucle ne soit lancé ! On peut voir cette instruction à la manière d'un «IF» se répétant tant et aussi longtemps que la condition est vrai. Voici donc sa syntaxe :

WHILE expression_vrai
 instruction_exécuté_si_vrai
END WHILE

Exemple

Cet exemple permet de montrer un simple boucle avec la variable «a» :

  1. Module Module1
  2.  
  3.     Sub Main()
  4.         Dim a As Integer = 0
  5.         While a < 10
  6.             Console.WriteLine("a = " & a)
  7.             a = a + 1
  8.         End While
  9.     End Sub
  10.  
  11. End Module

on obtiendra le résultat suivant :

a = 0
a = 1
a = 2
a = 3
a = 4
a = 5
a = 6
a = 7
a = 8
a = 9

DO WHILE ... LOOP

L'instruction «DO WHILE ... LOOP» permet la comparaison au début de la boucle, avant même que la suite d'instruction inclus dans la boucle ne soit lancé ! On peut voir cette instruction à la manière d'un «IF» se répétant tant et aussi longtemps que la condition est vrai. Voici donc sa syntaxe :

DO WHILE expression_vrai
 instruction_exécuté_si_vrai
LOOP

Exemple

Cet exemple permet de montrer un simple boucle avec la variable «a» :

  1. Module Module1
  2.  
  3.     Sub Main()
  4.         Dim a As Integer = 0
  5.         Do While a < 10
  6.             Console.WriteLine("a = " & a)
  7.             a = a + 1
  8.         Loop
  9.     End Sub
  10.  
  11. End Module

on obtiendra le résultat suivant :

a = 0
a = 1
a = 2
a = 3
a = 4
a = 5
a = 6
a = 7
a = 8
a = 9

DO ... LOOP WHILE

L'instruction «DO .. LOOP WHILE» est identique à si méprendre avec l'instruction «DO» à la différence que la condition est effectué à la fin des instructions plutôt qu'au début. L'avantage, on est certain que les instructions seront exécutés au moins une fois! Ainsi le principe de fonctionnement est simple, on exécute les instructions, on effectue un teste pour vérifier si la condition est vrai, on revient au début et on recommence sinon on poursuit à l'instruction suivante. Voici enfin sa syntaxe :

DO
 instruction
LOOP WHILE expression_vrai

Exemple

Cet exemple permet de montrer un simple boucle avec la variable «I» :

  1. Module Module1
  2.  
  3.     Sub Main()
  4.         Dim I As Integer = 0
  5.         Do
  6.             Console.WriteLine("i = " & I)
  7.             I += 1
  8.         Loop While I < 10
  9.     End Sub
  10.  
  11. End Module

on obtiendra le résultat suivant :

i = 0
i = 1
i = 2
i = 3
i = 4
i = 5
i = 6
i = 7
i = 8
i = 9

FOR

Avec «Visual Basic .NET» l'instruction permettant d'effectuer des comptes de boucles est «FOR». L'«expression1» permet d'identifier la variable devant être utilisé pour effectuer le compteur de boucle. L'«expression2» est la valeur de départ ou d'initialisation du compteur de boucle. L'«expression3» est la valeur de fin du compteur de boucle. Le «saut» est le nombre d'incrémentation ou de décrementation appliquer à l'expression1. Voici enfin sa syntaxe :

FOR expression1 = expression2 TO expression3 STEP saut
   instruction
NEXT

Exemple

Voici un exemple effectuant un compteur de boucle avec un saut par 2 :

  1. Module Module1
  2.  
  3.     Sub Main()
  4.         Dim I As Integer
  5.         For I = 0 To 10 Step 2
  6.             Console.WriteLine("i = " & I)
  7.         Next
  8.     End Sub
  9.  
  10. End Module

on obtiendra le résultat suivant :

i = 0
i = 2
i = 4
i = 6
i = 8
i = 10

FOR EACH

Cette instruction permet d'effectuer une boucle sur tous les éléments d'une liste ou d'un ensemble. Voici sa syntaxe :

FOR EACH variable IN variableliste
   instruction
NEXT

Exemple

Voici un exemple effectuant un compteur de boucle :

  1. Module Module1
  2.  
  3.     Sub Main()
  4.         Dim TableauNombre = New Integer() {10, 20, 10, 4, 6, 1, 5}
  5.         For Each CurrValeur In TableauNombre
  6.             Console.Write(", " & CurrValeur)
  7.         Next
  8.     End Sub
  9.  
  10. End Module

on obtiendra le résultat suivant :

, 10, 20, 10, 4, 6, 1, 5

Dernière mise à jour : Samedi, le 22 octobre 2016