Tutoriel LotusScript pour débutants en programmation

Nous pouvons maintenant revenir au script Click du tout premier bouton (Script 2) et obtenir un résultat encore plus diversifié en modifiant ce script comme ci-dessous

*Script 4*
Sub Click(Source As Buttoncontrol) Set r=[a].newRectangle(2000+Rnd5000,2000+Rnd5000,2800+Rnd5000,2900+Rnd5000) r.rotation=360Rnd Dim codecouleur As Integer codecouleur=Rnd239 Set r.edgecolor=currentapplication.colors(codecouleur) Set r.background.color=r.edgecolor Dim motif As Integer motif=Rnd*73 r.background.pattern=motif End Sub

Script 4

Sub Click(Source As Buttoncontrol) Set r=[a].newRectangle(2000+Rnd*5000,2000+Rnd*5000,2800+Rnd*5000,2900+Rnd*5000) r.rotation=360*Rnd Dim codecouleur As Integer codecouleur=Rnd*239 Set r.edgecolor=currentapplication.colors(codecouleur) Set r.background.color=r.edgecolor Dim motif As Integer motif=Rnd*73 r.background.pattern=motif End Sub

Ce script fait tourner chaque rectangle créé, modifie la couleur des bords et du fond , et le motif de remplissage.

Ligne :
```
r.rotation=360*Rnd
```
Pour faire tourner le rectangle on modifie sa propriété rotation en lui donnant une valeur entre 0 et 360 : puisque Rnd renvoie une valeur entre 0 et 1, 360*Rnd est entre 0 et 360.
Lignes :
```
Dim codecouleur As Integer
codecouleur=Rnd*239
Set r.edgecolor=currentapplication.colors(codecouleur)
```
- CurrentApplication désigne l'application courante, autrement dit Lotus 123, qui dispose d'une palette de 240 couleurs numérotées de 0 à 239 (ce sont les mêmes que vous utilisez quand vous modifiez la couleur du texte ou des cellules). Pour obtenir le numéro d'une couleur au hasard, on utilise Rnd*239. Cependant, le n° de couleur doit être un entier. C'est pourquoi on ajoute la ligne Dim codecouleur As Integer, pour signifier que le n° de couleur, codecouleur, est un entier : cette ligne peut se traduire par "créer une variable entière appelée codecouleur". Lorsqu'on fait codecouleur=Rnd*239, le résultat de Rnd*239 est alors arrondi à l'entier le plus proche.
- Set r.edgecolor=currentapplication.colors(codecouleur) donne à la couleur de bord edgecolor de r la couleur ayant le n° codecouleur dans la palette de couleurs de Lotus 123.
- Le mot Set est utilisé dans une opération d'affectation lorsqu'on a des deux côtés du signe = un objet ou une propriété d'objet.
Ligne
```
Set r.background.color=r.edgecolor 
```
: donne au motif qui remplit l'arrière-plan de r (background) la même couleur que celle de ses bords (edgecolor)
Remarque : il existe une autre couleur pour l'arrière plan, celle du fond background.backcolor, qui est la couleur du fond derrière le motif. Dans ce script on ne la modifie pas : elle reste en blanc.
Lignes :
```
Dim motif As Integer
motif=Rnd*73
r.background.pattern=motif
```
Ces lignes modifient le motif de remplissage (propriété pattern du background de r) . Il existe 74 possibilités numérotées de 0 à 73.