Tutoriel LotusScript pour débutants en programmation

Automatisation : boucle FOR ....NEXT

Fermer le classeur précédent et créer un nouveau classeur.
On va maintenant utiliser une boucle afin de créer plusieurs rectangles d'un seul clic :

*Script 6a*
*Sub Click(Source As Buttoncontrol) For i=0 To 4 Set r=[a].newRectangle(2000+100i,1000,2400+100i,1400) Next End Sub*

Remarquez que quand vous appuyez sur la touche Entrée après For i=0 to 4 , Next est ajouté automatiquement.

A l'exécution la ligne 3, comprise entre For....et Next, est répétée 5 fois .
- La variable ici appelée i est le compteur de boucle : initialement i vaut 0 (For i=0... )
- Lorsque le programme rencontre l'instruction Next , il compare i à la valeur finale indiquée 4 (For i=0 to 4).
- Si i est inférieur à 4, le programme revient en arrière à l'instruction suivant immédiatement la ligne For i=0 to 4
- Si i est égale à 4, le programme poursuit son exécution à la ligne suivant Next
- On dit que le programme fait une boucle car il revient en arrière pour répéter plusieurs fois la ou les mêmes instructions.
Ici on a fait dépendre la position du rectangle de la valeur du compteur de boucle , pour que les rectangles successifs soient décalés.
On peut inclure plusieurs lignes dans la boucle: compléter le script comme ci-dessous

*Script 6b*
Sub Click(Source As Buttoncontrol) For i=0 To 4 Set r=[a].newRectangle(2000+100i,1000,2400+100i,1400) r.edgedashstyle=$none r.background.pattern=1 Set r.background.color=currentApplication.colors(i*16+16) Next End Sub

Script 6b

Sub Click(Source As Buttoncontrol) For i=0 To 4 Set r=[a].newRectangle(2000+100*i,1000,2400+100*i,1400) r.edgedashstyle=$none r.background.pattern=1 Set r.background.color=currentApplication.colors(i*16+16) Next End Sub

A la ligne 4 on définit la propriété edgedashstyle du rectangle r créé ligne 3 détermine le style de ligne qui entoure le rectangle: ici on a choisi la valeur $none, qui signifie qu'il n'y a pas de ligne.
Les lignes 5 et 6 permettent d'obtenir des rectangles de couleur uni : la ligne 5 choisit le motif de remplissage 1 qui signifie remplissage par la couleur background.color, et la ligne 6 donne à cette couleur une valeur dépendant de i, ce qui permet ici d'obtenir un joli dégradé.

Syntaxe de For ....next
FOR compteur = valeur initiale TO valeur finale
Instructions
NEXT
Remarque: on peut imbriquer des boucles les unes dans les autres à condition de ne pas utiliser la même variable comme compteur de boucle et de respecter la règle "la dernière boucle commencée est la première boucle terminée"
Par exemple, dans le script 6b, insérer juste avant Next les lignes suivantes :
```
For j=0 to 100000

Next
```
Si vous ne voyez pas de différence en cliquant sur le bouton, changez la valeur finale de j, par exemple 1000000.
Cette deuxième boucle, insérée dans la première, ne fait rien mais elle est exécutée 100001 fois, ce qui retarde l'exécution du script : on dit qu'elle sert de temporisation.